initial commit / add all books

1 files changed, 22 insertions, 0 deletions

diff --git a/2078/CH6/EX6.6/Example6_6.sce b/2078/CH6/EX6.6/Example6_6.sce
new file mode 100755
index 000000000..ca823ecdd
--- /dev/null
+++ b/2078/CH6/EX6.6/Example6_6.sce
@@ -0,0 +1,22 @@
+//Exa 6.6

+clc;

+clear;

+close;

+format('v',8);

+//Given data :

+A=0.945*expm(%i*1.02*%pi/180);//Auxiliary constant

+D=A;//Auxiliary constant

+B=82.3*expm(%i*73.03*%pi/180);//ohm//Auxiliary constant

+C=0.001376*expm(%i*90.4*%pi/180);//S//Auxiliary constant

+//part (i)

+Y=C;//S

+Z=2*(A-1)/C;//ohm

+disp("For equivalent T-network : ");

+disp("Shunt admittance in S, magnitude is "+string(abs(Y))+" and angle in degree is "+string(atand(imag(Y),real(Y))));

+disp("Impedance in ohm, magnitude is "+string(abs(Z))+" and angle in degree is "+string(atand(imag(Z),real(Z))));

+disp("For equivalent pi-network : ");

+Z=B;//ohm

+disp("Series Impedance in ohm, magnitude is "+string(abs(Z))+" and angle in degree is "+string(atand(imag(Z),real(Z))));

+Y=2*(A-1)/B;//S

+disp("Shunt admittance in S, magnitude is "+string(abs(Y))+" and angle in degree is "+string(atand(imag(Y),real(Y))));

+//For T-Network Value of Z is wrog in the book.