diff options
Diffstat (limited to '3673/CH5/EX5.9/Ex5_9.sce')
| -rw-r--r-- | 3673/CH5/EX5.9/Ex5_9.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/3673/CH5/EX5.9/Ex5_9.sce b/3673/CH5/EX5.9/Ex5_9.sce new file mode 100644 index 000000000..80a13bd3c --- /dev/null +++ b/3673/CH5/EX5.9/Ex5_9.sce @@ -0,0 +1,17 @@ +//Example 5_9 page no:199
+clc
+function [r,th]=rect2pol(x,y)
+//rectangle to polar coordinate conversion
+r=sqrt(x^2+y^2);
+th=atan(y,x)*180/3.14;
+endfunction
+Z1=5+(%i*10)
+Z2=2-(%i*4)
+Z3=1+(%i*3)
+Zt=Z1+((Z2*Z3)/(Z2+Z3))
+disp(Zt,"the equivalent impedence is(in ohm)")//imaginary term is rounded off
+[mag,theta]=rect2pol(real(Zt),imag(Zt))
+disp("In polar form")
+disp(mag,"magnitude of impedance is (in ohm)")
+disp(theta,"angle of impedance is (in degree)")
+disp("the values varies slightly with text book hence values are rounded off in text book")
|