1 files changed, 24 insertions, 0 deletions
diff --git a/2078/CH9/EX9.12/Example9_12.sce b/2078/CH9/EX9.12/Example9_12.sce
new file mode 100755
index 000000000..78697ee7f
--- /dev/null
+++ b/2078/CH9/EX9.12/Example9_12.sce
@@ -0,0 +1,24 @@
+//Exa 9.12
+clc;
+clear;
+close;
+//Given data :
+V=20;//kV
+C=poly(0,'C');
+//Cmutual=C;//F
+CmutualBYC=1;
+//Cshunt=C/5;//F
+CshuntBYC=1/5;
+//I2=I1+i1//omega*C*V2=omega*C*V1+omega*Cshunt*V1
+V2BYV1=1+CshuntBYC;
+V3BYV2=1;//a V2=V3
+//V=V1+V2+V3
+V1=V/(V3BYV2+V2BYV1+V2BYV1);//kV
+V2=V2BYV1*V1;//kV
+V3=V2;//kV
+disp(V3,"Voltage onn the line end unit in kV : ");
+//I3+ix=I2+i2
+CxBYC=(V2+CshuntBYC*(V1+V2)-V3)/V3;
+disp("Capacitance required is "+string(CxBYC)+"C(in F).");
+
+