Solo quiero compartir lo que me llevo mucho tiempo hacer.
solo un par de renglones de programación en lenguaje Wolfram mathematica para el calculo de tensiones desbalanceadas en las 3 lineas + el neutro si lo tuviese.
Hice cuanto pude para escribirlo de tal forma que lo puedan correr sin la necesidad de bajar el programa,
(lo probé en la versión 7 y 9) a través de lo que sus ingenieros llaman el CDF.
que es como un PDF informático propio del programa.
En teoría, según contaron en una conferencia, se puede correr cualquier comando a través del CDF sin la necesidad de descargar el Wolfram. El CDF se instala en el navegador como una extensión mas y una vez convertido del formato predeterminado de hoja de calculo (.nb) al (.CDF) cual quier usuario puede correrlo desde google chrome, digamos.
Por desgracia, mi poca experiencia no me permite adaptar el archivo para ser divisado de esa forma, ni mucho menos se como trabaja esa extensión.
Por lo que solo dejo lo que logre hasta el momento, por si alguien mas experimentado lo ve y aporta algo en este sentido. En fin, si tienen el programa solo copien y peguen los comandos y corranlo pulsando Shift+enter o intro del teclado numeral.
Los valores se cambien en el mismo comando en el lugar indicado.
[color=#000000][color=#000000][color=#000000][color=#000000]
Función para cargas variables
Circuito Y sin neutro con carga variable
cagas:
Za = 4.74 E^(22.36 Degree I);
Zb = 4.74 E^(22.36 Degree I);
Zc = 4.74 E^(22.36 Degree I);
Va = 208/Sqrt[3] E^(210*[Pi]/180 I);
Vb = 208/Sqrt[3] E^(90*[Pi]/180 I);
Vc = 208/Sqrt[3] E^(-30*[Pi]/180 I);
Matriz:
Dz = Det[( {
{Za + Zb, Zb},
{Zb, Zb + Zc}
} )] // N;
I1 = (Det[( {
{Va - Vb, Zb},
{Vc - Vb, Zb + Zc}
} )])/Dz;
I2 = (Det[( {
{Za + Zb, Va - Vb},
{Zb, Vc - Vb}
} )])/Dz;
Vno1 = ((Va*(1/Za) + Vb*(1/Zb) +
Vc*(1/Zc))/((1/Za) + (1/Zb) + (1/Zc))) // N;
Print[Style["Resultados;", 40, Brown, FontFamily -> "Helvetica"]]
Print[Style[I1, 20, Brown], Style[" El fasor Ia es ", 20, Brown],
Style[Abs[I1], 20, Brown], Style["/", 20, Brown],
Style[Arg[I1]*180/[Pi], 20, Brown], Style["º", 20, Brown]]
Print[Style[I2, 20, Brown], Style[" El fasor Ic es ", 20, Brown],
Style[Abs[I2], 20, Brown], Style["/", 20, Brown],
Style[Arg[I2]*180/[Pi], 20, Brown], Style["º", 20, Brown]]
Print[Style[-I1 - I2, 20, Brown],
Style[" El fasor Ib es ", 20, Brown],
Style[Abs[-I1 - I2], 20, Brown], Style["/", 20, Brown],
Style[Arg[-I1 - I2]*180/[Pi], 20, Brown], Style["º", 20, Brown]]
Print[Style[-Vno1, 20, Blue, Background -> LightBlue],
Style[" El fasor Von es ", 20, Blue, Background -> LightBlue],
Style[Abs[-Vno1], 20, Blue, Background -> LightBlue],
Style["/", 20, Blue, Background -> LightBlue],
Style[Arg[-Vno1]*180/[Pi], 20, Blue, Background -> LightBlue],
Style["º", 20, Blue, Background -> LightBlue]]
Print[Style[(I1*Za), 20, Blue, Background -> Yellow],
Style[" El fasor Voa es ", 20, Blue, Background -> Yellow],
Style[Abs[(I1*Za)], 20, Blue, Background -> Yellow],
Style["/", 20, Blue, Background -> Yellow],
Style[Arg[(I1*Za)]*180/[Pi], 20, Blue, Background -> Yellow],
Style["º", 20, Blue, Background -> Yellow]]
Print[Style[(I2*Zc), 20, Blue, Background -> Green],
Style[" El fasor Voc es ", 20, Blue, Background -> Green],
Style[Abs[(I2*Zc)], 20, Blue, Background -> Green],
Style["/", 20, Blue, Background -> Green],
Style[Arg[(I2*Zc)]*180/[Pi], 20, Blue, Background -> Green],
Style["º", 20, Blue, Background -> Green]]
Print[Style[((-I1 - I2)*Zb), 20, Blue, Background -> LightRed],
Style[" El fasor Vob es ", 20, Blue, Background -> LightRed],
Style[Abs[((-I1 - I2)*Zb)], 20, Blue, Background -> LightRed],
Style["/", 20, Blue, Background -> LightRed],
Style[Arg[((-I1 - I2)*Zb)]*180/[Pi], 20, Blue,
Background -> LightRed],
Style["º", 20, Blue, Background -> LightRed]]
G1 = Graphics[{Yellow, Arrow[],
Text[Style["Voa", Bold, Black,
Large], {Re[(I1*Za)], Im[(I1*Za)]}*1.1]}];
G2 = Graphics[{Green, Arrow[],
Text[Style["Voc", Bold, Black,
Large], {Re[(I2*Zc)], Im[(I2*Zc)]}*1.1]}];
G3 = Graphics[{Red,
Arrow[],
Text[Style["Vob", Bold, Black,
Large], {Re[((-I1 - I2)*Zb)], Im[((-I1 - I2)*Zb)]}*1.1]}];
G4 = Graphics[{Blue, Arrow[],
Text[Style["Von", Bold, Black,
Large], {Re[(-Vno1)], Im[(-Vno1)]}*1.4]}];
[/color]
Bueno eso es todo, gracias por pasar.