PRINT "SADEYA/INFORTECNICA"

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

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

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