Studiju darbs elektrotehnikas teorētiskajos pamatos

1.4. Ķēdes jaudas bilance
Psaražota=Ppatērētā
Matlab:
r=[5 3 1 1 3 5];j1=4;e1=20;e2=10;
R=[r([1])+r([2])+r([3]) -r([3]) -r([2]);
-r([3]) r([3])+r([4])+r([5]) -r([5]);
-r([2]) -r([5]) r([2])+r([5])+r([6])];
U=[e1+j1*r([2]);0;e2-j1*r([2])];
I=RU;
IR1=I(1);
IR2=I(1)-I(3)-j1;
IR3=I(1)-I(2);
IR4=I(2);
IR5=I(2)-I(3);
IR6=I(3);
Ii1=j1;
Iu1=-I(1);
Iu2=-I(3);

UR2=IR2*r([2]);
Ui1=UR2;
Uu1=e1;
Uu2=e2;
PR1 =IR1.^2*r([1])
PR2 =IR2.^2*r([2])
PR3 =IR3.^2*r([3])
PR4 =IR4.^2*r([4])
PR5 =IR5.^2*r([5])
PR6 =IR6.^2*r([6])
Pi1=Ii1.*Ui1
Pu1 =Iu1.*Uu1
Pu2 =Iu2.*Uu2
Psar=Pi1+Pu1+Pu2
Ppat=PR1+PR2+PR3+PR4+PR5+PR6
…