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

---
 1055/CH4/EX4.8/ch4_8.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 1055/CH4/EX4.8/ch4_8.sce

(limited to '1055/CH4/EX4.8/ch4_8.sce')

diff --git a/1055/CH4/EX4.8/ch4_8.sce b/1055/CH4/EX4.8/ch4_8.sce
new file mode 100755
index 000000000..5b284b701
--- /dev/null
+++ b/1055/CH4/EX4.8/ch4_8.sce
@@ -0,0 +1,23 @@
+//To determine the ABCD parameters of Line
+clear
+clc;
+yl=(0.2714+ %i*1.169)*120*(10^-3);
+Ir=40*1000/(sqrt(3)*132*.8)
+A=cosh(yl);
+phase_A=atand(imag(A)/real(A));//Phase angle of A
+IR=Ir*(cosd(-36.8)+ %i*sind(-36.8))
+Vr=132*1000/sqrt(3);
+Zc=380*(cosd(-13.06)+ %i*sind(-13.06));
+B=Zc*sinh(yl);
+phase_B=atand(imag(B)/real(B));//Phase angle of B
+Vs=(A*Vr+B*IR);
+f=abs(B);
+d=abs(Vs);
+C=sinh(yl)/Zc;
+phase_C=atand(imag(C)/real(C));//Phase angle of C
+D=cosh(yl);
+phase_D=atand(imag(D)/real(D));//Phase angle of D
+mprintf("A=%.2f at an angle of %.2f \n",abs(A),phase_A)
+mprintf("B=%.1f at an angle of %.0f \n",abs(B),phase_B)
+mprintf("C=%.2f at an angle of %.2f \n",abs(C),phase_C)
+mprintf("D=%.2f at an angle of %.2f \n",abs(D),phase_D)
-- 
cgit