initial commit / add all books

8 files changed, 97 insertions, 0 deletions

diff --git a/1055/CH9/EX9.1/ch9_1.sce b/1055/CH9/EX9.1/ch9_1.sce
new file mode 100755
index 000000000..711fc36a1
--- /dev/null
+++ b/1055/CH9/EX9.1/ch9_1.sce
@@ -0,0 +1,9 @@
+// To determine the economic overall diameter of a 1- core cable metal sheathead.

+clear

+clc;

+V=85;// working voltage (kV)

+gmax=65;// dielectric strength of insulating material (kV/cm)

+r=V/gmax;

+d=2*r;

+D=2.6*%e;

+mprintf("Diameter of the sheath =%.2f cm\n",D);

diff --git a/1055/CH9/EX9.2/ch9_2.sce b/1055/CH9/EX9.2/ch9_2.sce
new file mode 100755
index 000000000..8baa2b75d
--- /dev/null
+++ b/1055/CH9/EX9.2/ch9_2.sce
@@ -0,0 +1,18 @@
+// To determine the minimum internal diameter of the lead sheath

+clear

+clc;

+e1=4;

+e2=4;

+e3=2.5;

+g1max=50;

+g2max=40;

+g3max=30;

+r=.5;// radius (cm)

+r1=r*e1*g1max/(e2*g2max);

+r2=r1*e2*g2max/(e3*g3max);

+V=66;

+lnc=(V-((r*g1max*log(r1/r))+(r1*g2max*log(r2/r1))));

+m=lnc/(r2*g3max);

+R=r2*(%e^m);

+D=2*R;

+mprintf("minimum internal diameter of the lead sheath,D=%.2f cms\n",D);

diff --git a/1055/CH9/EX9.3/ch9_3.sce b/1055/CH9/EX9.3/ch9_3.sce
new file mode 100755
index 000000000..bc936363a
--- /dev/null
+++ b/1055/CH9/EX9.3/ch9_3.sce
@@ -0,0 +1,12 @@
+// To determine the maximum safe working voltage

+clear

+clc;

+r=.5;//radius of conductor(cm)

+g1max=34;

+er=5;

+r1=1;

+R=7/2;//external dia(cm)

+g2max=(r*g1max)/(er*r1);

+V=((r*g1max*log(r1/r))+(r1*g2max*log(R/r1)));

+V=V/(sqrt(2));

+mprintf("Maximum safe working volltage ,V =%.2f kV r.m.s\n",V);

diff --git a/1055/CH9/EX9.4/ch9_4.sce b/1055/CH9/EX9.4/ch9_4.sce
new file mode 100755
index 000000000..aa79b313f
--- /dev/null
+++ b/1055/CH9/EX9.4/ch9_4.sce
@@ -0,0 +1,14 @@
+//To determine the maximum stresses in each of the three layers .

+clear

+clc;

+r=.9;

+r1=1.25

+r2=r1+.35;

+r3=r2+.35;// radius of outermost layer

+Vd=20;// voltage difference (kV)

+g1max=Vd/(r*log(r1/r));

+g2max=Vd/(r1*log(r2/r1));

+g3max=(66-40)/(r2*log(r3/r2));

+mprintf("g1max =%.1f kV/cm\n",g1max);

+mprintf("g2max =%.2f kV/cm\n",g2max);

+mprintf("g3max =%.0f kV/cm\n",g3max);

diff --git a/1055/CH9/EX9.5/ch9_5.sce b/1055/CH9/EX9.5/ch9_5.sce
new file mode 100755
index 000000000..6aea48e0b
--- /dev/null
+++ b/1055/CH9/EX9.5/ch9_5.sce
@@ -0,0 +1,8 @@
+//To dtermine the equivalent star connected capacity and the kVA required.

+clear

+clc;

+V=20;//voltage (kV)

+w=314;

+C=2*3.04*10^-6;//capacitance per phase(micro-farad)

+KVA=V*V*w*C*1000;

+mprintf("3-phase kVA required =%.0f kVA",KVA); //Answer don't match due to difference in rounding off of digits

diff --git a/1055/CH9/EX9.6/ch9_6.sce b/1055/CH9/EX9.6/ch9_6.sce
new file mode 100755
index 000000000..92d022be7
--- /dev/null
+++ b/1055/CH9/EX9.6/ch9_6.sce
@@ -0,0 +1,16 @@
+// Determine the capacitance (a)between any two conductors (b)between any two bunched conductors and the third conductor (c)Also calculate the charging current per phase per km

+clear

+clc;

+C1=.208;

+C2=.096;

+Cx=3*C1;

+w=314;

+V=10;

+Cy=(C1+ 2*C2);

+Co=((1.5*Cy)-(Cx/6));

+C=Co/2;

+mprintf("(i)Capacitance between any two conductors=%.3f micro-Farad/km\n",C);

+c=((2*C2 + ((2/3)*C1)));

+mprintf("(ii)Capacitance between any two bunched conductors and the third conductor=%.2f micro-Farad/km\n",c);

+I=V*w*Co*1000*(10^-6)/sqrt(3);

+mprintf("(iii)the charging current per phase per km =%.3f A\n",I);

diff --git a/1055/CH9/EX9.7/ch9_7.sce b/1055/CH9/EX9.7/ch9_7.sce
new file mode 100755
index 000000000..538e92407
--- /dev/null
+++ b/1055/CH9/EX9.7/ch9_7.sce
@@ -0,0 +1,11 @@
+// To calculate the induced emf in each sheath .

+clear

+clc;

+rm=(2.28/2)-(.152/2);// mean radius of sheath (cm)

+d=5.08;

+a=d/rm;

+w=314;

+Xm=2*(10^-7)*log(a);// mutual inductance (H/m)

+Xm2=2000*Xm;

+V=w*Xm2*400;

+mprintf("Voltage induced =%.2f volts \n",V);//Answer don't match exactly due to difference in rounding off of digits i between calculations

diff --git a/1055/CH9/EX9.8/ch9_8.sce b/1055/CH9/EX9.8/ch9_8.sce
new file mode 100755
index 000000000..8ec6c6ed0
--- /dev/null
+++ b/1055/CH9/EX9.8/ch9_8.sce
@@ -0,0 +1,9 @@
+//To determine the ratio of sheath loss to core loss of the cable

+clear

+clc;

+R=2*.1625;

+Rs=2*2.14;

+M=314;

+w=6.268*10^-4;

+r=Rs*M*M*w*w/(R*((Rs^2)+(M*M*w*w)));

+mprintf("ratio=%.4f \n",r);