From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1109/CH3/EX3.11/3_11.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 1109/CH3/EX3.11/3_11.sce

(limited to '1109/CH3/EX3.11')

diff --git a/1109/CH3/EX3.11/3_11.sce b/1109/CH3/EX3.11/3_11.sce
new file mode 100755
index 000000000..80597040d
--- /dev/null
+++ b/1109/CH3/EX3.11/3_11.sce
@@ -0,0 +1,25 @@
+clear;
+clc;
+l=50;Zo=692*exp(%i*(-%pi/(180/12)));a=0.00755;b=0.0355;Zr=300;f=1000;Vs=10;
+P=a+(%i*b);
+Zin=Zo*((Zr*cosh(P*l))+(Zo*sinh(P*l)))/((Zo*cosh(P*l))+(Zr*sinh(P*l)));
+Is=Vs/Zin*(10)^-1;
+A=real(Is);
+B=imag(Is);
+printf("-Sending end current = %f /_ %f Amp\n",round(abs(Is)*10^5)/10^5,round(atan(B,A)*180*10/%pi)/10);
+Vr=Vs*((cosh(P*l))-((Zo*sinh(P*l))/Zin));
+C=real(Vr);
+D=imag(Vr);
+printf("-Receiving end voltage = %f /_ %f volts\n",round(abs(Vr)*10)/10,round(atan(D,C)*180/%pi));
+Ir=Vr/Zr;
+E=real(Ir);
+F=imag(Ir);
+printf("-Receiving end current = %f /_ %f Amp\n",round(abs(Ir)*1000)/1000,round(atan(F,E)*180/%pi));
+modIr=abs(Ir);
+Rr=Zr;
+Pr=((modIr)^2)*Rr;
+theta=atan((imag(Zin))/(real(Zin)));
+modIs=abs(Is);
+Ps=Vs*modIs*cos(theta);
+n=(Pr/Ps)*10;
+printf("-Efficiency of transmission(in percentage)= %f",round(n));
-- 
cgit