1 files changed, 25 insertions, 0 deletions
diff --git a/3793/CH4/EX4.1/exp_4_1.sce b/3793/CH4/EX4.1/exp_4_1.sce
new file mode 100644
index 000000000..dc020b3cc
--- /dev/null
+++ b/3793/CH4/EX4.1/exp_4_1.sce
@@ -0,0 +1,25 @@
+clear;
+clc;
+R=.11;
+L=1.5;
+c=.01;
+l=150;
+P=50;
+V=complex(72128.8,0);
+z=complex(.11,.471);
+Y=complex(0,(3.14*10^(-6)));
+Zc=complex(389.9,-44.925)
+gama=sqrt(Y*z);
+Ir=complex(230.94,-173.21);
+a=gama*l;
+sine=complex(.0148,.179);
+cosi=complex(.9838,.0027);
+Vs=(V*cosi)+(Zc*sine*Ir);
+mprintf("sending end voltage is = ")
+disp(Vs);
+Is=((V*sine)/Zc)+(cosi*Ir);
+mprintf("sending end current is = ")
+disp(Is);
+S=Vs*conj(Is)*10^(-6);
+effi=(P/(3*real(S)))*100;
+mprintf("efiiciency is = %f percentage",effi)