diff options
Diffstat (limited to '1109/CH12/EX12.11/12_11.sce')
-rwxr-xr-x | 1109/CH12/EX12.11/12_11.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1109/CH12/EX12.11/12_11.sce b/1109/CH12/EX12.11/12_11.sce new file mode 100755 index 000000000..fac57c605 --- /dev/null +++ b/1109/CH12/EX12.11/12_11.sce @@ -0,0 +1,10 @@ +clear;
+clc;
+Z1=%i*10;Z2=3+(%i*4);Z=5;V=20;
+Zeq=1/((1/Z1)+(1/Z2));
+Zi=Z+Zeq;
+I=V/Zi;
+Vc=I*Zeq;
+A=real(Vc);
+B=imag(Vc);
+printf("Compensation source Vc = %f /_ %f volts",round(abs(Vc)*10)/10,round(atan(B,A)*180*10/%pi)/10);
|