9 files changed, 133 insertions, 0 deletions
diff --git a/1076/CH4/EX4.1/4_1.sce b/1076/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..beadb792e
--- /dev/null
+++ b/1076/CH4/EX4.1/4_1.sce
@@ -0,0 +1,24 @@
+clear;
+clc;
+
+C=1;
+C1=0.1;
+V=66;
+n=4;
+
+v1= 1;
+v2= (C+C1) * v1;
+v3= (C * v2) + (C1*(v1+v2));
+v4= (C * v3) + (C1*(v1+v2+v3));
+
+V1= V/(sqrt(3)*(v1+v2+v3+v4));
+V2= v2* V1;
+V3= v3* V1;
+V4= v4* V1;
+mprintf("\n V1= %.2f kV",V1);
+mprintf("\n V2= %.2f kV",V2);
+mprintf("\n V3= %.2f kV",V3);
+mprintf("\n V4= %.2f kV",V4);
+
+eff= (V1+V2+V3+V4)/(n*V4) *100;
+mprintf("\n string efficiency= %.1f percent",eff);
diff --git a/1076/CH4/EX4.2/4_2.sce b/1076/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..c123e1326
--- /dev/null
+++ b/1076/CH4/EX4.2/4_2.sce
@@ -0,0 +1,23 @@
+clear
+clc
+
+c1=.15
+c2=.05
+V=100
+
+A=[
+1+c1 -(1+c2) -c2
+c1 1+c1 -(1+c2)
+1 0 0
+]
+
+B=[0 0 1]'
+Vm=inv(A) * B
+Vm = round(Vm*1e4)/1e4
+V1=V/(Vm(1)+Vm(2)+Vm(3))
+V2=Vm(2) * V1
+V3=Vm(3) * V1
+
+ef=V/(3*V3)
+
+mprintf("Voltage distribution in percentage of total voltage:\nV1=%.2f\tV2=%.2f\tV3=%.2f\nstring efficiency=%.1f percent",V1, V2, V3,ef*100)
diff --git a/1076/CH4/EX4.3/4_3.sce b/1076/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..741e219d3
--- /dev/null
+++ b/1076/CH4/EX4.3/4_3.sce
@@ -0,0 +1,23 @@
+clear;
+clc;
+
+n=3
+V=11;
+C1=1;
+C2=.2 * C1;
+
+v1=1;
+v2=(C1+C2)*v1/C1;
+v3=((C1*v2)+(C2*(v1+v2)))/C1;
+
+V3=V
+V1=fix((V3/v3)*100)/100;
+V2=round((V1*v2)*100)/100;
+
+Vln=V1+V2+V3;
+Vll=sqrt(3)*Vln;
+eff=Vln*100/(n*V);
+
+mprintf("\n(a) Maximum line to neutral voltage = %.2f kV", Vln);
+mprintf("\n(b) String Efficiency = %.0f percent", eff);
+
diff --git a/1076/CH4/EX4.4/4_4.sce b/1076/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..71d547296
--- /dev/null
+++ b/1076/CH4/EX4.4/4_4.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+v3=20;
+v2=15;
+//putting v1=15/(1+k)
+s=poly([-1 5 3],"x","coeff");
+K=roots(s);
+k=K(2)
+v1=15/(1+k);
+//disp(v1)
+x=v1(1);
+//disp(x);
+vnew=x+v3+v2;
+xl=sqrt(3)*vnew;
+n=vnew/(3*v3);
+mprintf("capacitance ratio= %.2f \nthe line to neutral voltage= %.1fkV \n string efficiency=%.1fpercent",k,xl,n*100);
diff --git a/1076/CH4/EX4.5/4_5.sce b/1076/CH4/EX4.5/4_5.sce
new file mode 100755
index 000000000..0e27babec
--- /dev/null
+++ b/1076/CH4/EX4.5/4_5.sce
@@ -0,0 +1,12 @@
+clear;
+clc;
+a=.26;
+b=.15;
+c=.35;
+y=[(1+b) b;-(1+a) (1+c)];
+z=[1+a;a];
+v=round(inv(y)*z*1e3)*1e-3; 
+t=v(1,1);
+u=v(2,1);
+n=(t+u+1)/(3*u);
+mprintf("the string efficiency is =%.2f",n);
diff --git a/1076/CH4/EX4.6/4_6.sce b/1076/CH4/EX4.6/4_6.sce
new file mode 100755
index 000000000..fa6446781
--- /dev/null
+++ b/1076/CH4/EX4.6/4_6.sce
@@ -0,0 +1,8 @@
+clear;
+clc;
+k=.1;
+n=4;
+for i=1:4
+    z(i)=2*cosh((i-.5)*sqrt(k))*sinh(.5*sqrt(k))/sinh(n*sqrt(k));
+end
+mprintf("v1= %.3fV, v2= %.3fV, v3= %.3fV, v4= %.3fV", z(1), z(2), z(3), z(4))
diff --git a/1076/CH4/EX4.7/4_7.sce b/1076/CH4/EX4.7/4_7.sce
new file mode 100755
index 000000000..012f6f7b5
--- /dev/null
+++ b/1076/CH4/EX4.7/4_7.sce
@@ -0,0 +1,10 @@
+clear;
+clc;
+c=1;
+w=1;
+v=1;
+c1=c*w*v/(4*w*v);
+c2=2*w*v/(3*w*v);
+c3=3*w*v/(2*w*v);
+c4=4*w*v/(1*w*v);
+mprintf("the capacitance are \nc1=%.2fC\nc2=%.2fC\nc3=%.1fC\nc4=%.0fC",c1,c2,c3,c4);
diff --git a/1076/CH4/EX4.8/4_8.sce b/1076/CH4/EX4.8/4_8.sce
new file mode 100755
index 000000000..2dc00ef99
--- /dev/null
+++ b/1076/CH4/EX4.8/4_8.sce
@@ -0,0 +1,10 @@
+clear;
+clc;
+w=1;
+c=1;
+v=1;
+y=5;
+c2=w*c*v+(w*y*v);
+c3=2*w*c+6*w*c;
+c4=3*w*c+8*w*c;
+mprintf("the capacitance is\nc2=%dC\nc3=%dC\nc3=%dC",c2,c3,c4);
diff --git a/1076/CH4/EX4.9/4_9.sce b/1076/CH4/EX4.9/4_9.sce
new file mode 100755
index 000000000..2d842216a
--- /dev/null
+++ b/1076/CH4/EX4.9/4_9.sce
@@ -0,0 +1,7 @@
+clear;
+clc;
+v=1;
+v1=.4*v;
+v2=.6*v;
+k=(v2-v1)/v1;
+mprintf("the ratio of capacitance to insulator to the capacitance to earth=%d",1/k);