initial commit / add all books

1 files changed, 27 insertions, 0 deletions

diff --git a/2078/CH6/EX6.2/Example6_2.sce b/2078/CH6/EX6.2/Example6_2.sce
new file mode 100755
index 000000000..14aa16f8f
--- /dev/null
+++ b/2078/CH6/EX6.2/Example6_2.sce
@@ -0,0 +1,27 @@
+//Exa 6.2

+clc;

+clear;

+close;

+format('v',8);

+//Given data :

+Z=200*expm(%i*80*%pi/180);//ohm

+Y=0.0013*expm(%i*90*%pi/180);//S/phase

+P=80*10^6;//W

+pf=0.8;//power factor

+VRL=220*1000;//V

+VR=VRL/sqrt(3);//V

+IR=P/sqrt(3)/VRL/pf;//A

+fi=acosd(pf);//degree

+IR=IR*expm(%i*-fi*%pi/180);//A

+YZ=Y*Z;//ohm

+Y2Z2=YZ^2;//ohm

+Y3Z3=YZ^3;//ohm

+A=1+YZ/2+Y2Z2/24+Y3Z3/720;//ohm

+D=A;//oh,m

+B=Z*(1+YZ/6+Y2Z2/120+Y3Z3/5040);//ohm

+C=Y*(1+YZ/6+Y2Z2/120+Y3Z3/5040);//mho

+VS=A*VR+B*IR;//V

+VSL=sqrt(3)*abs(VS);//V

+disp(VSL/1000,"Sending end line voltage in kV : ");

+IS=C*VR+D*IR;//

+disp("Sending end current in A, magnitude is "+string(abs(IS))+" and angle in degree is "+string(atand(imag(IS),real(IS))));