User:1sfoerster/sandbox/code2

From Wikibooks, open books for an open world
Jump to navigation Jump to search
v1 := Symbol::subScript(V,1);
v2 := Symbol::subScript(V,2);
vc := Symbol::subScript(V,c);
vL := Symbol::subScript(V,L);
vS := Symbol::subScript(V,S);

i1 := Symbol::subScript(i,1);
i2 := Symbol::subScript(i,2);
ic := Symbol::subScript(i,c);
iL := Symbol::subScript(i,L);
iS := Symbol::subScript(i,S);

r1 := Symbol::subScript(R,1);
r2 := Symbol::subScript(R,2);

r1 :=1;
r2 :=2;
C :=1;
L :=1;
w :=1;
vS :=1;
iS :=  -2*sin(PI/3)-I;
numeric::linsolve ([
v1 = r1 * i1,
v2 = r2 * i2,
ic = C*I*w*vc,
vL = L * I * w * iL,
i1 + iS - i2 - ic=0,
ic - iS - iL=0,
v1 + v2 - vS=0,
vc + vL - v2 =0],
[v1, v2, vc, vL, i1, i2, ic, iL])