PRINT "SADEYA/INFORTECNICA"

10 PRINT "CALCULO DE ACCESOS A UNA WEB"
PRINT
INPUT "RANKING UNIVERSAL ALEXA/AMAZON"; RAN
INPUT "TERMINO BASE, ESTANDAR 9.3"; TER
LVU = TER - LOG(RAN) / LOG(10)
VUD = 10 ^ (LVU)
PRINT "VISITAS UNICAS DIA="; VUD
MES = 30 - (LVU * 3)
VUM = VUD * MES
PRINT "VISITAS UNICAS MES="; VUM
PRINT "GRP APROX. TELEVISION="; VUM * 1.1
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