PRINT "SADEYA/INFORTECNICA"

10 PRINT "CALCULO DE ACCESOS A UNA WEB Y LECTORES PAPEL"
PRINT
INPUT "VISITAS GOOGLE -WEB.COM-"; vgo
vum = vgo * 1.4
ter = (LOG(vgo) / LOG(10))
VUD = vum / (30 - ter * 2)
PRINT "ter="; ter
REM PRINT "VISITAS UNICAS DIA="; VUD
REM PRINT "VISITAS UNICAS MES="; vum
INPUT "TERMINO MED.=9.3"; TEM

ram = TEM - (LOG(VUD) / LOG(10))
RAN = 10 ^ (ram)

INPUT "RELACION PAPEL/WEB (2 POB.INTERNET+ 0=POB.INTERNET- ESTANDAR=1 EGM=.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 MES="; vum
PRINT "LECTOR MES/PAPEL="; VUMP
PRINT "LECTOR UNICO/PAPEL="; VUDP * 2.1
PRINT
GOTO 10







COE = ter / 3
lvu = ter
IF COE < 1 THEN COE = 1
VEM = vum * COE
PRINT "VISITAS MES= "; VEM
COE2 = ter / 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 ALEXA-AMAZON="; RAN
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