1 CLS 2 PRINT "INFORTECNICA CALCULO Y SOFTWARE" PRINT "SIMULADOR DE AUDIENCIA DE MEDIOS" PRINT INPUT "DESCONOCE DATOS POR ENTREVISTA = 1"; DDE IF DDE = 1 THEN 2000 INPUT "Tiempo dedicaci¢n poblaci¢n minutos/d¡a (TV=180, radio=100, prensa=30)="; tmed 5 INPUT "Tanto por ciento % de quienes conocen el medio="; con valo = con 10 dif = 100 - con 20 IF dif < 50 THEN dif = 100 - dif 30 c1 = dif / 100 40 r1 = 1 - c1 + 1 54 sinto = con / r1 57 INPUT "Si emisoras, introduzaca sintonizaci¢n %, si la desconoce = 0"; sint 58 IF sint = 0 THEN sint = sinto 60 dif2 = (1 * (con - sint)) + 5 70 segu2 = sint - dif2 75 INPUT "Introduza seguimiento/mes % si lo desconoce = 0"; segu 76 IF segu = 0 THEN segu = segu2 80 segd2 = segu / 3 85 INPUT "Introduzca seguimiento diario %, si lo desconoce = 0"; segd 87 IF segd = 0 THEN segd = segd2 90 tiem2 = segd / 2 + 1 100 INPUT "Introduza minutos diarios poblaci¢n, si los desconoce = 0"; tiem 101 IF tiem = 0 THEN tiem = tiem2 PRINT PRINT "RESULTADOS" PRINT PRINT "Conocen %="; con PRINT "Si emisoras, sintonizan %="; sint PRINT "Siguen cada mes %="; ABS(segu) PRINT "Siguen cada d¡a %="; ABS(segd) PRINT "Tiempo de audiencia medio de la poblacion en minutos="; ABS(tiem) INPUT "Correcci¢n de tiempo en minutos (0 sin correcci¢n)"; coti tiem = tiem + coti VALO2 = ABS(tiem) 105 tiems = ABS(tiem / (segu / 100)) 120 PRINT "Minutos diarios seguidores="; ABS(tiems) VALO4 = ABS(tiems) 130 SHAR = tiem / tmed * 100 140 PRINT "Share %="; SHAR 150 PRINT 152 INPUT "Introduzaca poblaci¢n  rea de audiencia, si desconoce = 0"; pob IF pob = 0 THEN 200 154 INPUT "Introduzaca poblaci¢n seguidora del medio al d¡a (radio=.5 tel=.9 prensa=.3)"; pob2 159 PRINT "Seguimiento ocasional ( mas de una vez/mes )= "; INT(pob * segu / 100) 160 PRINT "Siguen todos los d¡as="; INT(pob * segd / 100) 162 grp = INT(pob * SHAR / 100 * pob2) PRINT "GRP= "; grp 168 PRINT "Horas diarias seguimiento poblaci¢n= "; INT(grp * tmed / 60) 200 PRINT 205 INPUT "Nuevo c lculo, SI=1, Perfil sexo y edad (0)"; nca 207 IF nca = 1 THEN 5 310 CLS PRINT PRINT "SADEYA INFORTECNICA" PRINT "SIMULADOR DE DESVIACION POR SEXO Y EDAD DE AUDIENCIA DE EMISORAS" 320 PRINT REM INPUT "SHARE"; SHAR REM 350 INPUT "PORCENTAJE CONOCIMIENTO A DISTRIBUIR POR SEXO Y EDAD"; valo REM INPUT "MINUTOS SEGUIMIENTO POBLACION A DISTRIBUIR POR SEXO Y EDAD"; VALO2 REM INPUT "MINUTOS SEGUIDORES A DISTRIBUIR POR SEXO Y EDAD"; VALO4 VALO5 = VALO4 / VALO2 1100 INPUT "GRADO DE EDAD DE SEGUIMIENTO DE LA EMISORA: 0 JOVEN 10 MAYOR (7)"; gre IF gre = 0 THEN gre = 7 1110 INPUT "GRADO DE MASCULINIDAD DE SEGUIMIENTO: 0 HOMBRE 10 MUJER (7)"; grm IF grm = 0 THEN grm = 6 1120 HOM = 5 - grm 1130 MUJ = grm - 5 1132 JOV = 5 - gre 1136 MAY = gre - 5 PRINT COE = (50 - (ABS(valo - 50))) / 10 COE3 = (50 - (ABS(SHAR - 50))) / 10 VALOR = valo COE2 = VALO2 / 10 COE4 = VALO4 / 10 MUJE = valo + MUJ * COE HOMB = valo + HOM * COE MAYO = valo + MAY * COE JOVE = valo + JOV * COE MUJE2 = VALO2 + MUJ * COE2 HOMB2 = VALO2 + HOM * COE2 MAYO2 = VALO2 + MAY * COE2 JOVE2 = VALO2 + JOV * COE2 MUJE3 = SHAR + MUJ * COE3 HOMB3 = SHAR + HOM * COE3 MAYO3 = SHAR + MAY * COE3 JOVE3 = SHAR + JOV * COE3 MUJE4 = VALO4 + MUJ * COE4 HOMB4 = VALO4 + HOM * COE4 MAYO4 = VALO4 + MAY * COE4 JOVE4 = VALO4 + JOV * COE4 PRINT PRINT "RESULTADOS CONOCIMIENTO %" PRINT "HOMBRES="; HOMB PRINT "MUJERES="; MUJE PRINT "JOVENES="; JOVE MEDI = (JOVE + MAYO) / 2 MED = (JOV + MAY) / 2 PRINT "MEDIANOS="; MEDI PRINT "MAYORES="; MAYO PRINT PRINT "RESULTADOS SHARE %" PRINT "HOMBRES="; HOMB3 PRINT "MUJERES="; MUJE3 PRINT "JOVENES="; JOVE3 MEDI3 = (JOVE3 + MAYO3) / 2 MED = (JOV + MAY) / 2 PRINT "MEDIANOS="; MEDI3 PRINT "MAYORES="; MAYO3 PRINT PRINT "POBLACION Y SEGUIDORES MINUTOS/DIA" PRINT "HOMBRES="; HOMB2; HOMB4 PRINT "MUJERES="; MUJE2; MUJE4 PRINT "JOVENES="; JOVE2; JOVE4 MEDI2 = (JOVE2 + MAYO2) / 2 MEDI4 = (JOVE4 + MAYO4) / 2 REM MED = (JOV + MAY) / 2 PRINT "MEDIANOS="; MEDI2; MEDI4 PRINT "MAYORES="; MAYO2; MAYO4 PRINT INPUT "NUEVO CALCULO SI=0"; NUEC IF NUEC = 0 THEN 2 1150 END 2000 INPUT "CONOCE EL NUMERO DE EMISORAS EN EL AREA POR SATELITE U OTRO MEDIO SI=1";CSA INPUT "POBLACION DEL AREA A 30 kM. MAXIMO"; POA IF CSA= 1 THEN 4000 EMIP = (LOG(POA) / LOG(10)) EMIP = INT(EMIP * EMIP / 4) IF EMIP < 1 THEN EMIP = 1 INPUT "NUMERO DE EMISORAS ESTATALES EN EL AREA (ESTANDAR 10)"; NE EMIM = EMIP + NE PRINT "NUMERO DE EMISORAS PROBABLES"; EMIM 2100 SHAREM = 100 / EMIM GRPT = POA * .46 GRPE = GRPT * SHAREM / 100 SEGE = GRPE * 4.3 CONO = SEGE * 1.9 PRINT "SHARE MEDIO="; SHAREM PRINT "GRPM MEDIO="; GRPE PRINT "SEGUIDORES,%="; SEGE; 100 * SEGE / POA PRINT "CONOCEDORES,%="; CONO; 100 * CONO / POA PRINT GOTO 2000 4000 INPUT "NUMERO DE EMISORAS DEL AREA";EMIM GOTO 2100