6 files changed, 75 insertions, 71 deletions
diff --git a/343/CH2/EX2.51/ex2_51.sce b/343/CH2/EX2.51/ex2_51.sce
index 14b39dec6..8f076fc39 100755
--- a/343/CH2/EX2.51/ex2_51.sce
+++ b/343/CH2/EX2.51/ex2_51.sce
@@ -1,17 +1,17 @@
-clc
-V=10/sqrt(2);         //Assigning values to parameters
-Vc=500;
-BW=400/(2*%pi);
-R=100;
-Q=Vc/V;
-fr=BW*Q;
-f1=fr-BW/2;
-f2=fr+BW/2;
-L=R/(2*%pi*BW);
-fr=1/(2*%pi*sqrt(L*C));
-C=1/(fr*fr*4*%pi*%pi*L);
-disp("Hertz",fr,"Resonant frequency");
-disp("Hertz",f1,"Lower frequency");
-disp("Hertz",f2,"Upper frequency");
-disp("Henry",L,"Inductor value");
+clc
+V=10/sqrt(2);         //Assigning values to parameters
+Vc=500;
+BW=400/(2*%pi);
+R=100;
+Q=Vc/V;
+fr=BW*Q;
+f1=fr-BW/2;
+f2=fr+BW/2;
+L=R/(2*%pi*BW);
+C=1/(fr*fr*4*%pi*%pi*L);
+fr=1/(2*%pi*sqrt(L*C));
+disp("Hertz",fr,"Resonant frequency");
+disp("Hertz",f1,"Lower frequency");
+disp("Hertz",f2,"Upper frequency");
+disp("Henry",L,"Inductor value");
 disp("Farads",C,"Capacitor value");
 \ No newline at end of file
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
diff --git a/343/CH2/EX2.8/ex2_8.sce b/343/CH2/EX2.8/ex2_8.sce
index cbb4f10b2..e1e0ea7f7 100755
--- a/343/CH2/EX2.8/ex2_8.sce
+++ b/343/CH2/EX2.8/ex2_8.sce
@@ -1,5 +1,5 @@
-Vm=1;           Assuming Vm=1;
-function y=f(t),y=Vm*sin(t),endfunction        //Defining voltage equation
-T=%pi;
-Res=intg(%pi/6,%pi,f)/(T);
+Vm=1;           //Assuming Vm=1;
+function y=f(t),y=Vm*sin(t),endfunction        //Defining voltage equation
+T=%pi;
+Res=intg(%pi/6,%pi,f)/(T);
 disp("Volts",Res,"Average voltage value");
 \ No newline at end of file
diff --git a/343/CH3/EX3.17/ex3_17.sce b/343/CH3/EX3.17/ex3_17.sce
index d9e380143..2b16cb8b8 100755
--- a/343/CH3/EX3.17/ex3_17.sce
+++ b/343/CH3/EX3.17/ex3_17.sce
@@ -1,10 +1,11 @@
-clc
-w1=3000        //Assigning values to parameters
-w2=5000
-t=atan(sqrt(3)*(w2-w1)/(w1+w2))
-pf=cos(t)
-p=w1+w2
-il=p/(sqrt(3)*vl*cos(t))
-disp("Watts",p,"Total Power supplied is")
-disp(pf,"Power factor is")
+clc
+w1=3000        //Assigning values to parameters
+w2=5000
+vl=400
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+p=w1+w2
+il=p/(sqrt(3)*vl*cos(t))
+disp("Watts",p,"Total Power supplied is")
+disp(pf,"Power factor is")
 disp("Amperes",il,"The line current is")
 \ No newline at end of file
diff --git a/343/CH4/EX4.21/ex4_21.sce b/343/CH4/EX4.21/ex4_21.sce
index 0e44aae2d..330c03757 100755
--- a/343/CH4/EX4.21/ex4_21.sce
+++ b/343/CH4/EX4.21/ex4_21.sce
@@ -16,8 +16,9 @@ e2=k*e1
 i2=kva*1000/e2
 r02=k*k*r01
 x02=k*k*x01
+t=acosd(0.8)
 pr1=(i2*r02*cosd(t)-i2*x02*sind(t))*100/e2
 v2=e2-(e2*pr1/100)
 disp("ohms",z01,"The equivalent primary resistance is")
 disp(pr1,"The percentage voltage regulation at full load 0.8 pf leading is");
-disp("Volts",v2,"The secondary terminal voltage is")
+disp("Volts",v2,"The secondary terminal voltage is")
+\ No newline at end of file
diff --git a/343/CH4/EX4.4/ex4_4.sce b/343/CH4/EX4.4/ex4_4.sce
index 141962771..d73ed1b34 100755
--- a/343/CH4/EX4.4/ex4_4.sce
+++ b/343/CH4/EX4.4/ex4_4.sce
@@ -1,14 +1,15 @@
-clc
-n2=50               //Assigning values to parameters
-n1=500
-kva=25
-e1=3000
-k=n2/n1
-i1=kva*1000/e1
-i2=i1/k
-e2=k*e1
-fm=e1/(4.44*f*n1)
-disp("Amperes",i1,"The primary full load current is");
-disp("Amperes",i2,"The secondary full load current is");
-disp("Volts",e2,"The secondary emf is");
+clc
+f=50
+n2=50               //Assigning values to parameters
+n1=500
+kva=25
+e1=3000
+k=n2/n1
+i1=kva*1000/e1
+i2=i1/k
+e2=k*e1
+fm=e1/(4.44*f*n1)
+disp("Amperes",i1,"The primary full load current is");
+disp("Amperes",i2,"The secondary full load current is");
+disp("Volts",e2,"The secondary emf is");
 disp("Wb",fm,"The maximum flux is");
 \ No newline at end of file