otros ejemplos de subrutinas

Les subo otros ejemplos de subrutinas para que los analicen y prueben en sus computadoras, las 2 últimas son más compleja para que vean algo un poco más avanzado, pero la opción no se incluirá en el examen.

Estos ejemplos declaran o dimensionan las variables dentro de la subrutina, hasta ahora lo han hecho antes, pueden hacerlo de las dos formas, la ventaja de hacerlo dentro de la subrutina es que pueden poner varias en una misma hoja, si las declaran antes, deben ponerlas en hojas separadas para que funcionen.

También recuerden que se les va a pedir que asocien cada macro a una figuta.


Sub compradolares()
  Dim cantidad As Integer, tipo As Double, pesos As Double
  cantidad = InputBox("cuantos dolares quieres comprar")
  tipo = InputBox("a cuanto esta el dolar hoy")
  pesos = cantidad * tipo
  MsgBox ("debes pagar en pesos ") & pesos
End Sub

Sub tienda()
  Dim cantidad As Integer, precio As Double, pago As Double, coniva As Double
  cantidad = InputBox("cuantos articulos vas a comprar")
  precio = InputBox("cual es el precio marcado en la etiqueta")
  pago = cantidad * precio
  MsgBox ("el precio sin IVA es ") & pago
  coniva = pago * 1.16
  MsgBox ("el total a pagar con IVA es ") & coniva
End Sub

Sub celciusafarenheit()
  Dim nombre As String
nombre = InputBox("Cual es tu nombre")
MsgBox ("Hola ") & nombre
  Dim farenheit As Double
  Dim resultado As Double
  farenheit = InputBox("¿cuantos grados celsius quieres convertir?")
  resultado = 32 + (farenheit * 1.8)
  MsgBox "El resultado en Fahrenheit es " & resultado


Sub promediogeneracion()
Dim nombre As String
Dim promedio As Double
Dim grupo4010 As Double
Dim grupo4020 As Double
Dim grupo4030 As Double
Dim grupo4040 As Double
nombre = InputBox("¿Cual es tu nombre?")
MsgBox ("Hola ") & nombre & " para saber el pomedio de la generación en matemáticas pulsa OK"
grupo4010 = InputBox("¿cual es el promedio del grupo 4010?")
grupo4020 = InputBox("¿cual es el promedio del grupo 4020?")
grupo4030 = InputBox("¿cual es el promedio del grupo 4030?")
grupo4040 = InputBox("¿cual es el promedio del grupo 4040?")
promedio = (grupo4010 + grupo4020 + grupo4030 + grupo4040) / 4
MsgBox ("El promedio de la generación en Matemáticas es ") & promedio

End Sub


Sub tipografica()
Dim nombre As String
Dim independiente As Integer
nombre = InputBox("¿Cual es tu nombre?")
MsgBox ("Hola ") & nombre & " las opciones a elegir son 1. cuantitativa 2. cualitativa pulsa OK para elegir"
independiente = InputBox("Elige el numero que corresponde a la naturaleza de tu variable independiente")
If independiente = 1 Then
MsgBox ("Debe ser grafica de dispersión con linea de tendencia ecuación y R2")
Else
If independiente = 2 Then
MsgBox ("Debe ser grafica de columnas con barras de error representando desv. est.")
End If
End If

End Sub

Sub conversion()
     Dim grados As Integer, fahrenheit As Integer, kelvin As Integer, celsius As Integer, rankin As Integer
     MsgBox "Las opciones a elegir son:         1. De Fahrenheit a Kelvin.  2. De Fahrenheit a Celcius.  3. De Fahrenheit a Rankine"
     grados = InputBox("¿Que opcion Quieres?")
    If grados = 1 Then
     fahrenheit = InputBox("¿Cuantos grados Fahrenheit quieres convertir?")
     kelvin = ((fahrenheit - 32) / 1.8) + 273.15
  MsgBox "El resultado en grados Kelvin es " & kelvin
    Else
    If grados = 2 Then
      fahrenheit = InputBox("¿Cuantos grados Fahrenheit quieres convertir?")
      celsius = (fahrenheit - 32) / 1.8
      MsgBox "El resultado en grados Celcius es " & celsius
    Else
    If grados = 3 Then
      fahrenheit = InputBox("¿Cuantos grados Fahrenheit quieres convertir?")
      rankin = (fahrenheit - 32) + 491.67
      MsgBox "El resultado en grados Rankin es " & rankin
   
    End If
    End If
    End If
   
End Sub

Visual Basic

Hola chicos

Les pongo una sub rutina, primero revisen como esta desarrollada, luego cópienla en el editor de visual basic de una hoja de Excel. Agreguen una figura en la hoja de Excel y asignenle la Macro para que al pulsar sobre ella se corra la sub rutina.

Dim nombre As String
Dim base As Double
Dim altura As Double, Area As Double

