diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1802/CH5/EX5.3 | |
download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip |
initial commit / add all books
Diffstat (limited to '1802/CH5/EX5.3')
-rwxr-xr-x | 1802/CH5/EX5.3/Exa5_3.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/1802/CH5/EX5.3/Exa5_3.sce b/1802/CH5/EX5.3/Exa5_3.sce new file mode 100755 index 000000000..0ff948fde --- /dev/null +++ b/1802/CH5/EX5.3/Exa5_3.sce @@ -0,0 +1,24 @@ +//Exa 5.3
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+l=10*10^3;//in meter
+P_del=4000;//in KVA
+cos_fir=0.9;//unitless
+VL=11*10^3;//in volt
+R=0.2*10;//in ohm/phase/10km
+X=0.3*10;//in ohm/phase/10km
+I=P_del*10^3/(sqrt(3)*VL);//in Ampere
+VR_phase=VL/sqrt(3);//in volt
+Vs=sqrt((VR_phase*cos_fir+I*R)^2+(VR_phase*sqrt(1-cos_fir^2)+I*X)^2);
+disp(Vs*sqrt(3)/1000,"Sending end voltage Vs(line in KV) :");
+disp(((Vs-VR_phase)/VR_phase)*100,"% Regulation : ");
+Losses3line=3*I^2*R;//in watt
+P_rec=P_del*cos_fir;//in KW
+Pin=P_rec+Losses3line/1000;//in KW
+ETA=P_rec/Pin;//unitless
+disp(ETA*100,"Transmission Efficiency(in %) :")
+cos_fis=(VR_phase*cos_fir+I*R)/Vs;//unitless
+disp(cos_fis,"Sending end PF(lag) :");
\ No newline at end of file |