initial commit / add all books

5 files changed, 62 insertions, 0 deletions

diff --git a/1055/CH15/EX15.1/ch15_1.sce b/1055/CH15/EX15.1/ch15_1.sce
new file mode 100755
index 000000000..1213404c5
--- /dev/null
+++ b/1055/CH15/EX15.1/ch15_1.sce
@@ -0,0 +1,10 @@
+// To determine the voltage appearing across the pole of C.B. also determine the value of resistance to be used across contacts

+clear 

+clc;

+i=5;

+L=5*(10^6);

+C=.01;

+e=i*sqrt(L/C);

+mprintf("the voltage appearing across the pole of C.B.=%.0f V\n",e);

+R=.5*sqrt(L/C);

+mprintf("the value of resistance to be used across contacts, R=%.0f ohms\n",R);

diff --git a/1055/CH15/EX15.2/ch15_2.sce b/1055/CH15/EX15.2/ch15_2.sce
new file mode 100755
index 000000000..9c374b1c9
--- /dev/null
+++ b/1055/CH15/EX15.2/ch15_2.sce
@@ -0,0 +1,11 @@
+// To determine the rate of rise of restriking voltage

+clear 

+clc;

+Vnl=132*sqrt(2)/sqrt(3);//peak value of peak to neutral voltage(kV)

+Vr1=Vnl*.95;//recovery voltage (kV)

+Vr=102.4*.916;// active recovery voltage(kV)

+Vrmax=2*Vr;

+fn=16*(10^3);

+t=1/(2*fn);

+RRRV=Vrmax*(10^-6)/t;

+mprintf("rate of rise of restriking voltage, RRRV=%.0f kV/micro-sec",RRRV);

diff --git a/1055/CH15/EX15.3/ch15_3.sce b/1055/CH15/EX15.3/ch15_3.sce
new file mode 100755
index 000000000..92e336e6b
--- /dev/null
+++ b/1055/CH15/EX15.3/ch15_3.sce
@@ -0,0 +1,12 @@
+// To Determine the average rate of rise of restriking voltage

+clear 

+clc;

+Vm=132*sqrt(2)/sqrt(3);

+K1=.9;

+K2=1.5

+K=K1*K2;

+sinq=.92;

+Vr=K*Vm*sinq;

+fn=16*(10^3);

+RRRV=2*Vr*(10^-6)*fn*2;

+mprintf("average rate of rise of restriking voltage,RRRV=%.3f kV/micro-sec\n",RRRV);

diff --git a/1055/CH15/EX15.4/ch15_4.sce b/1055/CH15/EX15.4/ch15_4.sce
new file mode 100755
index 000000000..622483d2c
--- /dev/null
+++ b/1055/CH15/EX15.4/ch15_4.sce
@@ -0,0 +1,11 @@
+// To determine the rated normal current , breaking current , making current and short time rating (current)

+clear 

+clc;

+In=1500;

+mprintf("rated normal current=%.0f amps\n",In);

+Ib=2000/(sqrt(3)*33);

+mprintf("breaking current=%.2f KA\n",Ib);

+Im=2.55*Ib;

+mprintf("making current =%.2f kA\n",Im);

+Is=Ib;

+mprintf("short time rating  for 3 sec=%.2f kA\n",Is);

diff --git a/1055/CH15/EX15.5/ch15_5.sce b/1055/CH15/EX15.5/ch15_5.sce
new file mode 100755
index 000000000..a23fc91ea
--- /dev/null
+++ b/1055/CH15/EX15.5/ch15_5.sce
@@ -0,0 +1,18 @@
+//TO Determine (i)sustained short circuit current in the breaker (ii)initial symmetrical r.m.s current in the breaker (iii)maximum possible d.c component of the short circuit current in the breaker (iv)momentary current rating of the breaker (v)the current to be interrupted by the breaker (vi)the interupting kVA.

+clear

+clc;

+MVA=10;

+Is=MVA*1000/(sqrt(3)*13.8);

+mprintf("(i)sustained short circuit current in the breaker =%.0f amps\n",Is);

+MVA1=100;

+Isc=MVA1*1000/(sqrt(3)*13.8);

+mprintf("(ii)initial symmetrical r.m.s current in the breaker r.m.s=%.0f amps\n",Isc);

+Im=sqrt(2)*Isc;

+mprintf("(iii)maximum possible d.c component of the short circuit current in the breaker =%.0f amps\n",Im);

+Im2=1.6*Isc;

+mprintf("(iv)momentary current rating of the breaker=%.0f amps\n",Im2);

+Ib=1.2*Isc;

+mprintf("(v)the current to be interrupted by the breaker =%.0f amps\n",Ib);

+KVA=sqrt(3)*13.8*5016;

+mprintf("(vi)the interupting =%.0f KVA\n",KVA);

+//Answers don't match due to difference in rounding off of digits