El sistema de los métodos
cuantitativos para los analisis de la salud de las poblaciones animales
– ejemplos de
la aplicacion práctica
E P I Z O O T
(version 1.0 – experimental)
1992
EPIZOOT es un software paquete de los metodos
seleccionados para el analisis de la situacion
epizootiologica y la programacion de la
salud animal
Autor: Prof.MVDr.
Vaclav K o u b a , PhD,DrSc.
Ex-jefe del Servicio Veterinario de
la Organizacion de las Naciones Unidas
para la Agricultura y la Alimentacion
y
Profesor de la Epizootiologia, Universidad
de Ciencias Veterinarias, Brno
M E N
U DE LOS GRUPOS DE SUBPROGRAMAS:
1-Indicadores del analisis de la situacion epizootiologica
2-Indicadores de la dinamica de los procesos epizooticos
3-Investigaciones de la situacion epizootiologica
4-Consecuencias de la salud y enfermedad colectivas
5-Aspectos
seleccionados de los programas epizootiologicos
6-Muestreo
para las investigaciones epizootiologicas
7-Metodos
estadisticos seleccionados utilizados en la epizootiologia - I
8-Metodos
estadisticos seleccionados utilizados en la epizootiologia - II
9-Metodos
estadisticos seleccionados utilizados en la epizootiologia - III
10-Efectividad de los programas epizootiologicos
1.-INDICADORES RELATIVOS DEL
SISTEMA INTEGRAL DEL ANALISIS DE LA SITUACION EPIZOOTIOLOGICA
1=Indicadores generales basicos
para el analisis
2=Indicadores relacionados con
poblacion animal(incl.resistencia)
3=Indicadores de la salubridad de
poblacion animal
4=Indicadores de la morbilidad de
poblacion animal
5=Indicadores de la vitalidad de
poblacion animal
6=Indicadores de la mortalidad de
poblacion animal
7=Indicadores de la focalidad de
enfermedad animal
8-Indicadores relacionados con la
distribucion territorial
9=Indicadores de duracion de
existencia/ausencia de fenom.epizoot.
10=Estructura epizootiologica de
la poblacion animal
1.1-INDICADORES GENERALES BASICOS
DEL ANALISIS EPIZOOTIOLOGICO
DATOS INICIALES:
lugar? Provincia D. tiempo? 2000
unidades basales? bovinos
unidades epizootiologicas? bovinos positivos a IBR
numero de unidades basales existentes en un momento dado? 450000
numero de unidades basales existentes en un periodo dado? 58000
numero promedio de unidades basales en un periodo dado? 47000
numero de unidades basales existentes al inicio del periodo? 43000
numero de unidades epizoot. existentes en un momento dado? 23000
numero promedio de unidades epizoot. en un periodo dado? 34000
numero de unidades epizoot.nuevas en un periodo dado? 12000
numero de unidades epizoot. extinguidas en un periodo dado? 15000
numero de unidades basales existentes al inicio del periodo? 43000
RESULTADOS:
prevalencia momentanea de unidades epizoot. = 0.0511
prevalencia promedia de unidades epizoot. = 0.7234
incidencia a total existente de unid.epiz. = 0.2069
incidencia a total promedio de unid.epiz. = 0.3529
incidencia a total inicial de unid.epiz. = 0.2791
extinccion a total existente de unid.epiz. = 0.2586
extinccion a total promedio de unid.epiz. = 0.4412
extinccion a total inicial de unid.epiz. = 0.3488
1.2-INDICADORES RELACIONADOS CON
LA POBLACION ANIMAL (incl.resistencia)
DATOS INICIALES:
lugar? Granja G.
tiempo? 2003
especie(s)? Bovinos categoria(s)?
vacas
unidades de medicion de superficie? km2
unidades de medicion de volumen?
numero total de animales de todas las especies? 23000
numero total de animales de la especie dada? 12000
numero total de animales de la categoria dada? 5700
numero de unidades de medicion de superficie? 250
numero de unidades de cria/produccion? 15
numero de animales inmunizados? 3500
numero de inmunizaciones durante un periodo dado? 4300
RESULTADOS:
Tasa de especie animal = 0.52174
Tasa de categoria animal = 0.47500
Densidad promedia de animales por km2 =
48
Concentracion de animales por unidad de produccion = 800
Tasa de animales inmunizados = 0.29167
1.3-INDICADORES DE LA SALUBRIDAD
DE LA POBLACION ANIMAL
DATOS INICIALES:
tipo de salubridad/salud colectiva? libres de tuberculosis
lugar? Region U.
tiempo? 2004
especie(s)? Bovinos
categoria(s)? vacas
numero de animales total existentes en un momento dado? 45000
numero de animales total existentes en un periodo dado? 53000
numero promedio de animales en un periodo dado? 46500
numero de animales sanos existentes en un momento dado? 32000
numero de animales sanos existentes en un periodo dado? 41000
numero de animales sanos nuevos en un periodo dado? 8000
numero de animales sanos extinguidos en un periodo dado? 2300
RESULTADOS:
prevalencia momentanea de animales sanos = 0.7111
prevalencia de periodo de animales sanos = 0.7736
incidencia de anim.sanos a total existente = 0.1509
incidencia de anim.sanos a total promedio = 0.1720
extinccion de anim.sanos a total existente = 0.0434
extinccion de anim. sanos a total promedio = 0.0495
1.4-INDICADORES DE LA MORBILIDAD
DE LA POBLACION ANIMAL
DATOS INICIALES:
enfermedad(es)? influenza
lugar? Region O. tiempo? 2003
especie(s)? Porcinos categoria(s)? todas
numero total de animales existentes en un periodo dado? 350000
numero promedio de animales en un periodo dado? 210000
numero total de animales existentes al inicio del periodo? 235000
numero de animales enfermos existentes en un periodo dado? 32500
numero promedio de animales enfermos en un periodo dado? 43000
numero de animales enfermos nuevos en un periodo dado? 5400
numero de animales enfermos extinguidos en un periodo dado? 6700
RESULTADOS:
prevalencia de periodo de animales enfermos = 0.0929
prevalencia promedia de animales enfermos = 0.2048
incidencia de anim. enfermos a total existente = 0.0154
incidencia de anim. enfermos a total promedio = 0.0257
incidencia de anim. enfermos a total inicial = 0.0230
extinccion de anim. enfermos a total existente = 0.0191
extinccion de anim. enfermos a total promedio = 0.0319
extinccion de anim. enfermos a total inicial = 0.0285
1.5-INDICADORES DE LA VITALIDAD
DE LA POBLACION ANIMAL
DATOS INICIALES:
lugar? Granja T.
tiempo? 2001
especie(s)? porcina
categoria(s)? todas
numero de animales nacidos en un periodo dado? 23000
numero de animales fallecidos? 987
numero de animales sacrificados? 16000
numero de animales existentes en un periodo dado? 41700
numero de reproductoras existentes en un periodo dado? 1900
numero de animales existentes al inicio? 34000
numero de animales sobrevivientes al final? 27000
numero de recien nacidos destetados? 18000
numero de animales al inicio de la ceba? 21000
numero de animales cebados al final? 20500
RESULTADOS:
indice vital de poblacion animal =
1.3540
natalidad de poblacion animal =
0.5516
fertilidad de poblacion animal =
12.1053
tasa de animales sobrevividos = 0.7941
tasa de animales destetados = 0.7826
tasa de animales cebados = 0.9762
1.6-INDICADORES DE LA MORTALIDAD
DE LA POBLACION ANIMAL
DATOS INICIALES:
lugar? Provincia
periodo? 2003
especie(s)? Ovinos categoria(s)?
todas
numero total de animales muertos? 9800
numero total de animales? 410000
numero de animales existentes en un periodo dado? 650000
numero promedio de animales en un periodo dado? 420000
numero de animales fallecidos? 8900
numero de animales enfermos? 45600
numero de animales enfermos fallecidos? 8900
numero de animales sacrificados? 120000
numero de anim.fallecidos por una enfermedad especifica? 2100
RESULTADOS:
mortalidad animal = 0.0239
mortalidad animal de total existentes = 0.0151
mortalidad animal a total promedio =
0.0233
mortalidad animal natural = 0.0217
letalidad animal = 0.1952
tasa de animales sacrificados = 0.2927
tasa proporcional de mortalidad natural especifica = 0.2360
1.7-INDICADORES DE LA FOCALIDAD
DE LA ENFERMEDAD ANIMAL
DATOS INICIALES:
enfermedad? colera porcino
especie(s)? porcinos
tipo de focos? fincas afectadas
lugar? Zona R. tiempo?
2002
numero de unidades de medicion focales en un tiempo dado? 3500
numero de focos en un tiempo dado? 123
numero de unidades focales existentes en un momento dado? 3500
numero de focos existentes en un momento dado? 154
numero de unidades focales existentes en un periodo dado? 3500
numero de focos existentes en un periodo dado? 465
numero de focos nuevos en un periodo dado? 98
numero de focos extinguidos en un periodo dado? 56
numero de unidades de medicion de superficie del territorio? 5647
numero de unidades de superficie del territorio afectado? 2136
RESULTADOS:
focalidad = 0.035
prevalencia momentanea de focos = 0.0440
prevalencia de periodo de focos = 0.1329
incidencia de focos = 0.0280
extinccion de focos = 0.0160
densidad de focos = 0.0
tasa de zonas afectadas = 0.3783
1.8-INDICADORES DE LA DISTRIBUCION
TERRITORIAL/ESPACIAL
Desea calcular la distribucion territorial/espacial de un fenomeno
epizootiologico (d) o la estructura epizootiologica del territorio (t)? d
DATOS INICIALES:
fenomeno(s) epizootiologico(s)? zorros rabiosos
lugar? Region O.
tiempo? 2001
unidades de medicion del fenomeno? animales
unidades de medicion del superficie? km2
numero total de unidades del fenomeno epizootiologico? 23
numero total de unidades de medicion del superficie? 2345
RESULTADO:
Densidad promedia de animales por un km2
= 0.01
1.8-INDICADORES DE LA
DISTRIBUCION TERRITORIAL/ESPACIAL
Desea calcular la distribucion territorial/espacial de un fenomeno
epizootiologico (d) o la estructura epizootiologica del territorio (t)? t
lugar? País D.
tiempo? 1.12.1989
enfermedad(es)? peste bovina
numero total de km2 del territorio evaluado? 230000
numero de km2 de las zonas libres de la(s) enfermedad(es)? 17000
numero de km2 de las zona libres expuestas? 3500
numero de km2 de las zonas afectadas? 1280
RESULTADOS:
E s t r u c t u r a e p i z o o t i o l o g i c a t e r r i t o r i a l
km2 Proporcion
Territorio evaluado total 230000 1.0
Zonas libres de la(s) enfermedad(es)
17000 0.074
Zonas libres no expuestas 13500 0.059
Zonas libres expuestas 3500 0.015
Zonas indeterminadas
211720
0.921
Zonas afectadas 1280 0.006
1.9-INDICADORES DE LA DURACION DE
LA EXISTENCIA/AUSENCIA DE UN FENOMENO EPIZOOTIOLOGICO
DATOS INICIALES:
lugar? Region F. periodo?
1987
fenomeno epizootiologico? fiebre aftosa
unidades de tiempo? días
duracion de existencia de un fenomeno epizootiologico? 65
duracion de ausencia de un fenomeno epizootiologico? 300
numero de periodos de existencia de un fenom.epizoot.? 3
numero de periodos de ausencia de un fenomeno epizoot.? 2
duracion de un periodo total evaluado? 365
RESULTADOS:
Duracion promedia de existencia del fen.epiz. = 21.67
Duracion promedia de ausencia del fenom.ep. = 150.00
Proporcion temporal del fenomeno epizoot. = 0.1781
Proporcion temporal de ausencia del fen.epiz. = 0.8219
Relacion de periodos con/sin fen.epizoot. = 0.2167
Relacion de periodos sin/con fen.epizoot. = 4.6154
1.10-ESTRUCTURA EPIZOOTIOLOGICA
DE LA POBLACION ANIMAL
DATOS INICIALES:
lugar? País D. tiempo? 1995
enfermedad(es)? tuberculosis
especie(s)? Bovinos categoria(s)?
todas
numero total de animales de una poblacion dada? 3800000
numero de animales epizootiologicamente sanos? 3130000
numero de animales epiz.afectados(insanos)? 438000
numero de animales epiz.sanos expuestos? 940000
numero de animales epiz.sanos expuestos directamente? 240000
numero de animales epiz.indeterminados con sintomas? 1100000
numero de animales epiz.afectados(insanos) con sintomas? 35000
RESULTADOS:
E s t r u c t u r a e p i z o o t i
o l o g i c a :
Animales epizootiologicamente sanos
3130000 0.8237
Animales epizoot.indeterminados 232000 0.0611
Animales epizoot.afectados(insanos)
438000 0.1153
Estructura epizootiologica detallada:
Animales epizoot.sanos no expuestos
2190000 0.5763
Animales epiz.sanos expuestos 94000 0.2474
Anim.sanos
exp.indirectamente 700000 0.1842
Anim.sanos exp.directamente 240000 0.0632
Anim.ep.indeterminados con sintomas
1100000 0.2895
Anim.epiz.afectados(insanos) sin sintomas
403000 0.1061
Anim.epiz.afectados(insanos) con sintomas
35000 0.0092
2.-DINAMICA DE LOS PROCESOS
EPIZOOTICOS - INDICADORES SELECCIONADOS
1-Indices comparativos
d.desarrollo de valores de fenomenos epiz.
2-Valor medio del cambio del
numero de animales enfermos
3-Estacionalidad de los fenomenos
epizootiologicos
4-Indicadores de las tendencias
de la morbilidad animal
5-Indicadores del riesgo
epizootiologico
6-Estimacion: numero de
sobrevivientes segun grados de sobrevivencia
7-Estimacion: numero de
sobrevivientes segun remplazo poblacional
8-Propagacion territorial de
enfermedades infecciosas
9-Pronostico de los afectados por
enfermedad de frecuencia ciclica
10-Pronostico de enfermedad con
frecuencia ascendente/descendete
2.1-INDICES COMPARATIVOS DE
DESARROLLO DE VALORES DE LOS FENOMENOS EPIZOOTIOLOGICOS
DATOS INICIALES:
fenomeno epizootiologico? animales vacunados
lugar? Granja D.
periodo? 1994-1998
numero de los periodos evaluados ? 5
valores de fenomenos epizootiologicos en periodos individuales:
1 : X=? 2000
2 : X=? 1000
3 : X=? 3000
4 : X=? 2200
5 : X=? 3870
RESULTADOS:
Periodo datos absolutos indice
comparativo
corrido
de cadena
1 2000 100 100
2 1000 50.0000
50.0000
3 3000 150.0000 300.0000
4 2200 110.0000 73.3333
5 3870 193.5000 175.9091
2.2-VALOR MEDIO DEL CAMBIO DEL
NUMERO DE ANIMALES ENFERMOS
DATOS INICIALES:
enfermedad(es)? gastroenteritis infecciosa
lugar? Finca R.
periodo? Marzo 2003
especie(s)? Cerdos categoria(s)?
cría
unidades de medicion de tiempo? días
numero de animales enfermos existentes al inicio del periodo ? 784
numero de animales enfermos existentes al final del periodo ? 345
duracion total del periodo dado en unidades de tiempo ? 31
duracion promedia de los subperiodos en unid.de tiempo ? 1
RESULTADOS:
Diferencia absoluta = -439
El valor absoluto promedio del cambio del numero de los animales enfermos
durante un subperiodo = -14
El valor relativo promedio del cambio del numero de los animales enfermos
durante un subperiodo = -1.81 %
2.3-ESTACIONALIDAD DE LOS
FENOMENOS EPIZOOTIOLOGICOS
DATOS INICIALES: (numero mensual de los fenomenos epizootiologicos)
fenomeno epizootiologico? nuevos casos de la erisipela porcina
lugar? Provincia R. Ano?
2003
enero,febrero,marzo? 10,20,30
abril,mayo,junio? 40,60,100
julio,agosto,septiembre? 180,380,300
octubre,noviembre,diciembre? 120,50,12
RESULTADOS:
De total 1302 nuevos casos de la
erisipela porcina se trata de siguientes proporciones (porcentaje) mensulales:
enero - 0.7680
febrero - 1.5361
marzo - 2.3041
abril - 3.0722
mayo - 4.6083
junio - 7.6805
julio - 13.8249
agosto - 29.1859
septiembre - 23.0415
octubre - 9.2166
noviembre - 3.8402
diciembre - 0.9217
2.4-INDICADORES DE LAS TENDENCIAS
DE LA MORBILIDAD ANIMAL
DATOS INICIALES:
enfermedad(es)? de Aujeszky
lugar? Granja P. periodo?
1998
especie(s)? Porcinos categoria(s)?
todas
numero de animales enfermos nuevos en el periodo dado ? 5647
numero de animales enfermos extinguidos (fallecidos,trasladados) en el
periodo dado ? 7658
numero de animales enfermos existentes en el periodo dado ? 12876
RESULTADOS:
indice del incremento de la morbilidad animal = 0.7374
indice de la diminucion de la morbilidad animal = 1.3561
indice de la estabilidad de la morbilidad animal = 2.2801
indice de la inestabilidad de la morbilidad animal = 0.4386
indice de la reduccion de la morbilidad animal = 0.5947
indice de la conservacion de la morbilidad animal = 1.6814
2.5-INDICADORES DEL RIESGO
EPIZOOTIOLOGICO
DATOS INICIALES:
riesgo epizootiologico? de fiebre aftosa
lugar? Provincia E. tiempo?
Noviembre 1990
especie(s)? Bovinos categoria(s)?
todas
morbilidad en los animales expuestos ? 0.19
morbilidad en los animales no expuestos ? 0.01
RESULTADOS:
grado del riesgo epizootiologico relativo =
19.0000
grado del riesgo epizootiologico atribuible = 0.1800
proporcion del riesgo epizootiologico atribuible = 0.9474
2.5-INDICADORES DEL RIESGO
EPIZOOTIOLOGICO
DATOS INICIALES:
riesgo epizootiologico? de fiebre aftosa
lugar? Region T.
tiempo? Marzo 1989
especie(s)? Cerdos categoria(s)?
todas
numero de animales expuestos enfermos ? 3579
numero de animales expuestos sanos ? 1287
numero de animales no expuestos enfermos ? 123
numero de animales no expuestos sanos ? 57987
RESULTADO:
grado de superioridad del riesgo epizootiologico(odds ratio) = 1311.0180
2.6-ESTIMACION DEL NUMERO DE
SOBREVIVIENTES SEGUN GRADOS DE SOBREVIVENCIA (despues de una serie de periodos
parciales)
DATOS INICIALES:
lugar? Provincia S.
periodo? 6 meses postnatales
especie(s)? Bovinos
categoria(s)? terneros
numero total de animales al inicio ? 436000
numero de los periodos parciales (subperiodos) ? 6
coeficiente de probabilidad de sobrevivir (en forma de proporcion)
durante el subperiodo 1 ? 0.94
durante el subperiodo 2 ? 0.95
durante el subperiodo 3 ? 0.96
durante el subperiodo 4 ? 0.97
durante el subperiodo 5 ? 0.98
durante el subperiodo 6 ? 0.99
RESULTADO:
Desde el numero inicial de 436000 animales despues de 6 periodos parciales
se puede estimar 351756 animales
sobrevivientes.
2.7-ESTIMACION DEL NUMERO DE
SOBREVIVIENTES SEGUN REMPLAZO POBLACIONAL(incl.de
animales de una caracteristica epizootiologica)
DATOS INICIALES: (duracion de remplazo debe ser mayor que el periodo evaluado
!)
lugar? Finca U. periodo?
1998
especie(s)? Porcinos categoria(s)?
todas
caracteristica epizootiologica? imunes contra colera
numero de animales existentes al inicio de un periodo dado ? 120
duracion promedia (en dias) de remplazo regular ? 730
duracion (en dias) desde el inicio hasta la evaluacion? 280
proporcion de animales con caracteristica epizootiologica dada? 0.6
RESULTADOS:
numero de animales sobrevivientes el periodo dado = 74
porcentaje de animales sobrevivientes el periodo = 61.64
numero de animales con una caracteristica epizootiologica dada sobrevividos
= 44
2.8-PROPAGACION TERRITORIAL DE
ENFERMEDADES INFECCIOSAS
DATOS INICIALES: (entre '0' cuando se pregunta sobre el indicador para
calcular;los otros datos deben ser disponibles!)
enfermedad(es)? fiebre aftosa
lugar? Region D. periodo?
Marzo 1990
especie(s)? Ruminantes categoria(s)?
todas
unidad de medicion de tiempo? día
unidad de medicion de distancia? km
unidad de medicion de superficie teritorial? km2
velocidad de propagacion por una unidad de tiempo? 0
distancia de propagacion en unidades de longuitud? 45
tiempo de propagacion en unidades de tiempo? 23
densidad promedia de animales por una unidad de superficie? 34
RESULTADOS:
velocidad de propagacion en km por un día = 2.0
territorio de la zona (circular) afectada = 6370 km2
numero estimado de animales en la
zona afectada = 216298
2.8-PROPAGACION TERRITORIAL DE
ENFERMEDADES INFECCIOSAS
DATOS INICIALES: (entre '0' cuando se pregunta sobre el indicador para
calcular; los otros datos deben ser disponibles!)
enfermedad(es)? fiebre aftosa
lugar? Region D. periodo?
Marzo 1990
especie(s)? Rumiantes categoria(s)?
todas
unidad de medicion de tiempo? día
unidad de medicion de distancia? km
unidad de medicion de superficie teritorial? km2
velocidad de propagacion por una unidad de tiempo? 3.7
distancia de propagacion en unidades de longuitud? 45
tiempo de propagacion en unidades de tiempo? 23
densidad promedia de animales por una unidad de superficie? 0
RESULTADOS:
velocidad de propagacion en km por un día = 2.0
distancia de propagacion en km durante
23 día = 85.1
tiempo (en día) necesario para propagacion hasta la distancia de 45 km
= 12
territorio de la zona (circular) afectada = 6370 km2
2.9-PRONOSTICO DE AFECTADOS POR
ENFERMEDAD DE FRECUENCIA CICLICA
DATOS INICIALES:
enfermedad(es)? encefalomielitis infecciosa
lugar? País V.
periodo? 1988-1989
especie(s)? Equinos categoria(s)?
todas
unidades de medicion de tiempo? días
semialtura supuesta de la curva (del numero de animales enfermos)? 65000
duracion total del periodo evaluado (en unidades de tiempo)? 450
duracion entre dos picos de la curva(en unidades de tiempo)? 365
valor minimo de la curva (del numero de animales enfermos)? 5000
valor inicial de X (tiempo) cuando valor Y (enfermos)=A+MIN? 60
intervalos de tiempo(X) en los cuales se calculan los valores Y? 90
RESULTADOS - pronostico del numero de enfermos(Y) en tiempos(X):
Tiempo(X):
Enfermos(Y):
días
0 126291
90 103703
180 15158
270 33936
360 123289
450 108356
2.10-PRONOSTICO DE AFECTADOS POR
ENFERMEDAD CON FRECUENCIA CRECIENTE/DECRECIENTE
(parte de curva regular)
DATOS INICIALES:
enfermedad(es)? enfermedad de Newcastle
lugar? Region L. periodo? 1998-1999
especie(s)? aves de corral categoria(s)?
todas
unidades de medicion de tiempo? días
semialtura supuesta entre numeros max/min de animales enfermos? 45000
duracion total del periodo evaluado(en unidades de tiempo)? 730
duracion de periodo entre numero max y min de animales enfermos? 560
intervalos de tiempo (X) en los cuales se calculan los valores Y? 90
Se trata de una curva ascendente (a) o descendente
(d)? d
valor minimo del numero de animales enfermos ? 3000
RESULTADOS:
Tiempo(X): Enfermos(Y):
días
0 92999
90 87385
180 71941
270 50523
360 28475
450 11299
540 3282
650 3000
3.-INVESTIGACIONES DE LA
SITUACION EPIZOOTIOLOGICA
1-Evaluacion de la calidad del
metodo diagnostico
2-Indicadores del grado de
investigacion de poblacion animal
3-Proporciones de diferentes
tipos de diagnostico utilizados
4-Grados de evidencia y de
notificacion de enfermedades infecciosas
5-Positividad y negatividad de
los resultados de los examenes
6-Reproductibilidad (fidelidad)
de los resultados de los examenes
7-Evaluacion del ensayo
biologico-sospecha de enfermedad vesicular
8-Grado de concordancia de
resultados de metodos comparados
9-Evaluacion del efecto protector
10-Conversion entre medidas
metricas y anglosajonas
3.1-EVALUACION DE LA CALIDAD DEL
METODO DIAGNOSTICO
DATOS INICIALES:
metodo diagnostico? tuberculinizacion de los bovinos
numero de resultados verdaderamente positivos ? 567
numero de resultados falsamente positivos ? 34
numero de resultados falsamente negativos ? 56
numero de resultados verdaderamente negativos ? 345
RESULTADOS:
valor de la detectabilidad(sensibilidad) del metodo diagnostico = 0.9101
valor de la especificidad del metodo diagnostico = 0.9103
valor predicativo de los resultados positivos = 0.9434
valor predicativo de los resultados negativos = 0.8603
3.2-INDICADORES DEL GRADO DE
INVESTIGACION DE POBLACION ANIMAL
DATOS INICIALES:
lugar? Region Z.
tiempo? 2000
poblacion animal? ovinos
metodo diagnostico? serologico a brucelosis
numero total de los animales de una poblacion dada ? 56000
numero total de los animales examinados ? 34900
numero total de los examenes ? 45980
valor de la detectabilidad(sensibilidad) del metodo diagnostico ? 0.87
numero de los animales especificamente enfermos ? 3500
numero de los animales en los focos de enfermedades especificas ? 21900
numero de los animales especificamente sanos expuestos fuera de los focos ?
43000
RESULTADOS:
tasa de animales examinados = 0.6232
porcentaje de los animales examinados = 62.3214
relacion examenes/animales = 0.8211
relacion animales examinados/enfermos =
9.9714
relacion animales examinados/animales en los focos = 1.5936
relacion animales examinados/expuestos =
0.5684
relacion examenes/animales examinados =
1.3175
grado de investigacion de la poblacion animal = 0.5422
3.3-PROPORCIONES DE DIFERENTES
TIPOS DE MÉTODOS DIAGNOSTICOS UTILIZADOS
DATOS INICIALES:
numero de los tipos de métodos diagnosticos utilizados? 3
1 : tipo de método diagnostico?
clínico
numero de examenes? 67854
2 :
tipo de método diagnostico? serologico
numero de examenes? 43098
3 :
tipo de método diagnostico? virologico
numero de examenes? 345
RESULTADOS:
Método Numero de Proporcion Porcentaje
examenes
clínico 67854
0.6097
60.9666
serologico 43098 0.3872
38.7234
virologico 345 0.0031 0.3100
Total 111297
1.0000 100.00
3.4-GRADO DE EVIDENCIA Y DE
NOTIFICACION DE ENFERMEDADES INFECCIOSAS
DATOS INICIALES:
lugar? Region H. tiempo?
2001
enfermedad? brucelosis ovina
numero total de animales especificamente infectados ? 4500
numero de animales infectados reconocidos clinicamente ? 250
numero de animales infectados reconocidos microbiologicamente ? 123
numero de animales infectados reconocidos serologicamente ? 3990
numero de animales infectados reconocidos alergicamente? 2900
numero de animales infectados notificados ? 4100
RESULTADOS:
tasa de evidencia clinica = 0.0556
tasa de evidencia microbiologica = 0.0273
tasa de evidencia serologica = 0.8867
tasa de evidencia alergica = 0.6444
tasa de notificacion de brucelosis ovina = 0.9111
3.5-POSITIVIDAD Y NEGATIVIDAD DE
LOS RESULTADOS DE LOS EXAMENES
DATOS INICIALES:
lugar? Provincia V. tiempo?
2001
especie(s)? Porcinos categoria(s)?
todas
examenes? serologicos a la enfermedad de Aujeszky
numero de animales examinados ? 35000
numero de animales examinados positivos ? 1800
numero de animales examinados dudosos ? 230
numero de examenes de los animales ? 45000
numero de examenes positivos ? 21000
numero de examenes dudosos ? 320
RESULTADOS:
tasa de examinados positivos = 0.0514
tasa de examinados dudosos = 0.0066
tasa de examenes positivos = 0.4667
tasa de examenes dudosos = 0.0071
3.6-REPRODUCTIBILIDAD (FIDELIDAD)
DE LOS RESULTADOS DE LOS EXAMENES
DATOS INICIALES: (comparacion de los
resultados obtenidos por dos investigadores - A y B)
lugar? Granja F.
tiempo? Enero 2003
examenes? rentgenologicos a la rinitis atrofica
investigador A? Dr T. investigador
B? Dr L.
numero de los resultados: negativos identicos en A y B ? 456
numero de resultados: dudosos en A y negativos en B ? 23
numero de resultados: positivos en A y negativos en B ? 45
numero de resultados: negativos en A y dudosos en B ? 12
numero de resultados: dudosos identicos en A y B ? 32
numero de resultados: positivos en A y dudosos en B ? 76
numero de resultados: negativos en A y positivos en B ? 34
numero de resultados: dudosos en A y positivos en B ? 21
numero de resultados: positivos identicos en A y B ? 678
RESULTADOS:
Numero total de animales(muestras,productos) examinados = 1377
Grado de reproductividad de los resultados (concordancia observada) = 0.85 es
decir en termino del porcentaje = 84.68
Coeficiente de correlacion intragrupal - kappa = 0.7202
Se trata de una disconformidad elevada.
3.7-EVALUACION DEL ENSAYO
BIOLOGICO EN SOSPECHA DE ENFERMEDAD VESICULAR
DATOS INICIALES:
Los cambios especificos vesiculares :determinados (s) o no (n):
en bovinos? s
en ovinos(caprinos)? s
en porcinos? s
en equinos? n
RESULTADO:
Resultado del ensayo biologico segun las especies de animales enfermos indica
la presencia del virus de fiebre aftosa
En cada caso para el diagnostico definitivo la investigacion virologica
particular en laboratorio es decisiva.
3.8-GRADO DE CONCORDANCIA DE
RESULTADOS DE METODOS COMPARADOS
DATOS INICIALES: (comparacion de los resultados obtenidos en los mismos
animales o muestras por dos metodos - A y B)
investigaciones? a la brucelosis
metodo A? Serologico metodo B? alergico
numero de los resultados: negativos identicos en A y B ? 876
numero de los resultados: dudosos en A y negativos en B ? 34
numero de los resultados: positivos en A y negativos en B ? 65
numero de los resultados: negativos en A y dudosos en B ? 12
numero de los resultados: dudosos identicos en A y B ? 432
numero de los resultados: positivos en A y dudosos en B ? 67
numero de los resultados: negativos en A y positivos en B ? 87
numero de los resultados: dudosos en A y positivos en B ? 34
numero de los resultados: positivos identicos en A y B ? 456
RESULTADO:
Grado de concordancia de los resultados de metodos comparados = 0.8551 es decir en termino del porcentaje =
85.51
3.9-EVALUACION DEL EFECTO
PROTECTOR
DATOS INICIALES:
lugar? Provincia A. tiempo? 2002
especie(s)? Porcinos categoria(s)?
todas
tipo de tratamiento? vacunacion contra el colera
tasa de ataque entre los animales tratados (en porcentaje) ? 8
tasa de ataque entre los animales no tratados (en porcentaje) ? 85
RESULTADO:
Efecto protector = 90.59%
3.10-CONVERSION ENTRE LAS MEDIDAS
METRICAS Y LAS ANGLOSAJONAS
Para convertir al reves teclee el numero del menu in forma negativa, i.e.con
el simbolo de minus : - .
1-las pulgadas en centimetros
2-los pies en metros
3-las yardas en metros
4-las millas en kilometros
5-las pintas britanicas en litros
6-los galones britanicos en litros
7-los galones americanos en litros
8-los busheles americanos en litros
9-las onzas en gramos
10-las libras en kilogramos
11-los grados Fahrenheit en grados Celsius
numero seleccionado del menu? 11
Valor de la medida para calcular su conversion? 107
RESULTADO:
X = 41.667
4.-CONSECUENCIAS ECONOMICAS DE LA
SALUD Y LA ENFERMEDAD COLECTIVAS
1-Beneficio de salud/perdidas por
morbilidad en la produccion -I metodo
2-Beneficio de salud/perdidas por
morbilidad en la produccion -II metodo
3-Perdidas por una enfermedad
especifica segun parametros medios
4-Perdidas por muertes y
decomisos de animales enfermos
5-Perdidas por la reduccion de utilidad
(productividad) especifica
6-Perdidas por aumento de insumos
especificos en produccion animal
7-Insumos en la produccion por
los animales sanos y enfermos - I metodo
8-Insumos en la produccion por
los animales sanos y enfermos - II metodo
9-Costos de las acciones
epizootiologicas masivas
10-Perdidas economicos totales
por la morbilidad animal
4.1-BENEFICIO DE SALUD
COLECTIVA/PERDIDAS POR MORBILIDAD EN LA PRODUCCION DE LA POBLACION ANIMAL - I. METODO
DATOS INICIALES:
lugar? Granja C.B. periodo? 2001
especie(s)? Bovinos categoria(s)?
vacas
unidades de medicion de la produccion? litros de leche
unidades monetarias? pesos
precio promedio de la unidad de produccion? 1.9
produccion promedia de los animales sanos? 4567
produccion promedia de los animales enfermos ? 3989
numero promedio de los animales sanos ? 567
numero promedio de los animales enfermos ? 345
RESULTADOS:
Beneficio estimado de la salud colectiva en la produccion animal = 327726
litros de leche de valor de 622679 pesos
Perdida estimada en la produccion animal por la morbilidad = 199410 litros
de leche de valor de 378878 pesos
4.2-BENEFICIO DE SALUD
COLECTIVA/PERDIDAS POR MORBILIDAD EN LA PRODUCCION DE LA POBLACION ANIMAL - II.
METODO
DATOS INICIALES:
lugar? Finca S.
periodo? 2001
especie(s)? Bovinos categoria(s)?
vacas
unidades de medicion de la produccion? litros de leche
unidades monetarias? pesos
precio promedio de la unidad de produccion? 1.9
produccion promedia de la poblacion animal ? 4123
produccion promedia de los animales enfermos ? 3876
produccion promedia de los animales sanos ? 4567
numero promedio de los animales de la poblacion ? 189
RESULTADOS:
Beneficio estimado de la salud colectiva en la produccion animal = 46683
litros de leche de valor de 88697 pesos
Perdida estimada en la produccion animal por la morbilidad = 83916 litros
de leche de valor de 159440 pesos
4.3-PERDIDAS POR ENFERMEDAD
ESPECIFICA SEGUN PARAMETROS MEDIOS
DATOS INICIALES:
enfermedad especifica? tuberculosis
lugar? Finca L.
periodo? 2002
especie(s)? Bovinos categoria(s)?
vacas
unidades monetarias? pesos
numero de los animales existentes en un periodo dado ? 456
porcentaje real de los animales especificamente enfermos ? 23
porcentaje promedio (estimado,estandardizado) de letalidad especifica ? 5
perdida promedia (estimada,estandardizada) en producto de un animal
especificamente enfermo en las unidades de producto (kg,litros,etc.)? 45
perdida promedia (estandardizada) en el peso vivo de un animal
especificamente enfermo en kg ? 40
precio promedio de un animal de la misma especie ? 500
precio promedio de una unidad del producto dado ? 3.5
precio promedio de 1 kg del peso vivo animal ? 2.3
RESULTADOS:
numero estimado de animales especicamente enfermos = 104
Numero estimado de animales muertos {fallecidos) = 5 de valor de 2500 pesos
Perdida de 4455 unidades de
producto de valor de 15592 pesos
Perdida en el peso vivo = 3960 kg de valor de 9107 pesos
Perdida total estimada calculable = 27200 pesos
(Se trata solamente de perdidas cuantificadas sin las otras como son las
indirectas)
4.4-PERDIDAS POR MUERTES Y
DECOMISOS DE ANIMALES ENFERMOS
DATOS INICIALES:
enfermedad(es)? colera porcino
lugar? Finca E. periodo? 2001
especie(s)? Cerdos categoria(s)?
todas
unidades monetarias? pesos
numero de los animales fallecidos (naturalmente muertos) ? 346
numero de animales sanitariamente sacrificados ? 234
numero de animales sacrificados decomisados ? 124
peso vivo promedio de animales en kg ? 67
precio promedio de un kg de peso vivo ? 4.5
numero de los animales fallecidos (naturalmente muertos) ? 346
numero de animales sanitariamente sacrificados ? 234
numero de animales sacrificados decomisados ? 124
peso vivo promedio de animales en kg ? 67
precio promedio de un kg de peso vivo ? 4.5
RESULTADOS:
Perdida total en peso vivo = 47168
kg de valor de 212256 pesos
4.5-PERDIDAS POR LA REDUCCION DE
UTILIDAD (PRODUCTIVIDAD) ESPECIFICA (en terminos de indicadores productivos
seleccionados)
DATOS INICIALES:
enfermedad(es)? tuberculosis
lugar? Finca N.
periodo? 1990
especie(s)? Bovinos categoria(s)?
vacas
indicador productivo seleccionado? leche
unidades de medicion del indicador seleccionado? litros
unidades monetarias? pesos
numero de animales enfermos ? 453
valor promedio del indicador seleccionado en animales sanos? 4235
valor promedio del indicador seleccionado en animales enfermos? 3987
precio de unidad de medicion del indicador seleccionado? 1.9
RESULTADOS:
Diferencia en los valores promedios de leche durante 1990 entre los animales sanos y enfermos = 248
litros
Perdida total estimada = 112344 litros de valor de 213453 pesos
4.6-PERDIDAS POR AUMENTO DE
INSUMOS ESPECIFICOS EN LA PRODUCCION ANIMAL CAUSADO POR LA MORBILIDAD
(en terminos de indicadores
seleccionados)
DATOS INICIALES:
enfermedad(es)? respiratorias
lugar? Finca W.
periodo? un día - Marzo 2002
especie(s)? aves de corral categoria(s)? ponedoras
indicador seleccionado? consumo de alimentos pr un huevo
unidades de medicion del indicador seleccionado? gramos de alimentos
unidades monetarias? pesos
numero de animales enfermos ? 4500
valor promedio del indicador seleccionado en animales sanos? 18
valor promedio del indicador seleccionado en animales enfermos? 26
precio de unidad de medicion del indicador seleccionado? 0.12
RESULTADOS:
Diferencia en los valores promedios de consumo de alimentos pr un huevo
durante un día - Marzo 2002 entre los
animales sanos y enfermos = 8 gramos de alimentos
Perdida total estimada = 36000 gramos de alimentos de valor de 4319 pesos
4.7-INSUMOS EN LA PRODUCCION POR
ANIMALES SANOS Y ENFERMOS - I
DATOS INICIALES:
lugar? cebadero L. periodo? primer semestre
del ano 2001
especie(s)? Porcinos categoria(s)? 20-100
kg de peso
tipo de insumo? alimentos
unidad de medicion de insumo? kg
unidades monetarias? pesos
precio de una unidad de insumo? 1.9
insumos promedios para la produccion por los animales enfermos? 390
insumos promedios para la produccion por los animales sanos? 325
numero promedio de los animales sanos de la poblacion? 6500
numero promedio de los animales enfermos de la poblacion? 3500
RESULTADOS:
Beneficio estimado de insumos menores en los animales sanos = 422500 kg de
alimentos de valor de 802749 pesos
Perdida estimada por los insumos mayores en los animales enfermos = 227500
kg de alimentos de valor de 432249 pesos
4.8-INSUMOS EN LA PRODUCCION POR
ANIMALES SANOS Y ENFERMOS - II
DATOS INICIALES:
lugar? Cebadero L.
periodo? un día
especie(s)? Porcinos categoria(s)?
de ceba
tipo de insumo? alimentos
unidades de medicion de insumo? kg
unidades monetarias? pesos
precio de una unidad de insumo? 1.9
insumos promedios para la produccion por los animales enfermos? 3.9
insumos promedios para la produccion de todos los animales? 3.4
insumos promedios para la produccion por los animales sanos? 3.2
numero total promedio de los animales de una poblacion dada? 10200
RESULTADOS:
Beneficio estimado de insumos menores en los animales sanos = 5100 kg de
alimentos de valor de 9689 pesos
Perdida estimada por insumos mayores en los animales enfermos = 2040 kg de
alimentos de valor de 3876 pesos
4.9-COSTOS DE LAS ACCIONES
EPIZOOTIOLOGICAS ESPECIFICAS MASIVAS
DATOS INICIALES:
Tipo de accion(es)? vacunacion contra el colera porcino
lugar? Region S.
periodo? 2000
unidades monetarias? pesos
numero total de las acciones epizootiologicas? 45000
dosis (consumo) promedia en unidades fisicas del prepado para una accion?
1.5
precio de una unidad fisica de medicion del preparado? 0.8
tiempo promedio necesario para una accion en minutos (inclusive el tiempo
de preparacion)? 4
salario promedio horario del personal? 15
costo promedio del transporte para una accion? 4
otros costos totales para las acciones epizootiologicas dadas? 35670
RESULTADOS:
Consumo total del preparado utilizado =
67500 unidades fisicas
Costo total de preparado utilizado = 54000 pesos
Tiempo total consumido = 3000 horas
Salarios totales = 45000 pesos
Costos totales del transporte =
180000 pesos
Otros costos = 35670 pesos
Costos totales = 314670 pesos
4.10-PERDIDAS ECONOMICAS TOTALES RELACIONADAS
CON LA MORBILIDAD Y CON LAS MEDIDAS EPIZOOTIOLOGICAS
DATOS INICIALES:
enfermedad(es)? gastroenteritis
lugar? Granja R.
periodo? 2002
especie(s)? Bovinos categoria(s)?
terneros
unidades monetarias? pesos
valor total de animales fallecidos? 250000
valor total de animales sacrificados decomisados? 35000
valor total de productos decomisados? 23000
valor total de peso vivo perdido? 350000
valor total de alimentos no convertidos en productos animales? 120000
osto de los servicios veterinarios (diagnostico,tratamiento,control,etc.)?
290000
costo total de material veterinario
(vacunas,medicamentos,equipamiento,instrumentos,etc.)? 45000
costo total de mano de obra no veterinaria? 20000
costo total de transporte relacionado con las medidas? 12000
otros costos totales relacionados con las medidas epizootiologicas? 20000
RESULTADO:
El valor monetario de las perdidas totales (calculadas) se puede estimar de
ser de 1165000 pesos.
5.-ASPECTOS SELECCIONADOS DE LOS
PROGRAMAS EPIZOOTIOLOGICOS
1-Seleccion de enfermedades
prioritarias para los programas
2-Modelo simple de pronostico de
la morbilidad animal
3-Planificacion de la reduccion
de la morbilidad (en forma linear)
4-Planificacion de la reduccion
de la morbilidad (en forma de curva)
5-Planificacion de recuperacion
de salud especifica
6-Actividades profilacticas
(vacunaciones,tratamientos masivos)
7-Metodo de 'ruta critica' en
planificacion epizootiologica
8-Distribucion de los insumos de
los programas epizootiologicos
9-Extension de las medidas
epizootiologicas
10-Cumplimiento del programa
epizootiologico
5.1-SELECCION DE ENFERMEDADES
PRIORITARIAS PARA LOS PROGRAMAS segun su
importancia y factibilidad de su solucion
DATOS INICIALES: Las escalas consisten de los grados desde 0 hasta 10.
lugar? País N.
tiempo? 1.1.2004
Numero de enfermedades incluidas en el analisis ? 3
enfermedad No. 1 :
grado de importancia biologica? 4
grado de importancia economica? 8
grado de importancia sanitaria? 0
grado de importancia social? 7
grado de factibilidad? 8
grado de disponibilidad de los insumos necesarios? 5
enfermedad No. 2 :
grado de importancia biologica? 3
grado de importancia economica? 7
grado de importancia sanitaria? 2
grado de importancia social? 1
grado de factibilidad? 6
grado de disponibilidad de los insumos necesarios? 5
enfermedad No. 3 :
grado de importancia biologica? 4
grado de importancia economica? 9
grado de importancia sanitaria? 1
grado de importancia social? 7
grado de factibilidad? 8
grado de disponibilidad de los insumos necesarios? 0
Los valores del coeficiente de importancia general son puestos en forma
siguiente: importancia biologica = 2,economica = 4,sanitaria = 4,social = 2.
Ud.accepta estos grados (s) o va utilizar otros (o)? s
RESULTADOS:
enfermedad No. 1 ha obtenido 2160
puntos
enfermedad No. 2 ha obtenido 1320
puntos
enfermedad No. 3 ha obtenido 0
puntos
5.2-MODELO SIMPLE DE PRONOSTICO
DE LA MORBILIDAD ANIMAL
Este subprograma puede calcular los datos absolutos (numeros de animales
enfermos),event.valores relativos en terminos de la incidencia, extinccion y
prevalencia momentanea de los enfermos. Es por eso se debe decidir que tipo de
valores se va modelar y de acuerdo de esta decicion se entran los datos
iniciales.
DATOS INICIALES:
enfermedad(es)? fasciolosis
lugar? Provincia B.
periodo? 1998-2000
especie(s)? Bovinos
categoria(s)? todas
numero (prevalencia ) de animales enfermos al inicio ? 250000
numero de los subperiodos planificados? 3
numeros estimados de animales
enfermos:nuevos(incidencia),extinguidos(extincion) en el subperiodo 1 : ?
35000,23000
numeros estimados de animales
enfermos:nuevos(incidencia),extinguidos(extincion) en el subperiodo 2 : ?
25000,30000
numeros estimados de animales
enfermos:nuevos(incidencia),extinguidos(extincion) en el subperiodo 3 : ?
15000,21000
RESULTADOS:
Valores supuestos de
animales especificamente enfermos
---------------------------------------------------------------------------
Valor inicial: 250000
periodo nuevos extinguidos AL FINAL
(incidencia) (extincion) (prevalencia)
1 35000
23000 262000
2 25000 30000 257000
3 15000 21000 251000
5.3-PLANIFICACION DE LA REDUCCION
DE LA MORBILIDAD ANIMAL (reduccion en
forma lineal)
DATOS INICIALES:
enfermedad(es)? tuberculosis
lugar? Region M.
periodo? 1990-1995
especie(s)? Bovinos categoria(s)?
todas
unidad de medicion de tiempo? ano
numero de animales enfermos al inicio del programa? 35000
numero de animales enfermos al final del programa? 1500
duracion del programa - numero de unidades de tiempo? 6
RESULTADOS:
diferencia entre numeros de los enfermos al inicio y al final = 33500 ;
numero medio de enfermos para reducir durante una unidad de tiempo dada =
5583
Desea calcular los datos parciales, si(s) o no(n)? n
5.4-PLANIFICACION DE REDUCCION DE
LA MORBILIDAD ESPECIFICA DE UNA POBLACION ANIMAL DADA
(reduccion en forma de una curva
del numero de los enfermos)
DATOS INICIALES:
enfermedad(es)? brucelosis
lugar? Provincia O. periodo? 1995-1999
especie(s)? Porcinos
categoria(s)? adultas
unidad de medicion de tiempo? ano
numero de animales enfermos al inicio del programa? 357000
numero planificado de enfermos al final del programa? 12000
periodo planificado para alcanzar la meta (en unidades de tiempo arriba
mencionados)? 5
intervalos de tiempo para calcular los datos parciales? 1
RESULTADOS:
Tiempo: Animales enfermos:
ano
1 324055
2 237805
3 131194
4 44944
5 12000
5.5-PLANIFICACION DE RECUPERACION
DE SALUD ESPECIFICA DE UNA POBLACION
ANIMAL DADA
(incremento del numero de sanos
en forma de curva regular)
DATOS INICIALES:
salubridad especifica? libre de tuberculosis
lugar? Region G.
periodo? 1995-1999
especie(s)? Bovinos
categoria(s)? todas
unidad de medicion de tiempo? ano
numero de animales sanos al inicio del programa? 35500
numero planificado de sanos al final del programa? 90000
duracion del periodo para alcanzar la salubridad planificada? 5
intervalos de tiempo en los cuales se calculan los numeros de animales
sanos? 1
RESULTADOS:
Tiempo: Animales sanos:
ano
1 40704
2 54329
3 71170
4 84795
5 89999
5.6-ACTIVIDADES
PROFILACTICAS (VACUNACIONES,TRATAMIENTOS MASIVOS)
DATOS INICIALES:
actividad profilactica? vacunacion contra la brucelosis
lugar? Region B.
periodo? 2001
especie(s)? Ovejas
categoria(s)? adultas
numero de animales de una poblacion dada? 67800
numero de animales especificamente enfermos? 7600
numero de animales en los focos especificos? 13000
numero de animales en las zonas amenazadas? 54000
numero de animales tratados? 60000
numero de acciones profilacticas en un periodo dado? 45000
RESULTADOS:
Proporcion de animales tratados = 0.8850
Relacion de numeros de tratados/enfermos =
7.8947
Relacion de numeros de tratados/animales en focos = 4.6154
Relacion de tratados/animales en zonas amenazadas = 1.1111
Relacion de tratados/animales en focos+amenaz.= 0.8955
Grado de repeticion de tratamientos en un periodo = 0.7500
5.7-METODO DE 'RUTA CRITICA' EN
PLANIFICACION EPIZOOTIOLOGICA
DATOS INICIALES:
programa epizootiologico? programa de investigacion
lugar? Region Y. periodo? 2003
unidades de medicion de tiempo? semanas
unidades monetarias? pesos
cuantos actividades contiene la red o la tabla planificadoras? 4
numero del nodo inicial,numero del nodo final de la actividad 1 ? 1,2 la duracion, el costo de esta actividad ? 4,67500
numero del nodo inicial,numero del nodo final de la actividad 2 ? 1,3 la duracion, el costo de esta actividad ? 3,87640
numero del nodo inicial,numero del nodo final de la actividad 3 ? 2,3 la duracion, el costo de esta actividad ? 4,78000
numero del nodo inicial,numero del nodo final de la actividad 4 ? 3,4 la duracion, el costo de esta actividad ? 3,98000
RESULTADOS:
activi- nodo nodo
entrada termino duracion ruta
costos
dad inicial final semanas pesos
1 1
2 0 4
4
critica 67500
2 1
3 0
8 3 5
87640
3 2
3 4 8
4 critica
78000
4 3
4 8 11
3 critica
98000
duracion de la ruta critica = 11
semanas
costos totales de la red = 331140 pesos
5.8-DISTRIBUCION DE LOS INSUMOS
DE LOS PROGRAMAS EPIZOOTIOLOGICOS
DATOS INICIALES:
programa epizootiologico? vacunaciones contra las enfermedades de porcinos
tipo de insumo? vacunas
lugar? Region T.
tiempo? 2003
numero (cantidad) total de los insumos para distribuir? 450000
numero de las partes entre las cuales la cuota se debe dividir? 3
numero de animales (o otras unidades) en la parte 1 : ? 12554
numero de animales (o otras unidades) en la parte 2 : ? 34897
numero de animales (o otras unidades) en la parte 3 : ? 45673
RESULTADOS:
DISTRIBUCION:
Parte: Numero de Porcentaje: Cuota:
animales
1 12554
13
60664
2
34897 37 168632
3 45673 50 220704
Total 93124 100.00
450000
5.9-EXTENSION DE LAS MEDIDAS
EPIZOOTIOLOGICAS
DATOS INICIALES:
medidas epizootiologicas? contra fiebre aftosa
lugar? Region N. tiempo?
final del ano 2001
numero total de animales ? 345670
numero de animales tratados ? 250000
numero de animales enfermos ? 12900
numero de animales enfermos tratados ? 3500
numero de animales bajo las medidas epizootiologicas ? 330000
superficie del territorio evaluado ? 6300
superficie del territorio bajo las medidas epizootiologicas ? 6300
numero total de los rebanos (fincas) ? 1234
numero de los rebanos(fincas) bajo medidas epizootiologicas ? 1234
numero de animales en los focos de enfermedad especifica ? 45000
RESULTADOS:
proporcion de animales tratados = 0.7232
proporcion de animales tratados desde enfermos = 0.2713
proporcion de animales bajo las medidas epizoot. = 0.9547
proporcion del territorio bajo las medidas epizoot.= 1.0000
proporcion de rebanos(fincas) bajo medidas epizoot.= 1.0000
Relacion - animales bajo medidas/animales en focos = 7.33
5.10-CUMPLIMIENTO DEL PROGRAMA
EPIZOOTIOLOGICO
DATOS INICIALES:
Si se trata de programas de reduccion de la morbilidad o de la focalidad
teclee los datos de diferencia, es decir entre la situacion inicial y final en
forma de las parejas de valores planificados y reales.
programa epizootiologico? vacunaciones de las aves de corral
lugar? Region B. periodo? 2004
numero de parejas de valores planificados y reales? 3
pareja ( indicador ) 1 : valores
planificados? 456000 valores
reales? 345000
pareja ( indicador ) 2 : valores
planificados? 234000 valores
reales? 321000
pareja ( indicador ) 3 : valores
planificados? 678000 valores
reales? 712000
RESULTADOS:
V a l o r e s D i f e r e n c i a CUMPLIMIENTO
pareja planifi- reales
absoluta relativa del programa
cados % %
1 456000
345000 -111000 -24.34
75.66
2 234000
321000 87000
37.18 137.18
3 678000
712000 34000
5.01
105.01
6.-MUESTREO PARA LAS
INVESTIGACIONES EPIZOOTIOLOGICAS
1-Numeros aleatorios para
seleccionar animales representativos
2-Tamano de la muestra para
detectar la presencia de enfermedad
3-Muestra para calcular
proporcion en poblacion larga
4-Muestra para calcular
proporcion binom.-uso:intervalo de confianza
5-Muestra para calcular
proporcion binomial-uso:diferencia absoluta
6-Muestra para calcular la
proporcion en pequena poblacion
7-Muestra para detectar
diferencia entre dos proporciones
8-Muestra para media
aritmetica/desvio estandar-intervalo de conf.
9-Muestra para calcular media
aritmetica-uso de diferencia absoluta
10-Muestreo estratificado
6.1-NUMEROS ALEATORIOS PARA
SELECCIONAR ANIMALES REPRESENTATIVOS
DATOS INICIALES:
numero necesario de los numeros aleatorios? 56
rango de los numeros aleatorios (1-?)? 10000
RESULTADOS:
9687
2018 5196 1323
8742 247 4756
9514 3189 7694
6893 8791 3003
6220
8262 6694 4667
9612 2215 9582
5512 9704 1294
4507 9958 1930
6854
6677 3724 763
8144 4241 4614
8019 5691 4604
972 9486 6343
8996
1387 7863 9800
4505 1763 2449
8983 5309 8329
8588 9090 7310
7694
2303 2669 2898
6.2-TAMANO DE LA MUESTRA PARA
DETECTAR LA PRESENCIA DE ENFERMEDAD
DATOS INICIALES: (cuando numero
de animales es mayor de 10000 y no se conoce,teclee '0' )
numero total de animales de una poblacion dada ? 35000
proporcion supuesta de animales enfermos en la poblacion? 0.055
nivel de la confianza para que se detecte por lo minimo un caso de una enfermedad dada(.9, .95, .99,etc.)?
.95
RESULTADO:
El tamano minimo de la muestra para detectar la presencia de una enfermedad dada = 54
6.3-TAMANO DE LA MUESTRA PARA
CALCULAR LA PROPORCION EN UNA POBLACION LARGA
(caso binomial - utilizando el criterio de desvio estandar)
DATOS INICIALES: (proporcion i.e.
0.... y no como porcentaje)
valor tolerado maximo del desvio estandar de la proporcion (del error
estandardizado de la proporcion vera)? 0.01
hay (s) o no hay (n) la idea a priori sobre la proporcion ? s
proporcion supuesta ? 0.1
RESULTADO:
Tamano minimo de la muestra para calcular la proporcion = 900
6.3-TAMANO DE LA MUESTRA PARA
CALCULAR LA PROPORCION EN UNA POBLACION LARGA
(caso binomial - utilizando el criterio de desvio estandar)
DATOS INICIALES:
valor tolerado maximo del desvio estandar de la proporcion (del error
estandardizado de la proporcion vera)? 0.01
hay (s) o no hay (n) la idea a priori sobre la proporcion ? n
RESULTADO:
El tamano minimo de la muestra para calcular la proporcion = 2500
6.4-TAMANO DE LA MUESTRA PARA
CALCULAR LA PROPORCION (CASO BINOMIAL) UTILIZANDO EL CRITERIO DEL INTERVALO DE
CONFIANZA
DATOS INICIALES:
valor critico del coeficiente de confianza (1.65 para 10% de probabilidad de error; 1.96 para 5%; 2.58 para 1%;etc.)
? 1.96
valor del intervalo de confianza ? 0.1
hay (s) o no hay (n) la idea a priori sobre la proporcion ? s
proporcion aproximada ? 0.23
RESULTADOS:
Tamano minimo de la muestra para calcular la proporcion = 272
6.4-TAMANO DE LA MUESTRA PARA
CALCULAR LA PROPORCION (CASO BINOMIAL) UTILIZANDO EL CRITERIO DEL INTERVALO DE
CONFIANZA
DATOS INICIALES:
valor critico del coeficiente de confianza (1.65 para 10% de
probabilidad de error; 1.96 para 5%; 2.58 para 1%;etc.) ?
1.96
valor del intervalo de confianza ? 0.1
hay (s) o no hay (n) la idea a priori sobre la proporcion ? n
RESULTADO:
Tamano minimo de la muestra para calcular la proporcion = 384
6.5-TAMANO DE LA MUESTRA PARA
ESTIMAR LA PROPORCION (CASO BINOMIAL) UTILIZANDO EL CRITERIO DE LA DIFERENCIA
ABSOLUTA
DATOS INICIALES:
valor critico del coeficiente de confianza (1.65 para 10% de
probabilidad de error; 1.96 para 5%; 2.58 para 1%; etc.) ?
1.96
diferencia tolerable entre proporcion estimada y la vera ? 0.03
hay (s) o no hay (n) la idea a priori sobre la proporcion ? s
proporcion supuesta ? 0.35
RESULTADO:
Tamano minimo de la muestra para calcular la proporcion = 971
6.6-TAMANO DE LA MUESTRA PARA
ESTIMAR LA PROPORCION EN PEQUENA POBLACION
DATOS INICIALES:
numero de animales en la poblacion? 300
valor critico del coeficiente de confianza (1.65 para 10% de probabilidad
de error; 1.96 para 5%; 2.58 para 1%; etc.)? 1.96
diferencia tolerable maxima entre proporcion estimada y vera ? 0.05
hay (s) yo no hay (n) la idea a priori sobre la proporcion ? s
proporcion supuesta ? 0.2
RESULTADO:
Tamano minimo de la muestra para calcular la proporcion de los animales
enfermos = 135
6.6-TAMANO DE LA MUESTRA PARA
ESTIMAR LA PROPORCION EN PEQUENA POBLACION
DATOS INICIALES:
numero de animales en la poblacion? 300
valor critico del coeficiente de confianza (1.65 para 10% de probabilidad
de error; 1.96 para 5%; 2.58 para 1%; etc.)? 1.96
diferencia tolerable maxima entre proporcion estimada y vera ? 0.05
hay (s) yo no hay (n) la idea a priori sobre la proporcion ? n
RESULTADO:
Tamano minimo de la muestra para calcular la proporcion de los animales
enfermos = 168
6.7-TAMANO DE LA MUESTRA PARA
DETECTAR LA DIFERENCIA ENTRE DOS PROPORCIONES
DATOS INICIALES:
valor de la proporcion en la primera poblacion? 0.2
valor de la proporcion en la segunda poblacion? 0.15
limites criticos de la desviacion tipica - valor critico del coeficiente de
confianza (hipotesis 'two-sided': 1.65 para 10% de probabilidad de error; 1.96
para 5%; 2.58 para 1%;, etc.)? 1.96
valor critico correspondiente al error tolerable para detectar la
diferencia (hipotesis 'one-sided' :1.28 para 10%; 1.64 para 5%; 2.33 para
1%;etc.? 2.33
RESULTADO:
Para cada poblacion el tamano minimo de la muestra a detectar la diferencia
entre dos proporciones = 2141 es decir en total = 4282
6.8-TAMANO DE LA MUESTRA PARA
ESTIMAR LA MEDIA ARITMETICA UTILIZANDO DESVIO ESTANDARD O CRITERIO DEL
INTERVALO DE CONFIANZA
DATOS INICIALES:
se va utilizar el desvio estandar (s) o el intervalo de confianza (n)? s
valor tolerable del desvio estandard (error medio) ? 9
desviacion tipica absoluta del conjunto basal (total poblacional) ? 80
RESULTADO:
Tamano minimo de la muestra para estimar el valor de la media aritmetica
= 79
6.8-TAMANO DE LA MUESTRA PARA
ESTIMAR LA MEDIA ARITMETICA UTILIZANDO DESVIO ESTANDARD O CRITERIO DEL
INTERVALO DE CONFIANZA
DATOS INICIALES:
se va utilizar el desvio estandar (s) o el intervalo de confianza (n)? n
valor critico del coeficiente de confianza (1.65 para 10% de probabilidad de
error; 1.96 para 5%; 2.58 para 1%;etc.) ? 1.96
valor del intervalo de confianza ? 3
desviacion tipica del conjunto muestral ? 40
RESULTADO:
Tamano minimo de la muestra para estimar el valor de la media aritmetica
= 2732
6.9-TAMANO DE LA MUESTRA PARA
ESTIMAR LA MEDIA ARITMETICA UTILIZANDO EL CRITERIO DE LA DIFERENCIA ABSOLUTA
DATOS INICIALES:
numero total de animales de la poblacion dada (cuando no se conoce,teclee
'0')? 3000
diferencia tolerable entre la media de la muestra y la media vera ? 0.02
valor critico del coeficiente de confianza (1.65 para 10% de
probabilidad de error; 1.96 para 5%;
2.58 para 1%;etc.) ? 1.96
desviacion tipica del conjunto basal (total poblacional) ? 0.1931
RESULTADO:
Tamano minimo de la muestra para estimar el valor de la media aritmetica
= 320
6.10-MUESTREO ESTRATIFICADO
DATOS INICIALES:
tamano de la muestra - numero de animales representativos ? 240 numero de las subpoblaciones ? 3
numero total de los animales de la subpoblacion 1 ? 50000
numero total de los animales de la subpoblacion 2 ? 20000
numero total de los animales de la subpoblacion 3 ? 40000
RESULTADOS:
subpoblacion numero de
animales
----------------------------------
total representativo
1 50000
109
2 20000 44
3 40000 87
Grand Total 110000 240
7.-METODOS ESTADISTICOS
SELECCIONADOS UTILIZADOS EN LA EPIZOOTIOLOGIA -I
1-Media aritmetica y geometrica
2-Media aritmetica ponderada
3-Media aritmetica de los datos
agrupados
4-Distribucion de las frecuencias
cumulativas
5-Medidas de dispersion alrededor
de la media aritmetica
6-Medidas de dispersion de los
datos agrupados
7-Calculo de las proporciones
8-Desviacion tipica de las
proporciones
9-Calculo de los porcentajes
10-Calculo de los datos absolutos
desde las proporciones
7.1-MEDIA ARITMETICA Y GEOMETRICA
DATOS INICIALES:
numero de las observaciones (tamano de la muestra)? 5
Listado de datos:
1 : X = ? 8
2 : X = ? 3
3 : X = ? 5
4 : X = ? 12
5 : X = ? 10
RESULTADOS:
La media aritmetica simple =
7.600
La media geometrica = 6.787
7.2-MEDIA ARITMETICA PONDERADA
DATOS INICIALES:
numero de las observaciones (tamano de la muestra)? 3
Listado de datos:
1 : variable X = ? 70
valor del factor de importancia Y = ? 20
2 : variable X = ? 60
valor del factor de importancia Y = ? 30
3 : variable X = ? 50
valor del factor de importancia Y = ? 50
RESULTADO:
La media aritmetica ponderada =
57.000
7.3-MEDIA ARITMETICA DE LOS DATOS
AGRUPADOS
DATOS INICIALES:
numero de los grupos del conjunto ? 4
Listado de datos:
1 : variable-X,frecuencia-F? 5,3
2 : variable-X,frecuencia-F? 8,2
3 : variable-X,frecuencia-F? 6,4
4 : variable-X,frecuencia-F? 2,1
RESULTADO:
La media aritmetica de los datos agrupados = 5.700
7.4-DISTRIBUCION DE LAS
FRECUENCIAS CUMULATIVAS
DATOS INICIALES:
numero total de los datos? 5
Listado de los datos:
1 : X = ? 45637
2 : X = ? 98765
3 : X = ? 32098
4 : X = ? 4356
5 : X = ? 12368
RESULTADOS:
Ordeno
valor frecuencia porcentaje
de datos frecuencia
cumulativa de frecuencia
absoluta cumulativa
1 45637
45637
23.62
2 98765
144402 74.73
3 32098
176500 91.34
4 4356
180856 93.60
5 12368
193224 100.00
7.5-MEDIDAS DE DISPERSION
ALREDEDOR DE LA MEDIA ARITMETICA
DATOS INICIALES:
numero total de las observaciones (tamano de la muestra)? 8
Listado de datos:
1 : valor de la variable? 12
2 : valor de la variable? 6
3 : valor de la variable? 7
4 : valor de la variable? 3
5 : valor de la variable? 15
6 : valor de la variable? 10
7 : valor de la variable? 18
8 : valor de la variable? 5
RESULTADO:
La media aritmetica = 9.500
La desviacion media = +- 4.250
La varianza = 23.750
La desviacion tipica (error estandar) = +- 4.873
El coeficiente de variacion (dispersion) = 51.30 %
7.6-MEDIDAS DE DISPERSION DE LOS
DATOS AGRUPADOS
DATOS INICIALES:
numero de los grupos en la muestra ? 5
Listado de datos:
1 : variable-X,frecuencia-F? 61,5
2 : variable-X,frecuencia-F? 64,18
3 : variable-X,frecuencia-F? 67,42
4 : variable-X,frecuencia-F? 70,27
5 : variable-X,frecuencia-F? 73,8
RESULTADOS:
La media aritmetica = 67.450
La desviacion media = +- 2.605
La varianza = 8.528
La desviacion tipica (error estandard) = +- 2.920
El coeficiente de variacion (dispersion) =
4.33 %
7.7-CALCULOS DE LAS PROPORCIONES
DATOS INICIALES:
Indique si se trata del calculo de las observaciones individualmente consideradas
(s) o de una simple relacion entre el numero total de las observaciones (tamano
de la muestra ) y el numero de variables de una caracteristica dada que se
evalua.
Se trata de calculo de observaciones individuales (s) o no (n)? n
numero total de las observaciones (tamano de la muestra)? 56784
numero de las variables de una caracteristica dada evaluada? 342
RESULTADO:
El valor de la proporcion = 0.0060
7.8-DESVIACION TIPICA DE LA
PROPORCION
DATOS INICIALES:
numero total de las observaciones (tamano de la muestra)? 450
Se trata de una proporcion simple (s) o de un porcentaje (p)? p
valor del porcentaje de las variables de una caracteristica dada? 25
RESULTADO:
La desviacion tipica del porcentaje = +-2.0412
7.8-DESVIACION TIPICA DE LA
PROPORCION
DATOS INICIALES:
numero total de las observaciones (tamano de la muestra)? 45673
Se trata de una proporcion simple (s) o de un porcentaje (p)? s
valor de la proporcion de las variables de una caracteristica dada? 0.32
RESULTADO:
La desviacion tipica de la proporcion = +-0.0022
7.9-CALCULO DE LOS PORCENTAJES
DATOS INICIALES:
numero total de las observaciones (tamano de la muestra)? 65432
numero de los valores parciales absolutos para convertir en el porcentaje?
3
Listado de datos:
1 : X = ? 6543
2 : X = ? 7658
3 : X = ? 9876
RESULTADOS:
Orden numero porcentaje
parcial
1 6543 10.00
2 7658 11.70
3 9876 15.09
Total 24077 36.80
7.10-CALCULO DE LOS VALORES
ABSOLUTOS DESDE LAS PROPORCIONES
DATOS INICIALES:
numero total de las observaciones (tamano de la muestra)? 56432
numero de las proporciones o porcentajes que se van a convertir en valores
absolutos? 3
Se trata de una conversion desde las proporciones simples (s) o desde los
porcentajes (p)? s
Listado de datos:
1 : X=? 0.64
2 : X=? 0.0134
3 : X=? 0.78
RESULTADOS:
Orden
proporcion valor absoluto
1 0.64 36116.48
2 0.01 756.19
3 0.78
44016.96
Total 1.43 80889.62
7.10-CALCULO DE LOS VALORES
ABSOLUTOS DESDE LAS PROPORCIONES
DATOS INICIALES:
numero total de las observaciones (tamano de la muestra)? 65432
numero de las proporciones o porcentajes que se van a convertir en valores
absolutos? 3
Se trata de una conversion desde las proporciones simples (s) o desde los
porcentajes (p)? p
Listado de datos:
1 : X=? 23
2 : X=? 12
3 : X=? 8
RESULTADOS:
Orden porcentaje valor absoluto
1 23.00
15049.36
2 12.00 7851.84
3 8.00 5234.56
Total 43.00 28135.76
8.-METODOS ESTADISTICOS
SELECCIONADOS UTILIZADOS EN EPIZOOTIOLOGIA -II
1-Prueba del ji-cuadrado
2-Tabla de contingencia - 2x2
3-Tabla de contingencia - 2x3
4-Tabla de contingencia - 2xN
5-Regresion lineal simple
6-Coeficiente de la correlacion
rectilinea
7-Calculo de las lineas/curvas
8-Estimacion de la prevalencia
desde la muestra al azar simple
9-Estimacion de la prevalencia
desde la muestra conglomerada
10-Series cronologicas
8.1-PRUEBA DEL JI-CUADRADO
DATOS INICIALES:
La frecuencia esperada es constante si(s) o no(n)? s
Teclee la frecuencia esperada constante ? 20
Teclee las frecuencias observadas, una por una; para terminar teclee 99999
? 25
? 17
? 15
? 23
? 24
? 16
? 99999
RESULTADO:
El valor del ji-cuadrado para estas observaciones = 5.0000
con 5 grados de libertad
con la correccion de Yates,ji cuadrado =
3.8750
El valor critico al nivel 5% del ji cuadrado es
11.0710
La hipotesis no se rechaza al nivel del valor critico del 5%
8.1-PRUEBA DEL JI-CUADRADO
DATOS INICIALES:
La frecuencia esperada es constante si(s) o no(n)? n
Teclee pares de valores observados y esperados; para terminar teclee
99999,1
? 23,31
? 25,26
? 24,23
? 21,24
? 99999,1
RESULTADO:
El valor del ji-cuadrado para estas observaciones = 2.5215 con 3 grados de libertad
con la correccion de Yates,ji cuadrado =
2.0954
El valor critico al nivel 5% del ji cuadrado es
7.8147
La hipotesis no se rechaza al nivel del valor critico del 5%
8.2-PRUEBA DE FRECUENCIAS - TABLA
2x2 - JI-CUADRADO
DATOS INICIALES:
valor del primer grupo de la primera clase - a? 75
valor del primer grupo de la segunda clase - b? 25
valor del segundo grupo de la primera clase - c? 65
valor del segundo grupo de la segunda clase - d? 35
RESULTADOS:
El valor del ji-cuadrado = 2.3810 El grado de la libertad = 1
La diferencia no es estadisticamente significativa
La correlacion de la contingencia = 0.1085
8.3-PRUEBA DE FRECUENCIA - TABLA
2x3 - JI-CUADRADO
DATOS INICIALES:
valor del primer grupo de la primera clase - a1? 50
valor del primer grupo de segunda clase - a2? 47
valor del primer grupo de tercera clase - a3? 56
valor del segundo grupo de primera clase - b1? 5
valor del segundo grupo de segunda clase - b2? 14
valor del segundo grupo de tercera clase - b3? 8
RESULTADOS:
El valor de ji-cuadrado - X2 =
4.8444 El
grado de libertad = 2
La diferencia es estadisticamente significativa solamente al nivel de P =
0.10
8.4-TABLAS DE CONTINGENCIA 2xN
DATOS INICIALES:
Cuantas pares de los valores observados y los expectados (bajo la hipotesis
zero = no hay diferencias) se van a procesar? 6
Teclee pares de los valores observados(O) o los expectados(E):
1 par: ? 25,20
2 par: ? 17,20
3 par: ? 15,20
4 par: ? 23,20
5 par: ? 24,20
6 par: ? 16,20
RESULTADOS:
El valor de ji-cuadrado - X2 =
5.0000
El valor de ji-cuadrado (despues de la correccion de Yates) - X2 = 3.8750
El grado de libertad - v = 5
Busque el valor de la probabilidad en la tabla de los valores del
ji-cuadrado (en el grupo 9, subprograma 10 )
8.5-REGRESION LINEAL SIMPLE
DATOS INICIALES:
Cuantos puntos se van a aplicar? 10
1 par: X,Y = ? 22.1,2.6
2 par: X,Y = ? 32.8,3.1
3 par: X,Y = ? 10.1,1.3
4 par: X,Y = ? 35.4,3.2
5 par: X,Y = ? 21.2,2
6 par: X,Y = ? 4.8,.4
7 par: X,Y = ? 21.2,2.7
8 par: X,Y = ? 37.9,3.8
9 par: X,Y = ? 8.3,1.2
10 par: X,Y = ? 35.1,3.6
RESULTADOS:
La ecuacion de la linea de regresion de Y sobre X es Y = 0.33
+ 0.09 X
El valor del coeficiente de correlacion r = 0.97
La ecuacion de la linea de regresion de X sobre Y es X = -2.20
+ 10.50 Y
Desea calcular los valores individuales de la linea de regresion Y=A+BX,
si(s) o no(n)? s
Desea calcular el valor 'x' o 'y' ? x
Teclee el valor de y ? 4 X1 = 40.80
Desea calcular el valor 'x' o 'y' ? y
Teclee el valor x ? 25 Y1 = 2.58
8.6-COEFICIENTE DE LA CORRELACION
RECTILINEA
DATOS INICIALES:
Cuantos puntos (pares) se van a utilizar? 8
1 par: X,Y = ? 1,1
2 par: X,Y = ? 3,2
3 par: X,Y = ? 4,4
4 par: X,Y = ? 6,4
5 par: X,Y = ? 8,5
6 par: X,Y = ? 9,7
7 par: X,Y = ? 11,8
8 par: X,Y = ? 14,9
RESULTADO:
El coeficiente de correlacion - r = 0.9770
8.7-CALCULO DE LAS LINEAS -
REGRESION LINEAL,CURVA DE PODER EXPONENCIAL Y LOGARITMICA
1=regresion lineal;2=linea de fuerza;3=curva exponencial;4=curva
logaritmica
Seleccione (1,2,3,4): ? 1
numero de puntos ? 7
1 par: X,Y = ? 893,212
2 par: X,Y = ? 796,116
3 par: X,Y = ? 639,83
4 par: X,Y = ? 476,84
5 par: X,Y = ? 336,67
6 par: X,Y = ? 206,37
7 par: X,Y = ? 99,27
Modelo:Y=A+B*X
RESULTADOS:
Estimo de A = -1.8944
Estimo de B = 0.1856
Varianza de Y =
901.0272
Varianza de A =
536.1254
Varianza B = 0.0017
Covarianza de A ,B =
-0.8278
Calcular la interpolacion, si(s) o no(n):? s
Interpolacion para el valor dado de 'x' o 'y' :? X x = ? 300 y =
53.7742
Interpolacion para el valor dado de 'x' o 'y' :? Y y = ? 50 x =
279.6607
8.7-CALCULO DE LAS LINEAS -
REGRESION LINEAL,CURVA DE PODER EXPONENCIAL Y LOGARITMICA
1=regresion lineal;2=linea de fuerza;3=curva exponencial;4=curva
logaritmica
Seleccione (1,2,3,4): ? 2
numero de puntos ? 5
1 par: X,Y = ? 45,89
2 par: X,Y = ? 50,99
3 par: X,Y = ? 34,88
4 par: X,Y = ? 47,98
5 par: X,Y = ? 52,97
Modelo:Y=A*(X^B)
RESULTADOS:
Estimo de A = 33.7139
Estimo de B = 0.2694
Varianza deLOG(Y)= 0.0015
Varianza deLOG(A)= 0.1974
Varianza B = 0.0136
Covarianza de LOG(A),B = -0.0518
Calcular la interpolacion, si(s) o no(n):? s
Interpolacion para el valor dado de 'x' o 'y' :? X x = ? 14 y =
68.6408
Interpolacion para el valor dado de 'x' o 'y' :? Y y = ? 45 x =
2.9207
8.7-CALCULO DE LAS LINEAS -
REGRESION LINEAL,CURVA DE PODER EXPONENCIAL Y LOGARITMICA
1=regresion lineal;2=linea de fuerza;3=curva exponencial;4=curva
logaritmica
Seleccione (1,2,3,4): ? 3
numero de puntos ? 5
1 par: X,Y = ? 45,89
2 par: X,Y = ? 50,99
3 par: X,Y = ? 34,88
4 par: X,Y = ? 47,98
5 par: X,Y = ? 52,97
Modelo:Y=A*EXP(B*X)
RESULTADOS:
Estimo de A = 69.8903
Estimo de B = 0.0065
Varianza deLOG(Y)= 0.0015
Varianza deLOG(A)= 0.0156
Varianza B = 0.0000
Covarianza de LOG(A),B = -0.0003
Calcular la interpolacion, si(s) o no(n):? s
Interpolacion para el valor dado de 'x' o 'y' :? X x = ? 57 y =
101.3379
Interpolacion para el valor dado de 'x' o 'y' :? Y y = ? 90 x =
38.7968
8.7-CALCULO DE LAS LINEAS -
REGRESION LINEAL,CURVA DE PODER EXPONENCIAL Y LOGARITMICA
1=regresion lineal;2=linea de fuerza;3=curva exponencial;4=curva
logaritmica
Seleccione (1,2,3,4): ? 4
numero de puntos ? 5
1 par: X,Y = ? 45,67
2 par: X,Y = ? 67,89
3 par: X,Y = ? 89,99
4 par: X,Y = ? 102,134
5 par: X,Y = ? 56,78
Modelo:Y=A+B*LOG(X)
RESULTADOS:
Estimo de A = -210.3054
Estimo de B = 71.7969
Varianza de Y =
113.7332
Varianza de A = 4599.7383
Varianza B = 255.7916
Covarianza de A ,B = %-1082.014892578125
Calcular la interpolacion, si(s) o no(n):? s
Interpolacion para el valor dado de 'x' o 'y' :? X x = ? 45 y =
63.0011
Interpolacion para el valor dado de 'x' o 'y' :? Y y = ? 60 x =
43.1578
8.8-ESTIMACION DE LA PREVALENCIA
DESDE LA MUESTRA AL AZAR SIMPLE
DATOS INICIALES:
numero de los animales seleccionados en la muestra? 850
fraccion - proporcion (0. ) de los animales seleccionados de la poblacion?
0.1
numero de los animales enfermos en la muestra? 62
RESULTADO:
Prevalencia de enfermos en la muestra
= 0.0729 = 7.29 %
Error estandar de la prevalencia de muestra = 0.0085 =
0.85 %
Estimo de la prevalencia vera en la poblacion total:
al nivel de 90% de significacion estadistica entre 5.91 %
y 8.68 %
al nivel de 95% de significacion estadistica entre 5.64 %
y 8.95 %
al nivel de 99% de significacion estadistica entre 5.11 %
y 9.48 %
8.9-ESTIMACION DE LA PREVALENCIA
DESDE LA MUESTRA CONGLOMERADA
DATOS INICIALES:
numero total de los grupos? 943
numero de los grupos seleccionados al azar? 12
numero de animales total, enfermos en 1 grupo: ? 183,22
numero de animales total, enfermos en 2 grupo: ? 92,12
numero de animales total, enfermos en 3 grupo: ? 416,37
numero de animales total, enfermos en 4 grupo: ? 203,23
numero de animales total, enfermos en 5 grupo: ? 107,17
numero de animales total, enfermos en 6 grupo: ? 388,32
numero de animales total, enfermos en 7 grupo: ? 79,36
numero de animales total, enfermos en 8 grupo: ? 243,29
numero de animales total, enfermos en 9 grupo: ? 314,24
numero de animales total, enfermos en 10 grupo: ? 83,17
numero de animales total, enfermos en 11 grupo: ? 113,59
numero de animales total, enfermos en 12 grupo: ? 294,26
RESULTADO:
El numero total de los animales en los grupos seleccionados = 2515
El numero de los animales enfermos en los grupos seleccionados = 334
La prevalencia de los enfermos en la muestra = 0.1328
= 13.28 %
El error estandar de la prevalencia de la muestra = 0.0256 =
2.56 %
Estimo de la prevalencia vera en la poblacion total:
al nivel de 90 % de significacion estadistica entre 9.08 %
y 17.48 %
al nivel de 95 % de significacion estadistica entre 8.26 %
y 18.30 %
al nivel de 99 % de significacion estadistica entre 6.67 %
y 19.89 %
8.10-CALCULO DE LAS SERIES
CRONOLOGICAS
DATOS INICIALES:
numero de los datos (variables) ? 6
1 periodo o momento,valor de la
variable : ? 1980,517.2
2 periodo o momento,valor de la
variable : ? 1981,517.1
3 periodo o momento,valor de la
variable : ? 1982,608.7
4 periodo o momento,valor de la
variable : ? 1983,626.8
5 periodo o momento,valor de la
variable : ? 1984,628.7
6 periodo o momento,valor de la
variable : ? 1985,634.4
RESULTADOS:
Periodo o numero de valor de i
n d i
c e
momento orden (X) variable(Y) corrido de cadena
(simple)
1980 1
517.20
100.00
100.00
1981 2 517.10
99.98 99.98
1982 3 608.70
117.69
117.71
1983 4 626.80
121.19 102.97
1984 5 628.70
121.56 100.30
1985 6 634.40
122.66
100.91
La linea ajustada : Y =
494.93 + 26.83
X
9.-METODOS ESTADISTICOS
SELECCIONADOS UTILIZADOS EN LA EPIZOOTIOLOGIA - III
1-Prueba de la diferencia entre
dos proporciones
2-Prueba de la diferencia entre
dos medias aritmeticas
3-Prueba de la diferencia entre
las medias de dos muestras pequenas
4-Prueba de la diferencia entre
los valores en pares
5-Intervalos de confianza para la
media poblacional
6-Intervalos de confianza para la
proporcion poblacional
7-Intervalos de confianza para la
diferencia entre las medias
8-Intervalos de confianza para la
diferencia entre proporciones
9-Diferencias entre los valores
pronosticados (modelados) y reales
10-Tablas de los valores `t` de
Student y de ji-cuadrado
9.1-PRUEBA DE LA DIFERENCIA ENTRE
DOS PROPORCIONES
DATOS INICIALES:
Conoce cual poblacion tiene la proporcion mayor, si(s) o no(n)? n
numero de animales de la primera poblacion? 300
numero de animales de la segunda poblacion? 300
Va utilizar el numero absoluto(a) o relativo-proporcion(r) o porciento(p)?
a
numero de animales con una caracteristica dada de la primera poblacion? 225
numero de animales con una caracteristica dada de la segunda poblacion? 195
RESULTADO:
La diferencia entre las proporciones de las dos poblaciones = 0.1000
El valor de la prueba estadistica z
= 2.6726
La diferencia es al nivel de 99 % de significacion estadistica
9.1-PRUEBA DE LA DIFERENCIA ENTRE
DOS PROPORCIONES
DATOS INICIALES:
Conoce cual poblacion tiene la proporcion mayor, si(s) o no(n)? s
numero de los animales de la poblacion con la proporcion mayor? 300
numero de los animales de la poblacion con la proporcion menor? 300
Va utilizar el numero absoluto(a) o relativo-proporcion(r) o porciento(p)?
r
proporcion del numero de animales con una caracteristica dada de la primera
poblacion? 0.3
proporcion del numero de animales con una caracteristica dada de la segunda
poblacion? 0.2
RESULTADO:
La diferencia entre las proporciones de las dos poblaciones = 0.1000
El valor de la prueba estadistica z
= 2.8284
La diferencia es al nivel de 99 % de significacion estadistica
9.1-PRUEBA DE LA DIFERENCIA ENTRE
DOS PROPORCIONES
DATOS INICIALES:
Conoce cual poblacion tiene la proporcion mayor, si(s) o no(n)? s
numero de los animales de la poblacion con la proporcion mayor? 100
numero de los animales de la poblacion con la proporcion menor? 100
Va utilizar el numero absoluto(a) o relativo-proporcion(r) o porciento(p)?
p
porciento de animales con una caracteristica dada de la primera poblacion?
75
porciento de animales con una caracteristica dada de la segunda poblacion?
65
RESULTADO:
La diferencia entre las proporciones de las dos poblaciones = 0.1000
El valor de la prueba estadistica z
= 1.5430
La diferencia es al nivel de 90 % de significacion estadistica
9.2-PRUEBA DE LA DIFERENCIA ENTRE
LAS MEDIAS ARITMETICAS
DATOS INICIALES:
numero de los variables del conjunto de mayor media aritmetica? 50
numero de los variables del conjunto de menor media aritmetica? 40
media aritmetica del primer conjunto? 78
media aritmetica del segundo conjunto? 74
desviacion standard del primer conjunto? 7
desviacion standard del secundo conjunto? 8
RESULTADO:
La diferencia entre las dos medias aritmeticas = 4.0000
El error standard de la diferencia entre las medias = 1.5824
La prueba estadistica z = 2.5277
Se trata de demostrar si una media es mayor (o) - 'one-sided test' o si una
media es mayor o menor (t) - 'two-sided test'? o
La diferencia es al nivel de 99% de significacion estadistica.
9.2-PRUEBA DE LA DIFERENCIA ENTRE
LAS MEDIAS ARITMETICAS
DATOS INICIALES:
numero de los variables del conjunto de mayor media aritmetica? 50
numero de los variables del conjunto de menor media aritmetica? 40
media aritmetica del primer conjunto? 78
media aritmetica del segundo conjunto? 74
desviacion standard del primer conjunto? 7
desviacion standard del secundo conjunto? 8
RESULTADO:
La diferencia entre las dos medias aritmeticas = 4.0000
El error standard de la diferencia entre las medias = 1.5824
La prueba estadistica z = 2.5277
Se trata de demostrar si una media es mayor (o) - 'one-sided test' o si una
media es mayor o menor (t) - 'two-sided test'? t
La diferencia es al nivel de 95% de significacion estadistica.
9.3-PRUEBA DE LA DIFERENCIA ENTRE
LAS MEDIAS DE DOS MUESTRA PEQUENAS
DATOS INICIALES:
numero de animales del primer grupo con mayor media aritmetica? 23
numero de animales del segundo grupo con menor media aritmetica? 19
media aritmetica del primer grupo? 6.1
media aritmetica del segundo grupo? 5.4
desviacion estandar del primer grupo? 1.72
desviacion estandar del segundo grupo? 1.64
RESULTADOS:
La diferencia entre las medias aritmeticas = 0.7000
El valor de desviacion estandar de la diferencia de las medias = 0.5222
El valor de la prueba estadistica `t` de la diferencia = 1.3405
El valor del grado de libertad = 40
Busque el nivel de la significacion estadistica en la tabla de los valores
criticos del `t` . (subprograma 9.10).
9.4-PRUEBA DE LA DIFERENCIA ENTRE
LOS VALORES EN PARES
DATOS INICIALES:
numero total ( debe ser estadisticamente suficiente) de los pares? 10
Listado de datos - de las variables X,Y :
1 par: ? 6.1,5.7
2 par: ? 5.2,5.3
3 par: ? 5.4,4.8
4 par: ? 5.9,5.2
5 par: ? 6.3,6.4
6 par: ? 6,6.3
7 par: ? 5.7,5.1
8 par: ? 5.1,4.8
9 par: ? 6.2,5.1
10 par: ? 5.9,5
RESULTADO:
El valor de la media aritmetica de las diferencias = 0.4100
El valor de la prueba estadistica `t` = 2.97
El grado de libertad = 9
Busque el nivel de la significacion estadistica en la tabla de los valores
criticos del `t` (subprograma 9.10)
9.5-INTERVALOS DE CONFIANZA PARA
LA MEDIA POBLACIONAL
DATOS INICIALES:
tamano de la muestra? 100
media aritmetica? 67.45
desviacion estandar? 2.93
Se trata de una muestra de una poblacion infinitiva cuando no se conoce la
poblacion total, si(s) o no(n)? s
tamano total de la poblacion ? 3500
RESULTADOS:
Los estimados de los intervalos de confianza para la media de 67.4500 con la desviacion estandar de 2.9300
al nivel de 90% de significacion estadistica entre 66.9749 y
67.9251
al nivel de 95% de significacion estadistica entre 66.8839 y
68.0161
al nivel de 99% de significacion estadistica entre 66.7048 y
68.1952
9.5-INTERVALOS DE CONFIANZA PARA
LA MEDIA POBLACIONAL
DATOS INICIALES:
tamano de la muestra? 100
media aritmetica? 67.45
desviacion estandar? 2.93
Se trata de una muestra de una poblacion infinitiva cuando no se conoce la
poblacion total, si(s) o no(n)? n
RESULTADOS:
Los estimados de los intervalos de confianza para la media de 67.4500 con la desviacion estandar de 2.9300
al nivel de 90% de significacion estadistica entre 66.9680 y
67.9320
al nivel de 95% de significacion estadistica entre 66.8757 y
68.0243
al nivel de 99% de significacion
estadistica entre 66.6941 y
68.2059
9.6-INTERVALOS DE CONFIANZA PARA
LA PROPORCION POBLACIONAL
DATOS INICIALES:
tamano de la muestra? 100
proporcion? 0.55
Se trata de una muestra de una poblacion infinita cuando no se conoce la
poblacion total, si(s) o no(n)? s
RESULTADOS:
Los estimados de los intervalos de confianza para la proporcion = 0.5500 y el tamano de muestra = 100
al nivel de 90 % de significacion estadistica entre 0.4682 y
0.6318
al nivel de 95 % de significacion estadistica entre 0.45 y
0.6475
al nivel de 99 % de significacion estadistica entre 0.42 y
0.6784
9.7-INTERVALOS DE CONFIANZA PARA
LA DIFERENCIA ENTRE LAS MEDIAS
DATOS INICIALES:
tamano de la primera muestra (con media de mayor valor)? 150
tamano de la segunda muestra (con media de menor valor)? 200
media aritmetica del primer conjunto? 1400
media aritmetica del segundo conjunto? 1200
desviacion estandar del primer conjunto? 120
desviacion estandar del segundo conjunto? 80
RESULTADOS:
La diferencia entre las medias =
200.0000
Los estimados de los intervalos de confianza para la diferencia entre las
dos medias aritmeticas:
al nivel de 90% de significacion estadistica entre 181.3889 y
218.6111
al nivel de 95% de significacion estadistica entre 177.8251 y
222.1749
al nivel de 99% de significacion estadistica entre 170.8106 y
229.1894
9.8-INTERVALOS DE CONFIANZA PARA
LA DIFERENCIA ENTRE LAS PROPORCIONES
DATOS INICIALES:
tamano de la primera muestra (con proporcion de mayor valor)? 600
tamano de la segunda muestra (con proporcion de menor valor)? 400
proporcion del primer conjunto? 0.5
proporcion del segundo conjunto? 0.25
RESULTADOS:
La diferencia entre las proporciones =
0.2500
Los estimados de los intervalos de confianza para la diferencia entre las
dos proporciones poblacionales:
al nivel de 90 % de significacion estadistica entre 0.2011 y
0.2989
al nivel de 95 % de significacion estadistica entre 0.1917 y 0.3083
al nivel de 99 % de significacion estadistica entre 0.1732
y
0.3268
9.9-DIFERENCIAS ENTRE LOS VALORES
PRONOSTICADOS (MODELADOS) Y REALES
DATOS INICIALES:
Numero total? 8
Los valores pronosticados (X), reales (Y):
1 par: ? 1,1
2 par: ? 2,2.2
3 par: ? 3,2.9
4 par: ? 4,3.9
5 par: ? 5,5.3
6 par: ? 6,6.1
7 par: ? 7,7
8 par: ? 8,7.9
RESULTADOS:
Numero de los pares de datos comparados =
8
error total = -0.3000
error total absoluto = 0.9000
error medio = -0.0375
error medio absoluto = 0.1125
9.10-TABLAS DE LOS VALORES
CRITICOS DE `t` Y DE JI-CUADRADO
Desea los valores de `t` de Student (t) o los valores de ji-cuadrado (j)? t
TABLA DE LOS VALORES CRITICOS
DE PRUEBA `t` DE STUDENT
grado de prueba one-sided prueba two-sided
libertad
10% 5%
1% 5% 1%
------------------------------------------------------------------
1 3.08 6.31
31.8 12.7 63.7
2 1.89 2.92
6.96 4.30 9.92
3 1.64 2.35
4.54 3.18 5.84
4 1.53 2.13
3.75 2.78 4.60
5 1.48 2.02
3.36 2.57 4.03
6 1.44 1.94
3.14 2.45 3.71
7 1.42 1.89
3.00 2.36 3.50
8 1.40 1.86
2.90 2.31 3.36
9 1.38 1.83
2.82 2.26 3.25
10 1.37 1.81
2.76 2.23 3.17
15 1.34 1.75
2.60 2.13 2.95
20 1.32 1.72
2.53 2.09 2.85
30 1.31 1.70
2.46 2.04 2.75
40 1.30 1.68
2.42 2.02 2.70
60 1.30 1.67
2.39
120 1.28 1.66
2.36
9.10-TABLAS DE LOS VALORES
CRITICOS DE `t` Y DE JI-CUADRADO
Desea los valores de `t` de Student (t) o los valores de ji-cuadrado (j)? j
TABLA DE LOS VALORES CRITICOS DE
JI-CUADRADO
grado de valores criticos
del ji-cuadrado
libertad al nivel de
10% 5% 1%
------------------------------------------------
1 2.71 3.84 6.63
2 4.61 5.99 9.21
3 6.25 7.81 11.3
4 7.78 9.49 13.3
5 9.24 11.1 15.1
6 10.6 12.6 16.8
7 12.0 14.1 18.5
8 13.4 15.5 20.1
9 14.7 16.9 21.7
10 16.0 18.3 23.2
15 22.3 25.0 30.6
20 28.4 31.4 37.6
30 40.3 43.8 50.9
40 51.8 55.8 63.7
60 74.4 79.1 88.4
100 118.5 124.3 136
10-EFECTIVIDAD DE LOS PROGRAMAS
EPIZOOTIOLOGICOS
1-Indicadores simples del
analisis del costo/beneficio
2-Calculo simple del beneficio
absoluto del programa epizootiologico
3-Costo/beneficio biologico del
programa epizootiologico
4-Costo/beneficio sanitario del
programa epizootiologico
5-Benefico/costo en valores
monetarios descontados
6-Conversion de valores entre las
monedas nacionales
7-Comparacion de situacion final
en poblaciones con y sin programa
8-Calculos de los valores
monetarios influidos por la inflacion
9-Aplicacion de las tasas del
interes y del descuento
10-Analisis del punto critico de
la efectividad economica
10.1-INDICADORES SIMPLES DEL
COSTO/BENEFICIO DEL PROGRAMA EPIZOOTIOLOGICO
DATOS INICIALES:
programa epizootiologico? lucha contra la mastitis
lugar? Granja T.U periodo?
2003
moneda? pesos
beneficio total del programa epizootiologico? 450000
insumos (costos) totales del programa epizootiologico? 12500
RESULTADOS:
La efectividad simple (beneficio - costo) = 437500
La efectividad relativa (beneficio/costo) = 36.0000 = 1
: 0.0278
Relacion costo/beneficio
= 0.0278 =
1 : 36.0000
10.2-CALCULO SIMPLE DEL BENEFICIO
ABSOLUTO DEL PROGRAMA EPIZOOTIOLOGICO
DATOS INICIALES:
programa epizootiologico? lucha contra la brucelosis
lugar? Provincia A. periodo?
1995-2001
unidades de medicion? pesos
teclee los datos en pares (al inicio y al final) o para perdidas (valor
inicial mayor) o para beneficio (valor inicial menor):
perdidas provocadas por la morbilidad al inicio,al final? 2370000,1235000
RESULTADOS:
El valor de la reduccion de perdidas por el programa = 1135000
10.2-CALCULO SIMPLE DEL BENEFICIO
ABSOLUTO DEL PROGRAMA EPIZOOTIOLOGICO
DATOS INICIALES:
programa epizootiologico? lucha contra las garrapatas
lugar? Region T.
periodo? 2002
unidades de medicion? pesos
teclee los datos en pares (al inicio y al final) o para perdidas (valor
inicial mayor) o para beneficio (valor inicial menor):
perdidas provocadas por la morbilidad al inicio,al final?
beneficio de la salud colectiva (salubridad) al inicio,al final?
2700000,3400000
RESULTADOS:
El valor del aumento del beneficio de los sanos por el programa = 700000
10.3-COSTO/BENEFICIO BIOLOGICO
DEL PROGRAMA EPIZOOTIOLOGICO
DATOS INICIALES:
fenomeno biologico? mortalidad de los terneros
lugar? Granja D. periodo?
2003
unidades biologicos de medicion ? terneros muertos
unidades de insumo (costo)? pesos
costo (insumo) total del programa? 45700
Se trata del fenomeno biologico deseado - positivo (p),es decir con valor
mayor al final o no deseado - negativo (n) con mayor valor al inicio? n
valor del fenomeno (indicador) biologico al inicio del programa? 125
valor del fenomeno (indicador) biologico al final del programa? 34
RESULTADOS:
La diferencia entre los valores del fenomeno biologico al inicio y al final
= 91 terneros muertos
El cambio del valor del fenomeno biologico por cada unidad biologica ha
costado en promedio 502 pesos
Por cada unidad de insumo (costo) se ha podido cambiar el valor del
fenomeno biologico en promedio por
0.001991 de terneros muertos
10.4-COSTO/BENEFICIO SANITARIO
DEL PROGRAMA EPIZOOTIOLOGICO
DATOS INICIALES:
fenomeno sanitario? brucelosis humana
lugar? Region U. periodo?
1980-1990
unidades sanitarias de medicion ? hombres enfermos
unidades de insumo (costo)? pesos
insumo (costo) total del programa? 35000000
Se trata de un fenomeno sanitario deseado - positivo (p),es decir con valor
mayor al final o no deseado - negativo (n) con mayor valor al inicio? n
valor del fenomeno (indicador) sanitario al inicio del programa? 456
valor del fenomeno (indicador) sanitario al final del programa? 24
RESULTADOS:
La diferencia entre los valores del fenomeno sanitario al inicio y al final
= 432 hombres enfermos
El cambio del valor del fenomeno sanitario por cada unidad sanitaria ha
costado en promedio 81018 pesos
Por cada unidad del insumo (costo) se ha podido cambiar el valor (en
promedio) 0.000012
de unidades sanitarias
10.5-BENEFICIO/COSTO EN VALORES
MONETARIOS DESCONTADOS
Este subprograma no es aplicable para evaluar aquellos programas cuyos
efecto se relaciona con la proteccion de la vida humana, reduccion del
sufrimiento humano o otros aspectos de valores no cuantificables en terminos
monetarios.
DATOS INICIALES:
programa epizootiologico? eradicacion de la brucelosis bovina
lugar? Granja S.
periodo? 1987-1990
unidades monetarias? pesos
numero de anos para evaluar? 4
valor del descuento en forma de fraccion decimal? 0.12
Teclee (en pares) valores de beneficio,costo (por los anos individualmente
considerados):
1 : ? 0,20000
2 : ? 10000,10000
3 : ? 20000,10000
4 : ? 30000,5000
RESULTADOS:
Orden Factor Beneficio Costo
de ano del descuento descontado descontado
1 0.8929 0 17857
2 0.7972 7972 7971
3 0.7118 14236 7117
4 0.6355 19066 3177
Suma de beneficio = 41273
Suma de costo = 36124
Relacion beneficio/costo descontada =
1.1425 = 1 : 0.8753
10.6-CONVERSION DE VALORES ENTRE
LAS MONEDAS NACIONALES
DATOS INICIALES:
moneda A? peso
moneda B? dolar
Responde siempre una pregunta sola:
valor de un producto (servicio) dado en moneda A, en moneda B?
precio de una unidad del producto (servicio) dado en moneda A,en moneda B?
valor de una unidad de moneda A en moneda B? 0.23
valor de una unidad de moneda B en moneda A?
RESULTADO:
Relacion dolar : peso = 1 : 4.3478
10.7-COMPARACION DE SITUACION
FINAL EN POBLACIONES CON Y SIN PROGRAMA
DATOS INICIALES:
fenomeno epizootiologico (indicador)? prevalencia de tuberculosis
especie(s)? Bovina
categoria(s)? todas
lugar? País C. periodo?
1989-1998
unidades monetarias? pesos
unidades de medicion del fenomeno (indicador)? animales enfermos
costo(precio) de perdidad promedia por una unidad del fenomeno? 4500
numero total inicial del fenomeno en la poblacion ? 890000
numero total final del fenomeno en poblacion con programa? 1500
numero total final del fenomeno en poblacion sin programa? 1200000
costo del programa epizootiologico? 1250000000
RESULTADOS:
Valor de la reduccion de prevalencia de tuberculosis en la poblacion con
programa = 888500 animales enfermos,es
decir beneficio = 3998250000 pesos,
mientras en la poblacion sin programa
la situacion epizootiologica se ha empeorado por 310000 animales enfermos de valor de 1395000000 pesos.
Relacion beneficio/costo del programa =
3998250000 / 1250000000 = 3
o 3 : 1
La reduccion de las perdidas por una unidad del fenomeno ha costado en
promedio 1406 pesos.
Si aplicamos este valor promedio a la actual poblacion sin programa para
alcanzar un resultado similar en el futuro,bajo las condiciones similares,el
programa podria costar
orientativamente cerca
1686128306 pesos.
10.8-CALCULOS DE VALORES
MONETARIOS INFLUIDOS POR LA INFLACION
DATOS INICIALES:
producto(servicio),unidades de medicion, cantidad? leche,litros,12500
unidades monetarias? pesos
ano basico? 1990 ano
determinado? 1999
Indicador a calcular - teclee '0';los otros datos relevantes deben ser
disponibles:
precio promedio en el ano basico? 1.2
precio promedio en el ano determinado? 0
costo de una cantidad dada del producto(servicio) en el ano basico? 15000
costo de la misma cantidad del producto(servicio) en el ano determinado?
20000
RESULTADO:
El precio en el ano determinado =
1.60
Indice de inflacion entre el ano 1990 y el ano 1999 = 133.3333
porcentaje promedio anual = 3.7037
10.8-CALCULOS DE VALORES
MONETARIOS INFLUIDOS POR LA INFLACION
DATOS INICIALES:
producto(servicio),unidades de medicion, cantidad? leche,litros,12000
unidades monetarias? pesos
ano basico? 1990
ano determinado? 1999
Indicador a calcular - teclee '0';los otros datos relevantes deben ser
disponibles:
precio promedio en el ano basico? 0
precio promedio en el ano determinado? 1.65
costo de una cantidad dada del producto(servicio) en el ano basico? 15000
costo de la misma cantidad del producto(servicio) en el ano determinado?
20000
RESULTADO:
El precio en el ano basico = 1.24
Indice de inflacion entre el ano 1990 y el ano 1999 = 133.3333
porcentaje promedio anual = 3.7037
10.9-APLICACION DE LAS TASAS DEL
INTERES Y DEL DESCUENTO
DATOS INICIALES:
1-Valores futuros aplicando la tasa del interes:
valor del ano presente? 34000
valor de la tasa del interes anual? 0.03
numero de los anos? 5
RESULTADOS:
V a l o r e s f u t u r o s
Ano: Suma:
1 35020.00
2 36070.60
3 37152.72
4 38267.30
5 39415.32
10.9-APLICACION DE LAS TASAS DEL
INTERES Y DEL DESCUENTO
DATOS INICIALES:
2-Valores cambiados aplicando la tasa del descuento
valor para descontar? 100000
valor de la tasa del descuento anual? 0.09
numero de los anos? 5
RESULTADOS:
V a l o r e s d e s c o n t a d o s :
Ano: Suma:
1 91743.12
2 84168.00
3 77218.35
4 70842.52
5 64993.14
10.9-APLICACION DE LAS TASAS DEL
INTERES Y DEL DESCUENTO
DATOS INICIALES:
3-Calculo del valor de la tasa del interes anual:
valor del ano presente? 34000
valor de un ano futuro (valor debe ser mayor que el presente)? 43000
numero de los anos entre los valores presente y futuro? 5
RESULTADO:
Para alcanzar desde el valor de
34000.00 durante 5 anos un valor futuro de 43000.00 se necesita que el valor de la
tasa del interes anual = 0.0481
10.9-APLICACION DE LAS TASAS DEL
INTERES Y DEL DESCUENTO
DATOS INICIALES:
4-Calculo del numero de los anos para alcanzar un valor dado
valor inicial (del ano presente)? 4500000
valor final (de un ano futuro)? 52000000
valor de la tasa del interes anual? 0.03
RESULTADO:
Para alcanzar desde el valor presente de
4500000.00 un valor futuro de
52000000.00 aplicando la tasa del interes anual de 0.030 el numero de
anos necesarios = 82.79
10.10-ANALISIS DEL PUNTO CRITICO
DE LA EFECTIVIDAD ECONOMICA
DATOS INICIALES:
Indicador para calcular - teclee '0'; los otros 4 datos deben ser
disponibles:
beneficio crudo? 0
numero de las unidades? 456000
precio de una unidad? 2.5
insumos fijos totales? 321000
insumos variable para una unidad? 1.4
RESULTADO:
beneficio crudo = 180600
10.10-ANALISIS DEL PUNTO CRITICO
DE LA EFECTIVIDAD ECONOMICA
DATOS INICIALES:
Indicador para calcular - teclee '0'; los otros 4 datos deben ser
disponibles:
beneficio crudo? 500000
numero de las unidades? 1250000
precio de una unidad? 0
insumos fijos totales? 356000
insumos variable para una unidad? 1.3
RESULTADO:
precio de una unidad = 1.98
10.10-ANALISIS DEL PUNTO CRITICO
DE LA EFECTIVIDAD ECONOMICA
DATOS INICIALES:
Indicador para calcular - teclee '0'; los otros 4 datos deben ser
disponibles:
beneficio crudo? 500000
numero de las unidades? 1400000
precio de una unidad? 2.5
insumos fijos totales? 340000
insumos variable para una unidad? 0
RESULTADO:
insumos variables para una unidad =
1.90
================================================================================================================================
Notas:
Procedimiento para imprimir las
ventanas de salida de EPIZOOT desde un documento de WORD
Antes de empezar se debe abrir una hoja en blanco de WORD.
1. Poner el cursor del Mouse en la barra superior de la ventana de EPIZOOT
y presionar el cursos con el boton derecho en la barra superior de la ventana
de EPIZOOT.
2. Presionar el boton derecho de Mouse y seleccionar EDITAR.
3. Sosteniendo el boton derecho de Mouse, seleccionar MARCAR.
4. Con el puntero del Mouse seleccionar todo lo que se desee copiar
(marcando el documento deseado).
5. Volver a la barra superior de la ventana de EPIZOOT y seleccionar EDITAR
nuevamente y después COPIAR.
6. Se pasa a la ventana de WORD y se pega el documento que se copio de
EPIZOOT.
Procedimiento para ampliar la
ventana de EPIZOOT
1. Poner el cursor del Mouse en la barra superior de la ventana de EPIZOOT
y presionar el cursor con el boton derecho en la barra superior de la ventana
de EPIZOOT.
2. Seleccionar el comando PROPIEDADES.
3. Seleccionar OPCIONES.
4. Seleccionar OPCIONES DE PANTALLA.
5. Sellecionar ACEPTAR.
Prof. MVDr Václav
Kouba, DrSc.
EPIZOOT software
know-how
software en el idioma español – 1992 –
el primero en la historía de la
epizootiología mundial
( predecesor de EPIZOO software en inglés – 1993)
Basado sobre las metodologías
descritas en el libro
V. Kouba: Epizootiología general, 1987
10
PRINT"EPIZOOT,version 1.0":PRINT
20
PRINT:PRINT:PRINT
30 PRINT TAB(32)"E P I Z O O T"
31
PRINT:PRINT TAB(25)"(version 1.0 - experimental) ":PRINT
32 PRINT TAB(37)"1992":PRINT:PRINT
35 PRINT TAB(12)"EPIZOOT es un software paquete
de los métodos seleccionados"
36 PRINT TAB(15)" para el análisis de la
situacion epizootiologica"
37 PRINT TAB(22)"y la programacion de la salud
animal":PRINT:PRINT
60 PRINT TAB(18)"Autor: Prof.MVDr. Vaclav K o u b a , PhD,DrSc."
65 PRINT
70 PRINT TAB(20)" Ex-jefe del Servicio
Veterinario de la"
75 PRINT TAB(3)" Organizacion de las Naciones
Unidas";
76 PRINT " para la Agricultura y la
Alimentacion"
77 PRINT TAB(39)"y"
78 PRINT TAB(4)"Profesor de la Epizootiología,
Universidad de Ciencias Veterinarias, Brno"
80 REM:"Programas preparados según la
metodología descrita en su libro:"
90 REM:"'Epizootiologia general',Editorial
Pueblo y Educacion,La Habana,1987."
120
PRINT:PRINT:PRINT
130
INPUT" Teclee ENTER para continuar",Q
140 ON Q GOTO 500
200 REM:El paquete de los programas para la
epizootiologia consiste
210 REM:de una serie de programas y subprogramas que
abarcan
220 REM:los fenomenos seleccionados de los problemas
epizootiologicos
230 REM:mas frecuentes en la practica de los
servicios veterinarios.
240 REM:Los programas se pueden aplicar a la salud
y/o enfermedad masivas
250 REM:generales o especificas ( segun los factores
etiologicos
260
REM:particulares).
500
CLS:PRINT"EPIZOOT, version 1.0":PRINT
M E N
U DE LOS GRUPOS DE SUBPROGRAMAS:
501 PRINT TAB(10)"M E
N U DE LOS GRUPOS DE SUBPROGRAMAS:"
502 PRINT
520 PRINT TAB(3)"1-Indicadores del análisis de
la situacion epizootiologica"
530 PRINT TAB(3)"2-Indicadores de la dinámica
de los procesos epizooticos"
540 PRINT TAB(3)"3-Investigaciones de la
situacion epizootiologica"
550 PRINT TAB(3)"4-Consecuencias de la salud y
enfermedad colectivas"
560 PRINT TAB(3)"5-Aspectos seleccionados de
los programas epizootiologicos"
570 PRINT TAB(3)"6-Muestreo para las
investigaciones epizootiologicas"
580 PRINT TAB(3)"7-Métodos estadísticos
seleccionados utilizados en la epizootiología - I"
590 PRINT TAB(3)"8-Métodos estadísticos
seleccionados utilizados en la epizootiología - II"
600 PRINT TAB(3)"9-Métodos estadísticos
seleccionados utilizados en la epizootiología - III"
610 PRINT TAB(3)"10-Efectividad de los
programas epizootiologicos":PRINT
620 PRINT TAB(3)"11-Terminar el programa
EPIZOOT"
621 PRINT:PRINT
625 PRINT"Nota: Contestar todas las preguntas
por los datos numéricos (reales, estimados"
628 PRINT"
o ficticios) para evitar la divison por zero conduciendo al bloqueo
!":PRINT
690 PRINT:INPUT" Seleccione el numero del grupo de los
subprogramas: ",CH
700 ON
CH GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
1000
CHAIN"Epizoot1.exe"
1090
RETURN
2000
CHAIN"Epizoot2.exe"
2090
RETURN
3000
CHAIN"Epizoot3.exe"
3090
RETURN
4000
CHAIN"Epizoot4.exe"
4090
RETURN
5000
CHAIN"Epizoot5.exe"
5090
RETURN
6000 CHAIN"Epizoot6.exe"
6090
RETURN
7000
CHAIN"Epizoot7.exe"
7090
RETURN
8000
CHAIN"Epizoot8.exe"
8090
RETURN
9000
CHAIN"Epizoot9.exe"
9090
RETURN
10000
CHAIN"Epizoot0.exe"
10090
RETURN
11000
SYSTEM
1-Indicadores del análisis de la situacion epizootiologica
5 CLS
10 PRINT"EPIZOOT,version 1.0"
20 PRINT
30 PRINT"1-INDICADORES RELATIVOS DEL SISTEMA
INTEGRAL DEL ANALISIS"
40 PRINT"DE LA SITUACION EPIZOOTIOLOGICA"
50
PRINT"========================================================="
120 REM:
130 REM:Este programa consiste de los subprogramas
destinados al analisis
140 REM:de la situacion epizootiologica a los
niveles poblacionales/rebanales.
160 REM:Este sistema utiliza un complejo integral de
los indicadores rela-
170 REM:tivos para medir y evaluar los fenomenos
masivos de la salud y en-
180 REM:fermedad(es) de las poblaciones animales.
190 REM:La seleccion de los grupos de indicadores
asi como de los indicado-
200 REM:res individuales se debe dirigir ante todo
de acuerdo con el proposito
210 REM:y los objetos del analisis asi como con las
condiciones influyentes
220 REM:y con los datos disponibles.
230 REM:Particular atencion es necesaria al respetar
los factores de lugar
240 REM:y de tiempo.
250 REM:La condicion basica la representa la disponibilidad
de los datos
260 REM:fidedignos apoyandose ante todo sobre las
investigaciones respe-
270 REM:ctivas en el campo.
280 REM:Despues de seleccionar el grupo de
indicadores relevantes,
290 REM:se responde a todas las preguntas y el
programa va calcular
300 REM:y presentar resultados de aquellos
indicadores cuales
310 REM:han obtenido todos los datos iniciales
necesarios.
320 REM:Programa contiene los indicadores
seleccionados
330 REM:de mayor importancia epizootiologica
practica.
340 REM:
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:":PRINT
510 PRINT"1=Indicadores generales basicos para
el analisis"
520 PRINT"2=Indicadores relacionados con
poblacion animal(incl.resistencia)"
530 PRINT"3=Indicadores de la salubridad de
poblacion animal"
540 PRINT"4=Indicadores de la morbilidad de
poblacion animal"
550 PRINT"5=Indicadores de la vitalidad de
poblacion animal"
560 PRINT"6=Indicadores de la mortalidad de
poblacion animal"
570 PRINT"7=Indicadores de la focalidad de
enfermedad animal"
580 PRINT"8-Indicadores relacionados con la
distribucion territorial"
590 PRINT"9=Indicadores de duracion de
existencia/ausencia de fenom.epizoot."
600 PRINT"10=Estructura epizootiologica de la
poblacion animal":PRINT
610 PRINT"11=Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en los calculos de
este grupo de subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
690 INPUT"Seleccione el numero del subprograma:
",CH
700 ON CH GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"1.1-INDICADORES GENERALES
BASICOS DEL ANALISIS EPIZOOTIOLOGICO"
1010
PRINT"=============================================================="
1020 PRINT
1030 REM:Los indicadores generales basicos del
analisis epizootiologico
1040 REM:son representados por tres grupos de
indicadores generales:
1050 REM:prevalencia (relacion con los fenomenos existentes), inciden-
1060 REM:cia ( relacion con los fenomenos nuevos en un periodo dado )
y
1070 REM:extinccion ( relacion con los fenomenos extinguidos durante un
1080 REM:periodo dado).Siempre se debe respetar si
se trata de
1090 REM:la evaluacion de los fenomenos en un
momento o periodo dado.
1110 REM:Estos indicadores generales se pueden aplicar
a todos los feno-
1120 REM:menos epizootiologicos.
1130 REM:En principio se trata de las relaciones del
numero de las unidades
1140 REM:de medicion de una caracteristica
epizootiologica (unidades epizoo-
1150 REM:tiologicas) en el lugar y tiempo dados
(ue),al numero total de las
1160 REM:unidades de medicion respectivas (unidades
basales) en los mismos
1170 REM:lugar y tiempo (u): Reu = ue/u.
1200 PRINT"DATOS INICIALES:"
1220 PRINT"(cuando un dato no es disponible, no
responda la pregunta)"
1230 PRINT
1231 INPUT"lugar";LU$
1232 INPUT"tiempo";TI$
1233 INPUT"unidades basales";UB$
1234 INPUT"unidades epizootiologicas";UE$
1235 PRINT
1240 INPUT"numero de unidades basales
existentes en un momento dado";A
1250 INPUT"numero de unidades basales
existentes en un periodo dado";B
1260 INPUT"numero promedio de unidades basales
en un periodo dado";C
1270 INPUT"numero de unidades basales
existentes al inicio del periodo";D
1280 INPUT"numero de unidades epizoot.
existentes en un momento dado";E
1290 INPUT"numero de unidades
epizoot.existentes en un periodo dado";F
1300 INPUT"numero promedio de unidades epizoot.
en un periodo dado";G
1310 INPUT"numero de unidades epizoot.nuevas en
un periodo dado";H
1320 INPUT"numero de unidades epizoot.
extinguidas en un periodo dado";I
1400 PRINT
1410 CLS:PRINT"RESULTADOS:"
1500 PRINT
1501 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
1502 PRINT"Unidades basales: "UB$
1503 PRINT"Unidades epizootiologicas:
"UE$:PRINT
1510
IF E>0 AND A>0 THEN GOTO 1610
1520
IF F>0 AND B>0 THEN GOTO 1620
1530
IF G>0 AND C>0 THEN GOTO 1630
1540
IF H>0 AND B>0 THEN GOTO 1640
1550
IF H>0 AND G>0 THEN GOTO 1650
1560
IF H>0 AND D>0 THEN GOTO 1660
1570
IF I>0 AND B>0 THEN GOTO 1670
1580
IF I>0 AND G>0 THEN GOTO 1680
1590
IF I>0 AND D>0 THEN GOTO 1690 ELSE 1800
1610 PRINT"prevalencia momentanea de unidades
epizoot. = ";USING"#.####";E/A:GOTO 1520
1620 PRINT"prevalencia de periodo de unidades
epizoot. = ";USING"#.####";F/B:GOTO 1530
1630 PRINT"prevalencia promedia de unidades
epizoot. = ";USING"#.####";G/C:GOTO 1540
1640 PRINT"incidencia a total existente de
unid.epiz. = ";USING"#.####";H/B:GOTO 1550
1650 PRINT"incidencia a total promedio de
unid.epiz. = ";USING"#.####";H/G:GOTO 1560
1660 PRINT"incidencia a total inicial de
unid.epiz. = ";USING"#.####";H/D:GOTO 1570
1670 PRINT"extinccion a total existente de
unid.epiz. = ";USING"#.####";I/B:GOTO 1580
1680 PRINT"extinccion a total promedio de
unid.epiz. = ";USING"#.####";I/G:GOTO 1590
1690 PRINT"extinccion a total inicial de
unid.epiz. = ";USING"#.####";I/D
1800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
1810
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"1.2-INDICADORES RELACIONADOS CON
LA POBLACION ANIMAL (incl.resistencia)"
2010
PRINT"======================================================================="
2030 REM:Este grupo de los indicadores abarca
aquellos que analizan la
2040 REM:la estructura de la poblacion animal segun
las especies y categorias,
2050 REM:su densidad de distribucion en superficie y
volumen,su concentracion
2060 REM:en las unidades de cria/produccion y su
remplazo.
2070 REM:Otro grupo de indicadores se dedica al
grado de la resistencia
2080 REM:y la susceptibilidad asi como de las
inmunizaciones.
2200 PRINT"DATOS INICIALES:"
2220 PRINT"(cuando un dato no es disponible, no
responda la pregunta)"
2230 PRINT
2231 INPUT"lugar";LU$
2232 INPUT"tiempo";TI$
2233
INPUT"especie(s)";SP$
2234
INPUT"categoria(s)";CA$
2235 INPUT"unidades de medicion de
superficie";M$
2236 INPUT"unidades de medicion de
volumen";N$:PRINT
2240 INPUT"numero total de animales de todas
las especies";A
2250 INPUT"numero total de animales de la
especie dada";B
2260 INPUT"numero total de animales de la
categoria dada";C
2270 INPUT"numero de unidades de medicion de
superficie";D
2280 INPUT"numero de unidades de medicion de
volumen";E
2290 INPUT"numero de unidades de
cria/produccion";F
2300 INPUT"numero de animales existentes en un
periodo dado";G
2310 INPUT"numero de animales nuevos durante un
periodo dado";H
2320 INPUT"numero de animales
resistentes";I
2330 INPUT"numero de animales
susceptibles";J
2340 INPUT"numero de animales
inmunizados";K
2350 INPUT"numero de inmunizaciones durante un
periodo dado";L
2400 PRINT
2410 CLS:PRINT"RESULTADOS:"
2420 PRINT
2421 PRINT"Lugar: "LU$;TAB(40)"Tiempo:
"TI$
2422
PRINT"Especie(s): "SP$;TAB(40)"Categoria(s): "CA$:PRINT
2500
IF B>0 AND A>0 THEN GOTO 2600
2510
IF C>0 AND B>0 THEN GOTO 2610
2520
IF B>0 AND D>0 THEN GOTO 2620
2530
IF B>0 AND E>0 THEN GOTO 2630
2540
IF B>0 AND F>0 THEN GOTO 2640
2550
IF H>0 AND G>0 THEN GOTO 2650
2560
IF I>0 AND B>0 THEN GOTO 2660
2570
IF J>0 AND B>0 THEN GOTO 2670
2580
IF K>0 AND B>0 THEN GOTO 2680
2590
IF L>0 AND G>0 THEN GOTO 2690 ELSE 2800
2600 PRINT"Tasa de especie animal =
";USING"#.#####";B/A:GOTO 2510
2610 PRINT"Tasa de categoria animal =
";USING"#.#####";C/B:GOTO 2520
2620 PRINT"Densidad promedia de animales por
"M$;" = ";USING"#######";B/D:GOTO 2530
2630 PRINT"Densidad promedia de animales por
"N$;" = ";USING"#######";B/E:GOTO 2540
2640 PRINT"Concentracion de animales por unidad
de produccion = ";USING"#######";B/F:GOTO 2550
2650 PRINT"Tasa de remplazo de poblacion animal
= ";USING"#.#####";H/G:GOTO 2560
2660 PRINT"Tasa de animales resistentes =
";USING"#.#####";I/B:GOTO 2570
2670 PRINT"Tasa de animales susceptibles =
";USING"#.#####";J/B:GOTO 2580
2680 PRINT"Tasa de animales inmunizados =
";USING"#.#####";K/B:GOTO 2590
2690 PRINT"Relacion inmunizaciones/animales =
";USING"###.####";L/G
2800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"1.3-INDICADORES DE LA SALUBRIDAD
DE LA POBLACION ANIMAL"
3010
PRINT"======================================================="
3020 REM:
3030 REM:Los indicadores de la salubridad de
poblacion/rebano animales son
3040 REM:representados por tres grupos de los
indicadores:prevalencia de
3050 REM:los animales sanos,incidencia de los
animales sanos y extinccion
3060 REM:de los animales sanos.
3070 REM:En principio se trata de las relaciones del
numero de los animales
3080 REM:sanos(no afectados) de una especie dada en
un lugar y tiempo dados
3090 REM:(as),al numero total de animales de la
misma especie en el mismo
3100 REM:lugar y tiempo (a): S = as/a (Tasa de
animales sanos).
3200 PRINT:PRINT"DATOS INICIALES:"
3220 PRINT"(cuando un dato no es disponible, no
responda la pregunta)"
3229 PRINT
3230 INPUT"tipo de salubridad/salud
colectiva";SA$
3231 INPUT"lugar";LU$
3232 INPUT"tiempo";TI$
3233
INPUT"especie(s)";SP$
3234
INPUT"categoria(s)";CA$
3235 PRINT
3240 INPUT"numero de animales total existentes
en un momento dado";A
3250 INPUT"numero de animales total existentes
en un periodo dado";B
3260 INPUT"numero promedio de animales en un
periodo dado";C
3270 INPUT"numero de animales total existentes
al inicio del periodo";D
3280 INPUT"numero de animales sanos existentes
en un momento dado";E
3290 INPUT"numero de animales sanos existentes
en un periodo dado";F
3300 INPUT"numero promedio de animales sanos en
un periodo dado";G
3310 INPUT"numero de animales sanos nuevos en
un periodo dado";H
3320 INPUT"numero de animales sanos extinguidos
en un periodo dado";I
3400 PRINT
3410 CLS:PRINT"RESULTADOS:"
3500 PRINT:PRINT"Salubridad: ";SA$:PRINT
3501 PRINT"Lugar:
";LU$;TAB(40)"Tiempo: ";TI$
3502 PRINT"Especie(s): "SP$;TAB(40)"Categoria(s):
"CA$:PRINT
3510
IF E>0 AND A>0 THEN GOTO 3610
3520
IF F>0 AND B>0 THEN GOTO 3620
3530
IF G>0 AND C>0 THEN GOTO 3630
3540
IF H>0 AND B>0 THEN GOTO 3640
3550
IF H>0 AND C>0 THEN GOTO 3650
3560
IF H>0 AND D>0 THEN GOTO 3660
3570
IF I>0 AND B>0 THEN GOTO 3670
3580
IF I>0 AND C>0 THEN GOTO 3680
3590
IF I>0 AND D>0 THEN GOTO 3690 ELSE 3800
3610 PRINT"prevalencia momentanea de animales
sanos = ";USING"#.####";E/A:GOTO 3520
3620 PRINT"prevalencia de periodo de animales
sanos = ";USING"#.####";F/B:GOTO 3530
3630 PRINT"prevalencia promedia de animales
sanos = ";USING"#.####";G/C:GOTO 3540
3640 PRINT"incidencia de anim.sanos a total
existente = ";USING"#.####";H/B:GOTO 3550
3650 PRINT"incidencia de anim.sanos a total
promedio = ";USING"#.####";H/C:GOTO 3560
3660 PRINT"incidencia de anim. sanos a total
inicial = ";USING"#.####";H/D:GOTO 3570
3670 PRINT"extinccion de anim.sanos a total
existente = ";USING"#.####";I/B:GOTO 3580
3680 PRINT"extinccion de anim. sanos a total
promedio = ";USING"#.####";I/C:GOTO 3590
3690 PRINT"extinccion de anim.sanos a total
inicial = ";USING"#.####";I/D
3800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
3810
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"1.4-INDICADORES DE LA MORBILIDAD
DE LA POBLACION ANIMAL"
4010
PRINT"======================================================="
4020 REM:
4030 REM Los indicadores de la morbilidad de la
poblacion animal son
4040 REM:representados por tres grupos de los
indicadores: la prevalencia de
4050 REM:los animales enfermos,incidencia de los
animales enfermos y
4060 REM:la extinccion de los animales enfermos.
4070 REM:En general se trata de las relaciones del
numero de los animales
4080 REM:enfermos de una especie dada en un lugar y
tiempo dados (ai),al
4090 REM:numero total de animales de la misma
especie en el mismo lugar
4100 REM:y tiempo (a): M = ai/a.(Tasa de animales
enfermos).
4200 PRINT:PRINT"DATOS INICIALES:"
4220 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
4229 PRINT
4230 INPUT"enfermedad(es)";EN$
4231 INPUT"lugar";LU$
4232 INPUT"tiempo";TI$
4233
INPUT"especie(s)";SP$
4234
INPUT"categoria(s)";CA$
4235 PRINT
4240 INPUT"numero total de animales existentes
en un momento dado";A
4250 INPUT"numero total de animales existentes
en un periodo dado";B
4260 INPUT"numero promedio de animales en un
periodo dado";C
4270 INPUT"numero total de animales existentes
al inicio del periodo";D
4280 INPUT"numero de animales enfermos
existentes en un momento dado";E
4290 INPUT"numero de animales enfermos
existentes en un periodo dado";F
4300 INPUT"numero promedio de animales enfermos
en un periodo dado";G
4310 INPUT"numero de animales enfermos nuevos
en un periodo dado";H
4320 INPUT"numero de animales enfermos
extinguidos en un periodo dado";I
4400 PRINT
4410 CLS:PRINT"RESULTADOS:"
4500 PRINT:PRINT"Enfermedad(es):
";EN$:PRINT
4501 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$
4502
PRINT"Especie(s): "SP$;TAB(40)"Categoria(s): "CA$:PRINT
4510
IF E>0 AND A>0 THEN GOTO 4610
4520
IF F>0 AND B>0 THEN GOTO 4620
4530
IF G>0 AND C>0 THEN GOTO 4630
4540
IF H>0 AND B>0 THEN GOTO 4640
4550
IF H>0 AND C>0 THEN GOTO 4650
4560
IF H>0 AND D>0 THEN GOTO 4660
4570
IF I>0 AND B>0 THEN GOTO 4670
4580
IF I>0 AND C>0 THEN GOTO 4680
4590
IF I>0 AND D>0 THEN GOTO 4690 ELSE 4800
4610 PRINT"prevalencia momentanea de animales
enfermos = ";USING"#.####";E/A:GOTO 4520
4620 PRINT"prevalencia de periodo de animales
enfermos = ";USING"#.####";F/B:GOTO 4530
4630 PRINT"prevalencia promedia de animales
enfermos = ";USING"#.####";G/C:GOTO 4540
4640 PRINT"incidencia de anim. enfermos a total
existente = ";USING"#.####";H/B:GOTO 4550
4650 PRINT"incidencia de anim. enfermos a total
promedio = ";USING"#.####";H/C:GOTO 4560
4660 PRINT"incidencia de anim. enfermos a total
inicial = ";USING"#.####";H/D:GOTO 4570
4670 PRINT"extinccion de anim. enfermos a total
existente = ";USING"#.####";I/B:GOTO 4580
4680 PRINT"extinccion de anim. enfermos a total
promedio = ";USING"#.####";I/C:GOTO 4590
4690 PRINT"extinccion de anim. enfermos a total
inicial = ";USING"#.####";I/D
4800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
4810
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"1.5-INDICADORES DE LA VITALIDAD
DE LA POBLACION ANIMAL"
5010 PRINT"======================================================"
5020 REM:
5030 REM:Este grupo de indicadores contiene aquellos
que analizan la
5040 REM:poblacion animal de una especie dada en un
periodo dado
5050 REM:segun las relaciones del numero de animales
recien nacidos y segun
5060 REM:la sobrevivencia de los animales existentes
al inicio
5070 REM:del periodo evaluado.
5200 PRINT:PRINT"DATOS INICIALES:"
5220 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
5230 PRINT
5231 INPUT"lugar";LU$
5232 INPUT"tiempo";TI$
5233
INPUT"especie(s)";SP$
5234
INPUT"categoria(s)";CA$
5235 PRINT
5240 INPUT"numero de animales nacidos en un
periodo dado";A
5250 INPUT"numero de animales
fallecidos";B
5260 INPUT"numero de animales
sacrificados";C
5270 INPUT"numero de animales existentes en un
periodo dado";D
5280 INPUT"numero de reproductoras existentes
en un periodo dado";E
5290 INPUT"numero de animales existentes al
inicio";G
5300 INPUT"numero de animales sobrevivientes al
final";F
5310 INPUT"numero de recien nacidos
destetados";H
5320 INPUT"numero de animales al inicio de la
cria";I
5330 INPUT"numero de animales criados al
final";J
5340 INPUT"numero de animales al inicio de la
ceba";K
5350 INPUT"numero de animales cebados al
final";L
5400 PRINT
5410 CLS:PRINT"RESULTADOS:"
5420 PRINT
5430 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$
5440
PRINT"Especie(s): "SP$;TAB(40)"Categoria(s): "CA$:PRINT
5500
IF A>0 AND B>0 AND C>0 THEN GOTO 5600
5510
IF A>0 AND D>0 THEN GOTO 5610
5520
IF A>0 AND E>0 THEN GOTO 5620
5530
IF F>0 AND G>0 THEN GOTO 5630
5540
IF H>0 AND A>0 THEN GOTO 5640
5550
IF I>0 AND J>0 THEN GOTO 5650
5560
IF K>0 AND L>0 THEN GOTO 5660 ELSE 5800
5600 PRINT"indice vital de poblacion animal =
";USING"###.####";A/(B+C):GOTO 5510
5610 PRINT"natalidad de poblacion animal =
";USING"###.####";A/D:GOTO 5520
5620 PRINT"fertilidad de poblacion animal =
";USING"###.####";A/E:GOTO 5530
5630 PRINT"tasa de animales sobrevividos =
";USING"#.####";F/G:GOTO 5540
5640 PRINT"tasa de animales destetados =
";USING"#.####";H/A:GOTO 5550
5650 PRINT"tasa de animales criados =
";USING"#.####";J/I:GOTO 5560
5660 PRINT"tasa de animales cebados =
";USING"#.####";L/K
5800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"1.6-INDICADORES DE LA MORTALIDAD
DE LA POBLACION ANIMAL"
6010
PRINT"======================================================="
6020 REM:
6030 REM:Mortalidad (MT) en este programa se
comprende en el sentido
6040 REM:amplio de la palabra,es decir el numero
total de animales(a)
6050 REM:se relaciona a todos los animales
muertos(amt) = animales
6060 REM:fallecidos(ad) y sacrificados (ak) en un
periodo dado.
6070
REM:Formula basica: MT = amt/a = (ad+ak)/a .
6080 REM:Respetando el factor de tiempo en casos
concretos se puede
6090 REM:tratar de relaciones al numero total de
animales
6100 REM:existentes en un momento o en un periodo
dados.
6190 REM:
6200 PRINT:PRINT"DATOS INICIALES:"
6210 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
6230
PRINT
6231
INPUT"lugar";LU$
6232
INPUT"periodo";TI$
6233
INPUT"especie(s)";SP$
6234
INPUT"categoria(s)";CA$
6235 PRINT
6240 INPUT"numero total de animales
muertos";A
6250 INPUT"numero total de animales";B
6260 INPUT"numero de animales existentes en un
periodo dado";C
6270 INPUT"numero promedio de animales en un
periodo dado";D
6280 INPUT"numero de animales
fallecidos";E
6290 INPUT"numero de animales enfermos";F
6300 INPUT"numero de animales enfermos
fallecidos";G
6310 INPUT"numero de animales
sacrificados";H
6320 INPUT"numero de anim.fallecidos por una
enfermedad especifica";I
6400 PRINT
6500 CLS:PRINT"RESULTADOS:":PRINT
6501 PRINT"Lugar: "LU$;TAB(40)"Periodo:
"TI$
6502 PRINT"Especie(s):
"SP$;TAB(40)"Categoria(s): "CA$:PRINT
6510
IF A>0 AND B>0 THEN GOTO 6610
6520
IF A>0 AND C>0 THEN GOTO 6620
6530
IF A>0 AND D>0 THEN GOTO 6630
6540
IF E>0 AND B>0 THEN GOTO 6640
6550
IF G>0 AND F>0 THEN GOTO 6650
6560
IF H>0 AND B>0 THEN GOTO 6660
6570
IF I>0 AND E>0 THEN GOTO 6670 ELSE 6800
6600
PRINT
6610
PRINT"mortalidad animal = ";USING"#.####";A/B:GOTO 6520
6620 PRINT"mortalidad animal de total
existentes = ";USING"#.####";A/C:GOTO 6530
6630 PRINT"mortalidad animal a total promedio =
";USING"##.####";A/D:GOTO 6540
6640 PRINT"mortalidad animal natural =
";USING"#.####";E/B:GOTO 6550
6650 PRINT"letalidad animal =
";USING"#.####";G/F:GOTO 6560
6660 PRINT"tasa de animales sacrificados =
";USING"#.####";H/B:GOTO 6570
6670 PRINT"tasa proporcional de mortalidad
natural especifica = ";USING"#.####";I/E
6800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"1.7-INDICADORES DE LA FOCALIDAD
DE LA ENFERMEDAD ANIMAL"
7010 PRINT"======================================================="
7020 PRINT
7030 REM:Este subprograma evalua la focalidad (FO)
de enfermedades
7040 REM:como la relacion del numero de los focos
(fi) al numero total
7050 REM:de las unidades de medicion de focos-focales
(f):FO = fi/f.
7060 REM:Se utilizan los principios de
prevalencia,incidencia y extincion
7070 REM:de los focos.Esta incluido tambien la
densidad de focos,
7080 REM:la proporcion del territorio afectado por
enfermedad(es)
7090 REM:asi como de los rebanos afectados.
7200 PRINT"DATOS INICIALES:"
7220 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
7230
PRINT
7231
INPUT"enfermedad";EN$
7232
INPUT"especie(s)";SP$
7233 INPUT"tipo de focos";TF$
7234 INPUT"lugar";LU$
7235 INPUT"tiempo";TI$
7236 PRINT
7240 INPUT"numero de unidades de medicion
focales en un tiempo dado";A
7250 INPUT"numero de focos en un tiempo
dado";B
7260 INPUT"numero de unidades focales
existentes en un momento dado";C
7270 INPUT"numero de focos existentes en un
momento dado";D
7280 INPUT"numero de unidades focales
existentes en un periodo dado";E
7290 INPUT"numero de focos existentes en un
periodo dado";F
7300 INPUT"numero de focos nuevos en un periodo
dado";G
7310 INPUT"numero de focos extinguidos en un
periodo dado";H
7320 INPUT"numero de unidades de medicion de
superficie del territorio";I
7330 INPUT"numero de unidades de superficie del
territorio afectado";J
7340 INPUT"numero total de rebanos
animales";K
7350 INPUT"numero de rebanos afectados";L
7400 PRINT
7500 CLS:PRINT"RESULTADOS:":PRINT
7501 PRINT"Enfermedad: "EN$
7502 PRINT"Especie(s): "SP$
7503 PRINT"Tipo de focos: "TF$
7504 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
7510
IF B>0 AND A>0 THEN GOTO 7610
7520
IF D>0 AND C>0 THEN GOTO 7620
7530
IF F>0 AND E>0 THEN GOTO 7630
7540
IF G>0 AND E>0 THEN GOTO 7640
7550
IF H>0 AND E>0 THEN GOTO 7650
7560
IF B>0 AND I>0 THEN GOTO 7660
7570
IF J>0 AND I>0 THEN GOTO 7670
7580
IF K>0 AND L>0 THEN GOTO 7680 ELSE 7800
7600
PRINT
7610
PRINT"focalidad = ";USING"#.###";B/A:GOTO 7520
7620 PRINT"prevalencia momentanea de focos =
";USING"#.####";D/C:GOTO 7530
7630 PRINT"prevalencia de periodo de focos =
";USING"#.####";F/E:GOTO 7540
7640 PRINT"incidencia de focos =
";USING"#.####";G/E:GOTO 7550
7650 PRINT"extinccion de focos =
";USING"#.####";H/E:GOTO 7560
7660 PRINT"densidad de focos
=";USING"####.#";B/I:GOTO 7570
7670 PRINT"tasa de zonas afectadas =
";USING"#.####";J/I:GOTO 7580
7680 PRINT"tasa de rebanos afectados =
";USING"#.####";L/K
7800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o non(n)";R$
7810
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"1.8-INDICADORES DE LA
DISTRIBUCION TERRITORIAL/ESPACIAL"
8010
PRINT"======================================================="
8020 PRINT
8030 REM:Este subprograma calcula las distribuciones
promedias
8040 REM:de los fenomenos epizootiologicos como son
los animales
8050 REM:con una caracteristica epizootiologica
dada,fuentes/vectores
8060 REM:de los agentes etiologicos,etc. en la
superficie (territorio,
8070 REM:establo,etc) y espacio (volumen de
liquido,aire,tierra,etc.).
8080 REM:La segunda parte de este subprograma evalua
la estructura
8081 REM:epizootiologica de un territorio dado.
8190 INPUT"Desea calcular la distribucion
territorial/espacial de un fenomeno epizootiologico (d) o la estructura
epizootiologica del territorio (t)";R$
8195
IF R$="d" THEN GOTO 8200 ELSE 8725
8200 PRINT"DATOS INICIALES:"
8230 PRINT
8240 INPUT"fenomeno(s)
epizootiologico(s)";FE$
8250 INPUT"lugar";LU$
8260 INPUT"tiempo";TI$
8270 INPUT"unidades de medicion del
fenomeno";UM$
8280 INPUT"unidades de medicion del
superficie";SU$
8290 INPUT"unidades de medicion del
volumen";VO$
8300 PRINT
8310 INPUT"numero total de unidades del
fenomeno epizootiologico";A
8320 INPUT"numero total de unidades de medicion
del superficie";B
8330 INPUT"numero total de unidades de medicion
del volumen";C
8500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
8520
PRINT TAB(5)"Fenomeno(s) epizootiologico(s): "FE$:PRINT
8530 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
8540 PRINT"Unidades de medicion:"
8545 PRINT TAB(10)"de fenomeno(s)
epizootiologico(s): "UM$
8550 PRINT TAB(10)"de superficie : "SU$
8555
PRINT TAB(10)"de volumen : "VO$
8560
PRINT
8565
IF A>0 AND B>0 THEN GOTO 8610 ELSE 8700
8610 PRINT
8620 PRINT"Densidad promedia de "UM$"
por un "SU$
8630
PRINT TAB(50)" = ";USING"#####.##";A/B
8700
IF A>0 AND C>0 THEN GOTO 8720 ELSE 8800
8720 PRINT:PRINT"Densidad promedia de
"UM$" por un "VO$
8721
PRINT TAB(50)" = ";USING"#####.##";A/C:GOTO 8800
8725
PRINT:INPUT"lugar";LU$:INPUT"tiempo";TI$
8730 PRINT:INPUT"enfermedad(es)";EN$
8731 INPUT"numero total de km2 del territorio
evaluado";K
8732 INPUT"numero de km2 de las zonas libres de
la(s) enfermedad(es)";L
8733 INPUT"numero de km2 de las zona libres
expuestas";M
8735 INPUT"numero de km2 de las zonas
afectadas";O
8740
IF (L+O)>K THEN GOTO 8741 ELSE 8750
8741 PRINT:PRINT"Error - suma sobrepasa el
total de km2 del territorio evaluado;empieze otra vez!":GOTO 8731
8750 CLS:PRINT:PRINT"RESULTADOS:":PRINT
8751 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
8752 PRINT TAB(10)"Enfermedad(es):
"EN$:PRINT
8761 PRINT"
E s t r u c t u r a e p i z o o
t i o l o g i c a"
8762
PRINT" t e r r i t o r
i a l"
8763
PRINT:PRINT TAB(40)"km2";TAB(60)"Proporcion":PRINT
8764 PRINT"Territorio evaluado
total";TAB(40)K;TAB(60)"1.0":PRINT
8765 PRINT"Zonas libres de la(s)
enfermedad(es)";TAB(40)L;TAB(60)USING"#.###";L/K
8766 PRINT TAB(5)"Zonas libres no
expuestas";TAB(45)L-M;TAB(65)USING"#.###";(L-M)/K
8767 PRINT TAB(5)"Zonas libres
expuestas";TAB(45)M;TAB(65)USING"#.###";M/K
8768 PRINT"Zonas
indeterminadas";TAB(40)(K-L-O);TAB(60)USING"#.###";(K-L-O)/K
8769 PRINT"Zonas
afectadas";TAB(40)O;TAB(60)USING"#.###";O/K
8800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
8810
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"1.9-INDICADORES DE LA DURACION
DE LA EXISTENCIA/AUSENCIA DE UN FENOMENO EPIZOOTIOLOGICO"
9010
PRINT"================================================================================"
9020 PRINT
9030 REM:Este subprograma evalua las relaciones de
la duracion y
9040 REM:frecuencia de los periodos de la existencia
y ausencia
9050 REM:de los fenomenos epizootiologicos durante
un periodo dado.
9200 PRINT"DATOS INICIALES:"
9210 PRINT"(cuando un dato no es disponible, no
responda la pregunta)"
9220 PRINT
9221 INPUT"lugar";LU$
9222 INPUT"periodo";PE$
9223 INPUT"fenomeno epizootiologico";FE$
9224 INPUT"unidades de tiempo";UT$
9225 PRINT
9230 INPUT"duracion de existencia de un
fenomeno epizootiologico";A
9240 INPUT"duracion de ausencia de un fenomeno
epizootiologico";B
9250 INPUT"numero de periodos de existencia de
un fenom.epizoot.";C
9260 INPUT"numero de periodos de ausencia de un
fenomeno epizoot.";D
9270 INPUT"duracion de un periodo total
evaluado";E
9300
IF A+B>E THEN GOTO 9310 ELSE 9400
9310 PRINT
9320 PRINT"Error! Suma de duraciones de
existencia e de ausencia no puede ser mayor que la duracion del periodo total!
Empieze otra vez!":GOTO 9225
9400 PRINT
9410 CLS:PRINT"RESULTADOS:"
9500 PRINT
9502 PRINT"Fenomeno epizootiologico:
"FE$:PRINT
9503 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
9505 PRINT"Unidades de tiempo: "UT$:PRINT
9510
IF A>0 AND C>0 THEN GOTO 9610
9520
IF B>0 AND D>0 THEN GOTO 9620
9530
IF A>0 AND E>0 THEN GOTO 9630
9540
IF B>0 AND E>0 THEN GOTO 9640
9550
IF A>0 AND B>0 THEN GOTO 9650
9560
IF B>0 AND A>0 THEN GOTO 9660 ELSE 9800
9610 PRINT"Duracion promedia de existencia del
fen.epiz. = ";USING"###.##";A/C:GOTO 9520
9620 PRINT"Duracion promedia de ausencia del
fenom.ep. = ";USING"###.##";B/D:GOTO 9530
9630 PRINT"Proporcion temporal del fenomeno
epizoot. = ";USING"###.####";A/E:GOTO 9540
9640 PRINT"Proporcion temporal de ausencia del
fen.epiz. = ";USING"###.####";B/E:GOTO 9550
9650 PRINT"Relacion de periodos con/sin
fen.epizoot. = ";USING"###.####";A/B:GOTO 9560
9660 PRINT"Relacion de periodos sin/con
fen.epizoot. = ";USING"###.####";B/A
9800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
9810
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"1.10-ESTRUCTURA EPIZOOTIOLOGICA
DE LA POBLACION ANIMAL"
10010
PRINT"======================================================"
10020 PRINT
10030 REM:Este subprograma calcula la estructura
epizootiologica basada sobre
10040 REM:las subpoblaciones ( grupos) de animales
segun diferente
10050 REM:caracteristica epizootiologica.Se expresa
como las proporciones
10060 REM:de los numeros de diferentes
subpoblaciones (grupos) animales
10070 REM:en el total numero de animales de la
poblacion (rebano) dada.
10110 REM:Las proporciones se pueden multiplicar por
100(%) o por 1000(%o).
10200 PRINT"DATOS INICIALES:"
10210 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
10220 PRINT
10221 INPUT"lugar";LU$
10222 INPUT"tiempo";TI$
10223 INPUT"enfermedad(es)";EN$
10224 INPUT"especie(s)";SP$
10225 INPUT"categoria(s)";CA$
10230 INPUT"numero total de animales de una
poblacion dada";A
10240 INPUT"numero de animales
epizootiologicamente sanos";B
10260 INPUT"numero de animales epiz.afectados(insanos)";D
10280 INPUT"numero de animales epiz.sanos
expuestos";F
10300 INPUT"numero de animales epiz.sanos
expuestos directamente";H
10320 INPUT"numero de animales
epiz.indeterminados con sintomas";J
10340 INPUT"numero de animales
epiz.afectados(insanos) con sintomas";L
10360
IF (B+C+D)>A THEN GOTO 10380
10370
IF (E+F+I+J+K+L)>A THEN GOTO 10380 ELSE 10400
10380 PRINT:PRINT"Error - suma sobrepasa total
de animales;empieze otra vez!"
10390 GOTO 10020
10400 CLS:PRINT:PRINT"RESULTADOS:"
10410 PRINT
10411 PRINT TAB(10)"Enfermedad(es): "EN$
10412 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$
10413
PRINT"Especie(s): "SP$;TAB(40)"Categoria(s): "CA$:PRINT
10420 PRINT TAB(45)"Numero
de";TAB(60)"Proporcion"
10425
PRINT TAB(45)"animales"
10430
PRINT
10440
PRINT"Total";TAB(45)A;TAB(60)"1.00"
10450 PRINT
10460 PRINT"E s t r u c t u r a e p i z o o t i o l o g i c a :"
10490
PRINT
10510
IF B>0 THEN GOTO 10750
10520
IF (A-B-D)>0 THEN GOTO 10760
10530
IF D>0 THEN GOTO 10770
10540
IF (B-F)>0 THEN GOTO 10780
10550
IF F>0 THEN GOTO 10800
10560
IF (F-H)>0 THEN GOTO 10810
10570
IF H>0 THEN GOTO 10820
10580
IF (A-B-D-J)>0 THEN GOTO 10830
10590
IF J>0 THEN GOTO 10840
10600
IF (D-L)>0 THEN GOTO 10850
10610
IF L>0 THEN GOTO 10860 ELSE GOTO 10900
10750
PRINT"Animales epizootiologicamente
sanos";TAB(45)B;TAB(60)USING"#.####";B/A:GOTO 10520
10760
PRINT"Animales
epizoot.indeterminados";TAB(45)(A-B-D);TAB(60)USING"#.####";(A-B-D)/A:GOTO
10530
10770 PRINT"Animales
epizoot.afectados(insanos)";TAB(45)D;TAB(60)USING"#.####";D/A:GOTO
10540
10780 PRINT:PRINT"Estructura epizootiologica
detallada:":PRINT
10790 PRINT"Animales epizoot.sanos no
expuestos";TAB(45)(B-F);TAB(60)USING"#.####";(B-F)/A:GOTO 10550
10800 PRINT"Animales epiz.sanos
expuestos";TAB(45)F;TAB(60)USING"#.####";F/A:GOTO 10560
10810 PRINT TAB(5)"Anim.sanos
exp.indirectamente";TAB(48)(F-H);TAB(63)USING"#.####";(F-H)/A:GOTO
10570
10820 PRINT TAB(5)"Anim.sanos
exp.directamente";TAB(48)H;TAB(63)USING"#.####";H/A:GOTO 10580
10830 PRINT"Anim.ep.indeterminados sin
sintomas";TAB(45)(A-B-D-J);TAB(60)USING"#.####";(A-B-D-J)/A:GOTO
10590
10840 PRINT"Anim.ep.indeterminados con
sintomas";TAB(45)J;TAB(60)USING"#.####";J/A:GOTO 10600
10850 PRINT"Anim.epiz.afectados(insanos) sin
sintomas";TAB(45)(D-L);TAB(60)USING"#.####";(D-L)/A:GOTO 10610
10860 PRINT"Anim.epiz.afectados(insanos) con
sintomas";TAB(45)L;TAB(60)USING"#.####";L/A
10900 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
10910
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT programas, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
2-Indicadores de la dinámica de los procesos epizooticos
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"2-DINAMICA DE LOS PROCESOS EPIZOOTICOS
- INDICADORES SELECCIONADOS"
40
PRINT"=================================================================="
100 REM:
130 REM:Este programa consiste de 10 subprogramas
destinados al analisis
140 REM:de algunos aspectos de la dinamica de los
procesos epizooticos.
150 REM:La condicion basica la representa la
disponibilidad de los datos
160 REM:fidedignos apoyandose ante todo sobre las
investigaciones respectivas
170 REM:en el campo y en los laboratorios
diagnosticos.
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:":PRINT
510 PRINT"1-Indices comparativos d.desarrollo
de valores de fenomenos epiz."
520 PRINT"2-Valor medio del cambio del numero
de animales enfermos"
530 PRINT"3-Estacionalidad de los fenomenos
epizootiologicos"
540 PRINT"4-Indicadores de las tendencias de la
morbilidad animal"
550 PRINT"5-Indicadores del riesgo
epizootiologico"
560 PRINT"6-Estimacion: numero de
sobrevivientes segun grados de sobrevivencia"
570 PRINT"7-Estimacion: numero de
sobrevivientes segun remplazo poblacional"
580 PRINT"8-Propagacion territorial de
enfermedades infecciosas"
590 PRINT"9-Pronostico de los afectados por
enfermedad de frecuencia ciclica"
600 PRINT"10-Pronostico de enfermedad con
frecuencia ascendente/descendete":PRINT
610 PRINT"11-Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en este grupo de los
subprogramas,si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
para calcular: ",CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"2.1-INDICES COMPARATIVOS DE
DESARROLLO DE VALORES"
1010 PRINT"DE LOS FENOMENOS
EPIZOOTIOLOGICOS"
1020 PRINT"================================================="
1030 REM:Indice corrido ( de base estable) como
valor precedente utiliza
1040 REM:el primer valor para la comparacion con
todos los otros
1050 REM:valores posteriores.
1060 REM:Indice de cadena ( de base variable ) se
basa en la comparacion
1070 REM:de los valores siguientes con los
precedentes mas cercanos.
1080 REM:Los resultados se expresan en los
porcentajes,es decir
1090 REM:los valores de comparacion se multiplican
por 100.
1200 PRINT:PRINT"DATOS INICIALES:":PRINT
1201 INPUT"fenomeno epizootiologico";FE$
1202 INPUT"lugar";LU$
1203 INPUT"periodo";PE$:PRINT
1205 DIM X(100)
1220 INPUT"numero de los periodos evaluados
";N
1230 PRINT"valores de fenomenos
epizootiologicos en periodos individuales:"
1240
FOR I=1 TO N
1250
PRINT I;":"
1260 INPUT"X=";X(I)
1270
NEXT I
1490
PRINT
1500
CLS:PRINT"RESULTADOS:"
1510
PRINT
1511
PRINT TAB(5)"Fenomeno epizootiologico: "FE$:PRINT
1512
PRINT"Lugar: "LU$;TAB(40)"Periodo: "PE$:PRINT
1540
PRINT TAB(10)"Periodo";TAB(20)"datos
absolutos";TAB(40)"indice comparativo"
1541 PRINT
TAB(40)"corrido";TAB(50)"de cadena"
1545
PRINT
1550
PRINT TAB(10)1;TAB(20)X(1);TAB(40)100;TAB(50)100
1560
FOR I=2 TO N
1570
PRINT TAB(10)I;TAB(20)X(I);TAB(40)USING"####.####
";(X(I)/X(1))*100,(X(I)/X(I-1)*100)
1580
NEXT I
1600 PRINT:INPUT"Desea presentar los indices en
forma de grafico, si(s) o no(n)";G$
1610
IF G$="s"THEN GOTO 1620 ELSE 1895
1620
PRINT:PRINT"Periodo";TAB(10)"Dato";TAB(25)"I n d i c
e c o r r i d o"
1630
PRINT TAB(10)"absoluto";TAB(25)"(cada asterisco significa
10%)":PRINT
1640
PRINT" 1";TAB(10)X(1);TAB(25)"I********** (100)"
1650
FOR I=2 TO N
1660
PRINT I;TAB(10)X(I);TAB(25)"I";
1670
FOR K=1 TO (X(I)/X(1))*10
1680
PRINT"*";
1690
NEXT K
1700
PRINT
1710
NEXT I
1720
PRINT
1730
PRINT"Periodo";TAB(10)"Dato";TAB(25)"i n d i c e c o m p a r a t i v o"
1740 PRINT
TAB(10)"absoluto";TAB(25)"(cada asterisco significa
10%)":PRINT
1750
PRINT" 1";TAB(10)X(1);TAB(25)"I********** (100)"
1760
FOR I=2 TO N
1770
PRINT I;TAB(10)X(I);TAB(25)"I";
1780
FOR K=1 TO (X(I)/X(I-1))*10
1790 PRINT"*";
1800
NEXT K
1810
PRINT
1820
NEXT I
1895 ERASE X
1900 PRINT
1910 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
1920
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"2.2-VALOR MEDIO DEL CAMBIO DEL
NUMERO DE ANIMALES ENFERMOS"
2010
PRINT"=========================================================="
2030 REM:Calculos de los cambios promedios del
numero de animales enfermos
2040 REM:durante un periodo dado,es decir del
incremento o de la reduccion
2050 REM:(resultado marcado por '-') de estos
animales.
2200 PRINT:PRINT"DATOS INICIALES:"
2210 PRINT
2211 INPUT"enfermedad(es)";EN$
2212 INPUT"lugar";LU$
2213 INPUT"periodo";PE$
2214
INPUT"especie(s)";ES$
2215
INPUT"categoria(s)";CA$
2216 INPUT"unidades de medicion de
tiempo";UT$:PRINT
2220 INPUT"numero de animales enfermos
existentes al inicio del periodo ";A
2230 INPUT"numero de animales enfermos
existentes al final del periodo ";B
2240 INPUT"duracion total del periodo dado en
unidades de tiempo ";C
2250 INPUT"duracion promedia de los subperiodos
en unid.de tiempo ";D
2490 PRINT
2500 CLS:PRINT"RESULTADOS:"
2510 PRINT
2511 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
2512 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
2513 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$
2514 PRINT"Duracion promedia de los
subperiodos: "D UT$:PRINT
2515 PRINT"Diferencia absoluta =
"B-A:PRINT
2520 PRINT"El valor absoluto promedio del
cambio del numero"
2530 PRINT"de los animales enfermos durante un
subperiodo = ";INT((B-A)/(C/D)+.5)
2540 PRINT
2550 PRINT"El valor relativo promedio del
cambio del numero "
2560 PRINT"de los animales enfermos durante un
subperiodo ="
2570
PRINT TAB(50);USING"###.## %";((B-A)/(C/D))/A*100
2590 PRINT
2600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2610
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"2.3-ESTACIONALIDAD DE LOS
FENOMENOS EPIZOOTIOLOGICOS"
3010
PRINT"===================================================="
3020 REM:Este subprograma calcula las proporciones
(porcentajes)
3030 REM:de los valores de los fenomenos
epizootiologicos
3040 REM:en diferentes meses del ano evaluado.
3050 REM:Estos valores se expresan tambien en forma
grafica.
3200 PRINT:PRINT"DATOS INICIALES:"
3210 PRINT"(numero mensual de los fenomenos
epizootiologicos)"
3220 PRINT
3221 INPUT"fenomeno epizootiologico";FE$
3222 INPUT"lugar";LU$
3223 INPUT"Ano";AN$:PRINT
3230 INPUT"enero,febrero,marzo";E,F,M
3240 INPUT"abril,mayo,junio";A,Y,J
3250 INPUT"julio,agosto,septiembre";U,G,S
3260 INPUT"octubre,noviembre,diciembre";O,N,D
3270 LET T=E+F+M+A+Y+J+U+G+S+O+N+D
3490
PRINT
3500
CLS:PRINT"RESULTADOS:"
3510
PRINT
3511
PRINT TAB(5)"Fenomeno epizootiologico: "FE$:PRINT
3512
PRINT"Lugar: "LU$;TAB(40)"Ano: "AN$:PRINT
3520
PRINT"De total ";T FE$
3530 PRINT"se trata de siguientes proporciones
(porcentaje) mensulales:"
3540
PRINT
3550
PRINT"enero
-",USING"##.#### ";100*E/T
3560
PRINT"febrero
-",USING"##.#### ";100*F/T
3570
PRINT"marzo
-",USING"##.#### ";100*M/T
3580
PRINT"abril
-",USING"##.#### ";100*A/T
3590
PRINT"mayo
-",USING"##.#### ";100*Y/T
3600
PRINT"junio
-",USING"##.#### ";100*J/T
3610
PRINT"julio
-",USING"##.#### ";100*U/T
3620
PRINT"agosto
-",USING"##.#### ";100*G/T
3630
PRINT"septiembre -",USING"##.#### ";100*S/T
3640
PRINT"octubre -",USING"##.#### ";100*O/T
3650
PRINT"noviembre
-",USING"##.#### ";100*N/T
3660
PRINT"diciembre
-",USING"##.#### ";100*D/T
3690 PRINT
3695 DIM C(12)
3700 INPUT"Desea presentar la estacionalidad en
grafico, si(s) o no(n)";G$
3710
IF G$="s" THEN GOTO 3720 ELSE 3800
3720
LET C(1)=100*E/T
3721
LET C(2)=100*F/T
3722
LET C(3)=100*M/T
3723
LET C(4)=100*A/T
3724
LET C(5)=100*Y/T
3725
LET C(6)=100*J/T
3726
LET C(7)=100*U/T
3727
LET C(8)=100*G/T
3728
LET C(9)=100*S/T
3729
LET C(10)=100*O/T
3730
LET C(11)=100*N/T
3731
LET C(12)=100*D/T
3740 PRINT:PRINT"Mes:";TAB(10)"(Cada
asterisco significa un porciento)":PRINT
3750
FOR I=1 TO 12
3755
PRINT I;TAB(10);"I";
3760
FOR K=1 TO C(I)
3765
PRINT"*";
3770
NEXT K
3775
PRINT
3780
NEXT I
3790 ERASE C
3800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
3810
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"2.4-INDICADORES DE LAS
TENDENCIAS DE LA MORBILIDAD ANIMAL"
4010
PRINT"========================================================="
4030 REM:Se trata de indicadores relativos:indice
del incremento,
4040 REM:indice de la diminucion, indice de la
estabilidad,
4050 REM:indice de la inestabilidad,indice de la
reduccion y
4060 REM:indice de la conservacion de la morbilidad
animal.
4200 PRINT:PRINT"DATOS INICIALES:"
4210 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
4220 PRINT
4221 INPUT"enfermedad(es)";EN$
4222 INPUT"lugar";LU$
4223 INPUT"periodo";PE$
4224
INPUT"especie(s)";ES$
4225
INPUT"categoria(s)";CA$:PRINT
4230 INPUT"numero de animales enfermos nuevos
en el periodo dado ";A
4240 INPUT"numero de animales enfermos
extinguidos (fallecidos,trasladados) en el periodo dado ";B
4250 INPUT"numero de animales enfermos
existentes en el periodo dado ";C
4490 PRINT
4500 CLS:PRINT"RESULTADOS:"
4510 PRINT
4511 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
4512 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
4513
PRINT"Especie(s): "ES$;TAB(40)"Categoria(s): "CA$:PRINT
4520
IF A>0 AND B>0 THEN GOTO 4600 ELSE 4530
4530
IF A>0 AND C>0 THEN GOTO 4620 ELSE 4540
4540
IF B>0 AND C>0 THEN GOTO 4640 ELSE 4700
4600 PRINT"indice del incremento de la
morbilidad animal = ";USING"###.####";A/B
4610 PRINT"indice de la diminucion de la
morbilidad animal = ";USING"###.####";B/A:GOTO 4530
4620 PRINT"indice de la estabilidad de la
morbilidad animal = ";USING"###.####";C/A
4630 PRINT"indice de la inestabilidad de la
morbilidad animal = ";USING"###.####";A/C:GOTO 4540
4640 PRINT"indice de la reduccion de la
morbilidad animal = ";USING"###.####";B/C
4650 PRINT"indice de la conservacion de la
morbilidad animal = ";USING"###.####";C/B
4690 PRINT
4700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
4710
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"2.5-INDICADORES DEL RIESGO
EPIZOOTIOLOGICO"
5010
PRINT"=========================================="
5030 REM:Los indicadores se apoyan sobre las
relaciones entre los valores
5040 REM:de la morbilidad en los animales expuestos
y no expuestos,
5050 REM:entre los numeros de los animales expuestos
sanos y enfermos
5060 REM:asi como entre los numeros de los animales
no expuestos
5070 REM:sanos y enfermos.
5200 PRINT:PRINT"DATOS INICIALES:"
5220 PRINT
5221 INPUT"riesgo epizootiologico";RE$
5222 INPUT"lugar";LU$
5223 INPUT"tiempo";TI$
5224
INPUT"especie(s)";ES$
5225
INPUT"categoria(s)";CA$:PRINT
5230 INPUT"morbilidad en los animales expuestos
";A
5240 INPUT"morbilidad en los animales no
expuestos ";B
5250 INPUT"numero de animales expuestos
enfermos ";C
5260 INPUT"numero de animales expuestos sanos
";D
5270 INPUT"numero de animales no expuestos
enfermos ";E
5280 INPUT"numero de animales no expuestos
sanos ";F
5490 PRINT
5500 CLS:PRINT"RESULTADOS:"
5510 PRINT
5511 PRINT TAB(5)"Riesgo epizootiologico:
"RE$:PRINT
5512 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$
5513 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
5520
IF A>0 AND B>0 THEN 5600 ELSE 5530
5530
IF C>0 AND D>0 AND E>0 AND F>0 THEN 5630 ELSE 5700
5600 PRINT"grado del riesgo epizootiologico
relativo = ";USING"###.####";A/B
5610 PRINT"grado del riesgo epizootiologico
atribuible = ";USING"###.####";A-B
5620 PRINT"proporcion del riesgo
epizootiologico atribuible = ";USING"###.####";(A-B)/A:GOTO 5530
5630 PRINT"grado de superioridad del riesgo
epizootiologico(odds ratio) = ";USING"###.####";(C/D)/(E/F)
5690 PRINT
5700 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
5710
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"2.6-ESTIMACION DEL NUMERO DE
SOBREVIVIENTES SEGUN GRADOS"
6010 PRINT"DE SOBREVIVENCIA (despues de una
serie de periodos parciales)"
6020
PRINT"============================================================="
6040 REM:Los calculos del numero aproximado de
animales sobrevivientes
6050 REM:desde los existentes al inicio de periodo
se basan sobre
6060 REM:los multiples de los coeficientes de
probabilidad de sobrevivir
6070 REM:durante los periodos parciales
(subperiodos).
6200 PRINT:PRINT"DATOS INICIALES:"
6205 DIM X(50)
6210
PRINT
6211
INPUT"lugar";LU$
6212
INPUT"periodo";PE$
6213
INPUT"especie(s)";ES$
6214
INPUT"categoria(s)";CA$:PRINT
6220 INPUT"numero total de animales al inicio
";A
6230 INPUT"numero de los periodos parciales
(subperiodos) ";N
6235 PRINT"coeficiente de probabilidad de
sobrevivir (en forma de proporcion)"
6240
FOR I=1 TO N
6250
PRINT"durante el subperiodo";I
6260
INPUT X(I)
6270
NEXT I
6300
R=1
6310
FOR I=1 TO N
6315
R=R*X(I)
6320
NEXT I
6490
PRINT
6500 CLS:PRINT"RESULTADO:":PRINT
6505 PRINT
6506 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
6507 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
6510 PRINT"Desde el numero inicial
de";A;"animales"
6520 PRINT"despues de";N;"periodos
parciales se puede estimar"
6530 PRINT TAB(30)INT(R*A);"animales
sobrevivientes."
6540 ERASE X
6590 PRINT
6600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
6610
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"2.7-ESTIMACION DEL NUMERO DE
SOBREVIVIENTES SEGUN REMPLAZO"
7010 PRINT"POBLACIONAL(incl.de animales de una
caracteristica epizootiologica)"
7020 PRINT"==================================================================="
7050 REM:Los calculos corresponden al remplazo
regular de una poblacion
7060 REM:o rebano dados.
7070 REM:Como los animales de una caracteristica
epizootiologica dada se pueden
7080 REM:comprender los animales sanos,enfermos,resistentes,vacunados,
7090 REM:tratados,investigados,etc.
7100 REM:Los resultados es necesario comprenderlos
como orientativos.
7200 PRINT:PRINT"DATOS INICIALES:"
7205 PRINT"(duracion de remplazo debe ser mayor
que el periodo evaluado !)"
7210 PRINT
7211
INPUT"lugar";LU$
7212
INPUT"periodo";PE$
7213
INPUT"especie(s)";ES$
7214
INPUT"categoria(s)";CA$
7215 INPUT"caracteristica
epizootiologica";CE$:PRINT
7220 INPUT"numero de animales existentes al
inicio de un periodo dado ";A
7230 INPUT"duracion promedia (en dias) de
remplazo regular ";B
7240 INPUT"duracion (en dias) desde el inicio
hasta la evaluacion";C
7245 IF C>B THEN
PRINT:PRINT"Atencion!Periodo mayor que remplazo!":GOTO 7230
7250 INPUT"proporcion de animales con
caracteristica epizootiologica dada";D
7490 PRINT
7500 CLS:PRINT"RESULTADOS:"
7510 PRINT
7511 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
7512 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
7513 PRINT TAB(5)"Caracteristica
epizootiologica: "CE$:PRINT
7520 PRINT"numero de animales sobrevivientes el
periodo dado =";INT((A-A*C/B)+.5)
7530 PRINT"porcentaje de animales
sobrevivientes el periodo =";USING"###.##";((A-A*C/B)/A)*100
7535
IF D>0 THEN GOTO 7540 ELSE 7590
7540 PRINT"numero de animales con una
caracteristica epizootiologica dada sobrevividos ="
7550
PRINT TAB(50)"=";USING"#######";INT(((A-A*C/B)*D)+.5)
7590 PRINT
7600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
7610
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"2.8-PROPAGACION TERRITORIAL DE
ENFERMEDADES INFECCIOSAS"
8010
PRINT"======================================================="
8030 REM:Velocidad = division de distancia por
tiempo
8040 REM:Distancia = multiple de velocidad y de
tiempo
8050 REM:Tiempo = distancia dividida por velocidad
8060 REM:Calculo de territorio afectado supone que
se trata de propagacion
8070 REM:regular desde el foco primario en forma
circular.
8080 REM:Se trata solamente de los calculos muy
orientativos.
8200 PRINT:PRINT"DATOS INICIALES:"
8210 PRINT"(entre '0' cuando se pregunta sobre
el indicador para calcular;"
8215 PRINT"los otros datos deben ser
disponibles!)"
8220 PRINT
8221 INPUT"enfermedad(es)";EN$
8222 INPUT"lugar";LU$
8223 INPUT"periodo";PE$
8224
INPUT"especie(s)";ES$
8225
INPUT"categoria(s)";CA$
8226 INPUT"unidad de medicion de
tiempo";UT$
8227 INPUT"unidad de medicion de
distancia";UD$
8228 INPUT"unidad de medicion de superficie
teritorial";US$:PRINT
8230 INPUT"velocidad de propagacion por una
unidad de tiempo";V
8240 INPUT"distancia de propagacion en unidades
de longuitud";L
8250 INPUT"tiempo de propagacion en unidades de
tiempo";T
8260 INPUT"densidad promedia de animales por
una unidad de superficie";D
8270 PRINT
8300 CLS:PRINT"RESULTADOS:":PRINT
8310 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
8320 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
8330
PRINT"Especie(s): "ES$;TAB(40)"Categoria(s): "CA$:PRINT
8400
IF L>0 AND T>0 THEN GOTO 8520 ELSE 8410
8410
IF V>0 AND T>0 THEN GOTO 8530 ELSE 8420
8420
IF L>0 AND V>0 THEN GOTO 8540 ELSE 8430
8430
IF L>0 THEN GOTO 8550 ELSE 8440
8440
IF D>0 AND L>0 GOTO 8560 ELSE 8570
8510 PRINT
8520 PRINT"velocidad de propagacion en
"UD$" por un " UT$;" =
"USING"####.#";L/T:GOTO 8410
8530 PRINT"distancia de propagacion en
"UD$" durante ";T UT$;" =
"USING"####.#";V*T:GOTO 8420
8540 PRINT"tiempo (en "UT$ ")
necesario para propagacion hasta la distancia de";L UD$;" =
";USING"####";L/V :GOTO 8430
8550 PRINT"territorio de la zona (circular)
afectada =";INT((L*L)*3.1459); US$:GOTO 8440
8560 PRINT"numero estimado de animales en la zona afectada
=";INT(D*(L*L)*3.14159)
8570 PRINT
8600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8610
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"2.9-PRONOSTICO DE AFECTADOS POR
ENFERMEDAD DE FRECUENCIA CICLICA"
9010 PRINT"================================================================"
9040 REM:Estimacion del numero de animales enfermos
suponiendo que la curva
9050 REM:regular ciclica no va a ser influenciada en
forma significativa
9060 REM:(por ejemplo en las infecciones de
focalidad natural,de tipo
9070 REM:estacional,etc).
9080 REM:Se utiliza la formula de la sinusoidea
adaptada por el autor:
9090 REM:Y=A*SIN(BX+C)+A+MIN
9100 REM:Y=numero de animales enfermos;X=tiempo(en
dias,semanas,meses o anos)
9200 PRINT:PRINT"DATOS INICIALES:"
9210 PRINT
9211 INPUT"enfermedad(es)";EN$
9212 INPUT"lugar";LU$
9213 INPUT"periodo";PE$
9214
INPUT"especie(s)";ES$
9215
INPUT"categoria(s)";CA$
9216 INPUT"unidades de medicion de
tiempo";UT$
9220 INPUT"semialtura supuesta de la curva (del
numero de animales enfermos)";A
9230 INPUT"duracion total del periodo evaluado
(en unidades de tiempo)";P
9240 INPUT"duracion entre dos picos de la
curva(en unidades de tiempo)";V
9250 INPUT"valor minimo de la curva (del numero
de animales enfermos)";MIN
9260 INPUT"valor inicial de X (tiempo) cuando
valor Y (enfermos)=A+MIN";C
9270 D=57.2958:REM:cambio de radianos en grados
dividiendolos por coef.'D'
9280 LET B=360/V
9300 INPUT"intervalos de tiempo(X) en los
cuales se calculan los valores Y";S
9490 PRINT
9500 CLS:PRINT"RESULTADOS - pronostico del
numero de enfermos(Y) en tiempos(X):"
9510 PRINT
9511 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
9512 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
9513 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
9515 PRINT TAB(15)"Tiempo(X):","Enfermos(Y):"
9516
PRINT TAB(15)UT$:PRINT
9520
FOR I=0 TO P STEP S
9530
PRINT TAB(15)I,INT(A*SIN((I*B+C)/D)+A+MIN)
9540
NEXT I
9590
PRINT
9600
INPUT"Desea repetir este subprograma, si(s) o no(n)";R$
9610
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"2.10-PRONOSTICO DE AFECTADOS
POR ENFERMEDAD CON FRECUENCIA"
10010 PRINT"CRECIENTE/DECRECIENTE (parte de
curva regular)"
10020
PRINT"=========================================================="
10040 REM:Este subprograma calcula los numeros
estimados de los animales
10050 REM:enfermos en diferentes momentos futuros en
casos cuando la linea
10060 REM:dela frecuencia tiene una forma de curva
regular
10070 REM:entre el numero minimo y maximo -
creciente or decreciente.
10080 REM:Se utilizan las formulas de la sinusoidea
adoptadas por el autor:
10090 REM:para la curva
creciente:Y=A*SIN(BX-90)+A+MIN
10100 REM:para la curva
decreciente:Y=A*SIN(BX+90)+A+MIN
10110 REM:Y=numero de animales enfermos;X=tiempo(en
dias,semanas,meses o anos).
10200 PRINT:PRINT"DATOS INICIALES:"
10210 PRINT
10211 INPUT"enfermedad(es)";EN$
10212 INPUT"lugar";LU$
10213 INPUT"periodo";PE$
10214
INPUT"especie(s)";ES$
10215
INPUT"categoria(s)";CA$
10216 INPUT"unidades de medicion de
tiempo";UT$:PRINT
10220 INPUT"semialtura supuesta entre numeros
max/min de animales enfermos";A
10230 INPUT"duracion total del periodo
evaluado(en unidades de tiempo)";K
10240 INPUT"duracion de periodo entre numero
max y min de animales enfermos";MM
10250 D=57.2958:REM:coeficiente de conversion de
radianes en los grados
10260 LET V=2*MM
10270 B=360/V
10280 INPUT"intervalos de tiempo (X) en los
cuales se calculan los valores Y";S
10300 INPUT"Se trata de una curva ascendente
(a) o descendente (d)";C$
10310
IF C$="a" THEN GOTO 10320 ELSE 10600
10320 INPUT"valor minimo de animales enfermos
(al inicio)";MIN
10410 PRINT
10500 CLS:PRINT"RESULTADOS - pronostico del
numero de enfermos(Y) en tiempos(X):"
10510 PRINT
10511 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
10512 PRINT"Lugar: "LU$;TAB(40)"Periodo:
"PE$
10513 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
10515 PRINT
TAB(15)"Tiempo(X):","Enfermos(Y):"
10516
PRINT TAB(15)UT$:PRINT
10520
FOR I=0 TO MM STEP S
10530
PRINT TAB(15)I,INT(A*SIN((I*B-90)/D)+A+MIN)
10540
NEXT I
10550
FOR I=MM+S TO K STEP S
10560
PRINT TAB(15)I,2*A+MIN
10570 NEXT I:GOTO 10790
10600 INPUT"valor minimo del numero de animales
enfermos ";F
10610 REM:base de la curva
10620 PRINT
10630 PRINT"RESULTADOS:":PRINT
10635 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
10636 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
10637 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$
10640 PRINT
10645 PRINT
TAB(15)"Tiempo(X):","Enfermos(Y):":PRINT
10646
PRINT TAB(15) UT$:PRINT
10650
FOR I=0 TO MM STEP S
10660
PRINT TAB(15)I,INT(A*SIN((I*B+90)/D)+A+F)
10670
NEXT I
10680
FOR I=MM+S TO K STEP S
10690
PRINT TAB(15)I,F
10700
NEXT I
10790 PRINT
10800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
10810
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT programas,si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
3-Investigaciones de la situacion epizootiologica
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"3-INVESTIGACIONES DE LA SITUACION
EPIZOOTIOLOGICA"
40
PRINT"================================================="
130 REM:Este programa consiste de 8 subprogramas
dedicados
140 REM:a los aspectos seleccionados de las
investigaciones de la situacion
150 REM:epizootiologica evaluando los metodos de
diagnostico,grado de
160 REM:investigacion de la poblacion animal,los
resultados y su 170
REM:reproductibilidad y concordancia,etc.
180 REM:
500 PRINT:PRINT"M E N U DE LOS
SUBPROGRAMAS:":PRINT
510 PRINT"1-Evaluacion de la calidad del metodo
diagnostico"
520 PRINT"2-Indicadores del grado de
investigacion de poblacion animal"
530 PRINT"3-Proporciones de diferentes tipos de
diagnostico utilizados"
540 PRINT"4-Grados de evidencia y de
notificacion de enfermedades infecciosas"
550 PRINT"5-Positividad y negatividad de los
resultados de los examenes"
560 PRINT"6-Reproductibilidad (fidelidad) de
los resultados de los examenes"
570 PRINT"7-Evaluacion del ensayo
biologico-sospecha de enfermedad vesicular"
580 PRINT"8-Grado de concordancia de resultados
de metodos comparados"
590 PRINT"9-Evaluacion del efecto
protector"
600 PRINT"10-Conversion entre medidas metricas
y anglosajonas":PRINT
610 PRINT"11=Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en este grupo de los
subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
para calcular:"; CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"3.1-EVALUACION DE LA CALIDAD DEL
METODO DIAGNOSTICO"
1010
PRINT"==================================================="
1030 REM:Este subprograma evalua la detectabilidad
(sensibilidad)
1040 REM:y la especificidad del metodo diagnostico
dado asi como
1050 REM:los valores predicativos de los resultados.
1060 REM:Se apoya sobre los resultados comparativos
entre los en los animales
1070 REM:especificamente sanos y en los
especificamente enfermos.
1200 PRINT:PRINT"DATOS INICIALES:"
1210 PRINT
1215 INPUT"metodo diagnostico";MD$:PRINT
1220 INPUT"numero de resultados verdaderamente
positivos ";A
1230 INPUT"numero de resultados falsamente
positivos ";B
1240 INPUT"numero de resultados falsamente
negativos ";C
1250 INPUT"numero de resultados verdaderamente
negativos ";D
1500 CLS:PRINT:PRINT"RESULTADOS:"
1510 PRINT
1515 PRINT"Metodo diagnostico: "MD$:PRINT
1520 PRINT"valor de la
detectabilidad(sensibilidad) del metodo diagnostico = ";USING"#.####
";A/(A+C)
1530 PRINT"valor de la especificidad del metodo
diagnostico = ";USING "#.#### ";D/(D+B)
1540 PRINT"valor predicativo de los resultados
positivos = ";USING"#.#### ";A/(A+B)
1550 PRINT"valor predicativo de los resultados
negativos = ";USING"#.#### ";D/(D+C)
1590 PRINT
1600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
1610
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"3.2-INDICADORES DEL GRADO DE
INVESTIGACION DE POBLACION ANIMAL"
2010
PRINT"=============================================================="
2030 REM:Este subprograma evalua los indicadores del
grado
2040 REM:de investigacion de una poblacion animal
dada
2050 REM:apoyandose sobre el multiplo del valor de
la detectibilidad(sensitividad)"
2060 REM:del metodo diagnostico utilizado con la
proporcion de los animales
2070 REM:investigados desde el total numero de los
animales.
2080 REM:Ademas se utilizan los indicadores que
expresan la relacion
2090 REM:entre el numero de los examenes y los
animales en total asi como
2100 REM:los animales examinados.
2110 REM:Se incluye un grupo de indicadores de las
relaciones
2120 REM:entre animales examinados y animales con
las caracteristicas
2130 REM:epizootiologicas determinadas ( enfermos,en
focos, expuestos).
2200 PRINT:PRINT"DATOS INICIALES:"
2210 PRINT
2211 INPUT"lugar";LU$
2212 INPUT"tiempo";TI$
2213 INPUT"poblacion animal";PA$
2214 INPUT"metodo diagnostico";MD$:PRINT
2220 INPUT"numero total de los animales de una
poblacion dada ";A
2230 INPUT"numero total de los animales
examinados ";B
2240 INPUT"numero total de los examenes
";C
2250 INPUT"valor de la
detectabilidad(sensibilidad) del metodo diagnostico ";D
2260 INPUT"numero de los animales
especificamente enfermos ";E
2270 INPUT"numero de los animales en los focos
de enfermedades especificas ";F
2280 INPUT"numero de los animales
especificamente sanos expuestos fuera de los focos ";S
2500 CLS:PRINT:PRINT"RESULTADOS:"
2510 PRINT
2511 PRINT"Metodo diagnostico: "MD$:PRINT
2512 PRINT"Poblacion animal: "PA$:PRINT
2513 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
2520 PRINT"tasa de animales examinados =
";USING"#.#### ";B/A
2530 PRINT"porcentaje de los animales
examinados = ";USING"##.#### ";(B/A)*100
2540 PRINT"relacion examenes/animales =
";USING"###.#### ";C/A
2550 PRINT"relacion animales examinados/enfermos
= ";USING"###.#### ";B/E
2560 PRINT"relacion animales
examinados/animales en los focos = ";USING"###.#### ";B/F
2570 PRINT"relacion animales
examinados/expuestos = ";USING"###.#### ";B/(S+F-E)
2580 PRINT"relacion examenes/animales
examinados = ";USING"###.#### ";C/B
2585 PRINT
2590 PRINT"grado de investigacion de la
poblacion animal = ";USING"#.#### ";(B/A)*D
2720 PRINT
2800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"3.3-PROPORCIONES DE DIFERENTES
TIPOS DE METODOS DIAGNOSTICOS UTILIZADOS"
3010
PRINT"======================================================================="
3020 REM:Este subprograma evalua las proporciones de
diferentes metodos
3030 REM:diagnosticos utilizados en las
investigaciones epizootiologicas
3040 REM:complejas cuando se aplica mas que un
metodo.
3200 PRINT:PRINT"DATOS INICIALES:":PRINT
3210 T=0
3220 INPUT"numero de los tipos de metodos
diagnosticos utilizados";N:PRINT
3240
FOR I=1 TO N
3250
PRINT I;":"
3260 INPUT"tipo de metodo
diagnostico";M$(I)
3270 INPUT"numero de examenes";X(I)
3280
T=T+X(I)
3290
NEXT I
3500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
3540 PRINT
TAB(10)"Metodo";TAB(25)"Numero
de";TAB(40)"Proporcion";TAB(55)"Porcentaje"
3545
PRINT TAB(25)"examenes"
3550
PRINT
3560
FOR I=1 TO N
3570
PRINT TAB(10)M$(I);TAB(25)X(I);TAB(40)USING"##.#### ";X(I)/T,X(I)/T*100
3580
NEXT
3590
PRINT TAB(10)"------------------------------------------------------"
3600
PRINT
3610
PRINT TAB(10)"Total";TAB(25)T;TAB(41)"1.0000";TAB(55)"100.00"
3690 PRINT
3700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3710
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"3.4-GRADO DE EVIDENCIA Y DE
NOTIFICACION DE ENFERMEDADES INFECCIOSAS"
4010 PRINT"===================================================================="
4030 REM:Este subprograma evalua los grados de la
evidencia de los animales
4040 REM:infectados por una enfermedad especifica
dada en dependencia
4050 REM:de los tipos de los metodos investigativos.Calcula
tambien
4060 REM:el grado de la notificacion de una
enfermedad infecciosa especifica
4070 REM:dada.Se puede utilizar tambien para otros
tipos de enfermedades
4080 REM:masivas individualmente consideradas
4090 REM:o provocadas por complejos etiologicos.
4200 PRINT:PRINT"DATOS INICIALES:"
4210 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
4220 PRINT
4221 INPUT"lugar";LU$
4222 INPUT"tiempo";TI$
4223 INPUT"enfermedad";EN$:PRINT
4230 INPUT"numero total de animales
especificamente infectados ";A
4240 INPUT"numero de animales infectados
reconocidos clinicamente ";B
4250 INPUT"numero de animales infectados
reconocidos microbiologicamente ";C
4260 INPUT"numero de animales infectados
reconocidos serologicamente ";D
4270 INPUT"numero de animales infectados
reconocidos alergicamente";E
4280 INPUT"numero de animales infectados
notificados ";F
4500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
4501
PRINT TAB(10)"Enfermedad: "EN$:PRINT
4502
PRINT"Lugar: "LU$;TAB(40)"Tiempo: "TI$:PRINT
4510
IF A>0 AND B>0 THEN GOTO 4600 ELSE 4520
4520
IF A>0 AND C>0 THEN GOTO 4610 ELSE 4530
4530
IF A>0 AND D>0 THEN GOTO 4620 ELSE 4540
4540
IF A>0 AND E>0 THEN GOTO 4630 ELSE 4550
4550
IF A>0 AND F>0 THEN GOTO 4640 ELSE 4690
4600 PRINT"tasa de evidencia clinica =
";USING"#.####";B/A:GOTO 4520
4610 PRINT"tasa de evidencia microbiologica =
";USING"#.####";C/A:GOTO 4530
4620 PRINT"tasa de evidencia serologica =
";USING"#.####";D/A:GOTO 4540
4630 PRINT"tasa de evidencia alergica =
";USING"#.####";E/A:GOTO 4550
4640 PRINT:PRINT"tasa de notificacion de
"EN$" = ";USING"#.####";F/A
4690 PRINT
4700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
4710
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"3.5-POSITIVIDAD Y NEGATIVIDAD DE
LOS RESULTADOS DE LOS EXAMENES"
5010
PRINT"==============================================================="
5030 REM:Este subprograma evalua los resultados de
las investigaciones
5040 REM:de la situacion epizootiologica desde el
punto de vista
5050 REM:de la frecuencia de su positividad y
negatividad en relacion
5060 REM:con el numero de los examenes y de los
animales examinados.
5070 REM:Analogamente se pueden evaluar los
resultados en los productos
5080 REM:animales o en las muestras enviadas al
laboratorio.
5200 PRINT:PRINT"DATOS INICIALES:"
5210 PRINT"(cuando un dato no es disponible,no
responda la pregunta)":PRINT
5211 INPUT"lugar";LU$
5212 INPUT"tiempo";TI$
5213
INPUT"especie(s)";SP$
5214
INPUT"categoria(s)";CA$
5215 INPUT"examenes";EX$:PRINT
5220 INPUT"numero de animales examinados
";A
5230 INPUT"numero de animales examinados
positivos ";B
5240 INPUT"numero de animales examinados
dudosos ";C
5250 INPUT"numero de animales examinados
negativos ";D
5260 INPUT"numero de examenes de los animales
";E
5270 INPUT"numero de examenes positivos
";F
5280 INPUT"numero de examenes dudosos ";G
5290 INPUT"numero de examenes negativos
";H
5300 INPUT"numero de animales encontrados sanos
";I
5310 INPUT"numero de animales encontrados
indeterminados ";J
5320 INPUT"numero de animales encontrados
enfermos ";K
5500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
5501 PRINT TAB(10)"Examen(es): "EX$:PRINT
5502 PRINT"Especie(s):
"SP$;TAB(40)"Categoria(s): "CA$:PRINT
5503 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
5600
IF B>0 AND A>0 THEN GOTO 5700 ELSE 5610
5610
IF C>0 AND A>0 THEN GOTO 5710 ELSE 5620
5620
IF D>0 AND A>0 THEN GOTO 5720 ELSE 5630
5630
IF F>0 AND E>0 THEN GOTO 5730 ELSE 5640
5640
IF G>0 AND E>0 THEN GOTO 5740 ELSE 5650
5650
IF H>0 AND E>0 THEN GOTO 5750 ELSE 5660
5660
IF I>0 AND A>0 THEN GOTO 5760 ELSE 5670
5670
IF J>0 AND A>0 THEN GOTO 5770 ELSE 5680
5680
IF K>0 AND A>0 THEN GOTO 5780 ELSE 5790
5690 PRINT
5700 PRINT"tasa de examinados positivos =
";USING"#.####";B/A:GOTO 5610
5710 PRINT"tasa de examinados dudosos =
";USING"#.####";C/A:GOTO 5620
5720 PRINT"tasa de examinados negativos =
";USING"#.####";D/A:GOTO 5630
5730 PRINT"tasa de examenes positivos =
";USING"#.####";F/E:GOTO 5640
5740 PRINT"tasa de examenes dudosos =
";USING"#.####";G/E:GOTO 5650
5750 PRINT"tasa de examenes negativos =
";USING"#.####";H/E:GOTO 5660
5760 PRINT"tasa de examinados encontrados sanos
= ";USING"#.####";I/A:GOTO 5670
5770 PRINT"tasa de examinados encontrados
indeterminados = ";USING"#.####";J/A:GOTO 5680
5780 PRINT"tasa de examinados encontrados
enfermos = ";USING"#.####";K/A
5790 PRINT
5800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"3.6-REPRODUCTIBILIDAD
(FIDELIDAD) DE LOS RESULTADOS DE LOS EXAMENES"
6010
PRINT"==================================================================="
6030 REM:Este subprograma evalua la
reproductibilidad (fidelidad) de resultados
6040 REM:de un metodo diagnostico dado comparando
los obtenidos por diferentes
6050 REM:investigadores o laboratorios de
diagnostico investigando las mismas
6060 REM:muestras
o los mismos animales o productos animales.
6070 REM:Se trata de una comparacion simple y de
criterio basado sobre
6080 REM:el valor del coeficiente de la correlacion
intergrupal - "kappa".
6200 PRINT:PRINT"DATOS INICIALES:"
6205 PRINT"(comparacion de los resultados
obtenidos por dos investigadores - A y B)":PRINT
6206
INPUT"lugar";LU$:INPUT"tiempo";TI$
6207 INPUT"examenes";EX$
6208 INPUT"investigador A";IA$:INPUT"investigador
B";IB$
6209 PRINT
6210 INPUT"numero de los resultados: negativos
identicos en A y B ";N11
6220 INPUT"numero de resultados: dudosos en A y
negativos en B ";N12
6230 INPUT"numero de resultados: positivos en A
y negativos en B ";N13
6240 INPUT"numero de resultados: negativos en A
y dudosos en B ";N21
6250 INPUT"numero de resultados: dudosos
identicos en A y B ";N22
6260 INPUT"numero de resultados: positivos en A
y dudosos en B ";N23
6270 INPUT"numero de resultados: negativos en A
y positivos en B ";N31
6280 INPUT"numero de resultados: dudosos en A y
positivos en B ";N32
6290 INPUT"numero de resultados: positivos
identicos en A y B ";N33
6300
LET N=N11+N12+N13+N21+N22+N23+N31+N32+N33
6310
LET PO=(N11+N22+N33)/N
6320
LET N01=N11+N21+N31
6330
LET N02=N12+N22+N32
6340
LET N03=N13+N23+N33
6350
LET N10=N11+N12+N13
6360
LET N20=N21+N22+N23
6370
LET N30=N31+N32+N33
6380
LET PC=((N10*N01)+(N20*N02)+(N30*N03))/N^2
6500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
6501 PRINT TAB(10)"Examenes: "EX$:PRINT
6502 PRINT"Investigador A:
"IA$;TAB(40)"Investigador B: "IB$
6503 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
6504 PRINT
6505 PRINT"Numero total de
animales(muestras,productos) examinados =";N:PRINT
6510 PRINT"Grado de reproductividad de los
resultados (concordancia observada) = ";USING"##.##";PO
6515 PRINT"es decir en termino del porcentaje =
";USING"##.##";PO*100
6530
PRINT
6540
LET K=(PO-PC)/(1-PC)
6550 PRINT"Coeficiente de correlacion
intragrupal - kappa = ";USING"##.####";K
6555
PRINT
6560
IF PO=0 THEN GOTO 6700 ELSE 6570
6570
IF PO=1 THEN GOTO 6710 ELSE 6580
6580
IF PO=<.5 THEN GOTO 6720 ELSE 6590
6590
IF PO=<.9 THEN GOTO 6730 ELSE 6600
6600
IF PO<1 THEN GOTO 6740 ELSE 6740
6690 PRINT
6700 PRINT"Se trata de una disconformidad
absoluta.":GOTO 6800
6710 PRINT"Se trata de una conformidad
absoluta.":GOTO 6800
6720 PRINT"Se trata de una disconformidad
inadmisible.":GOTO 6800
6730 PRINT"Se trata de una disconformidad
elevada.":GOTO 6800
6740 PRINT"Se trata de una disconformidad
limitada."
6800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"3.7-EVALUACION DEL ENSAYO
BIOLOGICO EN SOSPECHA DE ENFERMEDAD VESICULAR"
7010
PRINT"======================================================================="
7030 REM:Este subprograma facilita la evaluacion del
resultado de un ensayo
7040 REM:biologico en el caso de sospecha de una
enfermedad vesicular animal.
7050 REM:Se apoya sobre las reacciones (cambios
patologicos especificos)
7060 REM:en los animales de ensayo inoculados
artificialmente por un material
7070 REM:patologico tomado desde los animales
sospechados.
7080 REM:Se utilizan los bovinos,ovinos(o
caprinos),porcinos y equinos.
7090 REM:Este ensayo,que se utiliza tambien directamente
en el campo
7100 REM:en el lugar de sospecha para dar una
respuesta provisional
7110 REM:antes de tener disponible el resultado
final de laboratorio.
7200 PRINT:PRINT"DATOS INICIALES:":PRINT
7210 PRINT"Los cambios especificos vesiculares
:determinados (s) o no (n):"
7220 INPUT"en bovinos";B$
7230 INPUT"en ovinos(caprinos)";O$
7240 INPUT"en porcinos";P$
7250 INPUT"en equinos";C$
7500 CLS:PRINT:PRINT"RESULTADO:":PRINT
7510 PRINT"Resultado del ensayo biologico segun
las especies de animales enfermos"
7520
IF B$="s"AND O$="s"AND P$="s"AND C$="n"
THEN GOTO 7600 ELSE 7530
7530
IF B$="s"AND O$="s"AND P$="s"AND C$="s"
THEN GOTO 7610 ELSE 7540
7540
IF B$="n"AND O$="n"AND P$="s"AND C$="n"
THEN GOTO 7620 ELSE 7550
7550 PRINT"es inconclusivo.":GOTO 7700
7600 PRINT"indica la presencia del virus de
fiebre aftosa":GOTO 7700
7610 PRINT"indica la presencia del virus de la
estomatitis vesicular":GOTO 7700
7620 PRINT"indica la presencia del virus de la
enfermedad vesicular de los cerdos":GOTO 7700
7700 PRINT:PRINT"En cada caso para el
diagnostico definitivo"
7710 PRINT"la investigacion virologica
particular en laboratorio es decisiva."
7720 PRINT
7960 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
7970
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"3.8-GRADO DE CONCORDANCIA DE
RESULTADOS DE METODOS COMPARADOS"
8010
PRINT"============================================================="
8020 REM:Este subprograma evalua los grados de la
concordancia
8030 REM:y la disconcordancia de los resultados de
las investigaciones
8035 REM:en los mismos animales o en las mismas
muestras
8040 REM:utilizando mas que un metodo comparando su
resultados.
8200 PRINT:PRINT"DATOS INICIALES:"
8205 PRINT"(comparacion de los resultados
obtenidos en los mismos animales"
8206 PRINT"o muestras por dos metodos - A y
B)":PRINT
8207 INPUT"investigaciones";IN$
8208 INPUT"metodo A";MA$
8209 INPUT"metodo B";MB$
8210 INPUT"numero de los resultados: negativos
identicos en A y B ";N11
8220 INPUT"numero de los resultados: dudosos en
A y negativos en B ";N12
8230 INPUT"numero de los resultados: positivos
en A y negativos en B ";N13
8240 INPUT"numero de los resultados: negativos
en A y dudosos en B ";N21
8250 INPUT"numero de los resultados: dudosos
identicos en A y B ";N22
8260 INPUT"numero de los resultados: positivos
en A y dudosos en B ";N23
8270 INPUT"numero de los resultados: negativos
en A y positivos en B ";N31
8280 INPUT"numero de los resultados: dudosos en
A y positivos en B ";N32
8290 INPUT"numero de los resultados: positivos
identicos en A y B ";N33
8300
LET N=N11+N12+N13+N21+N22+N23+N31+N32+N33
8310
LET C=(N11+N22+N33)
8500
CLS:PRINT:PRINT"RESULTADO:":PRINT
8501 PRINT TAB(10)"Investigaciones:
"IN$:PRINT
8503 PRINT"Metodo A:
"MA$;TAB(40)"Metodo B: "MB$:PRINT
8510 PRINT"Grado de concordancia de los
resultados de metodos comparados = ";USING"##.####";C/N
8515 PRINT"es decir en termino del porcentaje =
";USING"##.##";C/N*100
8800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
8810
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"3.9-EVALUACION DEL EFECTO
PROTECTOR"
9010
PRINT"==================================="
9020 PRINT
9030 REM:Este subprograma calcula el efecto
protector de la vacunacion
9040 REM:o del tratamiento profilactico.
9050 REM:Se utiliza la formula basada sobre la
relacion entre
9060 REM:la tasa de ataque entre los animales
tratados (T) y no tratados (NT):
9070 REM:ET=(NT-T)/NT*100 y se expresa en
porcentaje.
9200 PRINT"DATOS INICIALES:":PRINT
9201 INPUT"lugar";LU$
9202
INPUT"tiempo";TI$
9203
INPUT"especie(s)";SP$
9204
INPUT"categoria(s)";CA$
9210 INPUT"tipo de tratamiento";TT$
9220 INPUT"tasa de ataque entre los animales
tratados (en porcentaje) ";T
9230 INPUT"tasa de ataque entre los animales no
tratados (en porcentaje) ";NT
9500 CLS:PRINT:PRINT"RESULTADO:":PRINT
9501 PRINT TAB(5)"Tipo de tratamiento:
"TT$:PRINT
9502 PRINT"Especie(s):
"SP$;TAB(40)"Categoria(s): "CA$:PRINT
9510 PRINT"Lugar:
";LU$;TAB(40)"Tiempo: "TI$:PRINT
9520
PRINT"Efecto protector =";USING"###.##%";(NT-T)/NT*100
9530 PRINT
9800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
9810
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"3.10-CONVERSION ENTRE LAS
MEDIDAS METRICAS Y LAS ANGLOSAJONAS"
10010 PRINT"============================================================="
10020 PRINT
10100 PRINT"MENU:"
10110 PRINT"Para convertir al reves teclee el
numero del menu in forma negativa,i.e.con el simbolo de minus : - ."
10120 PRINT
10210 PRINT"1-las pulgadas en centimetros"
10220 PRINT"2-los pies en metros"
10230 PRINT"3-las yardas en metros"
10240 PRINT"4-las millas en kilometros"
10250 PRINT"5-las pintas britanicas en
litros"
10260 PRINT"6-los galones britanicos en
litros"
10270 PRINT"7-los galones americanos en
litros"
10280 PRINT"8-los busheles americanos en
litros"
10290 PRINT"9-las onzas en gramos"
10300 PRINT"10-las libras en kilogramos"
10310 PRINT"11-los grados Fahrenheit en grados
Celsius"
10320 PRINT
10400 INPUT"numero seleccionado del
menu";M
10405 PRINT
10410 INPUT"Valor de la medida para calcular su
conversion";V
10420
IF M<0 THEN GOTO 10510
10500
ON M GOTO 10600,10620,10640,10660,10680,10700,10720,10740,10760,10780,10800
10510
ON -M GOTO 10610,10630,10650,10670,10690,10710,10730,10750,10770,10790,10810
10600
X = 2.54*V:GOTO 10900
10610
X = .3937*V:GOTO 10900
10620
X = .304785*V:GOTO 10900
10630
X = 3.281*V:GOTO 10900
10640
X = .914438*V:GOTO 10900
10650
X = 1.0935368#*V:GOTO 10900
10660
X = 1.6093*V:GOTO 10900
10670
X = .6214*V:GOTO 10900
10680
X = .568*V:GOTO 10900
10690 X
= 1.76056*V:GOTO 10900
10700
X = 4.546*V:GOTO 10900
10710
X = .219974*V:GOTO 10900
10720
X = 3.785*V:GOTO 10900
10730
X = .2642*V:GOTO 10900
10740
X = 35.2383*V:GOTO 10900
10750
X = .0283782*V:GOTO 10900
10760
X = 28.349*V:GOTO 10900
10770
X = .0352746*V:GOTO 10900
10780
X = .45392*V:GOTO 10900
10790
X = 2.20463*V:GOTO 10900
10800
X = .555556*(V-32):GOTO 10900
10810
X = (1.8*V)+32
10900
CLS:PRINT:PRINT"RESULTADO:":PRINT
10910
PRINT TAB(5)"X =";USING"#######.###";X
10915 PRINT
10920 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
10930
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT programas, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
4-Consecuencias de la salud y enfermedad colectivas
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"4-CONSECUENCIAS ECONOMICAS DE LA SALUD
Y LA ENFERMEDAD COLECTIVAS"
40
PRINT"================================================================="
100 REM:
130 REM:Este programa consiste de los subprogramas
140 REM:relacionados con los metodos a utilizar para
analizar las consecuencias
150 REM:economicas de la salud colectiva y de las
enfermedades masivas
160 REM:de los animales. Se trata del analisis del
benificio de la salud
170 REM:colectiva y de las perdidas directas e
indirectas
180 REM:a causa de las enfermedades.
190 REM:
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:":PRINT
510 PRINT"1-Beneficio de salud/perdidas por
morbilidad en la produccion -I m‚todo"
520 PRINT"2-Beneficio de salud/perdidas por
morbilidad en la produccion -II m‚todo"
530 PRINT"3-Perdidas por una enfermedad
especifica segun parametros medios"
540 PRINT"4-Perdidas por muertes y decomisos de
animales enfermos"
550 PRINT"5-Perdidas por la reduccion de
utilidad (productividad) especifica"
560 PRINT"6-Perdidas por aumento de insumos
especificos en produccion animal"
570 PRINT"7-Insumos en la produccion por los
animales sanos y enfermos - I m‚todo"
580 PRINT"8-Insumos en la produccion por los
animales sanos y enfermos - II m‚todo"
590 PRINT"9-Costos de las acciones
epizootiologicas masivas"
600 PRINT"10-Perdidas economicos totales por la
morbilidad y las medidas"
610 PRINT:PRINT"11-Terminar este grupo de los
subprogramas":PRINT
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en este grupo de los
subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
: ",CH
700 ON CH GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"4.1-BENEFICIO DE SALUD
COLECTIVA/PERDIDAS POR MORBILIDAD"
1010 PRINT"EN LA PRODUCCION DE LA POBLACION
ANIMAL - I.METODO"
1020
PRINT"========================================================"
1030 PRINT
1040 REM:Este subprograma calcula el beneficio de la
salud colectiva y
1050 REM:las perdidas por las enfermedades masivas
como el multiple
1060 REM:de la diferencia entre la produccion media
de los animales
1070 REM:sanos y enfermos por el numero de los
animales sanos respectiva-
1080 REM:enfermos.
1100 REM:Como unidades de medicion se puede utilizar
cualquier indicador
1110 REM:de la productividad o reproductividad
animales.
1200 PRINT"DATOS INICIALES:"
1210 PRINT
1211 INPUT"lugar";A$
1212
INPUT"periodo";B$
1213
INPUT"especie(s)";C$
1214
INPUT"categoria(s)";D$
1215 INPUT"unidades de medicion de la
produccion";E$
1216 INPUT"unidades monetarias";F$
1217 INPUT"precio promedio de la unidad de
produccion";G
1218 PRINT
1220 INPUT"produccion promedia de los animales
sanos";A
1230 INPUT"produccion promedia de los animales
enfermos ";B
1240 INPUT"numero promedio de los animales
sanos ";C
1250 INPUT"numero promedio de los animales
enfermos ";D
1500 CLS:PRINT:PRINT"RESULTADOS:"
1510 PRINT
1511 PRINT"Lugar: "A$;TAB(40)"Periodo:
"B$
1512 PRINT"Especie(s):
"C$;TAB(40)"Categoria(s): "D$
1513 PRINT
1514
IF A>0 AND B>0 AND C>0 THEN GOTO 1520 ELSE 1515
1515
IF A>0 AND B>0 AND D>0 THEN GOTO 1530 ELSE 1590
1520 PRINT"Beneficio estimado de la salud colectiva
en la produccion animal ="
1525
PRINT,"="INT((A-B)*C);E$
1526
IF G>0! THEN GOTO 1527 ELSE 1530
1527 PRINT,,"de valor
de";INT((A-B)*C*G);F$
1528 PRINT
1530 PRINT"Perdida estimada en la produccion
animal por la morbilidad ="
1535
PRINT,"="INT((A-B)*D);E$
1536
IF G>0! THEN GOTO 1537 ELSE 1590
1537 PRINT,,"de valor
de";INT((A-B)*D*G);F$
1590 PRINT
1600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
1610
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"4.2-BENEFICIO DE SALUD COLECTIVA/PERDIDAS
POR MORBILIDAD"
2010 PRINT"EN LA PRODUCCION DE LA POBLACION
ANIMAL - II.METODO"
2020
PRINT"========================================================"
2040 REM:Este subprograma calcula el beneficio de la
salud colectiva y
2050 REM:las perdidas por la morbilidad en la
produccion animal
2060 REM:como el multiple del numero promedio de los
animales de
2070 REM:una poblacion animal dada por la diferencia
entre
2080 REM:la produccion promedia de los animales
sanos o enfermos
2090 REM:y la produccion promedia de la misma
poblacion.
2100 REM:Como unidades de medicion se puede utilizar
cualquier indicador
2110 REM:de la productividad o reproductividad
animal.
2200
PRINT:PRINT"DATOS INICIALES:"
2210
PRINT
2211
INPUT"lugar";A$
2212
INPUT"periodo";B$
2213
INPUT"especie(s)";C$
2214
INPUT"categoria(s)";D$
2215 INPUT"unidades de medicion de la
produccion";E$
2216 INPUT"unidades monetarias";F$
2217 INPUT"precio promedio de la unidad de
produccion";G
2218 PRINT
2220 INPUT"produccion promedia de la poblacion
animal ";A
2230 INPUT"produccion promedia de los animales
enfermos ";B
2240 INPUT"produccion promedia de los animales
sanos ";C
2250 INPUT"numero promedio de los animales de
la poblacion ";D
2500 CLS:PRINT:PRINT"RESULTADOS:"
2510 PRINT
2511
PRINT"Lugar:"A$;TAB(40)"Periodo:"B$
2512
PRINT"Especie(s):"C$;TAB(40)"Categoria(s):"D$
2513 PRINT
2514
IF A>0 AND B>0 AND D>0 THEN GOTO 2520 ELSE 2515
2515
IF C>0 AND A>0 AND D>0 THEN GOTO 2530 ELSE 2720
2520 PRINT"Beneficio estimado de la salud colectiva
en la produccion animal ="
2525
PRINT,"="INT((A-B)*D);E$
2526
IF G>0! THEN GOTO 2527 ELSE 2530
2527 PRINT,,"de valor
de";INT((A-B)*D*G);F$
2528 PRINT
2530 PRINT"Perdida estimada en la produccion
animal por la morbilidad ="
2535
PRINT,"="INT((C-A)*D);E$
2536
IF G>0! THEN GOTO 2537 ELSE 2720
2537 PRINT,,"de valor
de";INT((C-A)*D*G);F$
2720 PRINT
2800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"4.3-PERDIDAS POR ENFERMEDAD
ESPECIFICA SEGUN PARAMETROS MEDIOS"
3010
PRINT"============================================================"
3030 REM:Este subprograma calcula los estimados de
las perdidas provocadas
3040 REM:por una enfermedad especica dada ( o por un
grupo de las enfermedades
3050 REM:especificas dadas) utilizando los valores
promedios conocidos - estandardizados
3060 REM:(segun la literatura,analisis cientificos o
experiencias practicas).
3070 REM:El metodo se apoya sobre los valores
promedios (estandardizados)
3080 REM:conocidos de las perdidas por la mortalidad
natural especifica,
3090 REM:de las perdidas por el decomiso de los
productos animales y por
3100 REM:la reduccion del crecimiento de los
animales enfermos
3110 REM:de una especie animal dada.
3200 PRINT:PRINT"DATOS INICIALES:"
3205 PRINT"(cuando un dato no es disponible,no
responda la pregunta)"
3206 PRINT
3210 INPUT"enfermedad especifica";E$
3211 INPUT"lugar";A$
3212 INPUT"periodo";B$
3213 INPUT"especie(s)";C$
3214 INPUT"categoria(s)";D$
3216 INPUT"unidades monetarias";F$
3218 PRINT
3220 INPUT"numero de los animales existentes en
un periodo dado ";A
3230 INPUT"porcentaje real de los animales
especificamente enfermos ";M
3240 INPUT"porcentaje promedio
(estimado,estandardizado) de letalidad especifica ";L
3250 INPUT"perdida promedia
(estimada,estandardizada) en producto de un animal especificamente enfermo en
las unidades de producto (kg,litros,etc.)";P
3260 INPUT"perdida promedia (estandardizada) en
el peso vivo de un animal especificamente enfermo en kg ";I
3270 INPUT"precio promedio de un animal de la
misma especie ";PA
3280 INPUT"precio promedio de una unidad del
producto dado ";PP
3290 INPUT"precio promedio de 1 kg del peso
vivo animal ";PI
3295 CLS:PRINT:PRINT"RESULTADOS:":PRINT
3296 PRINT,"Enfermedad: "E$:PRINT
3297 PRINT"Lugar:
"A$;TAB(40)"Periodo: "B$
3298 PRINT"Especie(s):
"C$;TAB(40)"Categoria(s): "D$
3299
PRINT
3300
LET Z=INT((M*A)/100)
3310
LET Y=INT((Z*L)/100)
3320
IF A>0 AND M>0 THEN 3520 ELSE 3330
3330
IF M>0 AND L>0 THEN 3530 ELSE 3340
3340 IF
M>0 AND P>0 THEN 3540 ELSE 3350
3350
IF M>0 AND I>0 THEN 3550 ELSE 3560
3520 PRINT"numero estimado de animales
especicamente enfermos ="Z:GOTO 3330
3530 PRINT"Numero estimado de animales muertos
{fallecidos) ="Y
3531
IF PA>0! THEN GOTO 3532 ELSE 3340
3532 PRINT,,"de valor
de";INT(Y*PA);F$:GOTO 3340
3540 PRINT"Perdida de
";INT((Z-Y)*P);"unidades de producto"
3541
IF PP>0! THEN GOTO 3542 ELSE 3350
3542 PRINT,,"de valor
de";INT((Z-Y)*P*PP);F$:GOTO 3350
3550 PRINT"Perdida en el peso vivo
=";INT((Z-Y)*I);"kg"
3551
IF PI>0! THEN GOTO 3552 ELSE 3555
3552 PRINT,,"de valor
de";INT((Z-Y)*I*PI);F$
3555
PRINT
3556
IF PA=<0! AND PP=<0! AND PI=<0! THEN GOTO 3690
3560 PRINT"Perdida total estimada calculable
=";INT(Y*PA+(Z-Y)*P*PP+(Z-Y)*I*PI);F$
3570 PRINT
3580 PRINT"(Se trata solamente de perdidas
cuantificadas sin las otras como son las indirectas)"
3690 PRINT
3700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3710
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"4.4-PERDIDAS POR MUERTES Y DECOMISOS
DE ANIMALES ENFERMOS"
4010
PRINT"========================================================="
4030 REM:Este subprograma calcula las perdidas por
el fallecimiento (muerte
4040 REM:natural),sacrificio sanitario y decomiso
total despues de sacrificio
4050 REM:de los animales enfermos durante un periodo
dado.
4060 REM:La suma de los animales
fallecidos,sacrificados sanitariamente para ser destruidos
4070 REM:y totalmente decomisados se multiplica por
el peso vivo promedio de animales.
4080 REM:Este metodo calcula las perdidas directas
provocadas por
4090 REM:todas las enfermedades de una poblacion
dada o por
4100 REM:una enfermedad especifica dada durante un
periodo dado.
4200 PRINT:PRINT"DATOS INICIALES:":PRINT
4210 INPUT"enfermedad(es)";E$
4211 INPUT"lugar";A$
4212 INPUT"periodo";B$
4213
INPUT"especie(s)";C$
4214
INPUT"categoria(s)";D$
4216 INPUT"unidades monetarias";F$
4218 PRINT
4220 INPUT"numero de los animales fallecidos
(naturalmente muertos) ";M
4230 INPUT"numero de animales sanitariamente
sacrificados ";S
4240 INPUT"numero de animales sacrificados
decomisados ";D
4250 INPUT"peso vivo promedio de animales en kg
";PE
4260 INPUT"precio promedio de un kg de peso
vivo ";PR
4500 CLS:PRINT:PRINT"RESULTADOS:"
4510 PRINT
4511 PRINT,"Enfermedad(es): "E$:PRINT
4512 PRINT"Lugar:
"A$;TAB(40)"Periodo: "B$
4513
PRINT"Especie(s): ";C$;TAB(40)"Categoria(s): ";D$
4514
PRINT
4520 PRINT"Perdida total en peso vivo =
";INT((M+S+D)*PE);"kg"
4525
IF PR>0 THEN 4530 ELSE 4700
4530
PRINT,,"de valor de";INT((M+S+D)*PE*PR);F$
4690 PRINT
4700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
4710
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"4.5-PERDIDAS POR LA REDUCCION DE
UTILIDAD (PRODUCTIVIDAD)"
5010 PRINT"ESPECIFICA (en terminos de
indicadores productivos seleccionados)"
5030
PRINT"==================================================================="
5040 REM:Este subprograma calcula las perdidas
provocadas por la morbilidad
5050 REM:animal proyectandose en los valores
reducidos de los indicadores
5060 REM:especificos seleccionados de utilidad
(productividad) animal
5070 REM:sea de caracter cuantitativo o de caracter
cualitativo.
5080 REM:Las perdidas se calculan como la diferencia
entre los valores absolutos
5090 REM:en los animales sanos y en los enfermos multiplicada
por el numero
5100 REM:de los animales enfermos durante un periodo
dado.
5110 REM:Como ejemplo de los indicadores se puede
mencionar:numero de animales nacidos, destetados,cebados,sobrevividos, ganancia
de peso vivo, rendimiento,
5120 REM:carne producida, leche producida, huevos
puestos,
5130 REM:productos cualitativamente
clasificados,etc.
5200 PRINT:PRINT"DATOS INICIALES:":PRINT
5210 INPUT"enfermedad(es)";E$
5212 INPUT"lugar";A$
5213 INPUT"periodo";B$
5215
INPUT"especie(s)";C$
5216
INPUT"categoria(s)";D$
5220 INPUT"indicador productivo
seleccionado";I$
5240 INPUT"unidades de medicion del indicador
seleccionado";U$
5245 INPUT"unidades monetarias";M$
5250 INPUT"numero de animales enfermos ";N
5260 INPUT"valor promedio del indicador
seleccionado en animales sanos";S
5270 INPUT"valor promedio del indicador
seleccionado en animales enfermos";E
5280 INPUT"precio de unidad de medicion del
indicador seleccionado";P
5500 CLS:PRINT:PRINT"RESULTADOS:"
5510 PRINT
5514 PRINT,"Enfermedad(es): "E$:PRINT
5515 PRINT"Lugar:
";A$;TAB(40)"Periodo: ";B$
5516
PRINT"Especie(s): ";C$;TAB(40)"Categoria(s): ";D$
5520
LET D=S-E
5530 LET T=D*N
5535 PRINT
5540 PRINT"Diferencia en los valores promedios
de ";I$;" durante ";B$
5545 PRINT,"entre los animales sanos y enfermos
=";D U$
5550 PRINT"Perdida total estimada
=";INT(T) U$
5560
IF P>0 THEN GOTO 5600 ELSE 5800
5600 PRINT,"de valor de ";INT(T*P) M$
5690 PRINT
5800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"4.6-PERDIDAS POR AUMENTO DE
INSUMOS ESPECIFICOS EN LA PRODUCCION ANIMAL"
6010 PRINT"CAUSADO POR LA MORBILIDAD (en
terminos de indicadores seleccionados)"
6020
PRINT"======================================================================="
6040 REM:Este subprograma calcula las perdidas por
la morbilidad animal
6050 REM:proyectandose en los valores aumentados de
los indicadores especificos
6060 REM:seleccionados de los insumos necesarios
para la cria y produccion
6070 REM:de la poblaciones (rebanos) de animales.
6080 REM:Las perdidas se calculan como la diferencia
entre los valores absolutos
6090 REM:de insumos necesarios para la
cria/produccion animal con los animales enfermos y con los sanos
6100 REM:multiplicada por el numero de animales
enfermos en un periodo dado
6110 REM:Como ejemplo de los indicadores se puede
mencionar:
6120 REM:alimentos consumidos,mano de
obra,material,fondos,tiempo,espacio etc.
6121 REM:necesarios para la cria/produccion animal.
6200 PRINT:PRINT"DATOS INICIALES:":PRINT
6210 INPUT"enfermedad(es)";E$
6212 INPUT"lugar";A$
6213 INPUT"periodo";B$
6215
INPUT"especie(s)";C$
6216
INPUT"categoria(s)";D$
6220 INPUT"indicador seleccionado";I$
6240 INPUT"unidades de medicion del indicador
seleccionado";U$
6245 INPUT"unidades monetarias";M$
6250 INPUT"numero de animales enfermos ";N
6260 INPUT"valor promedio del indicador
seleccionado en animales sanos";S
6270 INPUT"valor promedio del indicador
seleccionado en animales enfermos";E
6280 INPUT"precio de unidad de medicion del
indicador seleccionado";P
6500 CLS:PRINT:PRINT"RESULTADOS:"
6510 PRINT
6514 PRINT,"Enfermedad(es): "E$:PRINT
6515 PRINT"Lugar:
"A$;TAB(40)"Periodo: "B$
6516
PRINT"Especie(s): "C$;TAB(40)"Categoria(s): "D$
6520
LET D=E-S
6530 LET T=D*N
6535 PRINT
6540 PRINT"Diferencia en los valores promedios
de ";I$;" durante ";B$
6545 PRINT,"entre los animales sanos y enfermos
=";D U$
6546 PRINT
6550 PRINT"Perdida total estimada
=";INT(T) U$
6560
IF P>0 THEN GOTO 6600 ELSE 6800
6600 PRINT,"de valor de ";INT(T*P) M$
6690 PRINT
6800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"4.7-INSUMOS EN LA PRODUCCION POR
ANIMALES SANOS Y ENFERMOS - I"
7010
PRINT"=============================================================="
7030 REM:Este subprograma calcula los
insumos(costos) necesarios
7040 REM:para una produccion animal dada por los
animales sanos
7050 REM:y por los animales enfermos indicando la
diferencia entre
7060 REM:el beneficio de la salud colectiva y las
perdidas provocadas
7070 REM:por las enfermedades animales.
7100 REM:Se utiliza el multiple de la diferencia
entre los insumos promedios
7110 REM:para la produccion de los animales sanos y
de los enfermos
7120 REM:por los numeros promedios de los animales
sanos event.enfermos
7130 REM:durante un periodo dado.
7140 REM:Como ejemplo de los tipos de insumos se
puede mencionar:
7150 REM:alimentos consumidos,manode
obra,material,fondos,tiempo,espacio,etc.
7160 REM:nacesarios para la cria/produccion animal.
7200
PRINT:PRINT"DATOS INICIALES:"
7210
PRINT
7211
INPUT"lugar";A$
7212
INPUT"periodo";B$
7213
INPUT"especie(s)";C$
7214
INPUT"categoria(s)";D$
7216 INPUT"tipo de insumo";T$
7217 INPUT"unidad de medicion de
insumo";U$
7218 INPUT"unidades monetarias";M$
7219 INPUT"precio de una unidad de
insumo";P
7220 INPUT"insumos promedios para la produccion
por los animales enfermos";A
7230 INPUT"insumos promedios para la produccion
por los animales sanos";B
7240 INPUT"numero promedio de los animales
sanos de la poblacion";C
7250 INPUT"numero promedio de los animales
enfermos de la poblacion";D
7500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
7510 PRINT TAB(5);"Tipo de insumo:
"T$:PRINT
7511 PRINT"Lugar:
";A$;TAB(40)"Periodo: ";B$
7512 PRINT"Especie(s):
";C$;TAB(40)"Categoria(s): ";D$
7513 PRINT
7520 PRINT"Beneficio estimado de insumos
menores en los animales sanos ="
7521 PRINT,"="INT((A-B)*C) U$;" de
";T$
7522 PRINT,,"de valor de";INT((A-B)*C*P)
M$
7523 PRINT
7530 PRINT"Perdida estimada por los insumos
mayores en los animales enfermos ="
7531 PRINT,"="INT((A-B)*D) U$;" de
";T$
7532 PRINT,,"de valor de";INT((A-B)*D*P)
M$
7960 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
7970
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"4.8-INSUMOS EN LA PRODUCCION POR
ANIMALES SANOS Y ENFERMOS - II"
8010
PRINT"==============================================================="
8030 REM:Este subprograma calcula el beneficio de la
salud colectiva
8040 REM:proyectandose en los insumos(costos)
menores para la produccion animal
8050 REM:y las perdidas provocadas por las
enfermedades aumentando
8060 REM:los insumos (costos ) para la produccion
animal.
8070 REM:Se utiliza el multiple de la diferencia
entre los insumos promedios
8080 REM:en la produccion de toda la poblacion
animal dada y la de los sanos eventualmente enfermos
8090 REM:por el numero promedio de todos los
animales de una poblacion dada.
8200
PRINT:PRINT"DATOS INICIALES:"
8210
PRINT
8211
INPUT"lugar";A$
8212 INPUT"periodo";B$
8213
INPUT"especie(s)";C$
8214
INPUT"categoria(s)";D$
8216 INPUT"tipo de insumo";T$
8217 INPUT"unidades de medicion de
insumo";U$
8218 INPUT"unidades monetarias";M$
8219 INPUT"precio de una unidad de
insumo";P
8220 INPUT"insumos promedios para la produccion
por los animales enfermos";A
8230 INPUT"insumos promedios para la produccion
de todos los animales";B
8240 INPUT"insumos promedios para la produccion
por los animales sanos";C
8250 INPUT"numero total promedio de los
animales de una poblacion dada";D
8500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
8510 PRINT TAB(5);"Tipo de insumo:
";T$:PRINT
8511 PRINT"Lugar:
";A$;TAB(40)"Periodo: ";B$
8512 PRINT"Especie(s):
";C$;TAB(40)"Categoria(s): ";D$
8513 PRINT
8520 PRINT"Beneficio estimado de insumos menores
en los animales sanos ="
8521 PRINT,"="INT((A-B)*D) U$;" de
";T$
8522 PRINT,,"de valor de";INT((A-B)*D*P)
M$
8523 PRINT
8530 PRINT"Perdida estimada por insumos mayores
en los animales enfermos ="
8531 PRINT,"="INT((B-C)*D) U$;" de
";T$
8532 PRINT,,"de valor de";INT((B-C)*D*P)
M$
8570 PRINT
8600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8610
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"4.9-COSTOS DE LAS ACCIONES
EPIZOOTIOLOGICAS ESPECIFICAS MASIVAS"
9010 PRINT"==============================================================="
9030 REM:Este subprograma calcula los costos totales
de las acciones
9040 REM:epizootiologicas especificas masivas como
por ejemplo de las vacunaciones,
9050 REM:de diagnostico,de tratamiento preventivo o
curativo masivos,etc.
9060 REM:Los costos totales representan la suma de
los multiplos de diferentes
9070 REM:costos promedios por una accion dada por el
numero total
9080 REM:de estas acciones.
9090 REM:(unidades fisicas se comprenden las de
volumen, de peso,etc.)
9200 PRINT:PRINT"DATOS INICIALES:":PRINT
9210 INPUT"Tipo de accion(es)";T$
9211 INPUT"lugar";A$
9212 INPUT"periodo";B$
9213 INPUT"unidades monetarias";M$
9220 INPUT"numero total de las acciones
epizootiologicas";A
9230 INPUT"dosis (consumo) promedia en unidades
fisicas del prepado para una accion";D
9240 INPUT"precio de una unidad fisica de
medicion del preparado";P
9250 INPUT"tiempo promedio necesario para una
accion en minutos (inclusive el tiempo de preparacion)";T
9260 INPUT"salario promedio horario del
personal";S
9270 INPUT"costo promedio del transporte para
una accion";R
9280 INPUT"otros costos totales para las
acciones epizootiologicas dadas";O
9490
PRINT
9500
CLS:PRINT:PRINT"RESULTADOS:"
9510 PRINT:PRINT TAB(5)"Tipo de acciones:
";T$
9511 PRINT TAB(5)"Numero de acciones:
";A:PRINT
9512 PRINT"Lugar:
";A$;TAB(40)"Periodo: ";B$
9513 PRINT
9520 PRINT"Consumo total del preparado
utilizado = ";INT(A*D);"unidades fisicas"
9530 PRINT"Costo total de preparado utilizado
=";INT(A*D*P) M$
9540 PRINT"Tiempo total consumido
=";INT(A*T/60);"horas"
9550
PRINT"Salarios totales = ";INT(A*T/60*S) M$
9560 PRINT"Costos totales del transporte =
";(A*R) M$
9565 PRINT"Otros costos = ";O M$
9570
PRINT
9580
PRINT"Costos totales = ";INT((A*D*P)+(A*T/60*S)+A*R+O) M$
9790 PRINT
9800 INPUT"Desea repetir este subprograma, si
(s) o no (n)";R$
9810
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"4.10-PERDIDAS ECONOMICAS
RELACIONADAS CON LA MORBILIDAD Y LAS MEDIDAS"
10030 PRINT"====================================================================="
10050 REM:Este subprograma calcula las perdidas
totales estimadas provocadas
10060 REM:por la morbilidad general o especifica de
la poblacion animal
10070 REM:como la suma simple de los valores totales
concretos o estimados
10080 REM:de diferentes formas de las perdidas
directas e indirectas
10090 REM:en terminos monetarios.
10100 REM:No se incluyen otras consecuencias
negativas como las biologicas,
10110 REM:ecologicas,sanitarias y sociales las cuales
son muy dificiles
10120 REM:o imposibles de cuantificar en terminos
monetarios.
10200 PRINT"DATOS INICIALES(cuando el dato no
es disponible,no responda la pregunta):"
10215 INPUT"enfermedad(es)";E$
10220 INPUT"lugar";L$
10221
INPUT"periodo";P$
10240
INPUT"especie(s)";S$
10241 INPUT"categoria(s)";C$
10260 INPUT"unidades monetarias";M$
10270 INPUT"valor total de animales
fallecidos";A
10280 INPUT"valor total de animales
sacrificados decomisados";B
10290 INPUT"valor total de productos
decomisados";C
10300 INPUT"valor total de peso vivo
perdido";D
10310 INPUT"valor total de animales no
nacidos";E
10320 INPUT"valor total de productos no
producidos";F
10330 INPUT"valor total de perdida por menor
calidad de los productos animales";G
10340 INPUT"valor total de alimentos no
convertidos en productos animales";I
10350 INPUT"valor total de perdida por
limitacion de la exportacion";J
10360 INPUT"valor total de perdida por
limitacion del comercio";K
10370 INPUT"costo de servicios veterinarios
(diagnostico,tratamiento,control,etc.)";L
10380 INPUT"costo total de material
(vacunas,medicamentos,equipamiento,etc.)";M
10390 INPUT"costo total de mano de obra no
veterinaria";N
10400 INPUT"costo total de transporte
relacionado con las medidas";O
10410 INPUT"otros costos totales relacionados
con las medidas epizootiologicas";P
10500 CLS:PRINT:PRINT"RESULTADOS:"
10510 PRINT
10520 PRINT TAB(5)"Enfermedad(es):
";E$:PRINT
10530 PRINT"Lugar:
";L$;TAB(40)"Periodo: ";P$
10540 PRINT"Especie(s):
";S$;TAB(40)"Categoria(s): ";C$
10550 PRINT
10560 PRINT"El valor monetario de las perdidas
totales (calculadas)"
10600
LET Z=INT(A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P)
10610 PRINT"se puede estimar de ser de ";Z
M$
10790 PRINT
10800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
10810 IF
R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
5-Aspectos seleccionados de los programas epizootiologicos
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"5-ASPECTOS SELECCIONADOS DE LOS
PROGRAMAS EPIZOOTIOLOGICOS"
40
PRINT"=========================================================="
100 REM:
130 REM:Este programa consiste de los subprogramas
140 REM:relacionados con los metodos a utilizar para
seleccionar enfermedades
150 REM:prioritarias,preparar y evaluar programas de
sanidad animal.
160 REM:Se trata ante todo de programas
epizootiologicos que abarcan
170 REM:los programas de prevencion en las
poblaciones animales
180 REM:de las enfermedades masivas y los programas
de reduccion,eliminacion
190 REM:y erradicacion de las mismas.
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS":PRINT
510 PRINT"1-Seleccion de enfermedades prioritarias
para los programas"
520 PRINT"2-Modelo simple de pronostico de la
morbilidad animal"
530 PRINT"3-Planificacion de la reduccion de la
morbilidad (en forma linear)"
540 PRINT"4-Planificacion de la reduccion de la
morbilidad (en forma de curva)"
550 PRINT"5-Planificacion de recuperacion de
salud especifica"
560 PRINT"6-Actividades profilacticas
(vacunaciones,tratamientos masivos)"
570 PRINT"7-Metodo de 'ruta critica' en
planificacion epizootiologica"
580 PRINT"8-Distribucion de los insumos de los programas
epizootiologicos"
590 PRINT"9-Extension de las medidas
epizootiologicas"
600 PRINT"10-Cumplimiento del programa
epizootiologico":PRINT
610 PRINT"11-Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en este grupo de los
subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma:
", CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"5.1-SELECCION DE ENFERMEDADES
PRIORITARIAS PARA LOS PROGRAMAS"
1010 PRINT"segun su importancia y factibilidad
de su solucion"
1020
PRINT"============================================================="
1040 REM:El principio se basa en la evaluacion de la
importancia
1050 REM:biologica (epizootiologica y ecologica)-B,
1060 REM:economica-(E), sanitaria-(Z) y social-(S).
1070 REM:Se toma en consideracion tambien el grado
de factibilidad
1080 REM:biologico-metodica(F) y el grado de
disponibilidad de los
1082 REM:insumos -
fondos,materiales,cuadros,etc.(D).
1085 REM:Se utilizan las escalas de diez grados
(desde 0 hasta 10).
1100 REM:Los grados evaluados se todavia multiplican
por los coeficientes
1110 REM:de la importancia general.
1120 REM:En caso de necesitar analizar mas que diez
enfermedades
1130 REM:se recomienda repetir el subprograma con
las otras enfermedades
1140 REM:para asi obtener los puntos totales de
enfermedades individuales
1150 REM:que serviran para comparacion y
determinacion
1160 REM:las de con mayor numero de puntos.
1200 CLS:PRINT:PRINT"DATOS INICIALES:"
1210 PRINT"Las escalas consisten de los grados
desde 0 hasta 10."
1220 PRINT
1221 INPUT"lugar";LU$
1222 INPUT"tiempo";TI$
1225 DIM X(50)
1230 INPUT"Numero de enfermedades incluidas en
el analisis ";N
1240
FOR I=1 TO N
1245
PRINT
1250 PRINT"enfermedad No.";I;":"
1260 INPUT"grado de importancia
biologica";B(I)
1261 INPUT"grado de importancia
economica";G(I)
1262 INPUT"grado de importancia
sanitaria";Z(I)
1263 INPUT"grado de importancia social";S(I)
1270 INPUT"grado de factibilidad";F(I)
1271 INPUT"grado de disponibilidad de los
insumos necesarios";D(I)
1280 NEXT I
1290 PRINT
1300 PRINT"Los valores del coeficiente de
importancia general son puestos en forma siguiente:"
1310 PRINT"importancia biologica = 2,economica
= 4,sanitaria = 4,social = 2."
1320 INPUT"Ud.accepta estos grados (s) o va
utilizar otros (o)";R$
1330
IF R$="s" THEN GOTO 1350 ELSE 1400
1350
LET IGB=2:LET IGE=4:LET IGZ=4:LET IGS=2:GOTO 1500
1400 PRINT"Defina los valores del coeficiente
de importancia general:"
1410
INPUT"biologica,economica,sanitaria,social";IGB,IGE,IGZ,IGS:GOTO 1500
1500 PRINT:PRINT"RESULTADOS:":PRINT
1510 PRINT"Lugar:
";LU$;TAB(40)"Tiempo: "TI$:PRINT
1520
FOR I=1 TO N
1530
SU(I)=B(I)*IGB+G(I)*IGE+Z(I)*IGZ+S(I)*IGS
1540
RES(I)=SU(I)*F(I)*D(I)
1550 PRINT"enfermedad No.";I;" ha
obtenido";RES(I);"puntos"
1560 NEXT
1570 ERASE X
1590 PRINT
1600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
1610
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"5.2-MODELO SIMPLE DE PRONOSTICO
DE LA MORBILIDAD ANIMAL"
2010
PRINT"======================================================="
2020 REM:
2030 REM:Este subprograma modela el numero de
animales enfermos en dependencia
2040 REM:de los estimados de los numeros de los
animales enfermos
2050 REM:nuevos y extinguidos durante los
subperiodos.
2060 REM:Analogamente se pueden modelar los valores
relativos, es decir
2070 REM:de la morbilidad en dependencia de los
valores de la incidencia
2080 REM:y de la extincion de los animales enfermos
durante los subperiodos.
2100 PRINT"Este subprograma puede calcular los
datos absolutos (numeros "
2110 PRINT"de animales enfermos),event.valores
relativos en terminos de la"
2120 PRINT"incidencia, extinccion y prevalencia
momentanea de los enfermos."
2130 PRINT"Es por eso se debe decidir que tipo
de valores se va modelar"
2140 PRINT"y de acuerdo de esta decicion se
entran los datos iniciales."
2200 CLS:PRINT:PRINT"DATOS INICIALES:"
2205 DIM IN(50),EX(50)
2210 PRINT
2211 INPUT"enfermedad(es)";EN$
2212 INPUT"lugar";LU$
2213 INPUT"periodo";PE$
2214
INPUT"especie(s)";ES$
2215
INPUT"categoria(s)";CA$:PRINT
2220 INPUT"numero (prevalencia ) de animales
enfermos al inicio ";AI
2230 INPUT"numero de los subperiodos
planificados";N
2235 PRINT
2240 FOR I=1 TO N
2250 PRINT"numeros estimados de animales
enfermos:nuevos(incidencia),extinguidos(extincion)"
2255 PRINT"en el
subperiodo";I;":"
2260
INPUT IN(I),EX(I)
2270
NEXT I
2500
PRINT:PRINT"RESULTADOS:"
2510 PRINT
2520 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
2521 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
2522 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
2540 PRINT TAB(10)"Valores supuestos de
animales especificamente enfermos"
2550
PRINT TAB(10)"------------------------------------------------------"
2560
PRINT:PRINT TAB(10)"Valor inicial:";AI
2570 PRINT
2580 PRINT
TAB(10)"periodo";TAB(25)"nuevos";TAB(40)"extinguidos";TAB(55)"AL
FINAL"
2585 PRINT
TAB(25)"(incidencia)";TAB(40)"(extincion)";TAB(55)"(prevalencia)"
2590
PRINT:IN=0:EX=0
2600
FOR I=1 TO N
2610
IN=IN+IN(I)
2620
EX=EX+EX(I)
2650
PRINT TAB(10)I;TAB(25)IN(I);TAB(40)EX(I);TAB(55)AI+IN-EX
2710
NEXT I
2715
ERASE IN,EX
2720 PRINT
2800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"5.3-PLANIFICACION DE LA
REDUCCION DE LA MORBILIDAD ANIMAL"
3010 PRINT"(reduccion en forma lineal)"
3020
PRINT"========================================================="
3040 REM:Este subprograma calcula los numeros de
animales enfermos para reducir
3050 REM:con el proposito de alcanzar la meta final
de morbilidad reducida.
3060 REM:Para esta finalidad son necesarios los
datos iniciales y finales.
3070 REM:Calcula tambien los valores parciales de
tiempo y de numeros reducidos
3080 REM:planificados de animales enfermos .
3200 PRINT:PRINT"DATOS INICIALES:"
3210 PRINT
3211 INPUT"enfermedad(es)";EN$
3212 INPUT"lugar";LU$
3213 INPUT"periodo";PE$
3214
INPUT"especie(s)";ES$
3215
INPUT"categoria(s)";CA$
3216 INPUT"unidad de medicion de tiempo";UT$:PRINT
3220 INPUT"numero de animales enfermos al
inicio del programa";I
3230 INPUT"numero de animales enfermos al final
del programa";F
3240 INPUT"duracion del programa - numero de
unidades de tiempo";T
3500 CLS:PRINT:PRINT"RESULTADOS:"
3510 PRINT
3511 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
3512 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
3513 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
3514 PRINT"Numero de los animales al
inicio:";I;TAB(40)"Unidad de tiempo: ";UT$:PRINT
3520 PRINT"diferencia entre numeros de los
enfermos al inicio y al final =";I-F;";"
3525 LET R=(I-F)/T
3530 PRINT"numero medio de enfermos para
reducir durante una unidad de tiempo dada =";INT(R+.5)
3600 PRINT:INPUT"Desea calcular los datos
parciales, si(s) o no(n)";R$
3610 IF
R$="s" THEN GOTO 3615 ELSE 3690
3615 PRINT
3620 INPUT"numero de unidades de tiempo de un
periodo parcial dado";P
3630 'INPUT"numero de enfermos reducido
parcialmente";N
3640 PRINT:PRINT"RESULTADOS:":PRINT
3650 PRINT"numero de los enfermos reducido
durante primeras ";P;"unidades de tiempo =";INT(P*R+.5);
3655 PRINT"es decir que todavia quedaran
cerca";INT(I-P*R+.5);"animales enfermos"
3659 PRINT
3660 'PRINT"numero de unidades de tiempo para
reducir";N;"animales enfermos
=";USING"####.#";N/R;","
3665 'PRINT"es decir que todavia
quedaran";USING"####.#";T-(N/R);"unidades de tiempo para
alcanzar la meta."
3690 PRINT
3700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3710
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"5.4-PLANIFICACION DE REDUCCION
DE LA MORBILIDAD ESPECIFICA"
4010 PRINT"DE UNA POBLACION ANIMAL DADA"
4020 PRINT"(reduccion en forma de una curva del
numero de los enfermos)"
4030
PRINT"=============================================================="
4040 PRINT
4050 REM:Este subprograma calcula los numeros
planificados de animales
4060 REM:especificamente enfermos en diferentes
momentos futuros
4070 REM:cuando se planifica la reduccion de la masa
enferma en forma
4080 REM:de una curva regular entre el numero inicial
(maximo) y el final
4090 REM:(minimo).Se trata entonces de programa de
reduccion hasta
4100 REM:la eliminacion o erradicacion eventuales de
una enfermedad
4110 REM:especifica durante el periodo del plan.
4200 PRINT"DATOS INICIALES:"
4210 PRINT
4211 INPUT"enfermedad(es)";EN$
4212 INPUT"lugar";LU$
4213 INPUT"periodo";PE$
4214
INPUT"especie(s)";ES$
4215
INPUT"categoria(s)";CA$
4216 INPUT"unidad de medicion de
tiempo";UT$:PRINT
4220 INPUT"numero de animales enfermos al
inicio del programa";MAX
4230 INPUT"numero planificado de enfermos al
final del programa";MIN
4240 INPUT"periodo planificado para alcanzar la
meta (en unidades de tiempo arriba mencionados)";MM
4250 LET A=(MAX-MIN)/2
4260 D=57.2958:REM:coeficiente de conversion de
radianos en los grados
4270 LET V=2*MM
4280 B=360/V
4290 INPUT"intervalos de tiempo para calcular
los datos parciales";S
4490
PRINT
4500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
4501 PRINT TAB(5)"Enfermedad(es):
"EN$:PRINT
4502 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
4503 PRINT"Especie(s): "ES$;TAB(40)"Categoria(s):
"CA$:PRINT
4505 PRINT"Numero de animales enfermos al
inicio: "MAX
4506 PRINT"Meta: "MIN:PRINT
4510 PRINT"Tiempo:"TAB(15)"Animales
enfermos:"
4511
PRINT UT$:PRINT
4520
FOR I=1 TO MM STEP S
4530
PRINT I;TAB(15)INT(A*SIN((I*B+90)/D)+A+MIN)
4540
NEXT I
4690
PRINT
4800
INPUT"Desea repetir este subprograma, si(s) o no(n)";R$
4810
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"5.5-PLANIFICACION DE
RECUPERACION DE SALUD ESPECIFICA "
5010 PRINT"DE UNA POBLACION ANIMAL DADA"
5020 PRINT"(incremento del numero de sanos en
forma de curva regular)"
5030
PRINT"============================================================"
5040 REM:Este subprograma calcula los numeros
planificados de los animales
5050 REM:especificamente sanos en diferentes
momentos futuros en casos
5060 REM:cuando se planifica el incremento de masa
sana en forma de una
5070 REM:curva regular entre el numero inicial
(minimo) y final (maximo).
5080 REM:Es decir se trata de programa de
erradicacion de una enfermedad
5090 REM:especifica cuando la masa especificamente
sana
5100 REM:alcanza su maximo.
5200 PRINT:PRINT"DATOS INICIALES:"
5210 PRINT
5211 INPUT"salubridad especifica";SE$
5212 INPUT"lugar";LU$
5213 INPUT"periodo";PE$
5214
INPUT"especie(s)";ES$
5215
INPUT"categoria(s)";CA$
5216 INPUT"unidad de medicion de
tiempo";UT$:PRINT
5220 INPUT"numero de animales sanos al inicio
del programa";MIN
5230 INPUT"numero planificado de sanos al final
del programa";MAX
5240 INPUT"duracion del periodo para alcanzar
la salubridad planificada";MM
5250 LET A=(MAX-MIN)/2
5260 D=57.2958:REM:coeficiente de conversion de
radianos en los grados
5270 LET V=2*MM
5280 B=360/V
5290 INPUT"intervalos de tiempo en los cuales
se calculan los numeros de animales sanos";S
5490 PRINT
5500 CLS:PRINT"RESULTADOS:":PRINT
5501 PRINT TAB(5)"Salubridad especifica:
"SE$:PRINT
5502 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
5503 PRINT"Especie(s):
"ES$;TAB(40)"Categoria(s): "CA$:PRINT
5504 PRINT"Numero de animales sanos al inicio:
"MIN
5505
PRINT"Meta: "MAX:PRINT
5510
PRINT"Tiempo:"TAB(15)"Animales sanos:"
5511
PRINT UT$:PRINT
5520
FOR I=1 TO MM STEP S
5530
PRINT I;TAB(15)INT(A*SIN((I*B-90)/D)+A+MIN)
5540
NEXT I
5690
PRINT
5800
INPUT"Desea repetir este subprograma, si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"5.6-ACTIVIDADES PROFILACTICAS
(VACUNACIONES,TRATAMIENTOS MASIVOS)"
6010
PRINT"================================================================="
6020 PRINT
6030 REM:Este subprograma evalua las relaciones del numero
de animales
6040 REM:vacunados o tratados con numeros total de
animales,el de animales
6050 REM:especificamente enfermos, el de animales en
los focos especificos
6060 REM:y el de animales en las zona amenazadas
(por ejemplo perifocales).
6070 REM:Estos indicadores expresan el valor
epizootiologico
6080 REM:de las vacunaciones o tratamientos masivos
en relaciones
6090 REM:con la situacion epizootiologica dada.
6100 REM:Siempre se debe tener en cuenta la
sobrevivencia de animales
6110 REM:vacunados despues de un periodo determinado
en dependencia
6120 REM:del remplazo de la poblacion - vea
EPIZOOT2.BAS-subprograma:7.
6130 REM:Tambien es necesario tener en cuenta la
duracion de la inmunidad
6140 REM:despues de una vacunacion especifica.
6200 PRINT"DATOS INICIALES:"
6220 PRINT
6221 INPUT"actividad profilactica";AP$
6222 INPUT"lugar";LU$
6223 INPUT"periodo";PE$
6224 INPUT"especie(s)";ES$
6225 INPUT"categoria(s)";CA$:PRINT
6230 INPUT"numero de animales de una poblacion
dada";A
6240 INPUT"numero de animales especificamente
enfermos";B
6250 INPUT"numero de animales en los focos
especificos";C
6260 INPUT"numero de animales en las zonas
amenazadas";D
6270 INPUT"numero de animales tratados";E
6280 INPUT"numero de acciones profilacticas en
un periodo dado";F
6490 PRINT
6500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
6505
PRINT TAB(5)"Actividad profilactica: "AP$:PRINT
6506
PRINT"Lugar: "LU$;TAB(40)"Periodo: "PE$
6507
PRINT"Especie(s): "ES$;TAB(40)"Categoria(s): "CA$:PRINT
6510
IF E>0 AND A>0 THEN GOTO 6610
6520
IF E>0 AND B>0 THEN GOTO 6620 ELSE 6530
6530
IF E>0 AND C>0 THEN GOTO 6630 ELSE 6540
6540
IF E>0 AND D>0 THEN GOTO 6640 ELSE 6550
6550
IF E>0 AND C>0 AND D>0 THEN GOTO 6650 ELSE 6560
6560
IF F>0 AND E>0 THEN GOTO 6660 ELSE 6800
6610 PRINT"Proporcion de animales tratados =
";USING"#.####";E/A:GOTO 6520
6620 PRINT"Relacion de numeros de
tratados/enfermos = ";USING"###.####";E/B:GOTO 6530
6630 PRINT"Relacion de numeros de
tratados/animales en focos = ";USING"###.####";E/C:GOTO 6540
6640 PRINT"Relacion de tratados/animales en
zonas amenazadas = ";USING"###.####";E/D:GOTO 6550
6650 PRINT"Relacion de tratados/animales en
focos+amenaz.=";USING"###.####";E/(C+D):GOTO 6560
6660 PRINT"Grado de repeticion de tratamientos
en un periodo =";USING"##.####";F/E:GOTO 6800
6800 PRINT:PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"5.7-METODO DE 'RUTA CRITICA' EN
PLANIFICACION EPIZOOTIOLOGICA"
7010
PRINT"============================================================="
7020 PRINT
7030 REM:Este subprograma procesa hasta 100
actividades planificadas
7040 REM:y se apoya sobre la red o la tabla
planificadoras.
7050 REM:Matriz 'A' - nudos al inicio y al final de
cada actividad
7060 REM:Matriz 'S' - el tiempo mas temprano para
iniciar cada actividad
7070 REM:Matriz 'F' - el tiempo mas tardio para
iniciar cada actividad
7080 REM:Matriz 'E' - duracion y costo de cada
actividad
7100 DIM A(100,2),E(100,2)
7200 PRINT"DATOS INICIALES:"
7210
PRINT
7211
INPUT"programa epizootiologico";PR$
7212 INPUT"lugar";LU$
7213 INPUT"periodo";PE$
7214 INPUT"unidades de medicion de
tiempo";UT$
7215 INPUT"unidades monetarias";UM$:PRINT
7220 DEF FNR(Z1)=INT(Z1*1000+.5)/1000
7230 PRINT"cuantos actividades contiene la red
o la tabla planificadoras?"
7240
INPUT N:PRINT
7250
FOR I=1 TO N
7270 PRINT"numero del nodo inicial,numero del
nodo final de la actividad";I;
7280
INPUT A(I,1),A(I,2)
7290
IF A(I,1)<A(I,2) THEN 7400
7300 PRINT"nodo inicial debe tener numero menor
que el nodo final"
7310 PRINT"y este debe ser de numero menor que
el numero de una actividad dada"
7320 PRINT"controle!"
7330 PRINT
7400 PRINT"la duracion, el costo de esta
actividad"
7410
INPUT E(I,1),E(I,2)
7420
S(I)=0
7430 F(I)=0
7440 NEXT I
7450 REM:ciclo para determinar el inicio de la red
7460
FOR I=1 TO N
7470
IF S(A(I,2))>=S(A(I,1))+E(I,1) THEN 7490
7480
S(A(I,2))=S(A(I,1))+E(I,1)
7490
NEXT I
7500 F(A(N,2))=S(A(N,2))
7510 REM:ciclo para calcular el tiempo final de la
red
7520
FOR I=N TO 1 STEP -1
7530 IF
F(A(I,1))=0 THEN 7560
7540
IF F(A(I,1))>F(A(I,2))-E(I,1) THEN 7560
7550
GOTO 7570
7560
F(A(I,1))=F(A(I,2))-E(I,1)
7570
NEXT I
7580
C(1)=0
7590
L=0
7600
CLS:PRINT:PRINT"RESULTADOS:":PRINT
7605 PRINT TAB(5)"Programa epizootiologico:
"PR$:PRINT
7606 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$
7607 PRINT"Unidades de tiempo:
"UT$;TAB(40)"Unidades monetarias: "UM$:PRINT
7610 REM:calculo de tiempo supuesto en S1
7620
PRINT"activi-";TAB(9)"nodo";TAB(17)"nodo";TAB(24)"entrada";TAB(32)"termino";TAB(42)"duracion";TAB(51)"ruta";TAB(60)"costos"
7630
PRINT"dad";TAB(9)"inicial";TAB(17)"final";TAB(42)
UT$;TAB(60) UM$
7635
PRINT
7640
FOR I=1 TO N
7650
PRINT
I;TAB(9);A(I,1);TAB(17);A(I,2);TAB(24);S(A(I,1));TAB(32);F(A(I,2));TAB(42);E(I,1);TAB(51);
7670
S1=F(A(I,2))-S(A(I,1))-E(I,1)
7680
IF S1>0 THEN 7720
7690
PRINT"critica"
7700
L=L+E(I,1)
7710
GOTO 7740
7720
PRINT S1
7730
GOTO 7740
7740
PRINT TAB(60);E(I,2)
7750
C1=C1+E(I,2)
7760
NEXT I
7770
PRINT
7780 PRINT"duracion de la ruta critica =";L UT$
7790 PRINT"costos totales de la red =";C1
UM$
7800 PRINT
7810 PRINT"Desea cambiar la duracion o los
costos de alguna actividad, si(s) o no(n)";
7820
INPUT A$
7830
IF A$="n" THEN 7955
7840
IF A$<>"s" THEN 7800
7850
PRINT
7860
PRINT"cual actividad?";
7870
INPUT I
7880 IF
I<1 THEN 7850
7890 IF I>N THEN 7850
7900 PRINT"remplazar datos de
duracion=";E(I,1);"y de costos =";E(I,2)
7905 PRINT"por datos nuevos: duracion,
costos";
7910
INPUT E(I,1),E(I,2)
7920
PRINT
7925
FOR I=1 TO N
7930
S(I)=0
7935
F(I)=0
7940 NEXT I
7950 GOTO 7450
7955 ERASE A,E
7960 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
7970
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"5.8-DISTRIBUCION DE LOS INSUMOS
DE LOS PROGRAMAS EPIZOOTIOLOGICOS"
8010 PRINT"================================================================="
8020 PRINT
8030 REM:Este subprograma calcula la distribucion
adecuada de los insumos
8040 REM:monetarios, materiales,mano de obra etc.
destinados a los programas
8050 REM:epizootiologicos, a las partes de la organizacion
veterinaria
8060 REM:respetando las proporciones del numero de
animales,
8070 REM:de las unidades veterinarias, de las
unidades de supercifie
8080 REM:territorial,etc.
8200 PRINT"DATOS INICIALES:":PRINT
8205 INPUT"programa epizootiologico";PR$
8206 INPUT"tipo de insumo";IN$
8207 INPUT"lugar";LU$
8208 INPUT"tiempo";TI$:PRINT
8210 DIM W(100)
8220 INPUT"numero (cantidad) total de los
insumos para distribuir";S2
8230 INPUT"numero de las partes entre las
cuales la cuota se debe dividir";N
8245
PRINT
8248
S1=0
8250
FOR I=1 TO N
8260 PRINT"numero de animales (o otras
unidades) en la parte";I;":"
8270
INPUT W(I)
8280
S1=S1+W(I)
8290
NEXT I
8300
CLS:PRINT:PRINT"RESULTADOS:":PRINT
8301 PRINT TAB(5)"Programa epizootiologico:
"PR$:PRINT
8302 PRINT"Tipo de insumo:
"IN$;TAB(40)"Cantidad total: "S2
8303 PRINT"Lugar:
"LU$;TAB(40)"Tiempo: "TI$:PRINT
8304 PRINT TAB(32)"DISTRIBUCION:"
8310 PRINT"Parte:","Numero
de","Porcentaje:","Cuota:"
8315 PRINT,"animales"
8316 PRINT,"(o otras "
8317
PRINT,"unidades):"
8320 PRINT
8325
P1=0:S3=0
8330
FOR I=1 TO N-1
8340
P=INT((10000*W(I)/S1+.5)/100)
8350
P1=P1+P
8360
R=INT((S2*W(I)/S1)*10^(R1)+.5)/10^(R1)
8370
S3=S3+R
8380
PRINT I,W(I),P,R
8390
NEXT I
8400
PRINT N,W(N),100-P1,S2-S3
8410
PRINT
8420
PRINT"Total",S1,"100.00",S2
8430 PRINT
8440 REM:La ultima cuota es un poco adaptada para
obtener 100.00
8570 ERASE W
8600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8610
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"5.9-EXTENSION DE LAS MEDIDAS
EPIZOOTIOLOGICAS"
9010
PRINT"==============================================="
9020 PRINT
9030 REM:Este subprograma calcula las proporciones
de los animales
9040 REM:tratados, animales, rebanos y territorios
bajo
9050 REM:las medidas epizootiologicas.
9200 PRINT"DATOS INICIALES:"
9220 PRINT
9225 INPUT"medidas epizootiologicas";ME$
9226 INPUT"lugar";LU$
9227 INPUT"tiempo";TI$:PRINT
9230 INPUT"numero total de animales ";A
9240 INPUT"numero de animales tratados ";B
9250 INPUT"numero de animales enfermos ";C
9260 INPUT"numero de animales enfermos tratados
";D
9270 INPUT"numero de animales bajo las medidas
epizootiologicas ";E
9280 INPUT"superficie del territorio evaluado
";F
9290 INPUT"superficie del territorio bajo las
medidas epizootiologicas ";G
9300 INPUT"numero total de los rebanos (fincas)
";H
9310 INPUT"numero de los rebanos(fincas) bajo
medidas epizootiologicas ";I
9320 INPUT"numero de animales en los focos de
enfermedad especifica ";J
9490
PRINT
9500
CLS:PRINT:PRINT"RESULTADOS:"
9510
PRINT
9511
PRINT TAB(5)"Medidas epizootiologicas: "ME$:PRINT
9512
PRINT"Lugar: "LU$;TAB(40)"Tiempo: "TI$:PRINT
9520
IF B>0 AND A>0 THEN GOTO 9580 ELSE 9530
9530
IF D>0 AND C>0 THEN GOTO 9590 ELSE 9540
9540
IF E>0 AND A>0 THEN GOTO 9600 ELSE 9550
9550
IF G>0 AND F>0 THEN GOTO 9610 ELSE 9560
9560
IF I>0 AND H>0 THEN GOTO 9620 ELSE 9570
9570
IF J>0 AND E>0 THEN GOTO 9630 ELSE 9790
9580 PRINT"proporcion de animales tratados =
";USING"#.####";B/A:GOTO 9530
9590 PRINT"proporcion de animales tratados
desde enfermos = ";USING"#.####";D/C:GOTO 9540
9600 PRINT"proporcion de animales bajo las
medidas epizoot. = ";USING"#.####";E/A:GOTO 9550
9610 PRINT"proporcion del territorio bajo las
medidas epizoot.= ";USING"#.####";G/F:GOTO 9560
9620 PRINT"proporcion de rebanos(fincas) bajo
medidas epizoot.= ";USING"#.####";I/H:GOTO 9570
9630 PRINT"Relacion - animales bajo
medidas/animales en focos =";USING"####.##";E/J
9790 PRINT
9800 INPUT"Desea repetir este subprograma, si
(s) o no (n)";R$
9810
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"5.10-CUMPLIMIENTO DEL PROGRAMA
EPIZOOTIOLOGICO"
10010
PRINT"=============================================="
10020 PRINT
10030 REM:Este subprograma calcula el tanto
porcentaje de cumplimiento
10040 REM:de las tareas epizootiologicas expresadas
en terminos cuantitativos
10050 REM:de los valores programados comparados con
los valores reales.
10200 PRINT"DATOS INICIALES:":PRINT
10201 PRINT"Si se trata de programas de
reduccion de la morbilidad"
10202 PRINT"o de la focalidad teclee los datos
de diferencia,"
10203 PRINT"es decir entre la situacion inicial
y final "
10204 PRINT"en forma de las parejas de valores
planificados y reales."
10205
PRINT
10210
INPUT"programa epizootiologico";PR$
10211 INPUT"lugar";LU$
10212 INPUT"periodo";PE$:PRINT
10215 DIM P(50),V(50)
10220 INPUT"numero de parejas de valores
planificados y reales";N
10230
FOR I=1 TO N
10240
PRINT"pareja ( indicador )";I;":"
10250 INPUT"valores planificados";P(I)
10260
INPUT"valores reales";V(I)
10270
NEXT I
10500
CLS:PRINT:PRINT"RESULTADOS:"
10510
PRINT
10511
PRINT TAB(5)"Programa epizootiologico: "PR$:PRINT
10512 PRINT"Lugar:
"LU$;TAB(40)"Periodo: "PE$:PRINT
10520 PRINT TAB(10)"V a l o r e
s";TAB(30)"D i f e r e n c i
a";TAB(53)"CUMPLIMIENTO":PRINT
10530
PRINT"pareja";TAB(9)"planifi-";TAB(19)"reales";TAB(30)"absoluta";TAB(41)"relativa";TAB(53)"del
programa"
10535 PRINT
TAB(10)"cados";TAB(46)"%";TAB(57)"%"
10540
PRINT
10560
FOR I=1 TO N
10570
Z(I)=((V(I)-P(I))/P(I))*100
10580
PRINT I;TAB(8)P(I);TAB(18)V(I);TAB(30)V(I)-P(I);TAB(40)USING
"######.## ";Z(I);Z(I)+100
10600
NEXT I
10790
PRINT:ERASE P,V
10800
INPUT"Desea repetir este subprograma, si(s) o no(n)";R$
10810
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
6-Muestreo para las investigaciones epizootiologicas
5 CLS
10 PRINT"EPIZOOT,version 1.0"
20 PRINT
30 PRINT"6-MUESTREO PARA LAS INVESTIGACIONES
EPIZOOTIOLOGICAS"
40 PRINT"===================================================="
100 REM:
120 REM:El muestreo en la investigacion
epizootiologica,se inicia investigando
130 REM:la poblacion animal dada representa los
procedimientos estadisticos
140 REM:para seleccionar una muestra representativa
con el proposito
150 REM:de examinar en ella las caracteristicas
determinadas de importancia
160 REM:epizootiologica,de manera que los resultados
puedan ser generalizados
170 REM:a la poblacion animal total.
180 REM:Este grupo de los subprogramas contiene solamente
los metodos
190 REM:seleccionados dando la prioridad a los que
se pueden utilizar
200 REM:al nivel poblacional, es decir para las
poblaciones animales o
210 REM:para los grandes rebanos.
220 REM:La condicion general para obtener los
resultados adecuados:
230 REM:los miembros de las muestras deben ser
seleccionados al azar.
240 REM:
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:"
505 PRINT
510 PRINT"1-Numeros aleatorios para seleccionar
animales representativos"
520 PRINT"2-Tamano de la muestra para detectar
la presencia de enfermedad"
530 PRINT"3-Muestra para calcular proporcion en
poblacion larga"
540 PRINT"4-Muestra para calcular proporcion
binom.-uso:intervalo de confianza"
550 PRINT"5-Muestra para calcular proporcion
binomial-uso:diferencia absoluta"
560 PRINT"6-Muestra para calcular la proporcion
en pequena poblacion"
570 PRINT"7-Muestra para detectar diferencia
entre dos proporciones"
580 PRINT"8-Muestra para media
aritmetica/desvio estandar-intervalo de conf."
590 PRINT"9-Muestra para calcular media
aritmetica-uso de diferencia absoluta"
600 PRINT"10-Muestreo estratificado":PRINT
610 PRINT"11=Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en los calculos de
este grupo de subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
para calcular: ",CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"6.1-NUMEROS ALEATORIOS PARA SELECCIONAR
ANIMALES REPRESENTATIVOS"
1010
PRINT"================================================================"
1020 PRINT
1030 REM:Este subprograma produce los numeros para
el muestreo
1040 REM:al azar cuando cada animal de una poblacion
dada
1050 REM:tiene la misma probabilidad de ser elegido
al azar en la muestra.
1060 REM:Se debe primaremente definir el tamano de
la muestra ( numero minimo
1070 REM:necesario para representar la poblacion) o
la cantidad de los numeros
1080 REM:aleartorios y definir el rango de los
valores de estos numeros.
1190 REM:
1200 PRINT"DATOS INICIALES:"
1220 INPUT"numero necesario de los numeros
aleatorios";N
1230 INPUT"rango de los numeros aleatorios
(1-?)";R
1500
CLS:PRINT:PRINT"RESULTADOS:"
1510
PRINT
1520
FOR X=1 TO N
1530 PRINT
INT(RND(1)*R)+1;
1540
NEXT X
1590 PRINT
1600 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
1610
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"6.2-TAMANO DE LA MUESTRA PARA
DETECTAR LA PRESENCIA DE ENFERMEDAD"
2010 PRINT"================================================================="
2030 REM:Este subprograma consiste de dos metodos
que calculan
2040 REM:los numeros minimos de los animales
investigados para poder
2050 REM:detectar por lo minimo un caso de una enfermedad
dada
2060 REM:existente en una poblacion dada.
2070 REM:El primero subprograma se apoya sobre el
metodo descrito en
2080
REM:Cannon,R.,Roe,R.T.:"Livestock disease surveys",Canberra,1982.
2090 REM:Se utilizan como los datos iniciales:numero
total de los animales(N),
2100 REM:proporcion supuesta de animales enfermos(P)
y el nivel de confianza(A)
2110 REM:Se utiliza la formula: n =
(1-(1-A)^1/D*(N-D/2)+1 .
2115 REM:
2120 REM:El segundo subprograma se apoya sobre el
metodo descrito en
2130
REM:Giacomo,Koepsall:"Sampling for detection of infection or disease
2140
REM:in animal population".JAVMA,1986,22-23.
2150 REM:Este metodo se utiliza para las poblaciones
mayores de 10000 animales.
2160 REM:Se utilizan como los datos iniciales:el
nivel de confianza(A)
2170 REM:y la proporcion supuesta de animales
enfermos(P).
2180 REM:Se utiliza la formula: n =
LOG(1-A)/LOG(1-P).
2190 REM:
2200 PRINT:PRINT"DATOS INICIALES:"
2205 PRINT"(cuando numero de animales es mayor
de 10000 y no se conoce,teclee '0' )":PRINT
2210 INPUT"numero total de animales de una
poblacion dada ";N
2220 INPUT"proporcion supuesta de animales
enfermos en la poblacion";P
2230 INPUT"nivel de la confianza para que se
detecte por lo minimo un caso de una
enfermedad dada(.9, .95, .99,etc.)";A
2500
CLS:PRINT:PRINT"RESULTADO:":PRINT
2505
IF N>0 THEN GOTO 2510 ELSE 2555
2510
LET D=N*P
2520
LET Z=1/D
2530
LET X=(1-(1-A)^Z)
2540
LET Y=N-(D/2)
2550
LET T=X*Y+1:GOTO 2560
2555
LET T=LOG(1-A)/LOG(1-P)
2560 PRINT"El tamano minimo de la muestra para
detectar"
2570 PRINT"la presencia de una enfermedad dada
= ";INT(T+.5)
2720 PRINT
2800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"6.3-TAMANO DE LA MUESTRA PARA
CALCULAR LA PROPORCION EN UNA POBLACION LARGA
3010
PRINT"==========================================================================="
3015 PRINT"(caso binomial - utilizando el
criterio de desvio estandar)"
3030
REM:Segun Jenicek,M.,et Cleroux,R.:"Epidemiologie,principes,techniques,
3040 REM:applications",Quebec,1982.
3050 REM:Este subprograma se apoya sobre el valor
tolerable del desvio
3060 REM:estandard(D).Si hay a priori la idea sobre
la proporcion(P) de la enfermedad
3070 REM:en la poblacion el tamano minimo para
obtener los resultados
3080 REM:representativos es menor que en el caso
opuesto.
3090
REM:Formulas: n=(P*(1-P))/D^2; n=1/4*D^2.
3100 REM:Formula similar para el porcentaje
(prevalencia) en Putt,S.H.N.et col.(1987):
3110
REM:'Veterinary Epidemiology and Economics in Africa',ILCA,p.34:
3120 REM:Cuando no se conoce el numero total de
animales:
3130 REM:
n=P*(100-P)/(E^2
3140 REM:Cuando se conoce el numero total de
animales:
3150 REM:
n=(P*(100-P)/(E^2+P(100-P)/N))
3160 REM:Se utilizan datos en forma de porcientos, no
proporciones como en el primer caso.
3190 REM:
3200 PRINT:PRINT"DATOS INICIALES:"
3205 PRINT"(proporcion i.e. 0.... y no como
porcentaje)":PRINT
3210 INPUT"valor tolerado maximo del desvio
estandar de la proporcion (del error estandardizado de la proporcion
vera)";D
3220 INPUT"hay (s) o no hay (n) la idea a
priori sobre la proporcion ";R$
3230
IF R$="n" THEN GOTO 3530
3240 INPUT"proporcion supuesta ";P
3500 CLS:PRINT:PRINT"RESULTADO:":PRINT
3510 PRINT"Tamano minimo de la muestra para
calcular"
3520 PRINT"la proporcion
=";INT((P*(1-P))/(D^2)+.5):GOTO 3690
3530 PRINT:PRINT"RESULTADO:":PRINT
3540 PRINT"El tamano minimo de la muestra para
calcular"
3550 PRINT"la proporcion
=";INT(1/(4*D^2)+.5)
3690 PRINT
3700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3710
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"6.4-TAMANO DE LA MUESTRA PARA
CALCULAR LA PROPORCION (CASO BINOMIAL) UTILIZANDO EL CRITERIO DEL INTERVALO DE
CONFIANZA"
4010
PRINT"=============================================================================="
4030
REM:Segun Jenicek,M.,et Cleroux,R.(1982).
4040 REM:Este subprograma se apoya sobre el valor
del intervalo de confianza(L)
4050 REM:y el valor critico del coeficiente de
confianza (Y).
4060 REM:Conocimiento sobre la proporcion
aproximada(P) de los enfermos basado
4070 REM sobre experiencias previas o resultados de
experimentos orientativos
4080 REM:disminuye el numero necesario de los
animales para investigar.
4090 REM:Formulas: n=(4*(Y^2)*P*(1-P))/L^2;
n=Y^2/L^2 .
4190 REM:
4200 PRINT"DATOS INICIALES:"
4205 PRINT"(proporcion i.e. 0... y no como
porcentaje)":PRINT
4210 INPUT"valor critico del coeficiente de
confianza (1.65 para 10% de probabilidad
de error; 1.96 para 5%; 2.58 para 1%;etc.) ";Y
4220 INPUT"valor del intervalo de confianza
";L
4230 INPUT"hay (s) o no hay (n) la idea a
priori sobre la proporcion ";R$
4240
IF R$="n" THEN GOTO 4530
4250 INPUT"proporcion aproximada ";P
4500 PRINT:PRINT"RESULTADOS:":PRINT
4510 PRINT"Tamano minimo de la muestra para
calcular"
4520 PRINT"la proporcion
=";INT((4*(Y^2)*P*(1-P))/(L^2)+.5):GOTO 4690
4530 CLS:PRINT:PRINT"RESULTADO:":PRINT
4540 PRINT"Tamano minimo de la muestra para
calcular"
4550 PRINT"la proporcion
=";INT((Y^2)/(L^2)+.5)
4690 PRINT
4800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
4810
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"6.5-TAMANO DE LA MUESTRA PARA
ESTIMAR LA PROPORCION (CASO BINOMIAL) UTILIZANDO EL CRITERIO DE LA DIFERENCIA
ABSOLUTA"
5010
PRINT"=================================================================================="
5030
REM:Segun Jenicek,M.,et Cleroux,R.(1982).
5040 REM:Este subprograma se apoya sobre el valor de
la diferencia absoluta (C)
5050 REM:entre la estimacion y el parametro al
estimar
5060 REM:y sobre el valor critico del coeficiente de
confianza (Y).
5070 REM:Conocimiento sobre la proporcion aproximada
(P) de los enfermos
5080 REM:disminuye el numero necesario de los
animales para investigar.
5090 REM:Formulas: n=(Y^2)*P*(1-P)/C^2;
n=(Y^2)/4*(C^2)
5190 REM:
5200 PRINT"DATOS INICIALES:"
5205 PRINT"(proporcion, i.e. 0.... y no como
porcentaje)":PRINT
5210 INPUT"valor critico del coeficiente de
confianza (1.65 para 10% de probabilidad
de error; 1.96 para 5%; 2.58 para 1%; etc.) ";Y
5220 INPUT"diferencia tolerable entre
proporcion estimada y la vera ";C
5230 INPUT"hay (s) o no hay (n) la idea a
priori sobre la proporcion ";R$
5240
IF R$="n" THEN GOTO 5530
5250 INPUT"proporcion supuesta ";P
5490 PRINT
5500 CLS:PRINT:PRINT"RESULTADO:":PRINT
5510 PRINT"Tamano minimo de la muestra para
calcular la proporcion";
5520 PRINT"
=";INT(((Y^2)*P*(1-P))/(C^2)+.5):GOTO 5690
5530 PRINT:PRINT"RESULTADO:":PRINT
5540 PRINT"Tamano minimo de la muestra para
calcular";
5550 PRINT"la proporcion =";INT((Y^2)/(4*(C^2))+.5)
5690 PRINT
5800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"6.6-TAMANO DE LA MUESTRA PARA
ESTIMAR LA PROPORCION EN PEQUENA POBLACION"
6010
PRINT"========================================================================"
6020 REM:Este subprograma calcula el tamano
necesario minimo de la muestra
6025 REM:para estimar la proporcion en una pequena
poblacion conocida.
6030 REM:Se apoya sobre el valor de la diferencia
absoluta(C)
6040 REM:entre la estimacion y el parametro al
estimar
6050 REM:y sobre el valor critico del coeficiente de
confianza(Y).
6060 REM:Formulas basicas: n8=(Y^2)*P*(1-P)/C^2;
n8=(Y^2)/4*(C^2)
6070 REM:corregidas por: 1/n=1/n8+1/N
6080 REM:(n8=tamano minimo de la muestra para una
poblacion infinita)
6090 REM:Atencion, se utilizan las proporciones y no
los porcentajes!
6190 REM:
6200 PRINT:PRINT"DATOS INICIALES:
6201 PRINT"(proporcion,i.e. 0....y no como
porcentaje)":PRINT
6205 INPUT"numero de animales en la
poblacion";N
6210 INPUT"valor critico del coeficiente de
confianza (1.65 para 10% de probabilidad de
error; 1.96 para 5%; 2.58 para 1%; etc.)";Y
6220 INPUT"diferencia tolerable maxima entre
proporcion estimada y vera ";C
6230 INPUT"hay (s) yo no hay (n) la idea a
priori sobre la proporcion ";R$
6240
IF R$="s" THEN GOTO 6250 ELSE 6530
6250
INPUT"proporcion supuesta ";P
6500
CLS:PRINT:PRINT"RESULTADO:":PRINT
6505
LET A=((Y^2)*P*(1-P))/(C^2)
6506
LET B=1/A+1/N
6510 PRINT"Tamano minimo de la muestra para
calcular la proporcion"
6520 PRINT"de los animales enfermos
=";INT(1/B):GOTO 6690
6530
PRINT:PRINT"RESULTADO:":PRINT
6535
LET C=(Y^2)/(4*(C^2))
6536 LET D=1/C+1/N
6540 PRINT"Tamano minimo de la muestra para
calcular la proporcion"
6550 PRINT"de los animales enfermos
=";INT(1/D)
6690 PRINT
6800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"6.7-TAMANO DE LA MUESTRA PARA
DETECTAR LA DIFERENCIA ENTRE DOS PROPORCIONES"
7010 PRINT"==========================================================================="
7030 REM:Este subprograma calcula el tamano minimo
de la muestra necesario
7040 REM:para detectar la diferencia entre las
proporciones de dos poblaciones
7050 REM:grandes (numeros infinitos).
7060 REM:Se utiliza el metodo descrito en
Putt.S.N.H. y col."Veterinary
7070
REM:Epidemiology and Economics in Africa",ILCA Manual,No 3,1987,p 59.
7080 REM:Los datos iniciales son: el valor vero de
la primera proporcion (P1),
7090 REM:el valor vera de la segunda proporcion
(P2),
7100 REM:el valor critico del coeficiente de la
confianza (C1) y
7110 REM:el valor critico correspondiente al error
tolerable
7120 REM:para detectar la diferencia (C2).
7190 REM:
7200 PRINT:PRINT"DATOS INICIALES:"
7205 PRINT"(proporcion.i.e. 0.... y no como
porcentaje)":PRINT
7210 INPUT"valor de la proporcion en la primera
poblacion";P1
7220 INPUT"valor de la proporcion en la segunda
poblacion";P2
7230 INPUT"limites criticos de la desviacion tipica
- valor critico del coeficiente de confianza (hipotesis 'two-sided': 1.65 para
10% de probabilidad de error; 1.96 para 5%; 2.58 para 1%;, etc.)";C1
7240 INPUT"valor critico correspondiente al
error tolerable para detectar la diferencia (hipotesis 'one-sided' :1.28 para
10%; 1.64 para 5%; 2.33 para 1%;etc.";C2
7500
CLS:PRINT:PRINT"RESULTADO:":PRINT
7510
LET P=(P1+P2)/2
7520
LET A=2*P*(1-P)
7530
LET B=P1*(1-P)+P2*(1-P2)
7540
LET C=(P2-P1)^2
7550
LET D=C1*SQR(A)
7560
LET E=C2*SQR(B)
7570 LET T=((D+E)^2)/C
7600 PRINT"Para cada poblacion el tamano minimo
de la muestra a detectar"
7610 PRINT"la diferencia entre dos proporciones
= "INT(T+.5)
7620 PRINT"es decir en total =
"INT(T+.5)*2
7960 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
7970
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"6.8-TAMANO DE LA MUESTRA PARA
ESTIMAR LA MEDIA ARITMETICA UTILIZANDO DESVIO ESTANDARD O CRITERIO DEL
INTERVALO DE CONFIANZA"
8010
PRINT"================================================================================="
8030
REM:Segun Jenicek,M. et Cleroux,R.(1982):Epidemiologie,Quebec,p.139
8031 REM:Formula utilizando el desvio
estandard:n=(B^2)/D^2);
8032 REM:
B-desviacion tipica absoluta del conjunto basal (total poblacion)
8033 REM:
D-valor tolerable del desvio estandar (error medio)
8040 REM:Formula utilizando el intervalo de
confianza:n=(4*(Y^2)*(S^2)/(L^2))
8041 REM:
Y-valor critico del coeficiente de confianza
8042 REM:
S-desviacion tipica del conjunto muestral
8043 REM:
L-valor del intervalo de confianza
8190 REM:
8200 PRINT:PRINT"DATOS INICIALES:":PRINT
8205 INPUT"se va utilizar el desvio estandar
(s) o el intervalo de confianza (n)";Z$
8206
IF Z$="s" THEN GOTO 8209 ELSE 8229
8209 PRINT
8210 INPUT"valor tolerable del desvio estandard
(error medio) ";D
8220 INPUT"desviacion tipica absoluta del
conjunto basal (total poblacional) ";B:GOTO 8500
8229 PRINT
8230 INPUT"valor critico del coeficiente de
confianza (1.65 para 10% de probabilidad
de error; 1.96 para 5%; 2.58 para 1%;etc.) ";Y
8240 INPUT"valor del intervalo de confianza
";L
8250 INPUT"desviacion tipica del conjunto
muestral ";S
8251
LET D=0:LET B=0
8500
CLS:PRINT:PRINT"RESULTADO:":PRINT
8501
IF D>0 AND B>0 THEN GOTO 8502 ELSE 8509
8502
LET T= (B^2)/(D^2):GOTO 8510
8509
LET T=(4*(Y^2)*(S^2)/(L^2)):GOTO 8510
8510 PRINT"Tamano minimo de la muestra para
estimar el valor"
8520 PRINT"de la media aritmetica =
";INT(T+.5)
8570 PRINT
8800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8810
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"6.9-TAMANO DE LA MUESTRA PARA
ESTIMAR LA MEDIA ARITMETICA UTILIZANDO EL CRITERIO DE LA DIFERENCIA ABSOLUTA"
9010
PRINT"================================================================================"
9030 REM:Este subprograma consiste de dos metodos
que calculan
9040 REM:el tamano minimo de la muestra para estimar
la media aritmetica
9050 REM:utilizando el criterio de la diferencia
absoluta.
9060 REM:Se utilizan como datos iniciales:la
diferencia absoluta tolerable
9070 REM:maxima entre la media de la muestra y la de
media vera (C),
9080 REM:el valor critico del coeficiente de
confianza (Y)
9090 REM:y la desviacion tipica (estandard) de
conjunto basal (B).
9100 REM:El primero subprograma se utiliza cuando no
se conoce
9110 REM:el numero total de animales en la poblacion
y se supone
9120 REM;el numero infinito.
9130 REM:Se utiliza la formula: ((Y^2)*(B^2)/C^2.
9140 REM:El segundo metodo se utiliza cuando se
conoce el numero
9150 REM:total de animales en la poblacion (N).
9160 REM:Se utiliza la formula:
(N*Y^2*B^2)/(N*C^2+Y^2*B^2).
9161 REM:Las formulas segun Jenicek et col.(1982)
9162 REM:Los mismos resultados se pueden obtener
segun Putt et.col.(1987)p.53:
9163 REM:n=(Y^2)*(B^2)/C^2 ; n=
(N*Y^2*B^2)/(N*C^2+Y^2*B^2)
9190 REM:
9200 PRINT:PRINT"DATOS INICIALES:":PRINT
9205 INPUT"numero total de animales de la
poblacion dada (cuando no se conoce,teclee '0')";N
9210 INPUT"diferencia tolerable entre la media
de la muestra y la media vera ";C
9220 INPUT"valor critico del coeficiente de
confianza (1.65 para 10% de probabilidad
de error; 1.96 para 5%; 2.58 para 1%;etc.) ";Y
9230 INPUT"desviacion tipica del conjunto basal
(total poblacional) ";B
9500 CLS:PRINT:PRINT"RESULTADO:":PRINT
9510
IF N>0 THEN GOTO 9550 ELSE 9520
9520 T=((Y^2)*(B^2))/C^2:GOTO 9570
9550 T=(N*Y^2*B^2)/(N*C^2+Y^2*B^2)
9570 PRINT"Tamano minimo de la muestra para
estimar el valor "
9580 PRINT"de la media aritmetica =
";INT(T+.5)
9590 PRINT
9600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
9610
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"6.10-MUESTREO
ESTRATIFICADO"
10010 PRINT"============================"
10030 REM:Este subprograma define los numeros de los
animales para investigar
10040 REM:en cada subpoblacion (estrato) relativamente
homogenea segun
10050 REM:diferentes caracteristicas (edad,sexo,
peso,raza,rendimiento,
10060 REM:propiedades epizootiologicas,tamano de
rebanos,tipo de explotacion,
10070 REM:condiciones de cria,etc.).
10080 REM:Este metodo evita la sobre o subrepresentacion
de algunas
10090 REM:subpoblaciones y permite aumentar la
precicion de los estimados.
10100 REM:Se apoya sobre el principio de definir el
tamano minimo de la muestra
10110 REM:y seleccion al azar.
10190 REM:
10200 PRINT:PRINT"DATOS INICIALES:":PRINT
10220 INPUT"tamano de la muestra - numero de
animales representativos ";N
10230 INPUT"numero de las subpoblaciones
";S
10235
DIM X(S)
10240
FOR I=1 TO S
10250 PRINT"numero total de los animales de la
subpoblacion";I
10260
INPUT X(I)
10270 NEXT
I
10300
X=0
10310
FOR I=1 TO S
10320
X=X+X(I)
10330
NEXT I
10340
PRINT
10500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
10510 PRINT
TAB(10)"subpoblacion";TAB(30)"numero de
animales "
10511
PRINT TAB(30)"----------------------------------"
10520
PRINT TAB(30)"total";TAB(50)"representativo"
10530
PRINT
10540
FOR I=1 TO S
10550
PRINT TAB(10)I;TAB(30)X(I);TAB(50)INT((N*X(I)/X)+.5)
10560
NEXT I
10570
PRINT
10580
PRINT TAB(5)"Grand Total";TAB(30)X;TAB(50)N
10780 ERASE X
10790 PRINT
10800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
10810
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 RUN"EPIZOTMM.EXE"
11030 SYSTEM
7-Métodos estadísticos seleccionados utilizados en la epizootiología -
I
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"7-METODOS ESTADISTICOS SELECCIONADOS
UTILIZADOS EN LA EPIZOOTIOLOGIA -I"
40
PRINT"======================================================================="
50 REM:
120 REM:Las distribuciones de frecuencia de los
fenomenos epizootiologicos
130 REM:y de sus valores son muy variables.
140 REM:Los metodos estadisticos facilitan el
sintetizar las caracteristicas
150 REM:de estas distribuciones a traves de unos
pocos parametros
160 REM:estadisticos de posicion media y de
dispersion.
170 REM:Para los calculos de las distribuciones de
frecuencia de valores
180 REM:absolutos-cuantitativos se utiliza la media
aritmetica o geometrica
190 REM:y para los conjuntos de valores cualitativos
se aplica la proporcion
200 REM:(porcentaje).Para la medicion de las
dispersiones se aplica
210 REM:la desviacion media,varianza, desviacion
tipica (error estandard)
220 REM:y coeficiente de variacion(dispersion).
230 REM:
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:":PRINT
510 PRINT"1-Media aritmetica y geometrica"
520 PRINT"2-Media aritmetica ponderada"
530 PRINT"3-Media aritmetica de los datos
agrupados"
540 PRINT"4-Distribucion de las frecuencias cumulativas"
550 PRINT"5-Medidas de dispersion alrededor de
la media aritmetica"
560 PRINT"6-Medidas de dispersion de los datos
agrupados"
570 PRINT"7-Calculo de las proporciones"
580 PRINT"8-Desviacion tipica de las
proporciones"
590 PRINT"9-Calculo de los porcentajes"
600 PRINT"10-Calculo de los datos absolutos
desde las proporciones":PRINT
610 PRINT"11=Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en los calculos de
este grupo de subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
para calcular: ",CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"7.1-MEDIA ARITMETICA Y GEOMETRICA"
1010
PRINT"================================="
1030 REM:Este subprograma calcula el promedio o la
medida de posicion
1040 REM:o la tendencia central que representa el
centro de la distribucion
1045 REM:de las variables.
1050 REM:La media aritmetica se calcula al sumar
todos los valores
1060 REM:de la variable y dividir por el numero de
observaciones.
1070 REM:La media geometrica tiene importancia
similar.
1200 PRINT:PRINT"DATOS INICIALES:"
1210 PRINT
1220 INPUT"numero de las observaciones (tamano
de la muestra)";N
1221 PRINT
1225 PRINT"Listado de datos:"
1230
DIM X(N)
1240
FOR I=1 TO N
1250
PRINT I;":"
1260
INPUT"X = ";X(I)
1270
NEXT I
1500
CLS:PRINT:PRINT"RESULTADOS:"
1510
PRINT
1515
V1=0
1520
FOR I=1 TO N
1530
V1=V1+X(I)
1540
NEXT I
1550
MA=V1/N
1560
PRINT"La media aritmetica simple =";USING"#######.###";MA
1590
PRINT
1600
V2=1
1610
FOR I=1 TO N
1620
V2=V2*X(I)
1630
NEXT I
1640
MG=V2^(1/N)
1650 PRINT"La media geometrica
=";USING"#######.###";MG
1660 ERASE X
1700 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
1710
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"7.2-MEDIA ARITMETICA
PONDERADA"
2010 PRINT"=============================="
2030 REM:Este subprograma calcula la media aritmetica
de los valores
2040 REM:de las variables de una caracteristica dada
(X)
2050 REM:multiplicados por los valores numericos que
reflejan su importancia(Y).
2200 PRINT:PRINT"DATOS INICIALES:":PRINT
2210 INPUT"numero de las observaciones (tamano
de la muestra)";N
2211 PRINT
2215 PRINT"Listado de datos:"
2220
DIM X(N),Y(N)
2230
FOR I=1 TO N
2240
PRINT I;":"
2250
INPUT"variable X = ";X(I)
2260 INPUT"valor del factor de importancia Y =
";Y(I)
2270
NEXT I
2500
CLS:PRINT:PRINT"RESULTADO:":PRINT
2510
LET V1=0
2520
LET V2=0
2530
FOR I=1 TO N
2540
V1=V1+(X(I)*Y(I))
2550
V2=V2+Y(I)
2560 NEXT I
2570 PRINT"La media aritmetica ponderada
=";USING"#######.###";V1/V2
2580 ERASE X,Y
2720 PRINT
2800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"7.3-MEDIA ARITMETICA DE LOS
DATOS AGRUPADOS"
3010
PRINT"==========================================="
3020 REM:Este subprograma calcula la media
aritmetica de valores agrupados (X)
3030 REM:con sus frecuencias (F).
3200 PRINT:PRINT"DATOS INICIALES:":PRINT
3210 INPUT"numero de los grupos del conjunto
";N
3211 PRINT
3215 PRINT"Listado de datos:"
3220
DIM X(N+1),F(N+1)
3230
FOR I=1 TO N
3240
PRINT I;":"
3250
INPUT"variable-X,frecuencia-F";X(I),F(I)
3260
NEXT I
3270
V1=0
3280
FOR I=1 TO N
3290
V1=V1+X(I)*F(I)
3300
NEXT I
3310
V2=0
3320
FOR I=1 TO N
3330
V2=V2+F(I)
3340
NEXT I
3350
V1=V1/V2
3500
CLS:PRINT:PRINT"RESULTADO:":PRINT
3520 PRINT"La media aritmetica de los datos
agrupados =";USING"#######.###";V1
3530 ERASE X,F
3690 PRINT
3700 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3710
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"7.4-DISTRIBUCION DE LAS
FRECUENCIAS CUMULATIVAS"
4010
PRINT"==============================================="
4020 PRINT
4030 REM:Este subprograma calcula la frecuencia
cumulativa
4040 REM:absoluta y relativa de las variables.
4200 PRINT"DATOS INICIALES:":PRINT
4210 INPUT"numero total de los datos";N
4220 PRINT"Listado de los datos:"
4221
PRINT
4230
DIM X(N)
4240
FOR I=1 TO N
4250
PRINT I;":":INPUT" X = ";X(I)
4260
NEXT I
4500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
4510 PRINT"Numero total de los datos: "N
4520 PRINT
4530
PRINT,"Ordeno","valor","frecuencia","porcentaje"
4540 PRINT,"de
datos","(frecuencia)","cumulativa","de
frecuencia"
4550
PRINT,,,"absoluta","cumulativa"
4560 PRINT
4561 T=0
4562
FOR I=1 TO N
4563
T=T+X(I)
4564
NEXT I
4570
C=0
4580
FOR I=1 TO N
4581
C=C+X(I)
4590
PRINT,I,X(I),C,USING"###.##";C/T*100
4600 NEXT I
4690 PRINT
4800 ERASE X
4900 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
4910
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"7.5-MEDIDAS DE DISPERSION
ALREDEDOR DE LA MEDIA ARITMETICA"
5010
PRINT"=========================================================="
5020 PRINT
5030 REM:Este subprograma calcula las medidas de la
dispersion o variacion
5040 REM:de los valores de las variables alrededor
de la media aritmetica.
5050 REM:La desviacion media expresa la media
aritmetica de las diferencias
5060 REM:entre los valores de las variables (X) y la
media aritmetica
5065 REM:de todo el conjunto.
5070 REM:La varianza es la media aritmetica de los
cuadrados de diferencias
5080 REM:entre los valores de las variables (X) y la
media aritmetica
5085 REM:de todo el conjunto.
5090 REM:Desviacion tipica o error estandard
corresponde a la raiz cuadrada
5100 REM:de la varianza.Coeficiente de variacion
representa el valor relativo
5110 REM:obtenido dividiendo la desviacion tipica
por la media.
5200 PRINT"DATOS INICIALES:":PRINT
5210 INPUT"numero total de las observaciones
(tamano de la muestra)";N
5211 PRINT
5215 PRINT"Listado de datos:"
5220
DIM X(N)
5230
FOR I=1 TO N
5240 PRINT I;":"
5250 INPUT"valor de la variable";X(I)
5260
NEXT I
5500
CLS:PRINT:PRINT"RESULTADO:":PRINT
5520
XM=0
5530
X2=0
5540
FOR I=1 TO N
5550
XM=XM+X(I)
5560
NEXT I
5570 XM=XM/N
5580 PRINT"La media aritmetica
=";USING"#######.###";XM
5590
FOR I=1 TO N
5600
IF X(I)<XM THEN LET Z=-1 ELSE Z=+1
5610
X2=X2+Z*(X(I)-XM)
5620
NEXT I
5640 PRINT"La desviacion media =
+-";USING"######.###";X2/N
5650
FOR I=1 TO N
5660
V3=V3+(X(I)-XM)^2
5670
NEXT I
5680
V=V3/N
5690
PRINT"La varianza =";USING"######.###";V
5700 D=SQR(V)
5710 PRINT"La desviacion tipica (error
estandar) = +-";USING"######.###";D
5720 C=D/XM*100
5730 PRINT"El coeficiente de variacion
(dispersion) = ";USING"######.## %";C
5780 ERASE X
5790 PRINT
5800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"7.6-MEDIDAS DE DISPERSION DE LOS
DATOS AGRUPADOS"
6010
PRINT"================================================"
6030 REM:Este subprograma calcula las medidas de
dispersion de los datos
6040 REM:agrupados de las variables con sus
frecuencias:la media aritmetica,
6050 REM:la desviacion media,la varianza,la
desviacion tipica
6060 REM:y el coeficiente de variacion.
6200 PRINT:PRINT"DATOS INICIALES:":PRINT
6210 INPUT"numero de los grupos en la muestra
";N
6211 PRINT
6215 PRINT"Listado de datos:"
6220
DIM X(N),F(N)
6230
FOR I=1 TO N
6240
PRINT I;":"
6250
INPUT"variable-X,frecuencia-F";X(I),F(I)
6260
NEXT I
6270
V1=0
6280
FOR I=1 TO N
6290
V1=V1+X(I)*F(I)
6300
NEXT I
6310
V2=0
6320
FOR I=1 TO N
6330
V2=V2+F(I)
6340
NEXT I
6350
XM=V1/V2
6360
X=2
6370
FOR I=1 TO N
6380
IF X(I)<XM THEN LET Z=-1 ELSE Z=+1
6390
X2=X2+(Z*(X(I)-XM)*F(I))
6400
NEXT
6410
MD=X2/V2
6500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
6510
PRINT"La media aritmetica =";USING"#######.###";XM
6520
PRINT"La desviacion media = +-";USING"######.###";MD
6530
X3=0
6540
FOR I=1 TO N
6550
X3=X3+(X(I)-XM)^2*F(I)
6560
NEXT I
6570
V=X3/V2
6580
PRINT"La varianza =";USING"#######.###";V
6590 D=SQR(V)
6600 PRINT"La desviacion tipica (error
estandard) = +-";USING"######.###";D
6610 C=D/XM*100
6620 PRINT"El coeficiente de variacion (dispersion)
=";USING"###.## %";C
6650 ERASE X,F
6800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"7.7-CALCULOS DE LAS
PROPORCIONES"
7010 PRINT"================================"
7020 PRINT
7200 PRINT"DATOS INICIALES:":PRINT
7220 PRINT"Indique si se trata del calculo de
las observaciones individualmente"
7230 PRINT"consideradas (s) o de una simple
relacion entre el numero total"
7240 PRINT"de las observaciones (tamano de la
muestra ) y el numero"
7250 PRINT"de variables de una caracteristica
dada que se evalua."
7260 INPUT"Se trata de calculo de observaciones
individuales (s) o no (n)";R$
7270
IF R$="s" THEN GOTO 7300 ELSE 7500
7300 PRINT:INPUT"numero total de observaciones (tamano
de la muestra)";N
7301 PRINT
7305 PRINT"Listado de datos:"
7310
DIM X(N)
7320
FOR I=1 TO N
7330 PRINT I
7340 INPUT"variable con (1) o sin (2) la
caracteristica evaluada";X(I)
7350
IF X(I)>1 THEN X(I)=0
7360
NEXT I
7370
X1=0
7380
FOR I=1 TO N
7390 X1=X1+X(I)
7400
NEXT I
7410
ERASE X
7420 GOTO 7600
7500 PRINT:INPUT"numero total de las
observaciones (tamano de la muestra)";N
7510 INPUT"numero de las variables de una
caracteristica dada evaluada";X1
7600 CLS:PRINT:PRINT"RESULTADO:":PRINT
7610 PRINT"El valor de la proporcion =
";USING "#.####";X1/N
7960 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
7970
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"7.8-DESVIACION TIPICA DE LA
PROPORCION"
8010 PRINT"======================================"
8200 PRINT:PRINT"DATOS INICIALES:":PRINT
8210 INPUT"numero total de las observaciones
(tamano de la muestra)";N
8220 INPUT"Se trata de una proporcion simple
(s) o de un porcentaje (p)";R$
8230
IF R$="s" THEN GOTO 8240 ELSE 8500
8240 INPUT"valor de la proporcion de las
variables de una caracteristica dada";P
8300
LET Q=1-P
8320
LET Z=(P*Q)/N
8330 Z2=LOG(Z)/2
8350 Z2=EXP(Z2)
8400 PRINT:PRINT"RESULTADO:":PRINT
8410 PRINT"La desviacion tipica de la
proporcion = +-"USING"#.####";Z2
8420 GOTO 8590
8500 INPUT"valor del porcentaje de las
variables de una caracteristica dada";P
8510
LET Q=100-P
8520
R=SQR(P*Q/N)
8570 CLS:PRINT:PRINT"RESULTADO:":PRINT
8580 PRINT"La desviacion tipica del porcentaje
= +-";USING"#.####";R
8590 PRINT
8600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8610
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"7.9-CALCULO DE LOS
PORCENTAJES"
9010 PRINT"=============================="
9030 REM:Este subprograma calcula los porcentajes
desde los datos absolutos
9040 REM:como X/N*100.
9200 PRINT:PRINT"DATOS INICIALES:":PRINT
9210 INPUT"numero total de las observaciones
(tamano de la muestra)";N
9220 INPUT"numero de los valores parciales
absolutos para convertir en el porcentaje";P
9225 PRINT"Listado de datos:"
9226 PRINT
9300 DIM X(P)
9310
FOR I=1 TO P
9320
PRINT I;":"
9330
INPUT"X = ";X(I)
9340
NEXT I
9400
CLS:PRINT:PRINT"RESULTADOS:":PRINT
9410
PRINT,"Numero total : "N
9411
PRINT
9415
PRINT,"Orden","numero";TAB(47)"porcentaje"
9416
PRINT,,"parcial"
9417
PRINT
9420
R=0
9430
FOR I=1 TO P
9440
PRINT,I,X(I);TAB(46)USING"#####.##";R+(X(I)/N)*100
9450
NEXT I
9460
R=0
9470
FOR I=1 TO P
9480
R=R+X(I)
9490
NEXT I
9500
PRINT
9510
PRINT,"Total",R;TAB(46)USING"#####.##";R/N*100
9580 ERASE X
9590 PRINT
9600 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
9610
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"7.10-CALCULO DE LOS VALORES
ABSOLUTOS DESDE LAS PROPORCIONES"
10010
PRINT"============================================================"
10030 REM:Este subprograma calcula los valores
absolutos desde las proporciones
10040 REM:simples y desde los porcentajes.
10200 PRINT:PRINT"DATOS INICIALES:":PRINT
10210 INPUT"numero total de las observaciones
(tamano de la muestra)";N
10220 INPUT"numero de las proporciones o
porcentajes que se van a convertir en valores absolutos";P
10230 INPUT"Se trata de una conversion desde
las proporciones simples (s) o desde los porcentajes (p)";R$
10240
PRINT:IF R$="s" THEN GOTO 10245 ELSE 10495
10245 PRINT"Listado de datos:"
10250 DIM X(P)
10260
FOR I=1 TO P
10270
PRINT I;":"
10280
INPUT"X=";X(I)
10290
NEXT I
10300 CLS:PRINT:PRINT"RESULTADOS:":PRINT
10301 PRINT,"Tamano de la muestra:"N
10302 PRINT
10310 PRINT
"Orden";TAB(30)"proporcion","valor absoluto"
10320
PRINT
10330
FOR I=1 TO P
10340
PRINT I;TAB(20)USING"##############.##";X(I),X(I)*N
10350
NEXT I
10360
PRINT
10370
R=0
10380
FOR I=1 TO P
10390
R=R+X(I)
10400
NEXT I
10410
PRINT"Total";TAB(20)USING"##############.##";R,R*N
10420 ERASE X
10490 GOTO 10790
10495 PRINT"Listado de datos:"
10500
DIM X(P)
10505
FOR I=1 TO P
10510
PRINT I;":"
10520
INPUT"X=";X(I)
10530
NEXT I
10600
PRINT:PRINT"RESULTADOS:":PRINT
10605 PRINT:PRINT"Tamano de la
muestra:";N:PRINT
10610 PRINT
"Orden";TAB(30)"porcentaje","valor absoluto"
10620
PRINT
10630
FOR I=1 TO P
10640
PRINT I;TAB(20)USING"##############.##";X(I),X(I)*N/100
10650
NEXT I
10660
PRINT
10670
R=0
10680
FOR I=1 TO P
10690
R=R+X(I)
10700
NEXT I
10710
PRINT"Total";TAB(20)USING"##############.##";R,R*N/100
10780 ERASE X
10790 PRINT
10800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
10810
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT programas, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
8-Métodos estadísticos seleccionados utilizados en la epizootiología -
II
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"8-METODOS ESTADISTICOS SELECCIONADOS
UTILIZADOS EN EPIZOOTIOLOGIA -II"
40 PRINT"====================================================================="
110 REM:
120 REM:Este grupo de los subprogramas contiene los
metodos para calcular
130 REM:la comparacion entre diferentes conjuntos de
las variables
140 REM:utilizando la prueba del ji-cuadrado, la
regresion
150 REM:lineal asi como el calculo de la curvas.
160 REM:Este subprograma contiene tambien los
calculos de las estimaciones
170 REM:de la prevalencia y los calculos de las
series cronologicas.
180 REM:
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:":PRINT
510 PRINT"1-Prueba del ji-cuadrado"
520 PRINT"2-Tabla de contingencia - 2x2"
530 PRINT"3-Tabla de contingencia - 2x3"
540 PRINT"4-Tabla de contingencia - 2xN"
550 PRINT"5-Regresion lineal simple"
560 PRINT"6-Coeficiente de la correlacion
rectilinea"
570 PRINT"7-Calculo de las lineas/curvas"
580 PRINT"8-Estimacion de la prevalencia desde
la muestra al azar simple"
590 PRINT"9-Estimacion de la prevalencia desde
la muestra conglomerada"
600 PRINT"10-Series cronologicas":PRINT
610 PRINT"11=Terminar este grupo de los
subprogramas"
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en los calculos de
este grupo de subprogramas, si(s) o no(n)";Z$
660 IF
Z$="s" THEN 5 ELSE GOTO 11000
670 PRINT
690 PRINT:INPUT"Seleccione el numero del subprograma
para calcular : ",CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"8.1-PRUEBA DEL JI-CUADRADO"
1010
PRINT"=========================="
1200
PRINT:PRINT"DATOS INICIALES:":PRINT
1205
CLEAR
1210 INPUT"La frecuencia esperada es constante
si(s) o no(n)";R$
1220
IF R$="n" THEN GOTO 1350
1230
IF R$<>"s" THEN PRINT"Error !":PRINT:GOTO 30
1240 PRINT:PRINT"Teclee la frecuencia esperada
constante":PRINT
1250 INPUT Y
1255 PRINT
1260 PRINT"Teclee las frecuencias observadas,
una por una; para terminar teclee 99999"
1265
PRINT
1270
INPUT X
1290
IF X=99999! THEN GOTO 1400
1300
N=N+1
1310
S=S+(ABS(X-Y)^2)/Y
1320
T=T+((ABS(X-Y)-.5)^2)/Y
1330
IF R$="n" THEN GOTO 1360
1340 GOTO 1270
1350 PRINT:PRINT"Teclee pares de valores
observados y esperados; para terminar teclee 99999,1":PRINT
1360
INPUT X,Y
1370
GOTO 1290
1400
CLS:PRINT:PRINT"RESULTADO:":PRINT
1405 PRINT:PRINT"El valor del ji-cuadrado para
estas observaciones =";USING"####.####";S
1410 PRINT"con";N-1;"grados de
libertad"
1420 PRINT"con la correccion de Yates,ji
cuadrado =";USING"####.####";T
1500 REM:Calculo de los valores criticos
1510
IF N>101 THEN GOTO 1670
1520
IF N=101 THEN GOTO 1640
1530
IF N>31 THEN GOTO 1610
1535
RESTORE
1540
FOR I=1 TO N-1
1550
READ C
1560
NEXT I
1570
FOR I=N TO N+29
1580
READ D
1590
NEXT I
1600
GOTO 1690
1610
C=(N-1)*(1-2/(9*(N-1))+1.6449*SQR(2/(9*(N-1)))^3)
1620
D=(N-1)*(1-2/(9*(N-1))-1.6449*SQR(2/(9*(N-1)))^3)
1630
GOTO 1690
1640
C=124.342
1650
D=77.9295
1660
GOTO 1690
1670 C=.5*(1.6649+SQR(2*(N-1)-1))^2
1680 D=.5*(SQR(2/(9*(N-1))-1.6449)^2)
1690 PRINT"El valor critico al nivel 5% del ji
cuadrado"
1700
PRINT"es";USING"####.####";C
1710
IF T>C THEN 1780
1720
IF S>C THEN 1810
1730
IF S<D THEN 1870
1740 IF T<D THEN 1870
1750 PRINT"La hipotesis no se rechaza al nivel
del valor critico del 5%"
1770 GOTO 1980
1780 PRINT"La hipotesis se rechaza al nivel del
valor critico del 5%"
1800 GOTO 1980
1810 PRINT"El valor de ji-cuadrado no es
acceptable y es por eso que el tamano"
1820 PRINT"de la muestra debe ser aumentado o
se deben utilizar "
1830 PRINT"los metodos de la distribucion
multinomial."
1860 GOTO 1980
1870 PRINT"El acordo es demasiado bueno y debe
ser criticamente evaluado."
1880 PRINT"El valor del ji cuadrado es inferior
al valor critico al 95% "
1920
DATA 3.8415,5.9915,7.8147,9.4877,11.071,12.592
1925
DATA 14.067,15.507,16.919,18.307,19.675,21.026
1930
DATA 22.362,23.685,24.996,26.296,27.587,28.896
1935
DATA 30.140,31.410,32.671,33.924,35.173,36.415
1940
DATA 37.653,38.885,40.113,41.337,42.557,43.773
1945
DATA .003932,.10259,.35185,.71072,1.1455
1950
DATA 1.635,2.167,2.733,3.325,3.940
1955
DATA 4.575,5.226,5.892,6.571,7.261
1960
DATA 7.962,8.672,9.390,10.117,10.851
1965
DATA 11.591,12.338,13.091,13.848,14.611
1970 DATA 15.379,16.151,16.928,17.708,18.493
1980 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
1985
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 GOTO 645
2000 CLS:PRINT"8.2-PRUEBA DE FRECUENCIAS -
TABLA 2x2 - JI-CUADRADO"
2010 PRINT"==================================================="
2020 PRINT
2030 REM:Este subprograma calcula: la prueba de la
frecuencia
2040 REM:de dos grupos con dos clases de los datos
comparados.
2060 REM:Primera linea de la tabla:a,b,(a+b)
2070 REM:Segunda linea de la tabla:c,d,(c+d)
2080 REM:Linea sumaria:(a+c),(b+d),(a+b+c+d)=n
2090 REM:En los conjuntos menores de 200 o si un
valor parcial es menor de 5
2100 REM:se utiliza la correccion de Yates:
numerador=N*((A*D-(B*C)-N/2)^2
2110 REM:
2200 PRINT"DATOS INICIALES:":PRINT
2210 INPUT"valor del primer grupo de la primera
clase - a";A
2220 INPUT"valor del primer grupo de la segunda
clase - b";B
2230 INPUT"valor del segundo grupo de la
primera clase - c";C
2240 INPUT"valor del segundo grupo de la
segunda clase - d";D
2250
LET N=A+B+C+D
2260
LET NUM=((A*D)-(B*C))^2
2270
LET DEN=(A+B)*(C+D)*(A+C)*(B+D)
2280
LET YAT=A*D-B*C-N/2
2500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
2530
IF N<200 OR A<5 OR B<5 OR C<5 OR D<5 THEN GOTO 2570
2535 X2=NUM*N/DEN
2540 PRINT"El valor del ji-cuadrado =
"USING"####.####";X2
2550 PRINT"El grado de la libertad = 1
2560 GOTO 2700
2570 X2=N*(YAT^2)/DEN
2580 PRINT"El valor del ji-cuadrado
="USING"####.####";X2
2620 PRINT"El grado de la libertad = 1 "
2700
IF X2=>6.63 THEN GOTO 2730
2710
IF X2=>3.84 AND X2<6.63 THEN GOTO 2740
2720
IF X2=>2.71 AND X2<3.84 THEN GOTO 2750 ELSE 2760
2730 PRINT"La diferencia es estadisticamente
significativa al nivel del 1%"
2735 PRINT"de probabilidad de error":GOTO
2770
2740 PRINT"La diferencia es estadisticamente
significativa al nivel del 5%"
2745 PRINT"de probabilidad de error":GOTO
2770
2750 PRINT"La diferencia es estadisticamente
significativa solamente"
2755 PRINT"al nivel del 10% de probabilidad de
error":GOTO 2770
2760 PRINT"La diferencia no es estadisticamente
significativa"
2770 X3=X2/(X2+N)
2775 COR=SQR(X3)
2780 PRINT"La correlacion de la contingencia =
";USING"#.####";COR
2800 PRINT
2810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2820
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"8.3-PRUEBA DE FRECUENCIA - TABLA
2x3 - JI-CUADRADO"
3010
PRINT"=================================================="
3020 REM:Este subprograma calcula:
3030 REM:la prueba de la frecuencia de dos grupos
con tres clases asi como
3040 REM:la prueba de la diferencia de dos conjuntos
comparados y
3050 REM:de su significacion estadistica.
3060 REM:En los conjuntos menores que 200 o si un
valor parcial es menor de 5
3070 REM:se aplica la correccion de
Yates:numerador=N*((A*D-(B*C)-N/2)^2
3080 REM:Primera linea de la tabla:a1,a2,a3
3090 REM:Segunda linea de la tabla:b1,b2,b3
3100
REM:Linea sumaria:a1+b1,a2+b2,a3+b3
3190
CLEAR
3195 REM:
3200 PRINT:PRINT"DATOS INICIALES:":PRINT
3210 INPUT"valor del primer grupo de la primera
clase - a1";A1
3220 INPUT"valor del primer grupo de segunda
clase - a2";A2
3230 INPUT"valor del primer grupo de tercera
clase - a3";A3
3240 INPUT"valor del segundo grupo de primera
clase - b1";B1
3250 INPUT"valor del segundo grupo de segunda
clase - b2";B2
3260 INPUT"valor del segundo grupo de tercera
clase - b3";B3
3300 NA=A1+A2+A3
3310 NB=B1+B2+B3
3320 N1=A1+B1
3330 N2=A2+B2
3340 N3=A3+B3
3350 N=NA+NB
3400 A=(A1^2/N1)+(A2^2/N2)+(A3^2/N3)
3440
B=(B1^2/N1)+(B2^2/N2)+(B3^2/N3)
3500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
3515
LET X2=(N/NA*A)+(N/NB*B)-N
3520 PRINT"El valor de ji-cuadrado - X2 =
";USING"####.####";X2
3530 PRINT"El grado de libertad = 2"
3700
IF X2=>9.21 THEN GOTO 3730
3710
IF X2=>5.99 AND X2<9.21 THEN GOTO 3740
3720
IF X2=>4.6 AND X2<5.99 THEN GOTO 3750 ELSE 3760
3730 PRINT"La diferencia es estadisticamente significativa
al nivel de P = 0.01":GOTO 3900
3740 PRINT"La diferencia es estadisticamente
significativa al nivel de P = 0.05":GOTO 3900
3750 PRINT"La diferencia es estadisticamente
significativa solamente al nivel de P = 0.10":GOTO 3900
3760 PRINT"La diferencia no es estadisticamente
significativa."
3900 PRINT
3910 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3920
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 GOTO 645
4000 CLS:PRINT"8.4-TABLAS DE CONTINGENCIA
2xN"
4010 PRINT"=============================="
4020 PRINT
4200 PRINT"DATOS INICIALES:":PRINT
4210 INPUT"Cuantas pares de los valores
observados y los expectados (bajo la hipotesis zero = no hay diferencias) se
van a procesar";N
4215 PRINT
4220 DIM O(N),E(N)
4230 PRINT"Teclee pares de los valores observados(O)
o los expectados(E):"
4240
FOR I=1 TO N
4250
PRINT I;"par:"
4260
INPUT O(I),E(I)
4270
NEXT I
4280
A=0:B=0
4300
FOR I=1 TO N
4301
IF O(I)<E(I) THEN GOTO 4302 ELSE 4305
4302
C=E(I)-O(I):GOTO 4310
4305
C=O(I)-E(I)
4310
A=A+(C)^2/E(I)
4320
B=B+(C-.5)^2/E(I)
4330
NEXT I
4500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
4510 PRINT"El valor de ji-cuadrado - X2 =
";USING"####.####";A
4520 PRINT"El valor de ji-cuadrado (despues de
la correccion de Yates) - X2 =";USING"####.####";B
4530 PRINT:PRINT"El grado de libertad - v
="N-1
4540 PRINT:PRINT"Busque el valor de la
probabilidad en la tabla de los valores del ji-cuadrado ( en el grupo 9,
subprograma 10 )"
4800 ERASE O,E
4805 PRINT
4806 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
4810
IF R$="s" THEN GOTO 4000 ELSE 4990
4990
RETURN
5000
CLS:PRINT"8.5-REGRESION LINEAL SIMPLE"
5010 PRINT"==========================="
5020 PRINT
5030 REM:Este subprograma calcula la linea de
regresion
5035 REM:en las poblaciones bivariadas donde
5040 REM:la variable independiente es X y la
variable dependiente es Y.
5050 REM:Se utiliza el metodo de los minimos
cuadrados.
5060 REM:La formula de la linea de regresion: Y=A+BX
5190 REM:
5200 PRINT"DATOS INICIALES:":PRINT
5205 DIM X(100),Y(100)
5210 INPUT"Cuantos puntos se van a
aplicar";N:PRINT
5220
LET P1=0:LET P2=0:LET P3=0:LET P4=0:LET P5=0
5230
FOR I=1 TO N
5240
PRINT I;"par:"
5250 INPUT "X,Y = ";X(I),Y(I)
5260
LET P1=P1+X(I)
5270
LET P2=P2+Y(I)
5280
LET P3=P3+X(I)*Y(I)
5290
LET P4=P4+(X(I))^2
5295
LET P5=P5+(Y(I))^2
5300
NEXT I
5310
LET B=CSNG((P3-P1*P2/N)/(P4-P1^2/N))
5320
LET A=CSNG((P2-P1*B)/N)
5324
LET C=CSNG(P3-(P1*P2/N))
5325
LET D=CSNG(P4-(P1^2/N))
5326
LET E=CSNG(P5-(P2^2/N))
5327
LET F=CSNG((P3-P2*P1/N)/(P5-P2^2/N))
5328
LET G=CSNG((P1-P2*F)/N)
5330
IF B<0 THEN LET Z$="-" ELSE LET Z$="+"
5331
IF F<0 THEN LET S$="-" ELSE LET S$="+"
5335 CLS:PRINT:PRINT"RESULTADOS:":PRINT
5340 PRINT"La ecuacion de la linea de regresion
de Y sobre X es Y = "USING"######.##
";A;
5341 PRINT Z$;USING"######.## X";B
5342 PRINT:PRINT"El valor del coeficiente de
correlacion r = ";USING"#.##";C/SQR(D*E)
5343 PRINT
5345 PRINT"La ecuacion de la linea de regresion
de X sobre Y es X = "USING"######.##
";G;
5346 PRINT S$;USING"######.## Y";F
5349 PRINT
5350 INPUT"Desea calcular los valores
individuales de la linea de regresion Y=A+BX, si(s) o no(n)";R$
5360
IF R$="s" THEN GOTO 5370 ELSE 5790
5370 INPUT"Desea calcular el valor 'x' o 'y'
";V$
5380
IF V$="x" THEN GOTO 5430 ELSE 5390
5390
IF V$="y" THEN GOTO 5400 ELSE 5790
5400 PRINT"Teclee el valor x"
5410
INPUT X1
5420
PRINT"Y1 = ";USING"#######.##";A+B*X1:GOTO 5350
5430 PRINT"Teclee el valor de y"
5440
INPUT Y1
5450
PRINT"X1 = ";USING"#######.##";Y1/B-A/B:GOTO 5350
5790 ERASE X,Y
5800 PRINT
5810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
5820
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"8.6-COEFICIENTE DE LA
CORRELACION RECTILINEA"
6010
PRINT"============================================"
6020 PRINT
6030 REM:Cuando la funcion que relaciona dos
variables (X e Y) es lineal,
6040 REM:la medida del grado de la relacion entre
ellas esta dada
6050 REM:por el coeficiente de correlacion
rectilinea - r.
6060 REM:El valor varia desde r=+1 ( correlacion
positiva perfecta) hasta
6070 REM:el valor r=-1 (correlacion negativa
perfecta).
6190 REM:
6200 PRINT"DATOS INICIALES:":PRINT
6220 INPUT"Cuantos puntos (pares) se van a
utilizar";N:PRINT
6230
LET P1=0:LET P2=0
6235
DIM X(100),Y(100)
6240
FOR I=1 TO N
6250
PRINT I;"par:"
6260 INPUT "X,Y = ";X(I),Y(I)
6261
NEXT I
6262
FOR I=1 TO N
6270
LET P1=P1+X(I)
6280
LET P2=P2+Y(I)
6290
NEXT I
6300
LET MX=P1/N
6310
LET MY=P2/N
6340
LET P3=0:LET P4=0:LET P5=0
6350
FOR I=1 TO N
6360
P3=P3+X(I)*Y(I)
6370
P4=P4+(X(I))^2
6380
P5=P5+(Y(I))^2
6390
NEXT I
6400
LET A=P3-(P1*P2/N)
6410
LET B=P4-(P1^2/N)
6411
LET C=P5-(P2^2/N)
6500
CLS:PRINT:PRINT"RESULTADO:"
6510 PRINT
6520 PRINT"El coeficiente de correlacion - r =
";USING"#.####";A/SQR(B*C)
6530 ERASE X,Y
6800 PRINT:INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"8.7-CALCULO DE LAS LINEAS -
REGRESION LINEAL,CURVA DE PODER"
7005 PRINT"EXPONENCIAL Y LOGARITMICA"
7010
PRINT"==========================================================="
7100 PRINT"1=regresion lineal;2=linea de
fuerza;3=curva exponencial;4=curva logaritmica"
7110 DIM MO$(4),VE$(4),VA$(4)
7115 RESTORE 7130
7120
FOR I=1 TO 4:READ MO$(I),VE$(I),VA$(I):NEXT I
7130 DATA "Y=A+B*X"," Y
"," A ","Y=A*(X^B)","LOG(Y)","LOG(A)","Y=A*EXP(B*X)","LOG(Y)","LOG(A)","Y=A+B*LOG(X)"," Y
"," A "
7140 PRINT"Tipo de la regresion:"
7150
FOR I=1 TO 4:PRINT TAB(20);I;": ";MO$(I):NEXT I
7160 INPUT"Seleccione (1,2,3,4): ";CH
7170 PRINT:INPUT"numero de puntos ";N
7175
PRINT
7180
DIM X(N),Y(N)
7190
FOR I=1 TO N
7200
PRINT I;"par:"
7210 INPUT"X,Y = ";X(I),Y(I)
7230
NEXT I
7240
ON CH GOSUB 7520,7705,7745,7780
7250
PRINT:PRINT"Modelo:";MO$(CH)
7255
CLS:PRINT:PRINT"RESULTADOS:":PRINT
7260
PRINT"Estimo de A = ";USING"####.####";A
7270
PRINT"Estimo de B = ";USING"####.####";B
7280
PRINT"Varianza de";VE$(CH);"=
";USING"####.####";SS
7290 PRINT"Varianza de";VA$(CH);"=
";USING"####.####";SA
7300 PRINT"Varianza B =
";USING"####.####";SB
7310 PRINT"Covarianza de
";VA$(CH);",B = ";USING"####.####";AB
7320 PRINT:INPUT"Calcular la interpolacion,
si(s) o no(n):";A$
7330
IF A$="n" THEN GOTO 7920
7340 INPUT"Interpolacion para el valor dado de
'x' o 'y' :";A$
7350
IF A$="y" THEN GOTO 7430
7360 INPUT"x = ";X
7370 ON CH GOTO 7380,7390,7400,7410:REM:Interpolacion
en Y
7380 Y=A+B*X:GOTO 7415
7390 Y=A*(X^B):GOTO 7415
7400 Y=A*EXP(B*X):GOTO 7415
7410 Y=A+B*LOG(X)
7415 PRINT TAB(5);"y =
";USING"######.####";Y
7420 GOTO 7320
7430 INPUT"y = ";Y
7440 ON CH GOTO 7450,7470,7480,7490:REM
interpolacion en X
7450 X=(Y-A)/B:GOTO 7500
7470 X=(Y/A)^(1/B):GOTO 7500
7480 X=LOG(Y/A)/B:GOTO 7500
7490
X=EXP((Y-A)/B)
7500
PRINT TAB(5);"x = ";USING"######.####";X
7510 GOTO 7320
7520 REM:Subprograma para el calcula de la regresion
lineal
7530 REM: Inicio del calculo
7540 XM=0:YM=0
7550
XY=0:X2=0
7560
SS=0
7570
FOR I=1 TO N
7580
XM=XM+X(I)
7590
YM=YM+Y(I)
7600
NEXT I
7605
XM=XM/N
7615
YM=YM/N
7630
FOR I=1 TO N
7635
X2=X2+(X(I)-XM)^2
7640
XY=XY+(X(I)-XM)*Y(I)
7645
NEXT I
7650
B=XY/X2
7655
A=YM-B*XM
7665
FOR I=1 TO N
7670 SS=SS+(Y(I)-A-B*X(I))^2
7675
NEXT I
7680
SS=SS/(N-2)
7685
SA=SS*((1/N)+(XM*XM/X2))
7690
SB=SS/X2
7695 AB=-SS*XM/X2
7700 RETURN
7705 REM:Subprograma de la linea de fuerza
7710
FOR I=1 TO N
7715
X(I)=LOG(X(I))
7720
Y(I)=LOG(Y(I))
7725
NEXT I
7730 GOSUB 7520
7735 A=EXP(A):REM transformacion inversa
7740 RETURN
7745 REM:Subprograma para calcular la curva
exponencial
7750
FOR I=1 TO N
7755
Y(I)=LOG(Y(I))
7760
NEXT I
7765
GOSUB 7520
7770
A=EXP(A)
7775 RETURN
7780 REM:Subprograma para calcular la curva
logaritmica
7785
FOR I=1 TO N
7790
X(I)=LOG(X(I))
7795 NEXT I
7800 GOSUB 7520
7810 RETURN
7920 ERASE MO$,VE$,VA$,X,Y
7960 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
7970
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"8.8-ESTIMACION DE LA PREVALENCIA
DESDE LA MUESTRA AL AZAR SIMPLE"
8010
PRINT"================================================================"
8020 REM:Este subprograma calcula la estimacion de
la prevalencia desde
8030 REM:la muestra de los animales representativos
seleccionados al azar.
8040 REM:Analogamente se puede calcular la
estimacion de una proporcion
8050 REM:desde la muestra de los otros variables.
8060 REM:Se aplica el metodo descrito en Putt,S.N.H.
y col:"Veterinary
8070
REM:Epidemiology and Economics in Africa", ILCA Manual No.3,1987, p.53-54.
8080 REM:Se utilizan como los datos iniciales:
8090 REM:fraccion - proporcion de los animales
seleccionados de poblacion (F);
8100 REM:numero de los animales seleccionados en la
muestra (NM),
8110 REM:numero de los animales enfermos en la
muestra (E).
8120 REM:Las formula del error
estandar:ES=SQR((1-F)*P*(1-P)/NM);P=E/NM
8140 REM:Para este calculo es necesario no solamente
la seleccion al azar
8150 REM:sino tambien que se trate de mayor numero
de enfermos en la muestra.
8190 REM:
8200 PRINT:PRINT"DATOS INICIALES:":PRINT
8210 INPUT"numero de los animales seleccionados
en la muestra";NM
8220 INPUT"fraccion - proporcion (0. ) de los
animales seleccionados de la poblacion";F
8230 INPUT"numero de los animales enfermos en
la muestra";E
8500
CLS:PRINT:PRINT"RESULTADO:":PRINT
8520
LET P=E/NM
8530
LET A=(1-F)*P*(1-P)/NM
8540 LET ES=SQR(A)
8560 PRINT"Prevalencia de enfermos en la
muestra =
"USING"#.####";P
8565 PRINT,,,"
=";USING"####.## %";P*100
8570 PRINT"Error estandar de la prevalencia de
muestra = "USING"#.####";ES
8575 PRINT,,,"
=";USING"####.## %";ES*100
8590 PRINT
8600 PRINT:PRINT"Estimo de la prevalencia vera
en la poblacion total:"
8601 PRINT
8611 B=(P-1.64*ES)*100
8612 C=(P+1.64*ES)*100
8615 PRINT"al nivel de 90% de significacion
estadistica entre";USING"####.## %";B;
8616 PRINT"
y";USING"####.## %";C
8617 PRINT
8620 D=(P-1.96*ES)*100
8621 G=(P+1.96*ES)*100
8625 PRINT"al nivel de 95% de significacion
estadistica entre";USING"####.## %";D;
8626
PRINT" y";USING"####.##
%";G
8627
PRINT
8630
H=(P-2.58*ES)*100
8631
I=(P+2.58*ES)*100
8635 PRINT"al nivel de 99% de significacion
estadistica entre";USING"####.## %";H;
8636 PRINT"
y";USING"####.## %";I
8800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
8810 IF
R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"8.9-ESTIMACION DE LA PREVALENCIA
DESDE LA MUESTRA CONGLOMERADA"
9010
PRINT"=============================================================="
9020 REM:Este subprograma calcula el estimo de la
prevalencia ( o de otra
9030 REM:proporcion utilizando los datos de los
grupos ( por ejemplo rebanos)
9040 REM:seleccionados al azar.
9050 REM:Se utiliza el metodo descrito en
Putt,S.N.H. y col.:"Veterinary
9060
REM:Epidemiology and Economics in Africa", ILCA Manual No.3,1987,p.55.
9070 REM:Se necesitan siguientes datos iniciales:
9080 REM:numero de todos los grupos (T),numero de
los grupos seleccionados (M),
9110 REM:y datos de los grupos individualmente
considerados como son
9120 REM:numero total de animales (H) y numero de
animales enfermos (C).
9130 REM:Se utilizan las formulas:
9140 REM:Error estandar
ES=M/N*SQR((1-F)*W/(M*(M-1))); fraccion F=M/T
9150 REM:W=P^2(suma H^2)-2P(suma HC)+(suma C^2);
P=E/N; E=suma C.
9160 REM:El numero minimal de los animales enfermos
debe ser mayor que 20
9170 REM:y no todos en un solo subgrupo.
9180 REM:Analogamente se pueden calcular los rebanos
como unidades basales.
9190 REM:
9200 PRINT:PRINT"DATOS INICIALES:":PRINT
9210 INPUT"numero total de los grupos";T
9220 INPUT"numero de los grupos seleccionados
al azar";M
9245
DIM H(M),C(M)
9250
FOR I=1 TO M
9260 PRINT"numero de animales total, enfermos
en"
9265
PRINT I;"grupo:"
9270
INPUT H(I),C(I)
9280
NEXT I
9290
E=0:N=0
9291
FOR I=1 TO M
9292
E=E+C(I)
9293
NEXT I
9295
FOR I=1 TO M
9296
N=N+H(I)
9297
NEXT I
9300
LET P=E/N
9301
LET R=P^2
9310
LET F=M/T
9320
H=0:C=0:HC=0
9330
FOR I=1 TO M
9340
H=H+H(I)^2
9350
NEXT I
9360
FOR I=1 TO M
9370
HC=HC+(H(I)*C(I))
9380
NEXT I
9390
FOR I=1 TO M
9400
C=C+C(I)^2
9410
NEXT I
9415
Y=R*H
9416
Z=2*P*HC
9420
LET W=Y-Z+C
9430
LET S=((1-F)*W)/(M*(M-1))
9440
LET Q=SQR(S)
9500
CLS:PRINT:PRINT"RESULTADO:":PRINT
9501 PRINT"El numero total de los animales en
los grupos seleccionados = "N
9502 PRINT"El numero de los animales enfermos en
los grupos seleccionados = "E
9503 PRINT
9510 PRINT"La prevalencia de los enfermos en la
muestra =
"USING"#.####";E/N
9515
PRINT,,,"
=";USING"####.## %";E/N*100
9520
PRINT
9525 LET ES=M/N*Q
9530 PRINT"El error estandar de la prevalencia
de la muestra = "USING"#.####";ES
9535
PRINT,,,"
=";USING"####.## %";ES*100
9540
PRINT
9550
LET B=(E/N-1.64*ES)*100
9555 LET K=(E/N+1.64*ES)*100
9560 PRINT"al nivel de 90 % de significacion
estadistica entre
";USING"####.## %";B;
9561 PRINT"
y";USING"####.## %";K
9562 PRINT
9570 LET L=(E/N-1.96*ES)*100
9575 LET O=(E/N+1.96*ES)*100
9580 PRINT"al nivel de 95 % de significacion
estadistica entre
";USING"####.## %";L;
9581 PRINT"
y";USING"####.## %";O
9582 PRINT
9590 LET V=(E/N-2.58*ES)*100
9595 LET Z=(E/N+2.58*ES)*100
9600 PRINT"al nivel de 99 % de significacion
estadistica entre
";USING"####.## %";V;
9601 PRINT"
y";USING"####.## %";Z
9700 ERASE H,C
9800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
9830
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"8.10-CALCULO DE LAS SERIES
CRONOLOGICAS"
10010
PRINT"======================================="
10020 PRINT
10030 REM:Este subprograma calcula las series
cronologicas en formas
10040 REM:de los numeros indices (de corrido y de cadena)
10050 REM:y del ajuste de la linea.
10190 REM:
10200 PRINT"DATOS INICIALES:":PRINT
10210 INPUT"numero de los datos (variables)
";N
10215
PRINT
10220
DIM T(100),Y(100)
10240
FOR I=1 TO N
10250 PRINT I;"periodo o momento,valor de la
variable :"
10260
INPUT T(I),Y(I)
10270
NEXT I
10300 CLS:PRINT:PRINT"RESULTADOS:":PRINT
10310 PRINT"Periodo o","numero
de";TAB(28)"valor de";TAB(45)"i n
d i c
e"
10320 PRINT"momento","orden
(X)";TAB(28)"variable(Y)";TAB(45)"corrido";TAB(57)"de
cadena"
10325
PRINT TAB(45)"(simple)"
10330
PRINT
10340
PRINT INT(T(1))," 1";TAB(28)USING"#######.##";Y(1);
10341
PRINT TAB(45)"100.00";TAB(58)"100.00"
10350
FOR I=2 TO N
10360
PRINT T(I),I;TAB(28)USING"#######.##";Y(I);
10361
PRINT TAB(44)USING"####.##
";(Y(I)/Y(1)*100);(Y(I)/Y(I-1)*100)
10370
NEXT I
10400
LET P1=0:LET P2=0:LET P3=0:LET P4=0:LET P5=0
10410
FOR I=1 TO N
10420
LET P1=P1+I
10460
P2=P2+Y(I)
10470
P3=P3+I*Y(I)
10520
P4=P4+I^2
10530
P5=P5+(Y(I))^2
10540
NEXT I
10550
B=(P3-P1*P2/N)/(P4-P1^2/N)
10560 A=(P2-P1*B)/N
10570
IF B<0 THEN LET Z$="-" ELSE LET Z$="+"
10580 PRINT
10600 PRINT "La linea ajustada : Y
=";USING"#######.## ";A;
10601
PRINT Z$;USING"#######.##
X";B
10790 PRINT
10800 ERASE T,Y
10810 PRINT
10820 INPUT"Desea repetir este subprograma, si(s)
o no(n)";R$
10830
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu
EPIZOOT, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
9-Métodos estadísticos seleccionados utilizados en la epizootiología -
III
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT:PRINT"9-METODOS ESTADISTICOS
SELECCIONADOS UTILIZADOS EN LA EPIZOOTIOLOGIA - III"
50
PRINT"=========================================================================="
100 REM:Este grupo de los subprogramas contiene los
metodos seleccionados
110 REM:para las pruebas de las diferencias entre
los conjuntos comparados
120 REM:y algunos otros metodos estadisticos como
son los estimados
130 REM:de los intervalos de confianza para las
medias y proporciones.
190 REM:
500 PRINT:PRINT"M E N U DE LOS SUBPROGRAMAS:"
505 PRINT
510 PRINT"1-Prueba de la diferencia entre dos
proporciones"
520 PRINT"2-Prueba de la diferencia entre dos
medias aritmeticas"
530 PRINT"3-Prueba de la diferencia entre las
medias de dos muestras pequenas"
540 PRINT"4-Prueba de la diferencia entre los
valores en pares"
550 PRINT"5-Intervalos de confianza para la
media poblacional"
560 PRINT"6-Intervalos de confianza para la
proporcion poblacional"
570 PRINT"7-Intervalos de confianza para la
diferencia entre las medias"
580 PRINT"8-Intervalos de confianza para la
diferencia entre proporciones"
590 PRINT"9-Diferencias entre los valores
pronosticados (modelados) y reales""
600 PRINT"10-Tablas de los valores `t` de
Student y de ji-cuadrado":PRINT
610 PRINT"11=Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en los calculos de
este grupo de subprogramas, si(s) o no(n)";W$
660 IF
W$="s" THEN GOTO 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
para calcular: ",CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"9.1-PRUEBA DE LA DIFERENCIA
ENTRE DOS PROPORCIONES"
1010
PRINT"=================================================="
1020 REM:Este subprograma calcula la prueba
estadistica "z"
1030 REM:de la diferencia entre las proporciones de
dos conjuntos(poblaciones).
1040 REM:Se utiliza metodo descrito en Spiegel:"Theory
and problems
1050 REM:of statistics",1966,p.171.
1055 REM:Se utilizan las formulas:
1060 REM:la prueba estadistica
z=(P1-P2)/SQR(PR*(1-PR)*(1/N1+1/N2))
1070 REM:proporcion comun PR=(P1+P2)/N1+N2);
1080 REM:la diferencia entre las proporciones
D=(P1/N1-P2/N2),
1090 REM:Se evalua la diferencia al niveles de
1100 REM:99%, 95% y 90% de la probabilidad
(significacion estadistica).
1101 REM:para el nivel de la significacion
estadistica se aplican los siguientes valores "z":
1102 REM:cuando se conoce a priori que existe la
diferencia (hipotesis `one-sided`):
1103 REM:1.28 para 90%; 1.64 para 95%; 2.33 para 99%
;
1104 REM:cuando no se conoce a priori que existe la
diferencia (hipotesis `two-sided`):
1105 REM:1.64 para 90%; 1.96 para 95%; 2.58 para 99%
.
1110 REM:Este metodo se puede utilizar no solamente
para las poblaciones
1120 REM:animales sino tambien para otros conjuntos
de importancia
1130 REM:epizootiologica.
1200 PRINT:PRINT"DATOS INICIALES:":PRINT
1201 INPUT"Conoce cual poblacion tiene la proporcion
mayor, si(s) o no(n)";R$
1202
IF R$="s" THEN 1210 ELSE 1225
1210 PRINT:INPUT"numero de los animales de la
poblacion con la proporcion mayor";N1
1220 INPUT"numero de los animales de la
poblacion con la proporcion menor";N2:GOTO 1227
1225 PRINT:INPUT"numero de animales de la
primera poblacion";N1
1226 INPUT"numero de animales de la segunda
poblacion";N2
1227 PRINT:INPUT"Va utilizar el numero
absoluto(a) o relativo-proporcion(r) o porciento(p)";U$
1228
IF U$="a" THEN GOTO 1235 ELSE 1229
1229
IF U$="r" THEN GOTO 1250 ELSE 1230
1230
IF U$="p" THEN GOTO 1280
1235 INPUT"numero de animales con una
caracteristica dada de la primera poblacion";P1
1240 INPUT"numero de animales con una
caracteristica dada de la segunda poblacion";P2:GOTO 1300
1250 INPUT"proporcion del numero de animales
con una caracteristica dada de la primera poblacion";R1
1251 INPUT"proporcion del numero de animales
con una caracteristica dada de la segunda poblacion";R2
1255 P1=R1*N1:P2=R2*N2:GOTO 1300
1280 INPUT"porciento de animales con una
caracteristica dada de la primera poblacion";O1
1281 INPUT"porciento de animales con una
caracteristica dada de la segunda poblacion";O2
1285 P1=O1*N1/100:P2=O2*N2/100:GOTO 1300
1300
LET D=(P1/N1-P2/N2)
1301
LET PR=(P1+P2)/(N1+N2)
1305
LET F=(PR*(1-PR)*(1/N1+1/N2))
1306
LET G=SQR(F)
1310
LET Z=D/G
1500 CLS:PRINT:PRINT"RESULTADO:":PRINT
1510 PRINT"La diferencia entre las proporciones
de las dos poblaciones = ";USING"#.####";D
1515 PRINT"El valor de la prueba
estadistica z
=";USING"###.####";Z
1520 IF
R$="s" THEN GOTO 1600 ELSE 1630
1600
IF Z=>1.28 THEN GOTO 1605 ELSE 1690
1605
IF Z<1.64 THEN GOTO 1700 ELSE 1610
1610
IF Z=>1.64 THEN GOTO 1615
1615
IF Z<2.33 THEN GOTO 1710 ELSE 1620
1620
IF Z=>2.33 THEN GOTO 1720
1630
IF Z=>1.64 THEN GOTO 1640 ELSE 1690
1640
IF Z<1.96 THEN GOTO 1700 ELSE 1650
1650
IF Z=>1.96 THEN GOTO 1660
1660
IF Z<2.58 THEN GOTO 1710 ELSE 1670
1670 IF Z=>2.58 THEN GOTO 1720
1690 PRINT"La diferencia no ha significacion
estadistica":GOTO 1800
1700 PRINT"La diferencia es al nivel de 90 % de
significacion estadistica":GOTO 1800
1710 PRINT"La diferencia es al nivel de 95 % de
significacion estadistica":GOTO 1800
1720 PRINT"La diferencia es al nivel de 99 % de
significacion estadistica"
1800 PRINT:INPUT"Desea repetir este subprograma,
si(s) o no(n)";S$
1810
IF S$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"9.2-PRUEBA DE LA DIFERENCIA
ENTRE LAS MEDIAS ARITMETICAS"
2010
PRINT"========================================================"
2030 REM:Este subprograma calcula la diferencia
entre las medias
2040 REM:aritmeticas de dos conjuntos y el error
estandard
2050 REM:de esta diferencia.
2060 REM:Se utiliza el metodo descrito en Putt,S.N.H
y col.:"Veterinary
2070
REM:epidemiology and economics in Africa",ILCA Manual No.3,1987,p.56.
2080 REM:Se aplica la formula del error estandar de
la diferencia de las medias
2090
REM:ES=SQR((XT-1)*S1^2+(AN-1)*S2^2*(1/XT+1/AN)/(XT+AN-2))
2100 REM:Cuando se pregunta si una media dada es
mejor que la otra
2110 REM:se utiliza la prueba de `one-sided test`
mientra que
2120 REM:cuando se pregunta si una media es mejor o
peor que la otra
2130 REM:se utiliza la prueba de `two-sided test` .
2200 PRINT:PRINT"DATOS INICIALES:":PRINT
2230 INPUT"numero de los variables del conjunto
de mayor media aritmetica";XT
2240 INPUT"numero de los variables del conjunto
de menor media aritmetica";AN
2250 INPUT"media aritmetica del primer
conjunto";M1
2260 INPUT"media aritmetica del segundo
conjunto";M2
2270 INPUT"desviacion standard del primer
conjunto";S1
2280 INPUT"desviacion standard del secundo
conjunto";S2
2300
LET A=(XT-1)*S1^2
2310
LET B=(AN-1)*S2^2
2320
LET C=XT+AN-2
2330
LET D=1/XT+1/AN
2340
LET E=(A+B)/C*D
2350
LET F=SQR(E)
2360
LET G=M1-M2
2370
LET Z=G/F
2500 CLS:PRINT:PRINT"RESULTADO:":PRINT
2510 PRINT"La diferencia entre las dos medias
aritmeticas =";USING"###.####";G:PRINT
2520 PRINT"El error standard de la diferencia
entre las medias =";USING"###.####";F:PRINT
2530 PRINT"La prueba estadistica z
=";USING"###.####";Z:PRINT
2550 INPUT"Se trata de demostrar si una media
es mayor (o) - 'one-sided test' o si una media es mayor o menor (t) -
'two-sided test'";Q$
2551
IF Q$="o" THEN GOTO 2600 ELSE 2625
2600
IF Z=>2.33 AND Z=>-2.33 THEN GOTO 2720 ELSE 2610
2610
IF Z=>1.64 AND Z=>-1.64 THEN GOTO 2710 ELSE 2620
2620
IF Z=>1.28 AND Z=>-1.28 THEN GOTO 2700 ELSE 2630
2625
IF Z=>2.58 AND Z=>-2.58 THEN GOTO 2720 ELSE 2626
2626
IF Z=>1.96 AND Z=>-1.96 THEN GOTO 2710 ELSE 2627
2627
IF Z=>1.64 AND Z=>-1.64 THEN GOTO 2700 ELSE 2630
2630 PRINT:PRINT"La diferencia no ha
significacion estadistica.":GOTO 2800
2700 PRINT:PRINT"La diferencia es al nivel de
90% de significacion estadistica.":GOTO 2800
2710 PRINT:PRINT"La diferencia es al nivel de
95% de significacion estadistica.":GOTO 2800
2720 PRINT:PRINT"La diferencia es al nivel de
99% de significacion estadistica.
2800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
2810
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"9.3-PRUEBA DE LA DIFERENCIA
ENTRE LAS MEDIAS DE DOS MUESTRA PEQUENAS"
3010
PRINT"===================================================================="
3030 REM:Este subprograma calcula la prueba
estadistica de la diferencia
3040 REM:entre las medias aritmeticas de dos
pequenos grupos de animales.
3050 REM:Analogamente se pueden calcular las
diferencias entre otros conjuntos.
3060 REM:Todos datos iniciales deben ser mayores de
5.
3070 REM:Se utiliza el metodo descrito en
Putt,S.N.H. y col.:"Veterinary
3080
REM:epidemiology and economics in Africa",ILCA Manual No.3,1987,p.62.
3090 REM:Prueba estadistica z = diferencia entre las
medias aritmeticas(DMA)
3100 REM:dividida por la desviacion estandar de la
diferencia de la media(DSM).
3110 REM:Se utilizan como los datos iniciales:el
numero de animales del primer
3120 REM:del muestreo (N1)y del segundo grupo (N2)
asi como las desviaciones
3130 REM:estandar de las muestras (DS1 y DS2).
3140 REM:Las
formulas:DSM=SQR(((N1-1)*DS1^2+(N2-1)*DS2^2)*(1/N1+1/N2)/(N1+N2-2))Ok
3150 REM:z = DMA/DSM
3200 PRINT:PRINT"DATOS INICIALES:":PRINT
3230 INPUT"numero de animales del primer grupo
con mayor media aritmetica";N1
3240 INPUT"numero de animales del segundo grupo
con menor media aritmetica";N2
3250 INPUT"media aritmetica del primer
grupo";MA1
3260 INPUT"media aritmetica del segundo
grupo";MA2
3270 INPUT"desviacion estandar del primer
grupo";DS1
3280 INPUT"desviacion estandar del segundo
grupo";DS2
3500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
3510 DMA=MA1-MA2
3520 A=(N1-1)*DS1^2+(N2-1)*DS2^2
3530 B=1/N1+1/N2
3540 C=N1+N2-2
3550 D=A*B/C
3560 E=SQR(D)
3570 Z=DMA/E
3600 PRINT"La diferencia entre las medias
aritmeticas =";USING"######.####";DMA
3610 PRINT"El valor de desviacion estandar de
la diferencia de las medias =";USING"######.####";E
3615 PRINT
3620 PRINT"El valor de la prueba estadistica
`t` de la diferencia =";USING"###.####";Z
3630 PRINT"El valor del grado de libertad
="C
3640 PRINT:PRINT"Busque el nivel de la
significacion estadistica "
3650 PRINT"en la tabla de los valores criticos
del `t` ."
3660 INPUT"Desea ver esta tabla, si(s) o
no(n)";T$
3670 IF
T$="s" THEN GOTO 10300 ELSE 3800
3800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
3810
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"9.4-PRUEBA DE LA DIFERENCIA
ENTRE LOS VALORES EN PARES"
4010 PRINT"======================================================"
4020 REM:Este subprograma se aplica para la
comparacion de dos grupos
4030 REM:de animales con diferentes tratamientos o
uno con y otro sin
4040 REM:tratamiento o de diferentes caracteristicas
epizootiologicas.
4050 REM:El principio es de comparar los dos
conjuntos muestrados en forma
4060 REM:de parejas.
4070 REM:Se utiliza el metodo descrito en
Putt,S.N.H. y col:`Veterinary
4080
REM:epidemiology and economics in Africa`,ILCA Manual No.3.,1987,p.63.
4090 REM:Se utiliza la formula para calcular la
prueba estadistica `t`:
4100 REM:t = MA/(DE/SQR(N), donde MA=media
aritmetica de las diferencias,
4110 REM:DE=desviacion estandar de las diferencias y
N=numero de pares.
4200 PRINT:PRINT"DATOS INICIALES:":PRINT
4210 INPUT"numero total ( debe ser
estadisticamente suficiente) de los pares";N
4220 PRINT"Listado de datos - de las variables
X,Y :"
4230
DIM X(N),Y(N)
4240
FOR I=1 TO N
4250
PRINT I;"par: ":INPUT X(I),Y(I)
4270
NEXT I
4500
CLS:PRINT:PRINT"RESULTADO:":PRINT
4510
D=0
4520 FOR
I=1 TO N
4530
D=D+X(I)-Y(I)
4540 NEXT I
4547
MA=D/N
4550 PRINT"El valor de la media aritmetica de
las diferencias = ";USING"######.####";MA
4555
V1=0
4560
FOR I=1 TO N
4565
D=X(I)-Y(I)
4566
IF D<MA THEN LET Z=-1 ELSE Z=+1
4570
V1=V1+(Z*(D-MA))^2
4580 NEXT
I
4585
V=V1/N
4587
IF MA<0 THEN LET W=-1 ELSE W=+1
4590
DE=SQR(V)
4592
S=SQR(N)
4593
T=MA*W/(DE/S)
4610 PRINT:PRINT"El valor de la prueba
estadistica `t` = ";USING"#.##";T
4620 PRINT"El grado de libertad = "N-1
4625 ERASE X,Y
4630 PRINT:PRINT"Busque el nivel de la
significacion estadistica"
4640 PRINT"en la tabla de los valores criticos
del `t`"
4650 INPUT"Desea ver esta tabla, si(s) o
no(n)";T$
4651
IF T$="s" THEN GOTO 10300 ELSE 4800
4800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
4810
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"9.5-INTERVALOS DE CONFIANZA PARA
LA MEDIA POBLACIONAL"
5010
PRINT"====================================================="
5020 PRINT
5030 REM:Este subprograma calcula los intervalos estimados
de confianza
5040 REM:para las medias poblacionales.
5050 REM:Los limites de confianza se calculan a los
niveles
5060 REM:de 90%, 95% y 99% de significacion
estadistica (de probabilidad)
5070 REM:aplicando los coeficientes de confianza
(valores criticos)
5080 REM:z = 1.645, 1.96 y 2.58 respectivamente.
5090 REM:Se utiliza la formula: media +-
(coeficiente de confianza * desviacion
5100 REM:estandar).
5200 PRINT"DATOS INICIALES:":PRINT
5210 INPUT"tamano de la muestra";N
5220 INPUT"media aritmetica";MA
5230 INPUT"desviacion estandar";DE
5300 PRINT"Se trata de una muestra de una
poblacion infinitiva"
5310 INPUT"cuando no se conoce la poblacion
total, si(s) o no(n)";I$
5320
IF I$="s" THEN GOTO 5330 ELSE 5400
5330 INPUT"tamano total de la poblacion
";NP
5340
LET K=(NP-N)/(NP-1)
5350
LET L=SQR(K)
5360
LET INF=L*DE/SQR(N)
5370
GOTO 5410
5400
LET INF=DE/SQR(N)
5410
LET A=MA-1.645*INF
5420
LET B=MA+1.645*INF
5430
LET C=MA-1.96*INF
5440
LET D=MA+1.96*INF
5450
LET E=MA-2.58*INF
5460
LET F=MA+2.58*INF
5500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
5510 PRINT"Los estimados de los intervalos de
confianza para"
5520 PRINT"la media de
";USING"######.####";MA
5521 PRINT TAB(30)"con la desviacion estandar
de ";USING"######.####";DE
5530 PRINT
5540 PRINT"al nivel de 90% de significacion
estadistica entre";USING"######.####";A
5541
PRINT TAB(65)" y";USING"######.####";B
5542 PRINT
5550 PRINT"al nivel de 95% de significacion
estadistica entre";USING"######.####";C
5551
PRINT TAB(65)" y";USING"######.####";D
5552 PRINT
5560 PRINT"al nivel de 99% de significacion
estadistica entre";USING"######.####";E
5561 PRINT TAB(65)"
y";USING"######.####";F
5800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"9.6-INTERVALOS DE CONFIANZA PARA
LA PROPORCION POBLACIONAL"
6010
PRINT"=========================================================="
6020 PRINT
6030 REM:Este subprograma calcula los intervalos
estimados de confianza
6040 REM:para las proporciones poblacionales.
6050 REM:Los limites de confianza se calculan a los
niveles
6060 REM:de 90%, 95% y 99% de significacion
estadistica ( de probabilidad)
6070 REM:aplicando los coeficientes de confianza
(valores criticos)
6080 REM:z = 1.645, 1.96 y 2.58 respectivamente.
6090 REM:Se utiliza la formula:L proporcion +-
(coeficiente de confianza *
6100 REM:* desviacion estadndar).
6200 PRINT"DATOS INICIALES:":PRINT
6210 INPUT"tamano de la muestra";N
6220 INPUT"proporcion";P
6230 PRINT"Se trata de una muestra de una
poblacion infinita"
6240 INPUT"cuando no se conoce la poblacion
total, si(s) o no(n)";I$
6250
IF I$="s" THEN GOTO 6400 ELSE 6330
6330 INPUT"tamano de la poblacion
total";NP
6340
LET K=(NP-N)/(NP-1)
6350
LET L=SQR(K)
6360
LET INF=(P*(1-P)/N)*L
6370 GOTO
6420
6400
LET Q=1-P:LET O=(P*Q)/N
6410
LET INF=SQR(O)
6420
LET A=P-1.645*INF
6430
LET B=P+1.645*INF
6440
LET C=P-1.96*INF
6450
LET D=P+1.96*INF
6460
LET E=P-2.58*INF
6470
LET F=P+2.58*INF
6500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
6510 PRINT"Los estimados de los intervalos de
confianza para "
6520 PRINT"la proporcion
=";USING"###.####";P
6521 PRINT TAB(30)"y el tamano de muestra
=";USING"#######";N
6530 PRINT
6540 PRINT"al nivel de 90 % de significacion
estadistica entre ";USING"######.####";A
6541
PRINT TAB(65)" y";USING"######.####";B
6542 PRINT
6550 PRINT"al nivel de 95 % de significacion
estadistica entre ";USING"######.##";C
6551
PRINT TAB(65)" y";USING"######.####";D
6552 PRINT
6560 PRINT"al nivel de 99 % de significacion
estadistica entre ";USING"######.##";E
6561 PRINT TAB(65)"
y";USING"######.####";F
6800 PRINT:INPUT"Desea repetir este
subprograma, si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"9.7-INTERVALOS DE CONFIANZA PARA
LA DIFERENCIA ENTRE LAS MEDIAS"
7010
PRINT"==============================================================="
7020 PRINT
7030 REM:Este subprograma calcula los intervalos
estimados de confinaza para
7040 REM:las diferencias entre las medias
aritmeticas poblacionales.
7050 REM:Los limites de confianza se calculan a los
niveles
7060 REM:de 90%, 95% y 99% de significacion
estadistica ( de probabilidad)
7070 REM:aplicando los coeficientes de confianza (
valores criticos)
7080 REM:z = 1.645, 1.96 y 2.58 respectivamente.
7200 PRINT"DATOS INICIALES:":PRINT
7210 INPUT"tamano de la primera muestra (con
media de mayor valor)";N1
7220 INPUT"tamano de la segunda muestra (con
media de menor valor)";N2
7230 INPUT"media aritmetica del primer
conjunto";MA1
7240 INPUT"media aritmetica del segundo
conjunto";MA2
7250 INPUT"desviacion estandar del primer
conjunto";DE1
7260 INPUT"desviacion estandar del segundo
conjunto";DE2
7300
LET C1=DE1^2/N1
7310
LET C2=DE2^2/N2
7320
LET K=C1+C2
7330
LET L=SQR(K)
7400
LET A=MA1-MA2-1.645*L
7410
LET B=MA1-MA2+1.645*L
7420
LET C=MA1-MA2-1.96*L
7430
LET D=MA1-MA2+1.96*L
7440
LET E=MA1-MA2-2.58*L
7450
LET F=MA1-MA2+2.58*L
7500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
7505 PRINT"La diferencia entre las medias =
";USING"######.####";MA1-MA2:PRINT
7510 PRINT"Los estimados de los intervalos de
confianza para"
7520 PRINT"la diferencia entre las dos medias
aritmeticas:"
7530 PRINT
7540 PRINT"al nivel de 90% de significacion
estadistica entre";USING"######.####";A
7541
PRINT TAB(65)" y";USING"######.####";B
7542 PRINT
7550 PRINT"al nivel de 95% de significacion
estadistica entre";USING"######.####";C
7551
PRINT TAB(65)" y";USING"######.####";D
7552 PRINT
7560 PRINT"al nivel de 99% de significacion
estadistica entre";USING"######.####";E
7561
PRINT TAB(65)" y";USING"######.####";F
7800 PRINT
7810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
7820
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"9.8-INTERVALOS DE CONFIANZA PARA
LA DIFERENCIA ENTRE LAS PROPORCIONES"
8010 PRINT"===================================================================="
8020 PRINT
8030 REM:Este subprograma calculalos intervalos
estimados de confianza para
8040 REM:las diferencias entre las proporciones
poblacionales.
8050 REM:Los limites de confianza se calculan a los
niveles
8060 REM:de 90%, 95% y 99% de significacion
estadistica (de probabilidad)
8070 REM:aplicando los coeficientes de confianza
(valores criticos)
8080 REM:z = 1.645, 1.96 y 2.58 respectivamente.
8200 PRINT"DATOS INICIALES:":PRINT
8210 INPUT"tamano de la primera muestra (con
proporcion de mayor valor)";N1
8220 INPUT"tamano de la segunda muestra (con
proporcion de menor valor)";N2
8230 INPUT"proporcion del primer
conjunto";P1
8240 INPUT"proporcion del segundo
conjunto";P2
8300
LET C1=P1*(1-P1)/N1
8310 LET
C2=P2*(1-P2)/N2
8320
LET K=C1+C2
8330
LET L=SQR(K)
8400
LET A=P1-P2-1.645*L
8410
LET B=P1-P2+1.645*L
8420
LET C=P1-P2-1.96*L
8430
LET D=P1-P2+1.96*L
8440
LET E=P1-P2-2.58*L
8450
LET F=P1-P2+2.58*L
8500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
8505 PRINT"La diferencia entre las proporciones
= ";USING"##.####";P1-P2:PRINT
8510 PRINT"Los estimados de los intervalos de
confianza para"
8520 PRINT"la diferencia entre las dos
proporciones poblacionales:"
8530 PRINT
8540 PRINT"al nivel de 90 % de significacion
estadistica entre ";USING"##.####";A
8541
PRINT TAB(63)" y ";USING"##.####";B
8542 PRINT
8550 PRINT"al nivel de 95 % de significacion
estadistica entre ";USING"##.####";C
8551
PRINT TAB(63)" y ";USING"##.####";D
8552 PRINT
8560 PRINT"al nivel de 99 % de significacion
estadistica entre ";USING"##.####";E
8561
PRINT TAB(63)" y ";USING"##.####";F
8800 PRINT
8810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8820
IF R$="s" THEN GOTO 8000 ELSE RETURN
8990 RETURN
9000 CLS:PRINT"9.9-DIFERENCIAS ENTRE LOS
VALORES PRONOSTICADOS (MODELADOS) Y REALES"
9010
PRINT"===================================================================="
9020 PRINT
9030 REM:Este subprograma calcula el grado de
precision de los valores
9040 REM:pronosticados (modelados) de los
indicadores de los fenomenos
9050 REM:epizootiologicos.
9060 REM:Se utiliza el calculo de los errores de
estos valores teoricos
9070 REM:en comparacion con los reales.
9200 PRINT"DATOS INICIALES:":PRINT
9205 DIM X(100),Y(100)
9208 INPUT"Numero total";N
9210 PRINT"Los valores pronosticados (X),
reales (Y):"
9215
T1=0:T2=0:T3=0
9220
FOR I=1 TO N
9225
PRINT I;"par:"
9230
INPUT X(I),Y(I)
9250
T1=T1+1
9260
T2=T2+X(I)-Y(I)
9270
T3=T3+ABS(X(I)-Y(I))
9290
NEXT I
9295
CLS:PRINT:PRINT"RESULTADOS:":PRINT
9410 PRINT"Numero de los pares de datos
comparados = ";USING"###";N
9420
PRINT"error total = ";USING"####.####";T2
9430
PRINT"error total absoluto = ";USING"####.####";T3
9440 PRINT"error medio =
";USING"####.####";T2/T1
9450 PRINT"error medio absoluto =
";USING"####.####";T3/T1
9600 ERASE X,Y
9700 PRINT
9800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
9810
IF R$="s" THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"9.10-TABLAS DE LOS VALORES CRITICOS
DE `t` Y DE JI-CUADRADO"
10010
PRINT"==========================================================="
10020 PRINT
10030 REM:Este subprograma contiene los valores
criticos de `t` de Student
10040 REM:y de ji-cuadrado.
10050 REM:Las tablas abarcan los valores que
corresponden a valores
10060 REM:porcentuales de 90%,95% y 99% de
significacion estadistica.
10200 INPUT"Desea los valores de `t` de Student
(t) o los valores de ji-cuadrado (j)";R$
10210
IF R$="t" THEN GOTO 10300 ELSE 10600
10300 CLS:PRINT:PRINT" TABLA DE LOS VALORES CRITICOS DE PRUEBA
`t` DE STUDENT"
10305
PRINT
10310
PRINT"grado de";TAB(13)"prueba
one-sided";TAB(48)"prueba two-sided"
10320
PRINT"libertad"
10330
PRINT
TAB(10)"10%";TAB(20)"5%";TAB(30)"1%";TAB(55)"5%";TAB(65)"1%"
10340
PRINT"------------------------------------------------------------------"
10350
PRINT"1";TAB(10)"3.08";TAB(20)"6.31";TAB(30)"31.8";TAB(55)"12.7";TAB(65)"63.7"
10351
PRINT"2";TAB(10)"1.89";TAB(20)"2.92";TAB(30)"6.96";TAB(55)"4.30";TAB(65)"9.92"
10352
PRINT"3";TAB(10)"1.64";TAB(20)"2.35";TAB(30)"4.54";TAB(55)"3.18";TAB(65)"5.84"
10354
PRINT"4";TAB(10)"1.53";TAB(20)"2.13";TAB(30)"3.75";TAB(55)"2.78";TAB(65)"4.60"
10355
PRINT"5";TAB(10)"1.48";TAB(20)"2.02";TAB(30)"3.36";TAB(55)"2.57";TAB(65)"4.03"
10356
PRINT"6";TAB(10)"1.44";TAB(20)"1.94";TAB(30)"3.14";TAB(55)"2.45";TAB(65)"3.71"
10357
PRINT"7";TAB(10)"1.42";TAB(20)"1.89";TAB(30)"3.00";TAB(55)"2.36";TAB(65)"3.50"
10358
PRINT"8";TAB(10)"1.40";TAB(20)"1.86";TAB(30)"2.90";TAB(55)"2.31";TAB(65)"3.36"
10359
PRINT"9";TAB(10)"1.38";TAB(20)"1.83";TAB(30)"2.82";TAB(55)"2.26";TAB(65)"3.25"
10360
PRINT"10";TAB(10)"1.37";TAB(20)"1.81";TAB(30)"2.76";TAB(55)"2.23";TAB(65)"3.17"
10365
PRINT"15";TAB(10)"1.34";TAB(20)"1.75";TAB(30)"2.60";TAB(55)"2.13";TAB(65)"2.95"
10370
PRINT"20";TAB(10)"1.32";TAB(20)"1.72";TAB(30)"2.53";TAB(55)"2.09";TAB(65)"2.85"
10380
PRINT"30";TAB(10)"1.31";TAB(20)"1.70";TAB(30)"2.46";TAB(55)"2.04";TAB(65)"2.75"
10390
PRINT"40";TAB(10)"1.30";TAB(20)"1.68";TAB(30)"2.42";TAB(55)"2.02";TAB(65)"2.70"
10410
PRINT"60";TAB(10)"1.30";TAB(20)"1.67";TAB(30)"2.39"
10470
PRINT"120";TAB(10)"1.28";TAB(20)"1.66";TAB(30)"2.36"
10495 GOTO 10990
10600 CLS:PRINT:PRINT" TABLA DE LOS VALORES
CRITICOS DE JI-CUADRADO"
10605 PRINT
10610 PRINT"grado de","valores criticos
del ji-cuadrado"
10620 PRINT"libertad","al nivel de"
10630
PRINT TAB(15)"10%";TAB(30)"5%";TAB(45)"1%"
10640
PRINT"------------------------------------------------"
10651
PRINT"1";TAB(15)"2.71";TAB(30)"3.84";TAB(45)"6.63"
10652
PRINT"2";TAB(15)"4.61";TAB(30)"5.99";TAB(45)"9.21"
10653
PRINT"3";TAB(15)"6.25";TAB(30)"7.81";TAB(45)"11.3"
10654
PRINT"4";TAB(15)"7.78";TAB(30)"9.49";TAB(45)"13.3"
10655
PRINT"5";TAB(15)"9.24";TAB(30)"11.1";TAB(45)"15.1"
10656
PRINT"6";TAB(15)"10.6";TAB(30)"12.6";TAB(45)"16.8"
10657
PRINT"7";TAB(15)"12.0";TAB(30)"14.1";TAB(45)"18.5"
10658
PRINT"8";TAB(15)"13.4";TAB(30)"15.5";TAB(45)"20.1"
10659
PRINT"9";TAB(15)"14.7";TAB(30)"16.9";TAB(45)"21.7"
10660
PRINT"10";TAB(15)"16.0";TAB(30)"18.3";TAB(45)"23.2"
10665
PRINT"15";TAB(15)"22.3";TAB(30)"25.0";TAB(45)"30.6"
10670
PRINT"20";TAB(15)"28.4";TAB(30)"31.4";TAB(45)"37.6"
10680
PRINT"30";TAB(15)"40.3";TAB(30)"43.8";TAB(45)"50.9"
10690
PRINT"40";TAB(15)"51.8";TAB(30)"55.8";TAB(45)"63.7"
10710
PRINT"60";TAB(15)"74.4";TAB(30)"79.1";TAB(45)"88.4"
10750
PRINT"100";TAB(15)"118.5";TAB(30)"124.3";TAB(45)"136"
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de
EPIZOOT, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020 CHAIN"EPIZOTMM.EXE"
11030 SYSTEM
10-Efectividad
de los programas epizootiologicos
5 CLS
10 PRINT"EPIZOOT, version 1.0"
20 PRINT
30 PRINT"10-EFECTIVIDAD DE LOS PROGRAMAS
EPIZOOTIOLOGICOS"
40
PRINT"================================================"
110 PRINT
120 REM:Este grupo de los subprogramas contiene los
metodos seleccionados
130 REM:para calcular la efectividad economica de
los programas
140 REM:epizootiologicos utilizando los metodos
simples basados sobre
150 REM:los principios del analisis de
costo/beneficio,
160 REM:asi como algunos metodos relacionados con
los calculos monetarios.
190 REM:
500 PRINT"M E N U DE LOS SUBPROGRAMAS:"
505 PRINT
510 PRINT"1-Indicadores simples del analisis
del costo/beneficio"
520 PRINT"2-Calculo simple del beneficio
absoluto del programa epizootiologico"
530 PRINT"3-Costo/beneficio biologico del
programa epizootiologico"
540 PRINT"4-Costo/beneficio sanitario del
programa epizootiologico"
550 PRINT"5-Benefico/costo en valores
monetarios descontados""
560 PRINT"6-Conversion de valores entre las
monedas nacionales"
570 PRINT"7-Comparacion de situacion final en
poblaciones con y sin programa"
580 PRINT"8-Calculos de los valores monetarios
influidos por la inflacion"
590 PRINT"9-Aplicacion de las tasas del interes
y del descuento"
600 PRINT"10-Analisis del punto critico de la
efectividad economica":PRINT
610 PRINT"11-Terminar este grupo de los
subprogramas"
630 PRINT
640 GOTO 690
645 PRINT
650 INPUT"Desea continuar en los calculos de
este grupo de subprogramas, si(s) o n(n) ";Z$
660 IF
Z$="s" THEN GOTO 5 ELSE GOTO 11000
670 PRINT
690 INPUT"Seleccione el numero del subprograma
para calcular: ",CH
700 ON CH GOSUB
1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000
800 GOTO 645
1000 CLS:PRINT"10.1-INDICADORES SIMPLES DEL
COSTO/BENEFICIO DEL PROGRAMA EPIZOOTIOLOGICO"
1010
PRINT"======================================================================="
1020 PRINT
1030 REM:Este subprograma calcula los indicadores
basicos simples
1040 REM:para el analisis del costo/beneficio
1050 REM:de los programas epizootiologicos.
1060 REM:Se trata de los indicadores de la
efectividad simple,
1070 REM:de la efectividad relativa y de la relacion
costo/beneficio
1080 REM: asi como de la relacion beneficio/costo.
1190 REM:
1200 PRINT"DATOS INICIALES:":PRINT
1201 INPUT"programa epizootiologico";PE$
1202 INPUT"lugar";LU$
1203 INPUT"periodo";TI$
1204 INPUT"moneda";MO$
1210 INPUT"beneficio total del programa
epizootiologico";B
1220 INPUT"insumos (costos) totales del
programa epizootiologico";C
1500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
1510
PRINT"Programa epizootiologico: ";PE$:PRINT
1515 PRINT"Lugar:
";LU$;TAB(45)"Periodo: ";TI$
1520
PRINT:PRINT TAB(25)"Moneda: ";MO$:PRINT
1530 PRINT"La efectividad simple (beneficio -
costo) = "TAB(50)B-C
1535 PRINT
1540 PRINT"La efectividad relativa
(beneficio/costo) = "TAB(50)USING"###.####";B/C
1545
PRINT TAB(43)"= 1 :
";USING"###.####";C/B
1548
PRINT
1550 PRINT"Relacion costo/beneficio =
"TAB(50)USING"###.####";C/B
1560
PRINT TAB(43)"= 1 :
";USING"###.####";B/C
1800 PRINT
1810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
1820
IF R$="s" THEN GOTO 1000 ELSE 1990
1990 RETURN
2000 CLS:PRINT"10.2-CALCULO SIMPLE DEL
BENEFICIO ABSOLUTO DEL PROGRAMA EPIZOOTIOLOGICO"
2010 PRINT"======================================================================="
2020 PRINT
2030 REM:Este subprograma calcula el beneficio del
programa epizootiologico
2040 REM:reflectandose en la reduccion de las
perdidas provocadas
2050 REM:por las enfermedades (morbilidad) y en el
aumento del beneficio
2060 REM:de la salud colectiva (salubridad).
2070 REM:El beneficio se calcula como la diferencia
entre la situacion
2080 REM:al inicio y la situacion mejorada al final
del periodo evaluado.
2090 REM:Las unidades pueden ser monetarias or en los
terminos
2100 REM:de la produccion animal o en otras unidades
relevantes.
2190 REM:
2200 PRINT"DATOS INICIALES:":PRINT
2210 INPUT"programa epizootiologico";PE$
2211 INPUT"lugar";LU$
2212 INPUT"periodo";TI$
2213 INPUT"unidades de medicion";UM$
2215 PRINT"teclee los datos en pares (al inicio
y al final) o para perdidas "
2216 PRINT"(valor inicial mayor) o para
beneficio (valor inicial menor):"
2217 PRINT
2220 INPUT"perdidas provocadas por la
morbilidad al inicio,al final";A,B
2240 INPUT"beneficio de la salud colectiva
(salubridad) al inicio,al final";C,D
2500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
2501 PRINT"Programa epizootiologico: "PE$
2502 PRINT:PRINT"Lugar:
"LU$;TAB(45)"Periodo: ";TI$
2503 PRINT:PRINT TAB(20)"Unidades de medicion:
"UM$:PRINT
2510
IF A>0 AND B>0 THEN GOTO 2530 ELSE 2520
2520
IF C>0 AND D>0 THEN GOTO 2540 ELSE 2800
2530 PRINT"El valor de la reduccion de perdidas
por el programa =";USING"########";A-B:GOTO 2800
2540 PRINT"El valor del aumento del beneficio
de los sanos por el programa =";USING"########";D-C
2800 PRINT
2810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
2820
IF R$="s" THEN GOTO 2000 ELSE 2990
2990 RETURN
3000 CLS:PRINT"10.3-COSTO/BENEFICIO BIOLOGICO
DEL PROGRAMA EPIZOOTIOLOGICO"
3010 PRINT"=======ï================================================="
3020 PRINT
3030 REM:Este subprograma calcula las relaciones
entre el costo
3040 REM:de un programa epizootiologico y su efecto
- beneficio biologico,
3045 REM:es decir el mejoramiento de la situacion
respectiva.
3050 REM:Utiliza los terminos de valores de los
indicadores absolutos o/y
3060 REM:relativos de la
morbilidad,mortalidad,focalidad, salubridad,vitalidad
3070 REM:asi como en los terminos de los valores de
los indicadores
3080 REM:absolutos o relativos de la productividad y
reproductividad
3085 REM:de la poblacion animal.
3090 REM:Entre el beneficio biologico se incluye
tambien el efecto
3100 REM:ecologico,reduccion del territorio
infectado/infestado,etc.
3110 REM:El costo se expresa en terminos monetarios.Analogamente
se
3120 REM:puede utilizar el costo en terminos de mano
de obra,de tiempo,
3130 REM:de material o ot
3190 REM:
3195 DEFDBL A-Z
3200 PRINT"DATOS INICIALES:":PRINT
3210 INPUT"fenomeno biologico";F$
3220 INPUT"lugar";A$
3230 INPUT"periodo";B$
3240 INPUT"unidades biologicos de medicion
";U$
3250 INPUT"unidades de insumo (costo)";M$
3300 INPUT"costo (insumo) total del
programa";C
3305 INPUT"Se trata del fenomeno biologico
deseado - positivo (p),es decir con valor mayor al final o no deseado -
negativo (n) con mayor valor al inicio";R$
3310 INPUT"valor del fenomeno (indicador)
biologico al inicio del programa";VI
3320 INPUT"valor del fenomeno (indicador)
biologico al final del programa";VF
3500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
3515 PRINT TAB(10)"Fenomeno biologico:
"F$:PRINT
3520 PRINT"Lugar:
"A$;TAB(40)"Periodo: "B$:PRINT
3530 PRINT"Unidades biologicas:
"U$;TAB(40)"Unidades de insumo: "M$
3540
PRINT
3550
IF R$="p" THEN GOTO 3560 ELSE 3580
3560 D=VF-VI:GOTO 3600
3580 D=VI-VF
3600 PRINT"La diferencia entre los valores del
fenomeno biologico al inicio y al final ="D U$
3610
PRINT
3615
M=C/D:N=D/C
3620 PRINT"El cambio del valor del fenomeno
biologico por cada unidad "
3621 PRINT"biologica ha costado en promedio
"INT(M) M$
3630 PRINT
3640 PRINT"Por cada unidad de insumo (costo) se
ha podido cambiar el valor"
3641 PRINT"del fenomeno biologico en promedio
por ";USING"###.######";N;
3642 PRINT TAB(55)"de "U$
3700 PRINT
3800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
3810
IF R$="s" THEN GOTO 3000 ELSE 3990
3990 RETURN
4000 CLS:PRINT"10.4-COSTO/BENEFICIO SANITARIO
DEL PROGRAMA EPIZOOTIOLOGICO"
4010
PRINT"==========================================================="
4020 PRINT
4030 REM:Este subprograma calcula las relaciones
entre el costo
4040 REM:de un programa epizootiologico contra las
zoonosis y su efecto
4050 REM: - beneficio sanitario o epidemiologico,ed
decir el mejoramiento
4055 REM:de la situacion respectiva.
4060 REM:Utiliza los terminos de valores de los
indicadores absolutos
4070 REM:o/y relativos de la morbilidad, mortalidad,
focalidad etc.
4080 REM: en la poblacion humana.
4090 REM:El costo se expresa en terminos monetarios.
Analogamente
4100 REM:se puede utilizar el costo en terminos del
material, de tiempo
4110 REM:o otros tipos de insumos en el programa.
4190 REM:
4200 PRINT"DATOS INICIALES:":PRINT
4210 INPUT"fenomeno sanitario";F$
4220 INPUT"lugar";A$
4230 INPUT"periodo";B$
4240 INPUT"unidades sanitarias de medicion
";U$
4250 INPUT"unidades de insumo (costo)";M$
4260 INPUT"insumo (costo) total del
programa";C
4265 INPUT"Se trata de un fenomeno sanitario
deseado - positivo (p),es decir con valor mayor al final o no deseado -
negativo (n) con mayor valor al inicio";R$
4270 INPUT"valor del fenomeno (indicador)
sanitario al inicio del programa";VI
4280 INPUT"valor del fenomeno (indicador)
sanitario al final del programa";VF
4500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
4515 PRINT TAB(10)"Fenomeno
sanitario:"F$:PRINT
4520
PRINT"Lugar:"A$;TAB(40)"Periodo:"B$:PRINT
4530 PRINT"Unidades sanitarias:"U$;TAB(40)"Unidades
de insumo:"M$
4540
PRINT
4550
IF R$="p"THEN GOTO 4555 ELSE 4560
4555 D=VF-VI:GOTO 4600
4560 D=VI-VF
4600 PRINT"La diferencia entre los valores del
fenomeno sanitario al inicio y al final ="D U$
4605
PRINT
4606
M=C/D:N=D/C
4610 PRINT"El cambio del valor del fenomeno
sanitario por cada unidad "
4620 PRINT"sanitaria ha costado en promedio
"INT(M) M$
4625 PRINT
4630 PRINT"Por cada unidad del insumo (costo)
se ha podido cambiar"
4635 PRINT"el valor (en
promedio)";USING"####.######";N;
4641 PRINT TAB(40)"de unidades sanitarias"
4645 PRINT
4700 PRINT
4800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
4810
IF R$="s" THEN GOTO 4000 ELSE 4990
4990 RETURN
5000 CLS:PRINT"10.5-BENEFICIO/COSTO EN VALORES
MONETARIOS DESCONTADOS"
5010 PRINT"======================================================"
5020 PRINT
5030 REM:Este subprograma calcula los valores
monetarios
5040 REM:del beneficio y del costo de los programas
epizootiologicos.
5050 REM:Sirve para la evaluacion de los fenomenos puramente
materiales,
5060 REM:es decir no es recomendable para la
evaluacion del efecto
5070 REM:duradero como es por ejemplo la eradicacion de una zoonosis
5080 REM:evitando para el futuro las muertes y
suferencias de los seres
5090 REM:humanos. El valor de la vida y salud
humanas no es posible
5100 REM:descontar en terminos monetarios.
5150 PRINT"Este subprograma no es aplicable
para evaluar aquellos programas"
5160 PRINT"cuyos efecto se relaciona con la
proteccion de la vida humana,"
5170 PRINT"reduccion del sufrimiento humano o
otros aspectos"
5180 PRINT"de valores no cuantificables en
terminos monetarios."
5190
REM:
5200
PRINT:PRINT"DATOS INICIALES:":PRINT
5210
INPUT"programa epizootiologico";EP$
5220 INPUT"lugar";LU$
5230 INPUT"periodo";TI$
5240 INPUT"unidades monetarias";UM$
5250 INPUT"numero de anos para evaluar";N
5260 INPUT"valor del descuento en forma de
fraccion decimal";DE
5270 PRINT"Teclee (en pares) valores de
beneficio,costo (por los anos individualmente considerados):"
5280
FOR I=1 TO N
5285
PRINT I ":"
5290
INPUT B(I),C(I)
5300
NEXT I
5500
CLS:PRINT:PRINT"RESULTADOS:":PRINT
5501
PRINT"Programa epizootiologico: "EP$
5502 PRINT:PRINT"Lugar:
"LU$;TAB(45)"Periodo: "TI$
5503 PRINT"Unidades monetarias:
"UM$;TAB(45)"Factor del descuento:"DE
5510 PRINT:PRINT"Orden","Factor",,"Beneficio","Costo"
5520 PRINT"de ano","del
descuento",,"descontado","descontado"
5530 PRINT
5531 U=(1/(1+DE)):V=1/((1+DE)^I)
5535
PRINT" 1"TAB(12)USING"####.####";U;TAB(45)USING" 0
#########";INT(C(1)/(1+DE))
5540
FOR I=2 TO N
5550
PRINT
I;TAB(12)USING"####.####";1/((1+DE)^I);TAB(42)USING"########";(B(I)/(1+DE)^I);TAB(56)INT(C(I)/(1+DE)^I)
5560
NEXT I
5600
S=0:T=0
5610
FOR I=1 TO N
5620
S=S+B(I)/(1+DE)^I
5630
T=T+C(I)/(1+DE)^I
5640
NEXT I
5650
PRINT:PRINT"Suma de beneficio = ";INT(S)
5660 PRINT"Suma de costo = ";INT(T)
5670 PRINT:PRINT"Relacion beneficio/costo
descontada = ";USING"##.####";S/T
5675
PRINT
5680
PRINT"
= 1
:";USING"####.####";T/S
5700 PRINT
5800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
5810
IF R$="s" THEN GOTO 5000 ELSE 5990
5990 RETURN
6000 CLS:PRINT"10.6-CONVERSION DE VALORES ENTRE
LAS MONEDAS NACIONALES"
6010
PRINT"======================================================="
6020 PRINT
6030 REM:Este subprograma utiliza las conversiones
de los valores
6040 REM:entre diferentes monedas nacionales o
internacionales
6050 REM:para comparar los precios.
6190 REM:
6200 PRINT"DATOS INICIALES:":PRINT
6210 INPUT"moneda A";A$
6220 INPUT"moneda B";B$
6221 PRINT:PRINT"Responde siempre una pregunta
sola:"
6230 INPUT"valor de un producto (servicio) dado
en moneda A, en moneda B";G,H
6250 INPUT"precio de una unidad del producto
(servicio) dado en moneda A,en moneda B";E,F
6225 INPUT"valor de una unidad de moneda A en
moneda B";C
6226 INPUT"valor de una unidad de moneda B en
moneda A";D
6500
CLS:PRINT:PRINT"RESULTADO:":PRINT
6550
IF C>0 THEN GOTO 6632 ELSE 6560
6560
IF D>0 THEN GOTO 6633 ELSE 6570
6570
IF E>0 AND F>0 THEN GOTO 6640 ELSE 6596
6596
IF G>0 AND H>0 THEN GOTO 6660
6632
V=(1/C):PRINT"Relacion "B$; " : "A$" = 1 :
";USING"#######.####";V:GOTO 6750
6633
Z=(1/D):PRINT"Relacion "A$; " : "B$" = 1 :
";USING"#######.####";Z:GOTO 6750
6635 PRINT"Si el precio de la misma cosa tiene
precio"
6636 PRINT"en "A$ " = "E;"y
en "B$ " = "F
6637 PRINT"obtuvimos siguientes
resultados:":PRINT
6640 PRINT"Relacion "A$; " : "B$" = 1 : ";USING"#######.####";F/E
6650
PRINT"Relacion "B$ " : "A$" = 1 :
";USING"#######.####";E/F:GOTO 6750
6660
PRINT"Relacion "A$; " :
"B$" = 1 : ";USING"#######.####";H/G
6661
PRINT"Relacion "B$; " :
"A$" = 1 :
";USING"#######.####";G/H
6750 PRINT
6800 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
6810
IF R$="s" THEN GOTO 6000 ELSE 6990
6990 RETURN
7000 CLS:PRINT"10.7-COMPARACION DE SITUACION
FINAL EN POBLACIONES CON Y SIN PROGRAMA"
7010
PRINT"====================================================================="
7020 PRINT
7030 REM:Este subprograma compara la situacion final
de los valores
7040 REM:de los fenomenos economicos en las
poblacion
7050 REM:donde se ha aplicado y donde no se ha
aplicado
7060 REM:un programa epizootiologico efectivo.
7070 REM:Como los fenomenos economicos se utilizan
los indicadores
7080 REM:de las perdidas generales o particulares
expresadas en valores
7090 REM:monetarios.Por ejemplo en los valores de
los animales fallecidos,
7100 REM:decomisados,de animales no nacidos, de
productos no producidos,etc.
7110 REM:como consecuencia de las enfermedades
animales.
7120 REM:Analogamente este subprograma se puede
aplicar a los fenomenos
7130 REM:epizootiologicos,como son la morbilidad
general o especifica,
7140 REM:la focalidad de las enfermedades
transmisibles,etc.
7190 REM:
7200 PRINT"DATOS INICIALES:":PRINT
7210 INPUT"fenomeno epizootiologico
(indicador)";I$
7220
INPUT"especie(s)";E$
7230
INPUT"categoria(s)";C$
7240 INPUT"lugar";L$
7250 INPUT"periodo";T$
7260 INPUT"unidades monetarias";M$
7270 INPUT"unidades de medicion del fenomeno
(indicador)";U$
7280 INPUT"costo(precio) de perdidad promedia
por una unidad del fenomeno";CU
7300 INPUT"numero total inicial del fenomeno en
la poblacion ";VI
7310 INPUT"numero total final del fenomeno en
poblacion con programa";VFP
7320 INPUT"numero total final del fenomeno en
poblacion sin programa";VFS
7330 INPUT"costo del programa epizootiologico";C
7500 CLS:PRINT:PRINT"RESULTADOS:":PRINT
7510 PRINT"Indicador:
"I$:PRINT"Unidades de medicion del fenomeno: "U$:PRINT
7520 PRINT"Lugar:
"L$;TAB(40)"Periodo: "T$
7530 PRINT"Unidades monetarias:
"M$;TAB(40)"Costo de perdidad promedia: "CU M$
7535 PRINT TAB(10)"Costo del programa
epizootiologico: "C
7540 PRINT:PRINT"Valor de la reduccion de
"I$
7550
LET DP=VI-VFP:LET DS=VFS-VI
7560 PRINT"en la poblacion con programa =
";INT(DP) U$;",es decir beneficio =";INT(DP*CU) M$;","
7570 PRINT"mientras en la poblacion sin
programa"
7571
IF VFS>VIS THEN GOTO 7572 ELSE 7573
7572 PRINT"la situacion epizootiologica se ha
empeorado por ";INT(DS) U$:GOTO 7580
7573 DS=VIS-VFS:PRINT"la situacion se ha
mejorado solamente por ";INT(DS) U$
7580 PRINT"de valor de ";INT(DS*CU)
M$;"."
7600 PRINT:PRINT"Relacion beneficio/costo del
programa = ";INT(DP*CU);"/";INT(C)
7601
PRINT"
= ";INT(DP*CU/C);" o ";INT(DP*CU/C)" : 1"
7610 PRINT:PRINT"La reduccion de las perdidas
por una unidad del fenomeno"
7620 PRINT"ha costado en promedio
";INT(C/DP) M$;".":PRINT
7630 PRINT"Si aplicamos este valor promedio a
la actual poblacion sin programa"
7640 PRINT"para alcanzar un resultado similar
en el futuro,bajo "
7645 PRINT"las condiciones similares,el programa
podria costar"
7650 PRINT"orientativamente
cerca";USING"############";((VFS-VFP)*(C/DP));
7651 PRINT TAB(40) M$ "."
7800 PRINT
7810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
7820
IF R$="s" THEN GOTO 7000 ELSE 7990
7990 RETURN
8000 CLS:PRINT"10.8-CALCULOS DE VALORES
MONETARIOS INFLUIDOS POR LA INFLACION"
8010
PRINT"==============================================================="
8030 REM:Preparando y evaluando los programas de
salud animal
8040 REM:siempre se debe tener en cuenta el valor de
la inflacion eventual.
8050 REM:Este subprograma calcula la conversion de
los precios del ano
8060 REM:corriente a los valores relativamente
constantes.
8190 REM:
8200 PRINT:PRINT"DATOS INICIALES:":PRINT
8211 INPUT"producto(servicio),unidades de medicion,
cantidad";S$,U$,Q
8212 INPUT"unidades monetarias";M$
8213 INPUT"ano basico";AB
8214 INPUT"ano determinado";AN
8215 PRINT:PRINT"Indicador a calcular - teclee
'0';los otros datos relevantes deben ser disponibles:":PRINT
8220 INPUT"precio promedio en el ano
basico";PO
8230 INPUT"precio promedio en el ano
determinado";PN
8240 INPUT"costo de una cantidad dada del
producto(servicio) en el ano basico";CO
8250 INPUT"costo de la misma cantidad del
producto(servicio) en el ano determinado";CN
8260 CLS:PRINT:PRINT"RESULTADO:":PRINT
8270 PRINT"Producto(servicio):
"S$;TAB(40)"Cantidad: "Q
8275 PRINT"Unidades de medicion:
"U$;TAB(40)"Unidades monetarias: "M$
8280
PRINT"Ano basico: "AB;TAB(40)"Ano determinado: "AN
8290
PRINT
8300
IF PO>0 AND PN>0 AND CN>0 THEN GOTO 8510 ELSE 8310
8310
IF PO>0 AND PN>0 AND CO>0 THEN GOTO 8520 ELSE 8320
8320
IF PN>0 AND CO>0 AND CN>0 THEN GOTO 8530 ELSE 8500
8500
IF PO>0 AND CO>0 AND CN>0 THEN GOTO 8540 ELSE 8800
8510 PRINT"El costo en el ano basico
=";USING"#########";CN*PO/PN:GOTO 8800
8520 PRINT"El costo en el ano determinado
=";USING"#########";CO/(PO/PN):GOTO 8800
8530 PRINT"El precio en el ano basico
=";USING"#####.##";CO*(PN/CN):GOTO 8800
8540 PRINT"El precio en el ano determinado
=";USING"#####.##";PO/(CO/CN):GOTO 8800
8800 PRINT
8810 PRINT"Indice de inflacion entre el
ano";AB;"y el ano";AN;"="
8820
IF PO>0 AND PN>0 THEN GOTO 8830 ELSE 8840
8830
PRINT TAB(10);"=";USING"####.####";(PN/PO)*100
8831
PRINT TAB(35)"porcentaje promedio anual =
";USING"####.####";(((PN/PO)*100)-100)/(AN-AB)
8840
IF CO>0 AND CN>0 THEN GOTO 8850 ELSE 8900
8850
PRINT TAB(10);"=";USING"####.####";(CN/CO)*100
8851 PRINT TAB(35)"porcentaje promedio anual =
";USING"####.####";(((CN/CO)*100)-100)/(AN-AB)
8900 PRINT
8910 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
8920
IF R$="s" THEN GOTO 8000 ELSE 8990
8990 RETURN
9000 CLS:PRINT"10.9-APLICACION DE LAS TASAS DEL
INTERES Y DEL DESCUENTO"
9010
PRINT"======================================================"
9040 REM:Planificando y evaluando los programas
epizootiologicos siempre
9050 REM:se debe tener en cuenta,que los valores
economicos (monetarios)
9060 REM:se cambian durante anos en dependencia de
los valores
9070 REM:de las tasas del interes y del descuento.
9190 REM:
9200 PRINT:PRINT"DATOS INICIALES:":PRINT
9210 PRINT"Tipos de los calculos:":PRINT
9220 PRINT"1-Valores futuros aplicando la tasa
del interes"
9230 PRINT"2-Valores cambiados aplicando la
tasa del descuento"
9240 PRINT"3-Calculo del valor de la tasa del
interes anual"
9250 PRINT"4-Calculo del numero de anos para
alcanzar un valor dado"
9270 PRINT
9300 INPUT"Seleccione el numero del tipo de
calculo: ", S$
9310
IF S$="1" THEN GOTO 9400 ELSE 9320
9320
IF S$="2" THEN GOTO 9500 ELSE 9330
9330
IF S$="3" THEN GOTO 9600 ELSE 9340
9340
IF S$="4" THEN GOTO 9700 ELSE 9990
9400 PRINT:PRINT"1-Valores futuros aplicando la
tasa del interes:":PRINT
9410 INPUT"valor del ano presente";VP
9420 INPUT"valor de la tasa del interes
anual";IA
9430 INPUT"numero de los anos";N
9440 CLS:PRINT:PRINT"RESULTADOS:":PRINT
9445 PRINT TAB(10)"Valor del ano presente (ano
0):"USING"##########.##";VP
9446 PRINT TAB(10)"Valor de la tasa del interes
anual:
"USING"#.####";IA:PRINT
9450 PRINT TAB(10)"V a l o r e s f u t u r o s":PRINT
9455
PRINT TAB(10)"Ano:";TAB(30)"Suma:":PRINT
9460
FOR I=1 TO N
9470
PRINT TAB(10)I;TAB(25)USING"##########.##";VP*(1+IA)^(I)
9480 NEXT I
9490 GOTO 9790
9500 PRINT:PRINT"2-Valores cambiados aplicando
la tasa del descuento:":PRINT
9510 INPUT"valor para descontar";VD
9520 INPUT"valor de la tasa del descuento
anual";DA
9530 INPUT"numero de los anos";N
9540 PRINT:PRINT"RESULTADOS:":PRINT
9545 PRINT TAB(10)"Valor para descontar (del
ano 0):";USING"##########.##";VD
9546 PRINT TAB(10)"Valor de la tasa del
descuento anual:
"USING"#.####";DA:PRINT
9550 PRINT TAB(10)"V a l o r e s d e s c o n t a d o s :":PRINT
9555
PRINT TAB(10)"Ano:";TAB(30)"Suma:":PRINT
9560
FOR I=1 TO N
9570
PRINT TAB(10)I;TAB(25)USING"##########.##";VD/(1+DA)^(I)
9580 NEXT I
9590 GOTO 9790
9600 PRINT:PRINT"3-Calculo del valor de la tasa
del interes anual:":PRINT
9610 INPUT"valor del ano presente";VP
9620 INPUT"valor de un ano futuro (valor debe
ser mayor que el presente)";VF
9630 INPUT"numero de los anos entre los valores
presente y futuro";N
9650
PRINT:PRINT"RESULTADO:":PRINT
9653
LET L=(LOG(VF)-LOG(VP))/N
9655 PRINT"Para alcanzar desde el valor
de"USING"##########.##";VP
9656 PRINT"durante";N;"anos"
9657 PRINT"un valor futuro
de"USING"##########.##";VF
9660 PRINT"se necesita que el valor de la tasa
del interes anual = ";USING"#.####";EXP(L)-1
9690 GOTO 9790
9700 PRINT:PRINT"4-Calculo del numero de los
anos para alcanzar un valor dado"
9705 PRINT
9710 INPUT"valor inicial (del ano
presente)";VI
9720 INPUT"valor final (de un ano
futuro)";VF
9730 INPUT"valor de la tasa del interes
anual";IA
9750 CLS:PRINT:PRINT"RESULTADO:":PRINT
9760 PRINT"Para alcanzar desde el valor
presente de"USING"##########.##";VI
9765 PRINT"un valor futuro
de"USING"##########.##";VF
9770 PRINT"aplicando la tasa del interes anual
de";USING"##.###";IA
9775
LET D=LOG(VF/VI)/LOG(1+IA)
9780 PRINT"el numero de anos necesarios =
";USING"##.##";D
9790 PRINT
9800 INPUT"Desea continuar el este subprograma,
si(s) o no(n)";C$
9810
IF C$="s"THEN GOTO 9000 ELSE 9990
9990 RETURN
10000 CLS:PRINT"10.10-ANALISIS DEL PUNTO
CRITICO DE LA EFECTIVIDAD ECONOMICA"
10010
PRINT"============================================================="
10020 PRINT
10030 REM:Este subprograma calcula el punto critico
de la efectividad
10040 REM:economica de los programas
epizootiologicos.
10050 REM:El punto critico se comprende aqui aquel
en el cual el valor
10060 REM:del beneficio = 0 ,es decir donde
comienza/termina
10070 REM:el beneficio.Se puede tratar de valores
monetarios or en terminos
10080 REM:epizootiologicos,de
produccion,sanitarios,etc.
10190 REM:
10200 PRINT"DATOS INICIALES:":PRINT
10210 PRINT"Indicador para calcular - teclee
'0'; los otros 4 datos deben ser disponibles:"
10220 PRINT
10230 INPUT"beneficio crudo";GP
10240 INPUT"numero de las unidades";U
10250 INPUT"precio de una unidad";P
10260 INPUT"insumos fijos totales";F
10270 INPUT"insumos variable para una
unidad";V
10500
CLS:PRINT:PRINT"RESULTADO:":PRINT
10510
IF GP>0 AND U>0 AND P>0 AND F>0 THEN GOTO 10600
10520
IF GP>0 AND U>0 AND P>0 AND V>0 THEN GOTO 10610
10530
IF GP>0 AND U>0 AND V>0 AND F>0 THEN GOTO 10620
10540
IF GP>0 AND P>0 AND V>0 AND F>0 THEN GOTO 10630
10550
IF P>0 AND U>0 AND V>0 AND F>0 THEN GOTO 10640
10600 PRINT"insumos variables para una unidad
=";USING"####.##";P-((GP+F)/U):GOTO 10800
10610 PRINT"insumos fijos totales
=";USING"#########.";(U*(P-V))-GP:GOTO 10800
10620 PRINT"precio de una unidad
=";USING"######.##";((GP+F)/U)+V:GOTO 10800
10630 PRINT"numero de unidades
=";USING"#########";(GP+F)/(P-V):GOTO 10800
10640 PRINT"beneficio crudo
=";USING"#########";(U*(P-V))-F:GOTO 10800
10800 PRINT
10810 INPUT"Desea repetir este subprograma,
si(s) o no(n)";R$
10820
IF R$="s" THEN GOTO 10000 ELSE 10990
10990 RETURN
11000 PRINT:INPUT"Desea entrar en el menu de EPIZOOT
programas, si(s) o no(n)";Z$
11010
IF Z$="s" THEN GOTO 11020 ELSE 11030
11020
CHAIN"EPIZOTMM.EXE"
11030
SYSTEM