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 /2273/CH5/EX5.5 | |
| 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 '2273/CH5/EX5.5')
| -rwxr-xr-x | 2273/CH5/EX5.5/ex5_5.sce | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/2273/CH5/EX5.5/ex5_5.sce b/2273/CH5/EX5.5/ex5_5.sce new file mode 100755 index 000000000..bebbc09db --- /dev/null +++ b/2273/CH5/EX5.5/ex5_5.sce @@ -0,0 +1,26 @@ +//Find load end voltage and efficieny
+clear;
+clc;
+//soltion
+//given
+P=3000//kW//output
+Vsl=11000//volts
+pf=0.8//lagging//power factor
+R=3*0.4;//ohm//resistance of each conductor
+X=3*0.8;//ohm//reactance of each conductor
+Vs=Vsl/sqrt(3);
+Z=(R*pf+X*sind(acosd(pf)));
+Vs_=round(Vs);
+printf("Vr=%d - %.1fI\n",Vs_,Z);
+I_=P*1000/(3*pf)
+Vr=poly(0,"Vr");
+printf("I=%.0f/Vr\n",I_);
+A=2.4*I_-Vs_*Vr+Vr^2
+answ=roots(A);
+Vr=5837.041;
+Vrl=sqrt(3)*Vr;
+printf("Line voltage at the end(Vrl)= %d V\n",Vrl);
+I=I_/Vr;
+Ll=3*I*I*R;
+nt=P*1000*100/(P*1000+Ll);
+printf("Transmission efficiency= %.1f percent",nt)
|