Sub trianguloarea()
nombre = InputBox("¿Cual es tu nombre?")
MsgBox ("Hola ") & nombre & " Si quieres el area del triangulo pulsa aceptar"
base = InputBox("Anota la base del triangulo")
altura = InputBox("Ahora la altura")
Area = (base * altura) / 2
MsgBox ("el area del triangulo es ") & Area & " cm"

End Sub


Tengan en cuenta que:

• Para declarar las variables pueden usar Private o Dim.
• Pueden manejar 3 tipos de variables, Integer cuando la variable es un número entero, Double cuando es un número con decimales y String cuando la variable es texto como en el caso del nombre en la sub rutina que copiaron.
• Estan manejando dos tipos de "cajas" InputBox es para ingresar el dato de una variable y MsgBox es para que se vea un comentario o un dato (salida).
• Cuando ingresan un texto en el MsgBox, este debe ir entrecomillado y cuando alternan diferentes mensajes en un mismo MsgBox deben poner & entre ellos.

Ahora inventen al menos 3 sub rutinas para calcular IMC, o área de un cuadrado o transformar dolares a Pesos mexicanos o grados Celsius a grados Fahrenheit (o viceversa)

Chi cuadrada como prueba de independencia de variables

CHI-CUADRADA COMO PRUEBA DE INDEPENDENCIA DE VARIABLES APLICADA A EVALUAR UNA POSIBLE ASOCIACIÓN ENTRE 2 ESPECIES.

La prueba de independencia Chi-cuadrada, nos permite determinar si existe una relación entre dos variables categóricas.

Cuando la probabilidad de que ocurra un evento aleatorio no esta afectada por la ocurrencia de otro evento entonces son variables independientes entre si, si por el contrario, la ocurrencia del evento aleatorio se ve afectada por la ocurrencia de otra, entonces se trata de variables  dependientes una de otra.

Es necesario resaltar que esta prueba nos indica si existe o no una relación entre las variables. pero no indica el grado o el tipo de relación; es decir, no indica el porcentaje de influencia de una variable sobre la otra o la variable que causa la influencia.

Por ejemplo si  en un colegio se quiere saber si el darle prioridad a tener buenas calificaciones o a ser popular o a participar en deportes es independiente de que el alumno sea niño o niña, esta seria la prueba que podría dar una respuesta, pero no nos va a decir cuales son las preferencias de las niñas y de los niños, eso lo sabremos al ver que opción es más frecuente en los niño o en las niñas.

Hoy vamos a trabajar con Chi cuadrada como prueba de independencia de variables y la vamos a aplicar  para ver si en un ecosistema dos especies se distribuyen independientemente o en función de algún tipo de asociación entre ellas.

En decir, las poblaciones  están distribuidas de forma desigual dentro del ecosistema debido a que algunas partes del hábitat son más adecuadas para algunas especies que para otras. Si dos especies se encuentran en las mismas partes de un hábitat, tenderán a ser encontradas juntas en las mismas zonas. Esto se conoce como asociación positiva. También puede haber asociaciones negativas (no se encuentran juntas), o la distribución de las dos especies puede ser independiente y aleatoriamente pueden encontrarse juntas o separadas. 

En esta prueba los datos experimentales se obtienen a partir de cuadrantes, que se aplican de la siguiente manera:

Primero se traza un cuadrante de ciertas dimensiones, por ejemplo de 10 por 10 metros y 

se ponen marcas a cada metro a lo largo ya lo ancho, después se asignan letras a cada metro a lo ancho y números a cada metro a lo largo y al azar se eligen combinaciones,por ejemplo D 8 en la intersección de ambos dentro del cuadrante grande se marca un cuadrado pequeño de 1 por 1 metro y ahi se ve si la especie 1 y/o la especie 2 se encuentran dentro de esa área.

Se contabiliza el numero de cuadrantes que presentan una de las 4 posibilidades:

Especie A ausente, B ausente, 

Especie A presente B ausente, 

Especie A ausente B presente o 

Especie A presente y B presente

Por Ejemplo

	Especie A presente	Especie A ausente
Especie B presente	54	6
Especie B ausente	10	19

Hay dos posibles hipótesis:

Ho: Las dos especies se distribuyen de forma independiente.

Ha: Dos especies se asocian (positiva o negativamente)

La prueba de Chi-cuadrado es válida sólo si todas las frecuencias esperadas son mayores a 5, y la muestra fue tomada al azar dentro de la población.

1.       Elaborar una tabla de contingencia de frecuencias observadas, que son el número de cuadrantes que contienen o no cada una de las especies.

	Especie A presente	Especie A ausente	Total en la fila
Especie B presente
Especie B ausente
Total en columna

En la celda amarilla se obtiene el gran total.

2.       Calcular las frecuencias esperadas: Asumiendo una distribución independiente para cada una de las 4 combinaciones, se calcula cada frecuencia esperada usando la ecuación siguiente:
  

3.       Calcular los grados de libertad usando la ecuación:   grados de libertad =  (m-1)(n-1)  donde m y n son el número de filas (m) y de columnas (n).

