initial commit / add all books

2 files changed, 19 insertions, 0 deletions

diff --git a/1055/CH11/EX11.1/ch11_1.sce b/1055/CH11/EX11.1/ch11_1.sce
new file mode 100755
index 000000000..77d276d9d
--- /dev/null
+++ b/1055/CH11/EX11.1/ch11_1.sce
@@ -0,0 +1,10 @@
+// To find the inductance and KVA rating of the arc suppressor coil in the system 

+clear

+clc;

+C1=2*%pi*(10^-9)/(36*%pi*log((4*4*8)^(1/3)/(10*(10^-3))));

+C=C1*192*(10^9);// capacitance per phase (micro farad)

+L=(10)^6/(3*314*314*C);

+V=132;//voltage (kV)

+MVA=V*V/(3*314*L);

+mprintf("inductance ,L=%.2f H\n",L);

+mprintf("MVA rating of suppressor  coil =%.3f MVA per coil",MVA);

diff --git a/1055/CH11/EX11.2/ch11_2.sce b/1055/CH11/EX11.2/ch11_2.sce
new file mode 100755
index 000000000..f2ba0b490
--- /dev/null
+++ b/1055/CH11/EX11.2/ch11_2.sce
@@ -0,0 +1,9 @@
+// Determine the reactance to neutralize the capacitance of (i)100% of the length of line (ii)90% of the length of line (iii)80% of the length of line

+clear

+clc;

+wL=1/(3*314*(10)^-6);

+mprintf("(i)inductive reactance for 100 percent of the length of line=%.1f ohms\n",wL);

+wL=10^6/(3*314*.9);

+mprintf("(ii)inductive reactance for 90percent of the length of line=%.1f ohms\n",wL);

+wL=1/(3*314*(10)^-6)/.8;

+mprintf("(iii)inductive reactance for 80 percent of the length of line=%.1f ohms\n",wL);