initial commit / add all books

14 files changed, 231 insertions, 0 deletions

diff --git a/2384/CH3/EX3.10/ex3_10.sce b/2384/CH3/EX3.10/ex3_10.sce
new file mode 100755
index 000000000..7516ee0c4
--- /dev/null
+++ b/2384/CH3/EX3.10/ex3_10.sce
@@ -0,0 +1,14 @@
+// Exa 3.10

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+V1= 100/sqrt(2)*expm(%i*0*%pi/180);// in V

+V2= 200/sqrt(2)*expm(%i*60*%pi/180);// in V

+V3= 50/sqrt(2)*expm(%i*-90*%pi/180);// in V

+V4= 150/sqrt(2)*expm(%i*-45*%pi/180);// in V

+// The R.M.S. value of the resultant 

+V_R= real(V1)+real(V2)+real(V3)+real(V4);// in V

+disp(V_R,"The R.M.S. value of the resultant in volts is : ")

+

diff --git a/2384/CH3/EX3.11/ex3_11.sce b/2384/CH3/EX3.11/ex3_11.sce
new file mode 100755
index 000000000..ca500b754
--- /dev/null
+++ b/2384/CH3/EX3.11/ex3_11.sce
@@ -0,0 +1,19 @@
+// Exa 3.11

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+Im = 15;// in A

+f = 60;// in Hz

+omega = 2*%pi * f;// in rad/sec

+t = 1/200;// in sec

+i = Im*sin(omega*t);// in A

+disp(i,"The value of current after 1/200 sec in A is");

+i = 10;// in A

+// i = Im*sind(omega*t);

+t = (asin(i/Im))/omega;// in sec

+t = t * 10^3;// in ms

+disp(t,"The time to reach 10 A in ms is");

+Iav = Im*0.637;// in A

+disp(Iav,"The average value in A is");

diff --git a/2384/CH3/EX3.12/ex3_12.sce b/2384/CH3/EX3.12/ex3_12.sce
new file mode 100755
index 000000000..61850caf0
--- /dev/null
+++ b/2384/CH3/EX3.12/ex3_12.sce
@@ -0,0 +1,20 @@
+// Exa 3.12

+clc;

+clear;

+close;

+format('v',5)

+// Given data

+Im = 42.42;// in A

+omega = 628;// in rad/sec

+t = 1/6.977;// in sec assumed 

+i = Im*sind(omega*t);// in A

+disp(i,"The maximum value of current in A is");

+// omega = 2*%pi*f;

+f = omega/(2*%pi);// in Hz

+disp(f,"The frequency in Hz is");

+Irms = Im/(sqrt(2));// in A

+disp(Irms,"The rms value in A is");

+Iav = (2*Im)/%pi;// in A

+disp(Iav,"The average value in A is");

+k_f = Irms/Iav;

+disp(k_f,"The form factor is");

diff --git a/2384/CH3/EX3.13/ex3_13.sce b/2384/CH3/EX3.13/ex3_13.sce
new file mode 100755
index 000000000..e2aa19a3e
--- /dev/null
+++ b/2384/CH3/EX3.13/ex3_13.sce
@@ -0,0 +1,18 @@
+// Exa 3.13

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+phi = %pi/6;

+// Power factor

+powerfactor = cos(phi);// in lag

+disp(powerfactor,"The power factor is");

+Im = 22;// in A

+// The R.M.S value of current 

+Irms = Im/sqrt(2);// in A

+disp(Irms,"The R.M.S value of current in A is");

+omega = 314;// in rad/sec

+// omega = 2*%pi*f;

+f = omega/(2*%pi);// in Hz

+disp(f,"The frequency in Hz is");

diff --git a/2384/CH3/EX3.14/ex3_14.sce b/2384/CH3/EX3.14/ex3_14.sce
new file mode 100755
index 000000000..7332672e3
--- /dev/null
+++ b/2384/CH3/EX3.14/ex3_14.sce
@@ -0,0 +1,14 @@
+// Exa 3.14

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+Im= 100;// in A

+Irms= sqrt(Im^2/2*integrate('1-cos(2*theta)','theta',0,%pi)/%pi);// in A

