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