summaryrefslogtreecommitdiff
path: root/1376/CH16
diff options
context:
space:
mode:
Diffstat (limited to '1376/CH16')
-rwxr-xr-x1376/CH16/EX16.1/16_1.sci12
-rwxr-xr-x1376/CH16/EX16.10/16_10.sci8
-rwxr-xr-x1376/CH16/EX16.11/16_11.sci13
-rwxr-xr-x1376/CH16/EX16.12/16_12.sci13
-rwxr-xr-x1376/CH16/EX16.13/16_13.sci9
-rwxr-xr-x1376/CH16/EX16.14/16_14.sci14
-rwxr-xr-x1376/CH16/EX16.2/16_2.sci19
-rwxr-xr-x1376/CH16/EX16.3/16_3.sci9
-rwxr-xr-x1376/CH16/EX16.4/16_4.sci6
-rwxr-xr-x1376/CH16/EX16.5/16_5.sci8
-rwxr-xr-x1376/CH16/EX16.6/16_6.sci17
-rwxr-xr-x1376/CH16/EX16.7/16_7.sci20
-rwxr-xr-x1376/CH16/EX16.8/16_8.sci17
-rwxr-xr-x1376/CH16/EX16.9/16_9.sci11
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
generated by cgit (git 2.34.1) at 2025-03-13 05:54:50 +0000