summaryrefslogtreecommitdiff
path: root/833/CH11/EX11.13
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /833/CH11/EX11.13
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 '833/CH11/EX11.13')
-rwxr-xr-x833/CH11/EX11.13/Ex11_13.sce30
-rwxr-xr-x833/CH11/EX11.13/Ex11_13.txt30
-rwxr-xr-x833/CH11/EX11.13/Result11_13.txt24
3 files changed, 84 insertions, 0 deletions
diff --git a/833/CH11/EX11.13/Ex11_13.sce b/833/CH11/EX11.13/Ex11_13.sce
new file mode 100755
index 000000000..23fc76ab5
--- /dev/null
+++ b/833/CH11/EX11.13/Ex11_13.sce
@@ -0,0 +1,30 @@
+//Caption:Find (a)Equivalent rotor current (b)Stator current (c)Power factor (d)Stator input (e)Rotor input (f)Efficiency
+//Exa:11.13
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+f=50//frequency(in hertz)
+Z_s=1.5+(%i*3)//Stator impedance per phase(in ohms)
+Z_r=1.6+(%i*1)//Rotor impedance per phase(in ohms)
+Z_m=3+(%i*40)//Magnetising impedance per phase(in ohms)
+P_wf=300//Friction and winding loss(in watt)
+s=0.04//Slip
+Z=40+(%i*1)
+z=Z*Z_m/(Z+Z_m)
+Zt=z+Z_s
+I1=(V/sqrt(3))/Zt
+E=(V/sqrt(3))-(I1*Z_s)
+I2=E/Z
+disp(I2,'(a)Equivalent Rotor current(in A)=')
+disp(I1,'(b)Stator current(in A)=')
+pf=cosd(atand(imag(Zt)/real(Zt)))
+disp(pf,'(c)Power factor=')
+P_s=sqrt(3)*V*sqrt(I1*conj(I1))*pf
+disp(P_s,'(d)Stator input(in watt)=')
+P_r=3*(I2*conj(I2))*(real(Z_r)/s)
+disp(P_r,'(e)Rotor input(in watt)=')
+P_ro=P_r*(1-s)
+P_me=P_ro-P_wf
+e=(P_me/P_s)*100
+disp(e,'(e)Efficiency(in%)=') \ No newline at end of file
diff --git a/833/CH11/EX11.13/Ex11_13.txt b/833/CH11/EX11.13/Ex11_13.txt
new file mode 100755
index 000000000..23fc76ab5
--- /dev/null
+++ b/833/CH11/EX11.13/Ex11_13.txt
@@ -0,0 +1,30 @@
+//Caption:Find (a)Equivalent rotor current (b)Stator current (c)Power factor (d)Stator input (e)Rotor input (f)Efficiency
+//Exa:11.13
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+f=50//frequency(in hertz)
+Z_s=1.5+(%i*3)//Stator impedance per phase(in ohms)
+Z_r=1.6+(%i*1)//Rotor impedance per phase(in ohms)
+Z_m=3+(%i*40)//Magnetising impedance per phase(in ohms)
+P_wf=300//Friction and winding loss(in watt)
+s=0.04//Slip
+Z=40+(%i*1)
+z=Z*Z_m/(Z+Z_m)
+Zt=z+Z_s
+I1=(V/sqrt(3))/Zt
+E=(V/sqrt(3))-(I1*Z_s)
+I2=E/Z
+disp(I2,'(a)Equivalent Rotor current(in A)=')
+disp(I1,'(b)Stator current(in A)=')
+pf=cosd(atand(imag(Zt)/real(Zt)))
+disp(pf,'(c)Power factor=')
+P_s=sqrt(3)*V*sqrt(I1*conj(I1))*pf
+disp(P_s,'(d)Stator input(in watt)=')
+P_r=3*(I2*conj(I2))*(real(Z_r)/s)
+disp(P_r,'(e)Rotor input(in watt)=')
+P_ro=P_r*(1-s)
+P_me=P_ro-P_wf
+e=(P_me/P_s)*100
+disp(e,'(e)Efficiency(in%)=') \ No newline at end of file
diff --git a/833/CH11/EX11.13/Result11_13.txt b/833/CH11/EX11.13/Result11_13.txt
new file mode 100755
index 000000000..4028e8cba
--- /dev/null
+++ b/833/CH11/EX11.13/Result11_13.txt
@@ -0,0 +1,24 @@
+(a)Equivalent Rotor current(in A)=
+
+ 5.669941 - 0.3569549i
+
+ (b)Stator current(in A)=
+
+ 5.8794709 - 6.0201051i
+
+ (c)Power factor=
+
+ 0.6987011
+
+ (d)Stator input(in watt)=
+
+ 4480.7586
+
+ (e)Rotor input(in watt)=
+
+ 3873.0778
+
+ (e)Efficiency(in%)=
+
+ 76.285177
+ \ No newline at end of file