summaryrefslogtreecommitdiff
path: root/343/CH2/EX2.57/ex2_57.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:38:01 +0530
committerprashantsinalkar2017-10-10 12:38:01 +0530
commitf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (patch)
treeeb72842d800ac1233e9d890e020eac5fd41b0b1b /343/CH2/EX2.57/ex2_57.sce
parent7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (diff)
downloadScilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.gz
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.bz2
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.zip
updated the code
Diffstat (limited to '343/CH2/EX2.57/ex2_57.sce')
-rwxr-xr-x343/CH2/EX2.57/ex2_57.sce57
1 files changed, 29 insertions, 28 deletions
diff --git a/343/CH2/EX2.57/ex2_57.sce b/343/CH2/EX2.57/ex2_57.sce
index a8a768c65..e71ec844b 100755
--- a/343/CH2/EX2.57/ex2_57.sce
+++ b/343/CH2/EX2.57/ex2_57.sce
@@ -1,29 +1,30 @@
-clc
-V=230+%i*0; //Assigning values to parameters
-L=10*10^-3;
-f=50;
-R=10;
-Xl=2*%pi*f*L;
-Xc=1/(2*%pi*f*C);
-Z1=10+%i*3.14;
-Z2=10-%i*6.37;
-Z=(Z1*Z2)/(Z1+Z2);
-I=V/Z;
-I1=V/Z1;
-I2=V/Z2;
-[r,t]=polar(Z1);
-[ro,th]=polar(Z2);
-[rot,tt]=polar(Z);
-pf1=cos(t);
-pf2=cos(th);
-pft=cos(tt);
-P1=I1*I1*R;
-P2=I2*I2*R;
-disp("Ohms",polar(Z),"Total Impedance");
-disp("Amperes",polar(I1),"Branch current I1");
-disp("Amperes",polar(I2),"Branch current I2");
-disp(polar(pf1),"Power factor of branch 1");
-disp(polar(pf2),"Power factor of branch 2");
-disp(polar(pft),"Total Power factor");
-disp("Watts",polar(P1),"Power consumed by branch 1");
+clc
+V=230+%i*0; //Assigning values to parameters
+L=10*10^-3;
+f=50;
+R=10;
+C=1.0/(4*(%pi^2)*(f^2)*L);
+Xl=2*%pi*f*L;
+Xc=1/(2*%pi*f*C);
+Z1=10+%i*3.14;
+Z2=10-%i*6.37;
+Z=(Z1*Z2)/(Z1+Z2);
+I=V/Z;
+I1=V/Z1;
+I2=V/Z2;
+[r,t]=polar(Z1);
+[ro,th]=polar(Z2);
+[rot,tt]=polar(Z);
+pf1=cos(t);
+pf2=cos(th);
+pft=cos(tt);
+P1=I1*I1*R;
+P2=I2*I2*R;
+disp("Ohms",polar(Z),"Total Impedance");
+disp("Amperes",polar(I1),"Branch current I1");
+disp("Amperes",polar(I2),"Branch current I2");
+disp(polar(pf1),"Power factor of branch 1");
+disp(polar(pf2),"Power factor of branch 2");
+disp(polar(pft),"Total Power factor");
+disp("Watts",polar(P1),"Power consumed by branch 1");
disp("Watts",polar(P2),"Power consumed by branch 2"); \ No newline at end of file