initial commit / add all books

14 files changed, 176 insertions, 0 deletions

diff --git a/1376/CH16/EX16.1/16_1.sci b/1376/CH16/EX16.1/16_1.sci
new file mode 100755
index 000000000..71883a2ce
--- /dev/null
+++ b/1376/CH16/EX16.1/16_1.sci
@@ -0,0 +1,12 @@
+//16.1

+clc;

+disp('For star connected load')

+Il=50000/((3^0.5)*440*0.85);

+printf("\nLine current=%.2f A",I1)

+Iph=Il;

+printf("\nPhase current=%.2f A",Iph)

+disp('For Delta connected load')

+Il=50000/((3^0.5)*440*0.85);

+printf("\nLine current=%.2f A",I1)

+Iph=Il/(3^0.5);

+printf("\nPhase current=%.2f A",Iph)
\ No newline at end of file
diff --git a/1376/CH16/EX16.10/16_10.sci b/1376/CH16/EX16.10/16_10.sci
new file mode 100755
index 000000000..602aeafe6
--- /dev/null
+++ b/1376/CH16/EX16.10/16_10.sci
@@ -0,0 +1,8 @@
+//16.10

+clc;

+P_consumed=3000/3;

+E_per_phase=440/(3^0.5);

+IL=P_consumed/E_per_phase;

+printf("\nCurrent in each line=%.2f A",IL)

+R=E_per_phase/IL;

+printf("\nResistance of resistor=%.2f ohm",R)
\ No newline at end of file
diff --git a/1376/CH16/EX16.11/16_11.sci b/1376/CH16/EX16.11/16_11.sci
new file mode 100755
index 000000000..7271c8624
--- /dev/null
+++ b/1376/CH16/EX16.11/16_11.sci
@@ -0,0 +1,13 @@
+//16.11

+clc;

+VL=1100;

+IL=100;

+pf=150*1000/(3^0.5*VL*IL);

+E_per_phase=VL/3^0.5;

+Zph=E_per_phase/100;

+Rph=pf*Zph;

+Xc=(Zph^2-Rph^2)^0.5;

+C=10^6/(2*%pi*50*Xc);

+disp('Circuit Constants are')

+printf("\nR=%.2f ohm",Rph)

+printf("\nC=%.2f uF",C)
\ No newline at end of file
diff --git a/1376/CH16/EX16.12/16_12.sci b/1376/CH16/EX16.12/16_12.sci
new file mode 100755
index 000000000..a41871100
--- /dev/null
+++ b/1376/CH16/EX16.12/16_12.sci
@@ -0,0 +1,13 @@
+//16.12

+clc;

+//P_input=W1+W2=15000........(i)

+pf=0.4

+phi=acosd(0.4);

+a=tand(phi);

+//tand(phi)=(3^0.5)*(W1-W2)/(W1+W2)

+//on solving  W1-W2=3464.2 ..............(ii)

+//From (i) and (ii) we can calculate

+W1=9.232;

+W2=5.768;

+printf("\nW1=%.2f kW",W1)

+printf("\nW2=%.2fkW ",W2)
\ No newline at end of file
diff --git a/1376/CH16/EX16.13/16_13.sci b/1376/CH16/EX16.13/16_13.sci
new file mode 100755
index 000000000..1b3d74abe
--- /dev/null
+++ b/1376/CH16/EX16.13/16_13.sci
@@ -0,0 +1,9 @@
+//16.13

+clc;

+W1=10;

+W2=-1.2;

+P_absorbed=W1+W2;

+printf("\nPower=%.2f kW",P_absorbed)

+phi=atand((3^0.5)*(W1-W2)/(W1+W2));

+pf=cosd(phi);

+printf("\nPower Factor=%.2f ",pf)
\ No newline at end of file
diff --git a/1376/CH16/EX16.14/16_14.sci b/1376/CH16/EX16.14/16_14.sci
new file mode 100755
index 000000000..e236dacae
--- /dev/null
+++ b/1376/CH16/EX16.14/16_14.sci
@@ -0,0 +1,14 @@
+//16.14

+clc;

+P_input=10*735.5/0.82;

+//P_input=W1+W2=8974........(i)

+pf=0.4

+phi=acosd(0.83);

+a=tand(phi);

+//tand(phi)=(3^0.5)*(W1-W2)/(W1+W2)

+//on solving  W1-W2=3482 ..............(ii)

+//From (i) and (ii) we can calculate

+W1=6.228;

+W2=2.746;

+printf("\nW1=%.2f kW",W1)

+printf("\nW2=%.2fkW ",W2)

diff --git a/1376/CH16/EX16.2/16_2.sci b/1376/CH16/EX16.2/16_2.sci
new file mode 100755
index 000000000..07a38fba1
--- /dev/null
+++ b/1376/CH16/EX16.2/16_2.sci
@@ -0,0 +1,19 @@
+//16.2

+clc;

+disp('For star connection')

+Zph=(12^2+5^2)^0.5;

+Eph=440/(3^0.5);

+Iph=Eph/Zph;

+Il=Iph;

+printf("\nLine current=%.2f A",I1)

+P_total=(3^0.5)*440*Il*12/(Zph*1000);

+printf("\nTotal Power=%.2f kW",P_total)

+

+disp('For Delta connection')

+Zph=(12^2+5^2)^0.5;

+Eph=440;

+Iph=Eph/Zph;

+Il=Iph*(3^0.5);

+printf("\nLine current=%.2f A",I1)

+P_total=(3^0.5)*440*Il*12/(Zph*1000);

+printf("\nTotal Power=%.2f kW",P_total)
\ No newline at end of file
diff --git a/1376/CH16/EX16.3/16_3.sci b/1376/CH16/EX16.3/16_3.sci
new file mode 100755
index 000000000..1f584d761
--- /dev/null
+++ b/1376/CH16/EX16.3/16_3.sci
@@ -0,0 +1,9 @@
+//16.3