4.       Calcular la chi-cuadrada con la ecuación:
               

               donde Σ es sumatoria, ƒo la frecuencia observada y ƒe la frecuencia esperada.

5.       Para este cálculo se construye la siguiente tabla con las frecuencias observadas y esperadas para las 4 posibilidades

Cuadrantes con Especie	Frecuencia observada	Frecuencia Esperada (obtenida en el punto 2)
Solo A
Solo B
A y B
Ni A ni B
Σ

En el cuadro resalado en amarillo se obtendrá la sumatoria de esa columna que es el valor de X² calculado y que se compara con el de tablas.

6.       Encuentre el valor crítico en la tabla de Chi-cuadrada de acuerdo a los grados de libertad obtenidos y a un nivel de significancia (p) de 0.05 (5%). (La región crítica es todo valor mayor que el encontrado en la tabla).

7.       Comparar el valor obtenido en la ecuación, con el de la tabla. Si el valor obtenido está en la región crítica (mayor que el encontrado en la tabla) se rechaza la Ho, se acepta entonces la Ha, indicando entonces con un nivel de confianza del 95%,  que hay asociación entre las 2 especies.

Ejercicio Chi cuadrada

Da click en el enlace para descargar el ejercicio que se trabajará en clase.

                Ejercicio Ji cuadrada Bondad de ajuste 1

Cuando acabes envíalo al correo bioticsbab@gmail.com

X2 COMO PRUEBA DE BONDAD DE AJUSTE

En la clase de hoy iniciamos con otra prueba estadística,  se conoce como Ji cuadrada, Chi cuadrada o X²

Esta prueba puede emplearse para diferentes fines, hoy iniciamos a usarla como una prueba de bondad de ajuste.

En este sentido resulta ser una herramienta estadística que indica cuan cercano está un grupo de resultados obtenidos (de un experimento, observación o encuesta)  con los resultados teóricos o esperados de acuerdo al estado del arte o sea lo que se sabe del fenómeno que se este evaluando. Hay que tener en cuenta que esta prueba se utiliza solamente cuando se necesita analizar variables que están categorizados y resultados basados en conteos, no en mediciones.

Algunos ejemplos podrían ser :

    Clasificación de palmas en compactas, supercompactas, normales.

    Clasificación de individuos en muertas, enfermas, sanas.

    Clasificación de individuos por colores.

    Clasificación de individuos en hembras y machos.

Esta prueba trata de probar si los resultados a partir de una muestra tienen concordancia con los esperados, y la formula que se aplica es la siguiente.

donde "o" es el valor observado para cada una de dos o mas clases, y "e" es el valor esperado correspondiente.

La forma de proceder es la siguiente: 

• Se establece la Ho (hipótesis nula) que establece que no hay diferencias significativas entre las categorías de la variable estudiada.

• Se establece la H_A (hipótesis alternativa) que establece que si hay diferencias significativas entre las categorías de la variable estudiada. 

• Arreglar las categorías y las frecuencias observadas en una tabla.

• Calcular los valores teóricos esperados para el modelo experimental.

• Se calcula las x² para cada categoría, se suman para obtener X^2.

• Se obtienen los grados de libertad que resultan de restar 1 al numero de categorías. 

• Se compara el valor en las tablas de contingencia a un valor de probabilidad de 0.05, que es el valor internacionalmente empleado en biología. 

• Si x²c < x²t (el valor de x² calculado es menor que el de la tabla)  entonces se acepta la Ho en caso contrario se acepta la H_A

Ejemplo:

Se sabe que en un cruce T x T de palma, la descendencia de duras, teneras y pisiferas esta en una proporción de 1:2:1. 
En una muestra de 104 palmas se obtuvieron 28 duras, 49 teneras y 27 pisiferas. ¿Se ajustan estos datos a la proporción esperada?

Para comprobarlo calculo el número de las esperadas de acuerdo a la proporción 1:2:1 la cual me esta indicando que lo esperado es que del total (104), ¼ correspondan a duras, ½ a teneras y ¼ a pisiferas.

Cálculo :

Duras=104*1=26
                  4

Teneras_e=104*1=52
                    2

Pisiferas_e=104*1=26
                       4

Categoría	Esperado	Observado	(o-e)2/e (ver formula)
Duras	26	28	0.1538
Teneras	52	49	0.1731
Pisiferas	26	27	0.0385
Total	104	104	0.3654 (X2c)

X²c = 0.365 y  Gl = 2

Los grados de libertad (Gl) se obtienen restándole 1 al número de categorías.

Haciendo uso de la tabla de probabilidades de x² y con los grados de libertad obtenidos, se determina el valor crítico al nivel de significancia deseado. En este caso para Gl = 2 y para un nivel de 0.05 P se obtiene x² = 5.991.

Como x²c < x²t entonces se acepta la hipótesis nula (Ho) planteada; y se concluye que no hay diferencias significativas entre lo esperado y lo observado, y que los datos corresponden a una proporción de 1:2:1.