summaryrefslogtreecommitdiff
path: root/671/CH6
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /671/CH6
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '671/CH6')
-rwxr-xr-x671/CH6/EX6.1/6_1.sce19
-rwxr-xr-x671/CH6/EX6.10/6_10.sce17
-rwxr-xr-x671/CH6/EX6.11/6_11.sce22
-rwxr-xr-x671/CH6/EX6.12/6_12.sce17
-rwxr-xr-x671/CH6/EX6.13/6_13.sce16
-rwxr-xr-x671/CH6/EX6.14/6_14.sce26
-rwxr-xr-x671/CH6/EX6.15/6_15.sce24
-rwxr-xr-x671/CH6/EX6.16/6_16.sce17
-rwxr-xr-x671/CH6/EX6.17/6_17.sce14
-rwxr-xr-x671/CH6/EX6.18/6_18.sce11
-rwxr-xr-x671/CH6/EX6.19/6_19.sce8
-rwxr-xr-x671/CH6/EX6.2/6_2.sce12
-rwxr-xr-x671/CH6/EX6.20/6_20.sce29
-rwxr-xr-x671/CH6/EX6.21/6_21.sce20
-rwxr-xr-x671/CH6/EX6.3/6_3.sce11
-rwxr-xr-x671/CH6/EX6.4/6_4.sce19
-rwxr-xr-x671/CH6/EX6.5/6_5.sce14
-rwxr-xr-x671/CH6/EX6.6/6_6.sce20
-rwxr-xr-x671/CH6/EX6.7/6_7.sce29
-rwxr-xr-x671/CH6/EX6.9/6_9.sce24
20 files changed, 369 insertions, 0 deletions
diff --git a/671/CH6/EX6.1/6_1.sce b/671/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..570dd087e
--- /dev/null
+++ b/671/CH6/EX6.1/6_1.sce
@@ -0,0 +1,19 @@
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+omega=exp(%i*120/180*%pi)
+Va=200
+Vb=200/omega
+Vc=200*omega
+
+[Zr,Zc]=polar_to_cart(100,60)
+Z=complex(Zr,Zc)
+
+Ia=Va/Z
+Ib=Vb/Z
+Ic=Vc/Z
+
+disp(Va,Vb,Vc,Ia,Ib,Ic) \ No newline at end of file
diff --git a/671/CH6/EX6.10/6_10.sce b/671/CH6/EX6.10/6_10.sce
new file mode 100755
index 000000000..a7d9f8fc3
--- /dev/null
+++ b/671/CH6/EX6.10/6_10.sce
@@ -0,0 +1,17 @@
+omega=exp(%i*120/180*%pi)
+
+Zp=17.32+%i*10
+Vab=400
+Iab=Vab/Zp
+Ica=Iab/omega
+IAa=Iab-Ica
+IBb=IAa/omega
+ICc=IAa*omega
+disp(ICc,IBb,IAa)
+
+Pab=(norm(Iab)^2)*real(Zp)
+Ptotal=3*Pab
+disp(Ptotal)
+
+Itotal=IAa+IBb+ICc
+disp(Itotal) \ No newline at end of file
diff --git a/671/CH6/EX6.11/6_11.sce b/671/CH6/EX6.11/6_11.sce
new file mode 100755
index 000000000..aed956b22
--- /dev/null
+++ b/671/CH6/EX6.11/6_11.sce
@@ -0,0 +1,22 @@
+omega=exp(%i*120/180*%pi)
+
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+[Zr,Zc]=polar_to_cart(5,60)
+Z=complex(Zr,Zc)
+
+[Vr,Vc]=polar_to_cart(25,30)
+Van=complex(Vr,Vc)
+
+Ian=Van/Z
+Ibn=Ian/omega
+Icn=Ian*omega
+
+Vcn=Van*omega
+Vac=Van-Vcn
+
+disp(Ibn,Icn,Vac) \ No newline at end of file
diff --git a/671/CH6/EX6.12/6_12.sce b/671/CH6/EX6.12/6_12.sce
new file mode 100755
index 000000000..6316ff84b
--- /dev/null
+++ b/671/CH6/EX6.12/6_12.sce
@@ -0,0 +1,17 @@
+V=400
+w=2*50*%pi
+P=25000
+pf1=0.7
+theta1=acos(pf1)
+Il1=P/(sqrt(3)*V*pf1)*exp(-%i*theta1)
+Ip1=Il1/sqrt(3)
+
+
+pf2=0.85
+theta2=acos(pf2)
+Il2=P/(sqrt(3)*V*pf2)*exp(-%i*theta2)
+Ip2=Il2/sqrt(3)
+
+Ic=Ip2-Ip1 ////calculation mistake in the book at this step
+C=real(Ic/(V*w*%i))
+disp(C) \ No newline at end of file
diff --git a/671/CH6/EX6.13/6_13.sce b/671/CH6/EX6.13/6_13.sce
new file mode 100755
index 000000000..ffae9f0a3
--- /dev/null
+++ b/671/CH6/EX6.13/6_13.sce
@@ -0,0 +1,16 @@
+omega=exp(%i*120/180*%pi)
+Vrn=400/sqrt(3)
+Vyn=Vrn/omega
+Vbn=Vrn*omega
+
+P1=4000
+P2=8000
+P3=12000
+
+Ir=conj(P1/Vrn)
+Iy=conj(P2/Vyn)
+Ib=conj(P3/Vbn)
+
+In=Ir+Iy+Ib
+
+disp(norm(Ir),norm(Iy),norm(Ib),norm(In)) \ No newline at end of file
diff --git a/671/CH6/EX6.14/6_14.sce b/671/CH6/EX6.14/6_14.sce
new file mode 100755
index 000000000..849120426
--- /dev/null
+++ b/671/CH6/EX6.14/6_14.sce
@@ -0,0 +1,26 @@
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+
+Vbc=-400*%i
+Rl=1
+
+[Sr,Sc]=polar_to_cart(10000,acos(0.8))
+S=complex(Sr,Sc)
+
+
+Vl=Vbc
+Il=norm(S/(sqrt(3)*Vl)) ////////calculation mistake in book here
+P=3*Il*Il*Rl
+disp(P)
+
+Van=norm(Vbc/sqrt(3))
+
+Ia=Il*exp(-%i*acos(0.8))
+omega=exp(%i*120/180*%pi)
+Ib=Ia/omega
+
+disp(Van,Ia,Ib) \ No newline at end of file
diff --git a/671/CH6/EX6.15/6_15.sce b/671/CH6/EX6.15/6_15.sce
new file mode 100755
index 000000000..7d8c949a9
--- /dev/null
+++ b/671/CH6/EX6.15/6_15.sce
@@ -0,0 +1,24 @@
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+[Vr,Vc]=polar_to_cart(231,60)
+Van=complex(Vr,Vc)
+
+Sp=(2.5-%i*1.2)*1000
+
+omega=exp(%i*120/180*%pi)
+Vbn=Van/omega
+Vcn=Van*omega
+
+Vbc=Vbn-Vcn
+
+Ibc=conj(Sp/Vbc)
+Ica=Ibc*omega
+Iab=Ibc/omega
+
+IaA=Ica-Iab
+
+disp(IaA) \ No newline at end of file
diff --git a/671/CH6/EX6.16/6_16.sce b/671/CH6/EX6.16/6_16.sce
new file mode 100755
index 000000000..3ae5d40f8
--- /dev/null
+++ b/671/CH6/EX6.16/6_16.sce
@@ -0,0 +1,17 @@
+omega=exp(%i*120/180*%pi)
+Vab=400
+Vca=400*omega
+Vbc=400/omega
+
+//Mesh Method
+A=[80+100*%i,100*%i;100*%i,50*%i]
+I=inv(A)*[-Vca;Vbc]
+Ia=I(1)
+Ib=I(2)
+
+Ic=-(Ia+Ib)
+Van=80*Ia
+Vbn=-50*%i*Ib
+Vcn=100*%i*Ic
+
+disp(Ia,Ib,Ic,Van,Vbn,Vcn) \ No newline at end of file
diff --git a/671/CH6/EX6.17/6_17.sce b/671/CH6/EX6.17/6_17.sce
new file mode 100755
index 000000000..28b3b8ed2
--- /dev/null
+++ b/671/CH6/EX6.17/6_17.sce
@@ -0,0 +1,14 @@
+omega=exp(%i*120/180*%pi)
+Vab=400
+Vca=400*omega
+Vbc=400/omega
+
+Iab=Vab/(100*%i)
+Ibc=Vbc/(-50*%i)
+Ica=Vca/80
+
+Ia=Iab-Ica ///calaculation mistake in the book here
+Ib=Ibc-Iab
+Ic=Ica-Ibc
+
+disp(Ia,Ib,Ic) \ No newline at end of file
diff --git a/671/CH6/EX6.18/6_18.sce b/671/CH6/EX6.18/6_18.sce
new file mode 100755
index 000000000..2dd922d5d
--- /dev/null
+++ b/671/CH6/EX6.18/6_18.sce
@@ -0,0 +1,11 @@
+V=400
+P=900
+pf=0.8
+
+Pph=P/3
+Vph=V/sqrt(3)
+Iph=Pph/Vph/pf
+Zph=Vph/Iph
+theta=acos(pf)
+Zph=Zph*exp(-%i*theta)
+disp(Zph) \ No newline at end of file
diff --git a/671/CH6/EX6.19/6_19.sce b/671/CH6/EX6.19/6_19.sce
new file mode 100755
index 000000000..710ebeca4
--- /dev/null
+++ b/671/CH6/EX6.19/6_19.sce
@@ -0,0 +1,8 @@
+V=400
+Z=complex(40,30)
+
+Iph=V/Z
+Il=sqrt(3)*norm(Iph)
+Ptotal=sqrt(3)*Il*V*cos(atan(imag(Z)/real(Z)))
+
+disp(Iph,Il,Ptotal) \ No newline at end of file
diff --git a/671/CH6/EX6.2/6_2.sce b/671/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..b5e9722e1
--- /dev/null
+++ b/671/CH6/EX6.2/6_2.sce
@@ -0,0 +1,12 @@
+Vl=400
+Vph=Vl
+pf=0.8
+
+Pph=1500/3
+Iph=Pph/Vph/pf
+Il=sqrt(3)*Iph
+theta=acos(0.8)
+Iph=Iph*exp(%i*theta)
+Zph=Vph/Iph
+
+disp(Iph,Il,Zph) \ No newline at end of file
diff --git a/671/CH6/EX6.20/6_20.sce b/671/CH6/EX6.20/6_20.sce
new file mode 100755
index 000000000..71b4ece44
--- /dev/null
+++ b/671/CH6/EX6.20/6_20.sce
@@ -0,0 +1,29 @@
+Ig1=15000/sqrt(3)/800/0.8
+PG1=15000
+QG1=15000*tan(acos(0.8))
+SG1=PG1+%i*QG1
+
+Pll=3*Ig1*Ig1*1.2
+Qll=3*Ig1*Ig1*1.8
+Sll=Pll+%i*Qll
+SlG1=SG1-Sll
+Vl=SlG1/sqrt(3)/Ig1
+
+
+Pl=30000
+Ql=30000*tan(acos(0.8))
+PlG2=Pl-real(SlG1)
+QlG2=Ql-imag(SlG1)
+SlG2=PlG2+%i*QlG2
+
+IG2=SlG2/sqrt(3)/Vl
+
+Pll2=3*IG2*IG2*0.8
+Qll2=3*IG2*IG2*1.2
+
+PG2=PlG2+Pll2
+QG2=QlG2+Qll2
+SG2=PG2+%i*QG2
+VG2=SG2/sqrt(3)/IG2
+
+disp(norm(SG2),norm(VG2)) \ No newline at end of file
diff --git a/671/CH6/EX6.21/6_21.sce b/671/CH6/EX6.21/6_21.sce
new file mode 100755
index 000000000..c51cf9718
--- /dev/null
+++ b/671/CH6/EX6.21/6_21.sce
@@ -0,0 +1,20 @@
+omega=exp(%i*120/180*%pi)
+w=2*50*%pi
+Vry=415
+Vyb=Vry/omega
+Vbr=Vry*omega
+
+C=40E-6
+Zry=100
+Zyb=complex(20,60)
+Zbr=1/(%i*w*C)
+
+I1=Vry/Zry
+I2=Vyb/Zyb
+I3=Vbr/Zbr
+
+Ir=I1-I3
+Iy=I2-I1
+Ib=I3-I2
+
+disp(norm(Ir),norm(Iy),norm(Ib)) \ No newline at end of file
diff --git a/671/CH6/EX6.3/6_3.sce b/671/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..385757a50
--- /dev/null
+++ b/671/CH6/EX6.3/6_3.sce
@@ -0,0 +1,11 @@
+Vl=400
+pf=0.8
+
+Pph=1200/3
+Vph=Vl/sqrt(3)
+Iph=Pph/Vph/pf
+Il=Iph
+theta=acos(0.8)
+Zph=Vph/Iph*exp(%i*theta)
+
+disp(Il,Iph,Zph) \ No newline at end of file
diff --git a/671/CH6/EX6.4/6_4.sce b/671/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..bd6561a0f
--- /dev/null
+++ b/671/CH6/EX6.4/6_4.sce
@@ -0,0 +1,19 @@
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+Vl=400
+Vp=Vl/sqrt(3)
+disp(Vp)
+
+[Ir,Ic]=polar_to_cart(50,-30)
+Il=complex(Ir,Ic)
+Ip=Il
+Zy=Vp/Il
+disp(Zy)
+
+P=sqrt(3)*Vl*Il*cos(30/180*%pi)
+Q=sqrt(3)*Vl*Il*sin(30/180*%pi)
+disp(P,Q) \ No newline at end of file
diff --git a/671/CH6/EX6.5/6_5.sce b/671/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..f4ef090ee
--- /dev/null
+++ b/671/CH6/EX6.5/6_5.sce
@@ -0,0 +1,14 @@
+Vl=400
+Z=16+%i*12
+
+Vp=Vl
+Ip=Vp/Z
+pf=cos(atan(imag(Z)/real(Z)))
+Il=Ip*sqrt(3)
+
+P=sqrt(3)*Vl*Il*pf
+Q=sqrt(3)*Vl*Il*sin(acos(pf))
+
+S=P+%i*Q
+
+disp(Ip,Il,pf,P,Q,S) \ No newline at end of file
diff --git a/671/CH6/EX6.6/6_6.sce b/671/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..253079ec0
--- /dev/null
+++ b/671/CH6/EX6.6/6_6.sce
@@ -0,0 +1,20 @@
+Vl=400
+Zload=60+%i*15
+
+Vs=Vl/sqrt(3)
+Z=0.3+%i*1+Zload
+
+Il=Vs/Z
+Vload=Il*Zload*sqrt(3)
+Pload=3*Il*Il*real(Zload)
+Qload=3*Il*Il*imag(Zload)
+Sload=Pload+%i*Qload
+
+////////////ll=lineloss
+Pll=3*Il*Il*real(Z-Zload)
+Qll=3*Il*Il*imag(Z-Zload)
+Sll=Pll+%i*Qll
+
+Ssource=Sload+Sll
+
+disp(Il,Vload,Sload,Sll,Ssource) \ No newline at end of file
diff --git a/671/CH6/EX6.7/6_7.sce b/671/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..e132a39d9
--- /dev/null
+++ b/671/CH6/EX6.7/6_7.sce
@@ -0,0 +1,29 @@
+Ig1=200000/sqrt(3)/11000/0.75
+PG1=200000
+QG1=200000*tan(acos(0.75))
+SG1=PG1+%i*QG1
+
+Pll=3*Ig1*Ig1*1
+Qll=3*Ig1*Ig1*2.2
+Sll=Pll+%i*Qll
+SlG1=SG1-Sll
+Vl=SlG1/sqrt(3)/Ig1
+
+
+Pl=400000
+Ql=400000*tan(acos(0.8))
+PlG2=Pl-real(SlG1)
+QlG2=Ql-imag(SlG1)
+SlG2=PlG2+%i*QlG2
+
+IG2=SlG2/sqrt(3)/Vl
+
+Pll2=3*IG2*IG2*0.6
+Qll2=3*IG2*IG2*1.2
+
+PG2=PlG2+Pll2
+QG2=QlG2+Qll2
+SG2=PG2+%i*QG2
+VG2=SG2/sqrt(3)/IG2
+
+disp(norm(SG2),norm(VG2)) \ No newline at end of file
diff --git a/671/CH6/EX6.9/6_9.sce b/671/CH6/EX6.9/6_9.sce
new file mode 100755
index 000000000..72d87f1ed
--- /dev/null
+++ b/671/CH6/EX6.9/6_9.sce
@@ -0,0 +1,24 @@
+function [x,y]=polar_to_cart(r,theta)
+ theta=theta/180*%pi
+ x=r*cos(theta)
+ y=r*sin(theta)
+endfunction
+
+Vl=400
+[Ir,Ic]=polar_to_cart(20,-30)
+Iab=complex(Ir,Ic)
+
+omega=exp(%i*120/180*%pi)
+Ibc=Iab/omega
+Ica=Iab*omega
+
+IAa=Iab-Ica
+Pab=Vl*norm(Iab)*cos(30/180*%pi)
+Ptotal=3*Pab
+
+Zp=Vl/Iab
+Rp=real(Zp)
+
+disp(IAa)
+disp(Ptotal)
+disp(Rp) \ No newline at end of file