problema para graficar
Publicado por julian diaz (1 intervención) el 14/05/2009 03:45:32
hola a todos . mi manejo de visual basic es algo corto y la verdad es que por ahora estoy aprendiendo cosas. ahora debo realizar un programa QUE GRAFIQUE una curva de operacion que es l osiguiente
http://mx.geocities.com/pansaxxxxxxxx/1.jpg
http://mx.geocities.com/pansaxxxxxxxx/2.jpg
http://mx.geocities.com/pansaxxxxxxxx/3.jpg
lo que debo hacer es que con siertos valores de p me calcule la probabilidad de aceptacion y despues me grafique los valores p que ingrese con los valores que me calcula. calcularlo s eme hizo facil pero no s emanejar bien lo que es m epresenta el preoblema es el codigo para da rla escala al picturebox y graficar los vectores. si alguien me puede ayudar muchas gracias.
EL CODIGO QUE UTILICE FUE
Dim j As Integer, k As Integer, c As Integer, n As Integer, d As Integer, suma As Double, t As Integer, h As Integer, ext As Double
j = Val(InputBox("numero de datos a graficar", "numero de datos"))
Dim q(0 To j) As Double, w(0 To j) As Double
For k = 1 To j
q(k) = Val(InputBox("Ingrese el valor de p ", k))
Next
n = Val(InputBox("numero de articulos muestrados", "articulos muestreados"))
c = Val(InputBox("numero de articulos defectuosos permitidos", "articulos defectuosos"))
For t = 1 To j
suma = 0
For d = 0 To c
ext = (Factorial(n) / ((Factorial(d)) * (Factorial(n - d)))) * (q(t) ^ (d)) * ((1 - q(t)) ^ (n - d))
suma = suma + ext
Next
w(t) = suma
Next
For h = 1 To j
'TextBox1.Text = TextBox1.Text & w(h) & q(h) & vbCrLf
Y EL CODIGO PARA EL FACTORIAL FUE
Function factorial(num As Double)
If num = 0 Then
factorial = 1
Else
factorial = num * factorial(num - 1)
End If
End Function
De antemano si alguien me puede ayudar muchas gracias
http://mx.geocities.com/pansaxxxxxxxx/1.jpg
http://mx.geocities.com/pansaxxxxxxxx/2.jpg
http://mx.geocities.com/pansaxxxxxxxx/3.jpg
lo que debo hacer es que con siertos valores de p me calcule la probabilidad de aceptacion y despues me grafique los valores p que ingrese con los valores que me calcula. calcularlo s eme hizo facil pero no s emanejar bien lo que es m epresenta el preoblema es el codigo para da rla escala al picturebox y graficar los vectores. si alguien me puede ayudar muchas gracias.
EL CODIGO QUE UTILICE FUE
Dim j As Integer, k As Integer, c As Integer, n As Integer, d As Integer, suma As Double, t As Integer, h As Integer, ext As Double
j = Val(InputBox("numero de datos a graficar", "numero de datos"))
Dim q(0 To j) As Double, w(0 To j) As Double
For k = 1 To j
q(k) = Val(InputBox("Ingrese el valor de p ", k))
Next
n = Val(InputBox("numero de articulos muestrados", "articulos muestreados"))
c = Val(InputBox("numero de articulos defectuosos permitidos", "articulos defectuosos"))
For t = 1 To j
suma = 0
For d = 0 To c
ext = (Factorial(n) / ((Factorial(d)) * (Factorial(n - d)))) * (q(t) ^ (d)) * ((1 - q(t)) ^ (n - d))
suma = suma + ext
Next
w(t) = suma
Next
For h = 1 To j
'TextBox1.Text = TextBox1.Text & w(h) & q(h) & vbCrLf
Y EL CODIGO PARA EL FACTORIAL FUE
Function factorial(num As Double)
If num = 0 Then
factorial = 1
Else
factorial = num * factorial(num - 1)
End If
End Function
De antemano si alguien me puede ayudar muchas gracias
Valora esta pregunta


0