9 files changed, 133 insertions, 0 deletions
diff --git a/1802/CH8/EX8.1/Exa8_1.sce b/1802/CH8/EX8.1/Exa8_1.sce
new file mode 100755
index 000000000..951618534
--- /dev/null
+++ b/1802/CH8/EX8.1/Exa8_1.sce
@@ -0,0 +1,18 @@
+//Exa 8.1
+clc;
+clear;
+close;
+//given data
+R=500;//in Mohm/Km
+R=R*10^6;//in ohm
+r1=2.5/2;//in cm
+r1=r1*10^-2;//in meter
+rho=4.5*10^16;//in ohm/cm
+rho=rho*10^-2;//in ohm/m
+l=1;//in Km
+l=l*1000;//in meter
+//Formula : R=(rho/(2*%pi*l))*log(r2/r1)
+r2=(exp(R/(rho/(2*%pi*l))))*r1;//in meter
+thickness=r2-r1;//in meter
+thickness=thickness*100;//in cm
+disp(thickness,"Thickness of Insulation in cm :");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.2/Exa8_2.sce b/1802/CH8/EX8.2/Exa8_2.sce
new file mode 100755
index 000000000..b9ed7f348
--- /dev/null
+++ b/1802/CH8/EX8.2/Exa8_2.sce
@@ -0,0 +1,12 @@
+//Exa 8.2
+clc;
+clear;
+close;
+//given data
+d=1;//in cm
+d=d*10^-2;//in meter
+D=1.8;//in cm
+D=D*10^-2;//in meter
+epsilon_r=4;//permittivity of insulation
+C=0.024*epsilon_r/log10(D/d);//in uF/Km
+disp(C,"Capacitance/km of the fibre in uF :  ");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.3/Exa8_3.sce b/1802/CH8/EX8.3/Exa8_3.sce
new file mode 100755
index 000000000..37059182f
--- /dev/null
+++ b/1802/CH8/EX8.3/Exa8_3.sce
@@ -0,0 +1,14 @@
+//Exa 8.3
+clc;
+clear;
+close;
+//given data
+V=33;//in KV
+d=1;//in cm
+D=4;//in cm
+//Part (a) :
+gmax=2*V/(d*log(D/d));//in KV/cm
+disp(gmax,"Maximum Stress in KV/cm");
+//Part (b) :
+gmin=2*V/(D*log(D/d));//in KV/cm
+disp(round(gmin),"Minimum Stress in KV/cm");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.4/Exa8_4.sce b/1802/CH8/EX8.4/Exa8_4.sce
new file mode 100755
index 000000000..378d8812d
--- /dev/null
+++ b/1802/CH8/EX8.4/Exa8_4.sce
@@ -0,0 +1,16 @@
+//Exa 8.4
+clc;
+clear;
+close;
+//given data
+Vrms=66;//in KV
+gmax=40;;//in KV/cm
+V=sqrt(2)*Vrms;//in Volt
+//Part (a) : 
+d=2*V/gmax;//in cm
+disp(d,"The most economical diameter in cm : ");
+//Part (b) : 
+PeakVoltage=sqrt(2)*Vrms/sqrt(3);//in Volt
+V=PeakVoltage;//in Volt
+d=2*V/gmax;//in cm
+disp(d,"The most economical diameter for 3 phase system in cm : ");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.5/Exa8_5.sce b/1802/CH8/EX8.5/Exa8_5.sce
new file mode 100755
index 000000000..92947a36e
--- /dev/null
+++ b/1802/CH8/EX8.5/Exa8_5.sce
@@ -0,0 +1,12 @@
+//Exa 8.5
+clc;
+clear;
+close;
+//given data
+d=2;//in cm
+D=2.5*2;//in cm
+d1=(5/4)*d;//in cm
+d2=(5/3)*d;//in cm
+gmax=40;//in KV/cm
+PeakVoltage=(gmax/2)*[d*log(d1/d)+d1*log(d2/d1)+d2*log(D/d2)];//in KV
+disp(PeakVoltage/sqrt(2),"The safe Working Potential in KV : ");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.6/Exa8_6.sce b/1802/CH8/EX8.6/Exa8_6.sce
new file mode 100755
index 000000000..21dcfaced
--- /dev/null
+++ b/1802/CH8/EX8.6/Exa8_6.sce
@@ -0,0 +1,16 @@
+//Exa 8.6
+clc;
+clear;
+close;
+//given data
+CN=0.4;//in uF
+V=33;//in KV
+VP=V/sqrt(3);//in KV
+f=25;//in Hz
+//Capacitance between 2 cores for 15 Km length
+CN_1=15*CN;//in uF
+//Capacitance of each core to neutral
+CN=2*CN_1;//in uF
+//Charging current per phase
+I=2*%pi*f*VP*1000*CN*10^-6;//in Ampere
+disp(round(I),"Charging current per phase in Ampere : ");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.7/Exa8_7.sce b/1802/CH8/EX8.7/Exa8_7.sce
new file mode 100755
index 000000000..c12580d4d
--- /dev/null
+++ b/1802/CH8/EX8.7/Exa8_7.sce
@@ -0,0 +1,16 @@
+ //Exa 8.7
+clc;
+clear;
+close;
+//given data
+format('v',9);
+l=10;//in Km
+C=0.3;//in uF
+V=22;//in KV
+VP=V/sqrt(3);//in KV
+VP=VP*1000;//in Volt
+f=50;//in Hz
+Capacitance=C*l;//in uF
+CN=2*Capacitance;//in uF
+KVA_Taken=3*VP*2*%pi*f*VP*CN*10/1000;//in KVA
+disp(KVA_Taken,"KVA taken by the 10 Km cable(KVA) : ");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.8/Exa8_8.sce b/1802/CH8/EX8.8/Exa8_8.sce
new file mode 100755
index 000000000..b662ee8a8
--- /dev/null
+++ b/1802/CH8/EX8.8/Exa8_8.sce
@@ -0,0 +1,15 @@
+//Exa 8.8
+clc;
+clear;
+close;
+//given data
+format('v',9);
+P=10;//in Ohm
+Q=80;//in Ohm
+S2=3400;//in Ohm
+S1=2400;//in Ohm
+X=P*(S2-S1)/(P+Q);//in Ohm
+LoopResistance=P*S2/Q;//in Ohm
+ResistancePerKm=LoopResistance/10;//in Ohm
+Distance=X/ResistancePerKm;//in Km
+disp(Distance,"Distance of fault from testing end in Km : ");
+\ No newline at end of file
diff --git a/1802/CH8/EX8.9/Exa8_9.sce b/1802/CH8/EX8.9/Exa8_9.sce
new file mode 100755
index 000000000..867c2f9bf
--- /dev/null
+++ b/1802/CH8/EX8.9/Exa8_9.sce
@@ -0,0 +1,14 @@
+//Exa 8.9
+clc;
+clear;
+close;
+//given data
+format('v',9);
+Resistance=1.6;//in ohm/Km
+l=1000;//in meter
+PbyQ=3;//unitless
+PplusQbyQ=4;//unitless
+LoopResistance=(Resistance/1000)*2*l;//in Ohm
+X=(1/PplusQbyQ)*LoopResistance;//in Ohm
+Distance=X/(Resistance/1000);//in meter
+disp(Distance,"Distance of Fault from testing end in meters : ");
+\ No newline at end of file