summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.17
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /503/CH8/EX8.17
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 '503/CH8/EX8.17')
-rwxr-xr-x503/CH8/EX8.17/ch8_17.sci35
1 files changed, 35 insertions, 0 deletions
diff --git a/503/CH8/EX8.17/ch8_17.sci b/503/CH8/EX8.17/ch8_17.sci
new file mode 100755
index 000000000..a420656b4
--- /dev/null
+++ b/503/CH8/EX8.17/ch8_17.sci
@@ -0,0 +1,35 @@
+//to calculate motor eff,excitation emf and power angle, max power op,corresponding net op
+
+clc;
+j=sqrt(-1);
+Sop=40*1000;
+Vt=600;
+Ra=.8;
+Xs=8;
+
+Pst=2000;
+Pmnet=30*1000;
+Pm_dev=Pst+Pmnet;
+Ia=Sop/(sqrt(3)*Vt);
+Poh=3*Ia^2*Ra;
+Pin=Pm_dev+Poh;
+eff=(1-(Poh+Pst)/Pin)*100;disp(eff,'motor eff(%)');
+
+cos_phi=Pin/(sqrt(3)*Vt*Ia);
+phi=acosd(cos_phi);
+Ia=Ia*(cosd(phi)+j*sind(phi));
+Vt=Vt/sqrt(3);
+Za=Ra+Xs*j;
+Ef=Vt-Ia*Za;
+Ef_line=Ef*sqrt(3);disp(Ef_line,'excitation emf(V)');
+delta=atand(imag(Ef)/real(Ef));disp(delta,'power angle(deg)');
+IaRa=abs(Ia)*Ra;
+IaXs=abs(Ia)*Xs;
+AD=Vt*cosd(phi)-IaRa;
+CD=Vt*sind(phi)+abs(Ia)*Xs;
+Ef_mag=sqrt((abs(AD))^2+(abs(CD))^2);
+
+Pm_out_gross=-((abs(Ef_mag))^2*Ra/(abs(Za))^2)+(Vt*abs(Ef_mag)/abs(Za));
+disp(Pm_out_gross,'max power op(W)');
+power_angle=atand(imag(Za)/real(Za));
+disp(power_angle,'power angle(deg)'); \ No newline at end of file