PRINT "SADEYA/INFORTECNICA" 10 PRINT "CALCULO DE ACCESOS A UNA WEB Y EQUIVALENCIA A DIFUSION PRENSA PAPEL" PRINT INPUT "RANKING UNIVERSAL ALEXA/AMAZON"; RAN INPUT "TERMINO BASE, ESTANDAR 9.3"; TER LVU = TER - LOG(RAN) / LOG(10) VUD = 10 ^ (LVU) INPUT "RELACION PAPEL/WEB (10 POB.INTERNET+ 0=POB.INTERNET- Y POCO POBLADAS EGM=0.7)"; REL IF REL = 0 THEN REL = .001 REL2 = 2 / REL PRINT "NO DEBE SER SUPERIOR A LA POBLACION DEL AREA" PRINT "VISITAS UNICAS DIA="; VUD MES = 30 - (LVU * 3) VUM = VUD * MES VUDP = VUD * REL2 VUMP = VUM * REL2 PRINT "LECTOR DIA/PAPEL="; VUDP PRINT "VISITAS UNICAS MES="; VUM PRINT "LECTOR MES/PAPEL="; VUMP PRINT "LECTOR UNICO MES/PAPEL="; VUDP * 2.1 PRINT PRINT GOTO 10 GRPT = VUM * 1.1 PRINT PRINT "DATOS MEDIOS PRENSA PAPEL" PRINT "GRP APROX. RADIO="; GRPT * .7; GRPT INPUT "POBLACION DEL AREA"; POBA GRPTG = POBA * .4 SHARET = GRPT / GRPTG PRINT "SHARE%="; SHARET * 70; SHARET * 100 MINP = 85 * SHARET PRINT "MINUTOS EMISORA (85 RADIO)="; MINP * .7; MINP SEGUI = GRPT * 9 IF SEGUI > (GRPTG) THEN SEGUI = GRPTG PRINT "SEGUIDORES="; SEGUI * .7; SEGUI CONOC = SEGUI * 1.9 IF CONOC > (GRPTG) THEN CONOC = GRPTG PRINT "CONOCEDORES="; CONOC PRINT PRINT "WEB" COE = LVU - 2 IF COE < 1 THEN COE = 1 VEM = VUM * COE PRINT "VISITAS MES= "; VEM COE2 = LVU / 2 PEM = VEM * COE2 PRINT "PAGINAS MES="; PEM PRINT "TIEMPO MEDIO MIN/DIA="; LVU PRINT PRINT "DATOS COMPLEMENTARIOS" PRINT PRINT "PAGINAS/VISITA="; COE2 RANE = INT(RAN / 25.7777) PRINT "RANQUING ESPA¥A="; RANE INPUT "POBLACION AREA="; PAR REL = PAR / 46600000 RAA = REL * RANE PRINT "RANQUING AREA="; INT(RAA) THO = LVU * VUD / 60 PRINT "TOTAL HORAS WEB/DIA="; THO THI = PAR * .7 * 2 REI = (THO / THI) * 100 PRINT "REICH-SHARE%="; REI GRA = REI / 100 * .7 * PAR PRINT "GRP.AREA="; GRA PRINT GOTO 10