initial commit / add all books

1 files changed, 23 insertions, 0 deletions

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)