initial commit / add all books

4 files changed, 43 insertions, 0 deletions

diff --git a/1067/CH18/EX18.1/18_1.sce b/1067/CH18/EX18.1/18_1.sce
new file mode 100755
index 000000000..dbb788015
--- /dev/null
+++ b/1067/CH18/EX18.1/18_1.sce
@@ -0,0 +1,7 @@
+clc;

+clear;

+P=2000e3;

+V=400;

+r=.4;

+z=V^2/(r*P);

+mprintf("the value of z=%f ohm",z);

diff --git a/1067/CH18/EX18.2/18_2.sce b/1067/CH18/EX18.2/18_2.sce
new file mode 100755
index 000000000..4e1118ab2
--- /dev/null
+++ b/1067/CH18/EX18.2/18_2.sce
@@ -0,0 +1,8 @@
+clc;

+clear;

+w=314;

+c=.015e-6;

+l=1/(3*w^2*c);//the difference in result is due to erroneous calculation in textbook.

+l=round(l*10)/10;

+mprintf("inductance =%f Henries",l);

+disp("the difference in result is due to erroneous calculation in textbook.")

diff --git a/1067/CH18/EX18.3/18_3.sce b/1067/CH18/EX18.3/18_3.sce
new file mode 100755
index 000000000..ee62b5fbd
--- /dev/null
+++ b/1067/CH18/EX18.3/18_3.sce
@@ -0,0 +1,15 @@
+clc;

+clear;

+c1=1.5e-6;

+w=2*%pi*50;

+L1=1/(3*c1*(w^2));

+c2=.9*c1;

+L2=1/(3*c2*(w^2));

+c3=.95*c1;

+L3=1/(3*c3*(w^2));

+L1=round(L1*100)/100;

+L2=round(L2*10)/10;

+L3=round(L3*100)/100;

+mprintf("the inductance for 100 percent line capacitance=%f henries \n",L1);

+mprintf("for 90percent line capacitance,the inductance=%f henries\n",L2);

+mprintf("for 95percent line capacitane inductance=%f henries",L3);

diff --git a/1067/CH18/EX18.4/18_4.sce b/1067/CH18/EX18.4/18_4.sce
new file mode 100755
index 000000000..18b9d3d5a
--- /dev/null
+++ b/1067/CH18/EX18.4/18_4.sce
@@ -0,0 +1,13 @@
+clc;

+clear;

+c=.01e-6*50;

+w=2*%pi*50;

+L=1/(3*c*(w^2));

+L=round(L*100)/100;

+V=33e3/sqrt(3);

+I=V/(w*L);

+I=round(I*1000)/1000;

+I=round(I*100)/100;

+R=V*I/1e3; //the difference in result is due to erroneous calculation in textbook.

+mprintf("the value of L=%fH and rating =%fkVA",L,R);

+disp("the difference in result is due to erroneous calculation in textbook.");