1 files changed, 26 insertions, 0 deletions
diff --git a/3793/CH4/EX4.14/exp_4_14.sce b/3793/CH4/EX4.14/exp_4_14.sce
new file mode 100644
index 000000000..cc18aa3f6
--- /dev/null
+++ b/3793/CH4/EX4.14/exp_4_14.sce
@@ -0,0 +1,26 @@
+clear;
+clc;
+v=400;
+Xl=.30;
+Xc=3.75*10^(-6);
+l=300;
+L=Xl/(2*%pi*50);
+C=Xc/(2*%pi*50);
+Zc=sqrt(L/C);
+phase=2*%pi*50*sqrt(L*C);
+pconstant=%i*phase;
+Vs=v/sqrt(3);
+//case a open ckt
+Ir=0;
+Vr=Vs/(cos(phase*l));
+
+
+//terminated by surge impedence
+VR=Vs/(exp(%i*phase*l));
+//carries a load
+ld=.6;
+Vr1=Vs/(cos(phase*l)+((%i*sin(phase*l))/ld));
+vv=abs(Vr1);
+mprintf("Receiving end voltage when ckt is open %.4f kV\n ",Vr);
+mprintf("Receiving end voltage when line is terminated by surge impedence is open %.4f%.4f kV\n ",real(VR),imag(VR));
+mprintf("Receiving end voltage when load carries 60 percent load is open %.4f kV\n ",vv);