+disp(Irms,"The R.M.S value of current in A is : ")

+Iav= Im*integrate('sin(theta)','theta',0,%pi)/%pi;// in A

+disp(Iav,"The average value of current in A is : ")

+// The form factor 

+kf= Irms/Iav;

+disp(kf,"The form factor is : ")

diff --git a/2384/CH3/EX3.15/ex3_15.sce b/2384/CH3/EX3.15/ex3_15.sce
new file mode 100755
index 000000000..71ff16f56
--- /dev/null
+++ b/2384/CH3/EX3.15/ex3_15.sce
@@ -0,0 +1,24 @@
+// Exa 3.15

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+A= 2*10;// area under curve for a cycle

+B= 2;// base of half cycle

+Vav= 1/2*A/B;// in V

+// For line AB

+y1= 0;

+y2= 10;

+x1= 0;

+x2= 1;

+m_for_AB= (y2-y1)/(x2-x1);

+// For line BC

+y1= 10;

+y2= 0;

+x1= 1;

+x2= 2;

+m_for_BC= (y2-y1)/(x2-x1);

+Vrms= sqrt((integrate('(m_for_AB*t)^2','t',0,1)+integrate('(m_for_BC*t+20)^2','t',1,2))/2);// in V

+kf= Vrms/Vav;

+disp(kf,"The form factor is : ")

diff --git a/2384/CH3/EX3.2/ex3_2.sce b/2384/CH3/EX3.2/ex3_2.sce
new file mode 100755
index 000000000..ce2081795
--- /dev/null
+++ b/2384/CH3/EX3.2/ex3_2.sce
@@ -0,0 +1,18 @@
+// Exa 3.2

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+Im = 141.4;// in A

+t = 3;// in ms

+t = t * 10^-3;// in sec

+disp(Im,"The maximum value of current in A is");

+omega = 314;// in rad/sec

+// omega = 2*%pi*f;

+f = round(omega/(2*%pi));// in Hz

+disp(f,"The frequency in Hz is");

+T = 1/f;// in sec

+disp(T,"The time period in sec is");

+i = 141.4 * sin(omega*t);// in A

+disp(i,"The instantaneous value in A is");

diff --git a/2384/CH3/EX3.3/ex3_3.sce b/2384/CH3/EX3.3/ex3_3.sce
new file mode 100755
index 000000000..99a352519
--- /dev/null
+++ b/2384/CH3/EX3.3/ex3_3.sce
@@ -0,0 +1,16 @@
+// Exa 3.3

+clc;

+clear;

+close;

+format('v',8)

+// Given data

+f = 60;// in Hz

+Im = 120;// in A

+t = 1/360;// in sec

+omega = 2*%pi*f;// in rad/sec

+i = Im*sin(omega*t);// in A

+disp(i,"The value of current after 1/360 sec in A is");

+i = 96;// in A

+// i = Im*sind(omega*t);

+t = (asin(i/Im))/omega;// in sec

+disp(t,"The time taken to reach 96 A for the first time in sec is");

diff --git a/2384/CH3/EX3.4/ex3_4.sce b/2384/CH3/EX3.4/ex3_4.sce
new file mode 100755
index 000000000..c9a5ec36f
--- /dev/null
+++ b/2384/CH3/EX3.4/ex3_4.sce
@@ -0,0 +1,22 @@
+// Exa 3.4

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+i1 = 0;// in A

+i2 = 10;// in A

+i3 = 20;// in A

+i4 = 30;// in A

+i5 = 20;//in A

+i6 = 10;// in A

+n = 6;// unit less

+Iav = (i1+i2+i3+i4+i5+i6)/n;// in A

+disp(Iav,"The average value in A is");

+Irms = sqrt(( (i1^2) + (i2^2) + (i3^2) + (i4^2) + (i5^2) + (i6^2) )/n);// in A

+disp(Irms,"The RMS value in A is");

+k_f = Irms/Iav;// unit less

+disp(k_f,"The form factor is");

+Im = 30;// in A

+k_p = Im/Irms;// unit less

