343/CH2/EX2.35/ex2_35.sce


1
2
3
4
5
6
7
8
9

clc
Z1=12.5+%i*21;          //Assigning values to parameters
V=50+%i*0;
I1=V/Z1;
I2=0.722-0.723*%i;
Z=V/I2;
Z2=Z-Z1;
[r,t]=polar(Z2);
disp("Ohms",r,"Impedance Z2");