summaryrefslogtreecommitdiff
path: root/1055/CH4/EX4.9/ch4_9.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1055/CH4/EX4.9/ch4_9.sce
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 '1055/CH4/EX4.9/ch4_9.sce')
-rwxr-xr-x1055/CH4/EX4.9/ch4_9.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/1055/CH4/EX4.9/ch4_9.sce b/1055/CH4/EX4.9/ch4_9.sce
new file mode 100755
index 000000000..cd55d2a41
--- /dev/null
+++ b/1055/CH4/EX4.9/ch4_9.sce
@@ -0,0 +1,24 @@
+//To determine the sending end voltage and efficiency using Nominal_pi and Nominal-T method
+clear
+clc;
+Ir=218.7*(.8-%i*.6);
+Ic1=%i*314*.6*(10^-6)*76200;
+Il=Ic1+Ir;
+Vs=76200 + Il*(24+ %i*48.38);
+phase_Vs=atand(imag(Vs)/real(Vs));//phase angle of VS
+Pl=3*24*abs(Il)*abs(Il)/1000000;//The Loss(MW)
+n=40*100/(40+Pl);
+mprintf("Using Nominal- pi method\n ");
+mprintf("Vs=%.0f volts at an angle of %.2f \n",abs(Vs),phase_Vs)
+mprintf("efficiency=%.2f percent\n",n);
+mprintf("\nUsing Nominal-T method\n");
+Vc=76200*(.8+%i*.6) + 218.7*(12+ %i*24.49);
+Ic=%i*314*1.2*(10^-6)*(63584+ %i*51076);
+Is=199.46+ %i*23.95;
+Vs=(Vc + Is*(12+ %i*24.49))/1000;
+phase_Vs=atand(imag(Vs)/real(Vs));//Phase angle of Vs
+Pl1=3*12*((200.89^2)+ 218.7^2)/1000000;//The loss(MW)
+n1=40*100/(40+Pl1);
+mprintf("Vs=%.2f at an angle of %.2f \n",abs(Vs),phase_Vs)
+mprintf("efficiency=%.2f percent\n",n1);
+