zad6, Michalik

E=10;Iz=2;R1=2;R2=1;R3=3;R4=1/2;R5=3/4;R6=3/2;R7=5/2;
G1=1/R1;G2=1/R2;G3=1/R3;G4=1/R4;G5=1/R5;G6=1/R6;G7=1/R7;
Y=zeros(4);
Y(1,1)=G1+G2;Y(1,2)=-G1;
Y(2,1)=-G1;Y(2,2)=G1+G3+G4;Y(2,3)=-G4;
Y(3,2)=-G4;Y(3,3)=G4+G6+G7;Y(3,4)=-G7;
Y(4,3)=-G7;Y(4,4)=G5+G7;
Ip=[-Iz;0;G6*E;Iz+G5*E];
Up=Y\Ip
U=-Up(1),I=(Up(2)-Up(4))*G4

Y(1,1)=G4+G6+G7;Y(1,2)=-G7;Y(1,4)=-G4;
Y(2,1)=-G7;Y(2,2)=G5+G7;
Y(3,3)=G1+G2;Y(3,4)=-G1;
Y(4,1)=-G4;Y(4,3)=-G1;Y(4,4)=G1+G3+G4;
Ip=[0;Iz;-Iz-G2*E;-G3*E];