diff options
Diffstat (limited to '671/CH4/EX4.37/4_37.sce')
-rwxr-xr-x | 671/CH4/EX4.37/4_37.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/671/CH4/EX4.37/4_37.sce b/671/CH4/EX4.37/4_37.sce new file mode 100755 index 000000000..dcf69a414 --- /dev/null +++ b/671/CH4/EX4.37/4_37.sce @@ -0,0 +1,23 @@ +function Zeq=parallel(Z1,Z2)
+ Zeq=Z1*Z2/(Z1+Z2)
+endfunction
+
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+[Ir,Ic]=polar_to_cart(20,60)
+I=complex(Ir,Ic)
+
+w=5000
+R=3000
+L=1
+C=0.25E-6
+Xl=w*L*%i
+Xc=1/(w*C*%i)
+
+Z=parallel(R+Xl,Xc)
+V=I*Z
+disp(V)
\ No newline at end of file |