8 files changed, 71 insertions, 0 deletions
diff --git a/1376/CH4/EX4.1/4_1.sci b/1376/CH4/EX4.1/4_1.sci
new file mode 100755
index 000000000..fab50b19b
--- /dev/null
+++ b/1376/CH4/EX4.1/4_1.sci
@@ -0,0 +1,9 @@
+// 4.1
+clc;
+t=20;
+C=8*10^-10;
+E=200;
+e=150;
+a=log10(E/e)
+R=(0.4343*t)/(C*a)*10^-6;
+printf("Insulation resistance=%.2f mega-ohm",R)
diff --git a/1376/CH4/EX4.2/4_2.sci b/1376/CH4/EX4.2/4_2.sci
new file mode 100755
index 000000000..4e8f0769f
--- /dev/null
+++ b/1376/CH4/EX4.2/4_2.sci
@@ -0,0 +1,9 @@
+// 4.2
+clc;
+t=600;
+C=2.5*10^-12;
+E=500;
+e=300;
+a=log10(E/e)
+R=(0.4343*t)/(C*a);
+printf("Insulation resistance=%.2f mega-ohm",R)
diff --git a/1376/CH4/EX4.3/4_3.sci b/1376/CH4/EX4.3/4_3.sci
new file mode 100755
index 000000000..ba1503a92
--- /dev/null
+++ b/1376/CH4/EX4.3/4_3.sci
@@ -0,0 +1,9 @@
+//4.3
+clc;
+//V=Eexp(-t/tc)   where tc= RC=Time constant
+t=30;
+V=125;
+E=200;
+tc=-30/log(V/E);
+R=(7/15)*tc-7;
+printf("Insulation resistance=%.2f mega-ohm",R)
+\ No newline at end of file
diff --git a/1376/CH4/EX4.4/4_4.sci b/1376/CH4/EX4.4/4_4.sci
new file mode 100755
index 000000000..b9c423f97
--- /dev/null
+++ b/1376/CH4/EX4.4/4_4.sci
@@ -0,0 +1,7 @@
+//4.4
+clc;
+Q=3000;
+S=0.1;
+M=2000;
+X=Q*S/M;
+printf("The value of X=%.2f ohm",X)
diff --git a/1376/CH4/EX4.5/4_5.sci b/1376/CH4/EX4.5/4_5.sci
new file mode 100755
index 000000000..7af867728
--- /dev/null
+++ b/1376/CH4/EX4.5/4_5.sci
@@ -0,0 +1,7 @@
+//4.5
+clc;
+lx=55;
+ly=100-lx;
+Y=100;
+X=Y*(lx/ly);
+printf("Resistance of the field coil=%.2f ohm",X)
diff --git a/1376/CH4/EX4.6/4_6.sci b/1376/CH4/EX4.6/4_6.sci
new file mode 100755
index 000000000..e4b6d0a7b
--- /dev/null
+++ b/1376/CH4/EX4.6/4_6.sci
@@ -0,0 +1,10 @@
+//4.6
+clc;
+p=200.7;
+q=400;
+S=200.05*10^-6;
+P=200.5;
+Q=400;
+r=1400*10^-6;
+X=((P*S/Q)+((q*r)/(p+q))*((P/Q)-(p/q)))*10^6;
+printf("Unknown resistance=%.2f micro-ohm",X)
diff --git a/1376/CH4/EX4.7/4_7.sci b/1376/CH4/EX4.7/4_7.sci
new file mode 100755
index 000000000..425a5a290
--- /dev/null
+++ b/1376/CH4/EX4.7/4_7.sci
@@ -0,0 +1,10 @@
+//4.7
+clc;
+E=230;
+V1=60;
+V2=40;
+Rv=50000;
+R1=((E-(V1+V2))/V2)*Rv*10^-3;
+printf("Resistance between positive and earth=%.2f Kohm",R1)
+R2=((E-(V1+V2))/V1)*Rv*10^-3;
+printf("\nResistance between -ve and earth=%.2f Kohm",R2)
+\ No newline at end of file
diff --git a/1376/CH4/EX4.8/4_8.sci b/1376/CH4/EX4.8/4_8.sci
new file mode 100755
index 000000000..4ff826081
--- /dev/null
+++ b/1376/CH4/EX4.8/4_8.sci
@@ -0,0 +1,10 @@
+//4.8
+clc;
+Q=100.5;
+M=300;
+q=100.6;
+m=300.25;
+r=0.1;
+S=0.0045;
+X=((M*S/Q)+((r)/(r+m*q))*((M*q/Q)-(m)))*10^6;
+printf("Unknown resistance=%.2f micro-ohm",X)
+\ No newline at end of file