11 files changed, 113 insertions, 0 deletions
diff --git a/1055/CH14/EX14.1/ch14_1.sce b/1055/CH14/EX14.1/ch14_1.sce
new file mode 100755
index 000000000..a7b2cb0fb
--- /dev/null
+++ b/1055/CH14/EX14.1/ch14_1.sce
@@ -0,0 +1,10 @@
+// To determine the time of operation of relay .
+clear
+clc;
+If=4000;// fault current 
+I=5*1.25;// operating current of relay 
+CT=400/5;// CT ratio
+PSM=If/(I*CT);// plug setting multiplier
+mprintf("PSM=%.3f\n",PSM);
+mprintf("operating time for PSM=8 is 3.2sec.\n");
+mprintf("actual operating time = 1.92 sec.");
diff --git a/1055/CH14/EX14.10/ch14_10.sce b/1055/CH14/EX14.10/ch14_10.sce
new file mode 100755
index 000000000..ff1a40e39
--- /dev/null
+++ b/1055/CH14/EX14.10/ch14_10.sce
@@ -0,0 +1,12 @@
+// To determine the kneepoint voltage and cross section of core
+clear 
+clc;
+Ic=5*.25;// operating current(amp)
+Vsec=5/1.25;// secondary voltage(V)
+Bm=1.4;
+f=50;
+N=50;
+V=15*Vsec;
+A=60/(4.44*Bm*f*N);
+mprintf(" the knee point must be slightly higher than =%.3f V\n",V);
+mprintf("area of cross section=%.6f m_2\n",A);
diff --git a/1055/CH14/EX14.11/ch14_11.sce b/1055/CH14/EX14.11/ch14_11.sce
new file mode 100755
index 000000000..415ed451c
--- /dev/null
+++ b/1055/CH14/EX14.11/ch14_11.sce
@@ -0,0 +1,5 @@
+// To determine the VA output of CT .
+clear 
+clc;
+o.p=5*5*(.1+.1) +5;
+mprintf(" VA output of CT =%.0f VA\n ",o.p);
diff --git a/1055/CH14/EX14.2/ch14_2.sce b/1055/CH14/EX14.2/ch14_2.sce
new file mode 100755
index 000000000..d1f56ac06
--- /dev/null
+++ b/1055/CH14/EX14.2/ch14_2.sce
@@ -0,0 +1,12 @@
+// To determine the phase shifting network to be used.
+clear
+clc;
+Z=1000*(cosd(60) + %i*sind(60));//impedence
+X=tand(50)*1000*cosd(60);
+Xl=1000*sind(60);
+Xc=Xl-X;
+C=1000000/(314*Xc);
+//Answers don't match due to difference in rounding off of digits
+disp(X,"X=");
+disp(Xc,"Xc=");
+disp(C,"C(micro farads)=");
diff --git a/1055/CH14/EX14.3/ch14_3.sce b/1055/CH14/EX14.3/ch14_3.sce
new file mode 100755
index 000000000..15d4c2b29
--- /dev/null
+++ b/1055/CH14/EX14.3/ch14_3.sce
@@ -0,0 +1,17 @@
+//To provide time current grading .
+clear 
+clc;
+Isec1=4000/40;// secondary current(amps)
+PSM=100/5;// PSM if 100% setting is used
+Isec2=4000/40;
+PSM2=100/6.25;//PSM if setting used is 125%
+TMSb=.72/2.5;
+PSM1=5000/(6.25*40);
+to=2.2;
+tb=to*TMSb;
+PSMa=5000/(6.25*80);
+TMS=1.138/3;
+PSMa1=6000/(6.25*80);
+ta=(2.6*.379);
+mprintf("Actual operating time of realy at b=%.3f sec. \n",tb);
+mprintf("Actual operating time of realy at a=%.3f sec. \n",ta);
diff --git a/1055/CH14/EX14.4/ch14_4.sce b/1055/CH14/EX14.4/ch14_4.sce
new file mode 100755
index 000000000..517f2e3d1
--- /dev/null
+++ b/1055/CH14/EX14.4/ch14_4.sce
@@ -0,0 +1,8 @@
+// To determine the proportion of the winding which remains unprotected against earth fault.
+clear
+clc;
+Vph=6600/(sqrt(3));
+Ifull=5000/(sqrt(3)*6.6);
+Ib=Ifull*.25;
+x=Ib*800/Vph;
+mprintf("percent of the winding remains unprotected=%.2f  \n",x);
diff --git a/1055/CH14/EX14.5/ch14_5.sce b/1055/CH14/EX14.5/ch14_5.sce
new file mode 100755
index 000000000..911341a9f
--- /dev/null
+++ b/1055/CH14/EX14.5/ch14_5.sce
@@ -0,0 +1,9 @@
+// To determine (i) % winding which remains unprotected (ii)min. value of earthing resistance required to protect 80% of winding 
+clear 
+clc;
+Iph=10000/sqrt(3);// phase voltage of alternator(V)
+x=1.8*100*10*1000/(5*Iph);
+mprintf("(i) percent winding which remains unprotected=%.2f  \n",x);
+Ip=Iph*.2;
+R=1.8*1000/(5*Ip);
+mprintf("(ii)minimum  value of earthing resistance required to protect 80 percent of winding =%.4f ohms \n",R)
diff --git a/1055/CH14/EX14.6/ch14_6.sce b/1055/CH14/EX14.6/ch14_6.sce
new file mode 100755
index 000000000..60871ef0c
--- /dev/null
+++ b/1055/CH14/EX14.6/ch14_6.sce
@@ -0,0 +1,11 @@
+//To determine whether relay will operate or not.
+clear 
+clc;
+Ic=360-320;// the difference current (amp)
+Io=40*5/400;
+Avg=(360+320)/2;// average sum of two currents
+Iavg=340*5/400;
+Ioc=.1*Iavg + .2;
+mprintf("operating current=%.3f amp. \n",Ioc);
+mprintf("since current through  operating coil is %.3f amp. \n ",Io);
+mprintf("therefore Relay will not operate ");
diff --git a/1055/CH14/EX14.7/ch14_7.sce b/1055/CH14/EX14.7/ch14_7.sce
new file mode 100755
index 000000000..0738f5d79
--- /dev/null
+++ b/1055/CH14/EX14.7/ch14_7.sce
@@ -0,0 +1,6 @@
+// To determine the ratio of CT on HV side
+clear
+clc;
+Il=400*6.6/33;// line current on star side of PT(amps)
+Ic=5/sqrt(3);// current in CT secondary 
+mprintf(" the CT ratio on HT will be %d : %.3f",Il,Ic);
diff --git a/1055/CH14/EX14.8/ch14_8.sce b/1055/CH14/EX14.8/ch14_8.sce
new file mode 100755
index 000000000..9623d69db
--- /dev/null
+++ b/1055/CH14/EX14.8/ch14_8.sce
@@ -0,0 +1,8 @@
+// To determine the number of turns each current transformer should have .
+clear 
+clc;
+Il=10000/((sqrt(3))*132);
+ILV=10000/((sqrt(3))*6.6);
+a=5/sqrt(3);
+mprintf("ratio of CT on LV side is %.3f : %.3f\n",ILV,a);
+mprintf("ratio of CT on HT side is %.3f : %d",Il,5);
diff --git a/1055/CH14/EX14.9/ch14_9.sce b/1055/CH14/EX14.9/ch14_9.sce
new file mode 100755
index 000000000..c9b612948
--- /dev/null
+++ b/1055/CH14/EX14.9/ch14_9.sce
@@ -0,0 +1,15 @@
+//To determine the R1, R2 and C. also The potential across relays
+clear 
+clc;
+Vs=110;
+I=1;
+R2=Vs/((3-%i*sqrt(3))*I);
+c=abs(R2);
+mprintf("R2=%.2f ohms\n",c);
+R1=2*c;
+d=abs(R1);
+C=(10^6)/(.866*d*314);
+mprintf("R1=%.2f ohms\n",R1);
+mprintf("C=%.1f micro farads\n",C);
+Vt=d*(-.5 - %i*.866) + (c - %i*55 );
+disp(Vt," Voltage across the terminals of the relay will be (V)=");