summaryrefslogtreecommitdiff
path: root/3793/CH10/EX10.6/exp_10_6.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3793/CH10/EX10.6/exp_10_6.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3793/CH10/EX10.6/exp_10_6.sce')
-rw-r--r--3793/CH10/EX10.6/exp_10_6.sce60
1 files changed, 60 insertions, 0 deletions
diff --git a/3793/CH10/EX10.6/exp_10_6.sce b/3793/CH10/EX10.6/exp_10_6.sce
new file mode 100644
index 000000000..e0b2e8bf7
--- /dev/null
+++ b/3793/CH10/EX10.6/exp_10_6.sce
@@ -0,0 +1,60 @@
+clear;
+clc;
+Sb=30;
+vb=11;
+sg=20;
+p=10;
+R=6.6;
+//generator
+X1=complex(0,.1);
+X2=complex(0,.1);
+X0=complex(0,.15);
+x1=X1*(Sb/sg);
+x2=X2*(Sb/sg);
+x0=X0*(Sb/sg);
+//transformer12
+xt1=complex(0,.12);
+xt2=complex(0,.12);
+xt0=complex(0,.12);
+//transmission line
+vtr=22;
+Ztr=vtr^2/Sb;
+Z=complex(1,5);
+Zpu=Z/Ztr;
+//transformer34
+Xt1=complex(0,.05);
+Xt2=complex(0,.05);
+Xt0=complex(0,.05);
+xtt1=Xt1*(Sb/sg);
+xtt2=Xt2*(Sb/sg);
+xtt0=Xt0*(Sb/sg);
+Vf3=1;
+Rpu=((Vf3^2)*Sb)/p;
+Rf=(R*Sb)/vtr^2;
+Il=p/Sb;
+Vf4=Vf3+(Il*xtt1);
+Zfp=((x1+xt1+Zpu)*(Rpu+xtt1))/(x1+xt1++Zpu+Rpu+xtt1);
+Zfn=Zfp;
+zf0=Zpu+xt1;
+Ia1=Vf3/complex(1.611,1.5); //from figure
+Ia0=Ia1;
+Ia=3*Ia1;
+Va0=-zf0*Ia0;
+Va1=Vf3-(Zfn*Ia1);
+Va2=-(Zfn*Ia1);
+Ibase=(Sb*1000)/(sqrt(3)*vtr);
+If=Ibase*Ia;
+mprintf("fault current is %f%f A \n",real(If),imag(If));
+a=complex(-.5,.866);
+A=[1 1 1;1 a^2 a;1 a a^2];
+V1=[Va0;Va1;Va2];
+V=A*V1;
+Vab=V(1,1)-V(2,1);
+Vbc=V(2,1)-V(3,1);
+Vca=V(3,1)-V(1,1);
+mprintf("Actual Line Voltages are Vab=%f+%f Kv Vbc=%f%f Kv Vca=%f+%f Kv",real(Vab),imag(Vab),real(Vbc),imag(Vbc),real(Vca),imag(Vca));
+
+
+
+
+