+disp(k_p,"The peak factor is");

diff --git a/2384/CH3/EX3.5/ex3_5.sce b/2384/CH3/EX3.5/ex3_5.sce
new file mode 100755
index 000000000..e5b25dfc6
--- /dev/null
+++ b/2384/CH3/EX3.5/ex3_5.sce
@@ -0,0 +1,11 @@
+// Exa 3.5

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+theta1 = 60;// in degree

+theta2 = -45;// in degree

+// phase difference 

+phi = theta1-theta2;// in degree

+disp(phi,"The phase difference in degree is");

diff --git a/2384/CH3/EX3.6/ex3_6.sce b/2384/CH3/EX3.6/ex3_6.sce
new file mode 100755
index 000000000..a2633f725
--- /dev/null
+++ b/2384/CH3/EX3.6/ex3_6.sce
@@ -0,0 +1,15 @@
+// Exa 3.6

+clc;

+clear;

+close;

+format('v',7)

+// Givven data

+V1= 60*expm(%i*0*%pi/180);// in V

+V2= 40*expm(%i*-%pi/3);// in V

+add_V= V1+V2;// in V

+diff_V= V1-V2;// in V

+disp("The sum of V1 and V2 is : ")

+disp(string(abs(add_V))+" sin (theta"+string(atand(imag(add_V),real(add_V)))+"°) V")

+disp("The difference of V1 and V2 is : ")

+disp(string(abs(diff_V))+" sin (theta+"+string(atand(imag(diff_V),real(diff_V)))+"°) V")

+

diff --git a/2384/CH3/EX3.7/ex3_7.sce b/2384/CH3/EX3.7/ex3_7.sce
new file mode 100755
index 000000000..cd8847ffc
--- /dev/null
+++ b/2384/CH3/EX3.7/ex3_7.sce
@@ -0,0 +1,13 @@
+// Exa 3.7

+clc;

+clear;

+close;

+format('v',6)

+// Givven data

+Vo= 1;// in V (assumed)

+Vav= integrate('Vo*sin(theta)','theta',0,%pi)/(2*%pi);

+Vrms= sqrt(integrate('Vo^2*(1-cos(2*theta))/2','theta',0,%pi))*sqrt(1/(2*%pi));

+kf= Vrms/Vav;

+disp("The average value of output voltage in volts is : "+string(Vav)+"*Vo or Vo/%pi")

+disp("The R.M.S value of output voltage in volts is :  "+string(Vrms)+"*Vo or Vo/2")

+disp(kf,"The form factor is : ")

diff --git a/2384/CH3/EX3.8/ex3_8.sce b/2384/CH3/EX3.8/ex3_8.sce
new file mode 100755
index 000000000..9fe770005
--- /dev/null
+++ b/2384/CH3/EX3.8/ex3_8.sce
@@ -0,0 +1,12 @@
+// Exa 3.8

+clc;

+clear;

+close;

+format('v',5)

+// Given data

+T = 0.3;// in sec

+V = 20;// in V

+Vav = 1/T*V*integrate('1','t',0,0.1)

+disp(Vav,"The average value of voltage in V is");

+Vrms =sqrt(1/T*V^2*integrate('1','t',0,0.1)) 

+disp(Vrms,"The R.M.S value of voltage in V is");

diff --git a/2384/CH3/EX3.9/ex3_9.sce b/2384/CH3/EX3.9/ex3_9.sce
new file mode 100755
index 000000000..c0622fefa
--- /dev/null
+++ b/2384/CH3/EX3.9/ex3_9.sce
@@ -0,0 +1,15 @@
+// Exa 3.9

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+Vm = 100;// in V

+phi = %pi/6;// in degree

+Vrms = Vm/(sqrt(2));// in V

+// Rectangular form of the voltage 

+RectForm= Vrms*expm(%i*phi)

+disp(RectForm,"Rectangular form of the voltage in V is : ")

+disp("Polar form of the voltage :")

+disp("Magnitude of voltage in V is : "+string(abs(RectForm))+" V")

+disp("Angle is : "+string(atand(imag(RectForm),real(RectForm)))+" °")