Graficar en Visual!!
Publicado por Leonardo (4 intervenciones) el 01/06/2006 03:19:59
El la segunda ves que hago una pregunta y les agradezco haberme contestado en una primera instancia. Gracias!!
Como ya saben; tengo problema con graficar la función Y5 en cada iteracion, comprendida entre los tiempos B y C. a continuación les paso la macro,; yo trate de hacerlo pero no pude(Yo tengo Visual 6.0). lo que necesito es que esta función me aparezca en la misma hoja de Calculo de Excel donde se encuentran los datos de entrada. Al final se encuentra el desarrollo del libro que no tiene error solo que esta en Visual de otra versión a la mía.
Function ControlDePresión(B, C, T, C2, S, PR, T1, K, R, X, E, EI, Y1, Y2, Y3, Y4, Y5)
For w = B To C Step T
EI = EI + E * T
E = X - Y5
Y1 = K * E + (K * EI) / R
Y3 = Y3 + T * (1 / (C2 ^ 2)) * (Y1 - Y2 - 2 * S * C2 * Y3)
Y2 = Y2 + T * Y3
If Y2 > 1 Then Y2 = 1
If Y2 < 0 Then Y2 = 0
Y4 = Y4 + T * (1 / PR) * (Y2 - Y4)
Y5 = Y5 + T * (1 / T1) * (Y4 - Y5)
Next w
ControlDePresión = Y5
End Function
Como ya saben; tengo problema con graficar la función Y5 en cada iteracion, comprendida entre los tiempos B y C. a continuación les paso la macro,; yo trate de hacerlo pero no pude(Yo tengo Visual 6.0). lo que necesito es que esta función me aparezca en la misma hoja de Calculo de Excel donde se encuentran los datos de entrada. Al final se encuentra el desarrollo del libro que no tiene error solo que esta en Visual de otra versión a la mía.
Function ControlDePresión(B, C, T, C2, S, PR, T1, K, R, X, E, EI, Y1, Y2, Y3, Y4, Y5)
For w = B To C Step T
EI = EI + E * T
E = X - Y5
Y1 = K * E + (K * EI) / R
Y3 = Y3 + T * (1 / (C2 ^ 2)) * (Y1 - Y2 - 2 * S * C2 * Y3)
Y2 = Y2 + T * Y3
If Y2 > 1 Then Y2 = 1
If Y2 < 0 Then Y2 = 0
Y4 = Y4 + T * (1 / PR) * (Y2 - Y4)
Y5 = Y5 + T * (1 / T1) * (Y4 - Y5)
Next w
ControlDePresión = Y5
End Function
Valora esta pregunta
0