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