+clc;

+pf=(1.8*1000)/(1100*(3^0.5));

+Z=1100/100;

+R=Z*pf;

+printf("\nResistance of the load=%.2f ohm",R)

+Xl=(121-108)^0.5;

+L=Xl/314;

+printf("\nInductive reactance of the load=%.2f H",L)
\ No newline at end of file
diff --git a/1376/CH16/EX16.4/16_4.sci b/1376/CH16/EX16.4/16_4.sci
new file mode 100755
index 000000000..e0dd28bc7
--- /dev/null
+++ b/1376/CH16/EX16.4/16_4.sci
@@ -0,0 +1,6 @@
+//16.4

+clc;

+Eph=400/(3^0.5);

+printf("\nPhase voltage=%.2f V",Eph)

+P_total=(3^0.5)*400*30*cosd(30)/1000;

+printf("\nTotal power=%.2f kW",P_total)
\ No newline at end of file
diff --git a/1376/CH16/EX16.5/16_5.sci b/1376/CH16/EX16.5/16_5.sci
new file mode 100755
index 000000000..5204707fe
--- /dev/null
+++ b/1376/CH16/EX16.5/16_5.sci
@@ -0,0 +1,8 @@
+//16.5

+clc;

+Out_motor=80*735.5;

+Input_motor=Out_motor/0.8;

+I_alternator_phase=120.64;

+I_motor_phase= I_alternator_phase/(3^0.5);

+printf("\nCurrent in each motor phase=%.2f A",I_motor_phase)

+printf("\nCurrent in each generator phase=%.2f A",I_alternator_phase)

diff --git a/1376/CH16/EX16.6/16_6.sci b/1376/CH16/EX16.6/16_6.sci
new file mode 100755
index 000000000..d45e21e81
--- /dev/null
+++ b/1376/CH16/EX16.6/16_6.sci
@@ -0,0 +1,17 @@
+//16.6

+clc;

+El=400;

+Eph=El;

+Impedance_per_phase= (10^2+15^2)^0.5;

+Iph= 400/Impedance_per_phase;

+printf("\nPhase current=%.2f A",Iph)

+Il=Iph*3^0.5;

+printf("\nLine current=%.2f A",I1)

+pf=10/Impedance_per_phase;

+printf("\nPower factor=%.2f ",pf)

+P_total=(3^0.5)*El*Il*pf/1000;

+printf("\nTotal Power=%.2f kW",P_total)

+VAR=(3^0.5)*El*Il*15/(Impedance_per_phase*1000);

+printf("\nReactive volt ampers=%.2f KVAR",VAR)

+VA=(3^0.5)*El*Il/1000;

+printf("\nTotal Volt ampers=%.2f kVA",VA)
\ No newline at end of file
diff --git a/1376/CH16/EX16.7/16_7.sci b/1376/CH16/EX16.7/16_7.sci
new file mode 100755
index 000000000..196a4b4b6
--- /dev/null
+++ b/1376/CH16/EX16.7/16_7.sci
@@ -0,0 +1,20 @@
+//16.7

+clc;

+disp('Star connections')

+R=20;

+Iph=440/(3^0.5*R);

+P_total=3*Iph^2*R;

+disp('when one of the resistor get disconnected')

+Iph=440/(2*20);

+P_total_new=2*Iph^2*R;

+P_reduction=(P_total-P_total_new)*100/P_total;

+printf("\nReduction in Power=%.2f percent",P_reduction)

+disp('Delta connections')

+R=20;

+Iph=440/(R);

+P_total=3*Iph^2*R;

+disp('when one of the resistor get disconnected')

+Iph=440/(20);

+P_total_new=2*Iph^2*R;

+P_reduction=(P_total-P_total_new)*100/P_total;

+printf("\nReduction in Power=%.2f percent",P_reduction)
\ No newline at end of file
diff --git a/1376/CH16/EX16.8/16_8.sci b/1376/CH16/EX16.8/16_8.sci
new file mode 100755
index 000000000..085310eab
--- /dev/null
+++ b/1376/CH16/EX16.8/16_8.sci
@@ -0,0 +1,17 @@
+//16.8

+clc;

+R=3;

+XL=4;

+Z=(R^2+XL^2)^0.5;

+Iph1=440/(3^0.5*Z);

+IL1=Iph1;

+printf("\nLine current=%.1f A",IL1)

+P=3*Iph1^2*R;

+printf("\nPower=%.0f W",P)

+pf1=R/Z;

+printf("\npower factor=%.2f (lag)",pf1)

+IL2=IL1*(4/5);

+Iph2=IL2/3^0.5;

+XL2=440/Iph2;

+C2=1*10^6/(2*50*28.755);

+printf("\nCapacitance=%.1f uF",C2)
\ No newline at end of file
diff --git a/1376/CH16/EX16.9/16_9.sci b/1376/CH16/EX16.9/16_9.sci
new file mode 100755
index 000000000..41e4b2c09
--- /dev/null
+++ b/1376/CH16/EX16.9/16_9.sci
@@ -0,0 +1,11 @@
+//16.9

+clc;

+IL=11000;

+Eph=IL/3^0.5;

+printf("\nLine to neutral voltage=%.2f V",Eph)

+E_Each_phase=Eph;

+printf("\nVoltage induced in Each phase winding=%.2f V",E_Each_phase)

+T=(242/360)*(1/50)*1000;

+printf("\nTime interval=%.2f ms",T)

+IL_peak=(2^0.5)*IL;

+printf("\nPeak line voltage=%.2f V",IL_peak)
\ No newline at end of file