diff options
Diffstat (limited to '833')
252 files changed, 4331 insertions, 0 deletions
diff --git a/833/CH1/EX1.1/Ex1_1.sce b/833/CH1/EX1.1/Ex1_1.sce new file mode 100755 index 000000000..017d08c7f --- /dev/null +++ b/833/CH1/EX1.1/Ex1_1.sce @@ -0,0 +1,18 @@ +//Caption:Find the (a) n ratio (b) load current referred to high voltage side (c) load impedance on low voltage side for full load (d) and impedance referred to high voltage side
+//Exa:1.1
+clc;
+clear;
+close;
+P_s=25000//Supplied power (in VA)
+V_1=1910//Voltage on primary side (in volt)
+V_2=240//Voltage on secondary side (in volt)
+f=50//frequency in hertz
+n=V_1/V_2
+disp(n,'(a)n-ratio=')
+I_1=P_s/V_1
+disp(I_1,'(b)load current referred to high voltage side (in A)=')
+I_2=P_s/V_2
+Z_2=V_2/I_2
+disp(Z_2,'(c)load impedance on low voltage side for full load (in ohm)=')
+Z_1=Z_2*(n^2)
+disp(Z_1,'(d)impedance referred to high voltage side(in ohm)=')
\ No newline at end of file diff --git a/833/CH1/EX1.1/Ex1_1.txt b/833/CH1/EX1.1/Ex1_1.txt new file mode 100755 index 000000000..017d08c7f --- /dev/null +++ b/833/CH1/EX1.1/Ex1_1.txt @@ -0,0 +1,18 @@ +//Caption:Find the (a) n ratio (b) load current referred to high voltage side (c) load impedance on low voltage side for full load (d) and impedance referred to high voltage side
+//Exa:1.1
+clc;
+clear;
+close;
+P_s=25000//Supplied power (in VA)
+V_1=1910//Voltage on primary side (in volt)
+V_2=240//Voltage on secondary side (in volt)
+f=50//frequency in hertz
+n=V_1/V_2
+disp(n,'(a)n-ratio=')
+I_1=P_s/V_1
+disp(I_1,'(b)load current referred to high voltage side (in A)=')
+I_2=P_s/V_2
+Z_2=V_2/I_2
+disp(Z_2,'(c)load impedance on low voltage side for full load (in ohm)=')
+Z_1=Z_2*(n^2)
+disp(Z_1,'(d)impedance referred to high voltage side(in ohm)=')
\ No newline at end of file diff --git a/833/CH1/EX1.1/Result1_1.txt b/833/CH1/EX1.1/Result1_1.txt new file mode 100755 index 000000000..b47ccf131 --- /dev/null +++ b/833/CH1/EX1.1/Result1_1.txt @@ -0,0 +1,16 @@ +(a)n-ratio=
+
+ 7.9583333
+
+ (b)load current referred to high voltage side (in A)=
+
+ 13.089005
+
+ (c)load impedance on low voltage side for full load (in ohm)=
+
+ 2.304
+
+ (d)impedance referred to high voltage side(in ohm)=
+
+ 145.924
+
\ No newline at end of file diff --git a/833/CH1/EX1.2/Ex1_2.sce b/833/CH1/EX1.2/Ex1_2.sce new file mode 100755 index 000000000..d1caca177 --- /dev/null +++ b/833/CH1/EX1.2/Ex1_2.sce @@ -0,0 +1,21 @@ +//Caption:Find (a) Power factor on no load (b) active current (c) magnetising current (d) copper loss in the primary winding (e) core loss
+//Exa:1.2
+clc;
+clear;
+close;
+V_1=3300//Primary voltage (in volt)
+V_2=240//Secondary voltage (in volt)
+I_0=2//No load current (in A)
+P=60//Power (in watt)
+R=0.8//Resistance of the low voltage winding (in ohm)
+Pf=P/(V_2*I_0)
+disp(Pf,'(a)Power factor on no load=')
+I_c=I_0*Pf
+disp(I_c,'(b)Active current(in A)=')
+theta=(acosd(Pf))
+I_m=I_0*sin(theta)
+disp(I_m,'(c)magnetising current is(in A)=')
+Culoss=(I_0^2)*R
+disp(Culoss,'(d)copper loss in the primary winding is(in watt)=')
+Coreloss=P-Culoss
+disp(Coreloss,'(e)core loss(in watt)=')
\ No newline at end of file diff --git a/833/CH1/EX1.2/Ex1_2.txt b/833/CH1/EX1.2/Ex1_2.txt new file mode 100755 index 000000000..d1caca177 --- /dev/null +++ b/833/CH1/EX1.2/Ex1_2.txt @@ -0,0 +1,21 @@ +//Caption:Find (a) Power factor on no load (b) active current (c) magnetising current (d) copper loss in the primary winding (e) core loss
+//Exa:1.2
+clc;
+clear;
+close;
+V_1=3300//Primary voltage (in volt)
+V_2=240//Secondary voltage (in volt)
+I_0=2//No load current (in A)
+P=60//Power (in watt)
+R=0.8//Resistance of the low voltage winding (in ohm)
+Pf=P/(V_2*I_0)
+disp(Pf,'(a)Power factor on no load=')
+I_c=I_0*Pf
+disp(I_c,'(b)Active current(in A)=')
+theta=(acosd(Pf))
+I_m=I_0*sin(theta)
+disp(I_m,'(c)magnetising current is(in A)=')
+Culoss=(I_0^2)*R
+disp(Culoss,'(d)copper loss in the primary winding is(in watt)=')
+Coreloss=P-Culoss
+disp(Coreloss,'(e)core loss(in watt)=')
\ No newline at end of file diff --git a/833/CH1/EX1.2/Result1_2.txt b/833/CH1/EX1.2/Result1_2.txt new file mode 100755 index 000000000..8d0a0a9cf --- /dev/null +++ b/833/CH1/EX1.2/Result1_2.txt @@ -0,0 +1,19 @@ +(a)Power factor on no load=
+
+ 0.125
+
+ (b)Active current(in A)=
+
+ 0.25
+
+ (c)magnetising current is(in A)=
+
+ 1.8154547
+
+ (d)copper loss in the primary winding is(in watt)=
+
+ 3.2
+
+ (e)core loss(in watt)=
+
+ 56.8
\ No newline at end of file diff --git a/833/CH1/EX1.3/Ex1_3.sce b/833/CH1/EX1.3/Ex1_3.sce new file mode 100755 index 000000000..8b7bc14cf --- /dev/null +++ b/833/CH1/EX1.3/Ex1_3.sce @@ -0,0 +1,16 @@ +//Caption:Find number of turns per limb on the (a) high voltage and (b) low voltage sides
+//Exa:1.3
+clc;
+clear;
+close;
+A=0.0386//cross sectional area of core(in m^2)
+B=1//maximum flux density (in weber/m^2)
+f=50//frequency (in hertz)
+V_1=3300//voltage on primary side (in volt)
+V_2=240//voltage on secondary side (in volt)
+C=B*A
+n_2=V_2/(4.44*C*f)
+T_2=n_2/2
+disp(T_2,'(a)number of turns on low voltage side is=')
+T_1=T_2*V_1/V_2
+disp(T_1,'(b)number of turns on high voltage side is=')
\ No newline at end of file diff --git a/833/CH1/EX1.3/Ex1_3.txt b/833/CH1/EX1.3/Ex1_3.txt new file mode 100755 index 000000000..8b7bc14cf --- /dev/null +++ b/833/CH1/EX1.3/Ex1_3.txt @@ -0,0 +1,16 @@ +//Caption:Find number of turns per limb on the (a) high voltage and (b) low voltage sides
+//Exa:1.3
+clc;
+clear;
+close;
+A=0.0386//cross sectional area of core(in m^2)
+B=1//maximum flux density (in weber/m^2)
+f=50//frequency (in hertz)
+V_1=3300//voltage on primary side (in volt)
+V_2=240//voltage on secondary side (in volt)
+C=B*A
+n_2=V_2/(4.44*C*f)
+T_2=n_2/2
+disp(T_2,'(a)number of turns on low voltage side is=')
+T_1=T_2*V_1/V_2
+disp(T_1,'(b)number of turns on high voltage side is=')
\ No newline at end of file diff --git a/833/CH1/EX1.3/Result1_3.txt b/833/CH1/EX1.3/Result1_3.txt new file mode 100755 index 000000000..b8585dae8 --- /dev/null +++ b/833/CH1/EX1.3/Result1_3.txt @@ -0,0 +1,7 @@ +(a)number of turns on low voltage side is=
+
+ 14.003641
+
+ (b)number of turns on high voltage side is=
+
+ 192.55006
\ No newline at end of file diff --git a/833/CH1/EX1.4/Ex1_4.sce b/833/CH1/EX1.4/Ex1_4.sce new file mode 100755 index 000000000..e8906cd39 --- /dev/null +++ b/833/CH1/EX1.4/Ex1_4.sce @@ -0,0 +1,29 @@ +//Caption:Calculate (a) equivalent resistance and reactance of low voltage side in terms of high voltage side (b) equivalent resistance and reactance of high voltage side in terms of low voltage side (c) total resistance and reactance of transformer in terms of high voltage side (d) total resistance and reactance of transformer in terms of low voltage side
+//Exa:1.4
+clc;
+clear;
+close;
+V_1=2200//Primary side voltage(in volt)
+V_2=220//secondary side voltage(in volt)
+f=50//frequency(in hertz)
+r_1=1.25//Primary side resistance(in ohm)
+x_1=4//Primary side reactance(in ohm)
+r_2=0.04//Secondary side resistance(in ohm)
+x_2=0.15//Secondary side reactance(in ohm)
+n=V_1/V_2
+R_2=(n^2)*r_2
+disp(R_2,'(a)equivalent resistance of low voltage side in terms of high voltage side=')
+X_2=(n^2)*x_2
+disp(X_2,'equivalent reactance of low voltage side in terms of high voltage side=')
+R_1=r_1/(n^2)
+disp(R_1,'(b)equivalent resistance of high voltage side in terms of low voltage side =')
+X_1=x_1/(n^2)
+disp(X_1,'equivalent reactance of high voltage side in terms of low voltage side =')
+R_t=r_1+R_2
+disp(R_t,'(c)total resistance of transformer in terms of high voltage side=')
+X_t=x_1+X_2
+disp(X_t,'total reactance of transformer in terms of high voltage side=')
+R_e=r_2+R_1
+disp(R_e,'(d)total resistance of transformer in terms of low voltage side=')
+X_e=x_2+X_1
+disp(X_e,'total reactance of transformer in terms of low voltage side=')
\ No newline at end of file diff --git a/833/CH1/EX1.4/Ex1_4.txt b/833/CH1/EX1.4/Ex1_4.txt new file mode 100755 index 000000000..e8906cd39 --- /dev/null +++ b/833/CH1/EX1.4/Ex1_4.txt @@ -0,0 +1,29 @@ +//Caption:Calculate (a) equivalent resistance and reactance of low voltage side in terms of high voltage side (b) equivalent resistance and reactance of high voltage side in terms of low voltage side (c) total resistance and reactance of transformer in terms of high voltage side (d) total resistance and reactance of transformer in terms of low voltage side
+//Exa:1.4
+clc;
+clear;
+close;
+V_1=2200//Primary side voltage(in volt)
+V_2=220//secondary side voltage(in volt)
+f=50//frequency(in hertz)
+r_1=1.25//Primary side resistance(in ohm)
+x_1=4//Primary side reactance(in ohm)
+r_2=0.04//Secondary side resistance(in ohm)
+x_2=0.15//Secondary side reactance(in ohm)
+n=V_1/V_2
+R_2=(n^2)*r_2
+disp(R_2,'(a)equivalent resistance of low voltage side in terms of high voltage side=')
+X_2=(n^2)*x_2
+disp(X_2,'equivalent reactance of low voltage side in terms of high voltage side=')
+R_1=r_1/(n^2)
+disp(R_1,'(b)equivalent resistance of high voltage side in terms of low voltage side =')
+X_1=x_1/(n^2)
+disp(X_1,'equivalent reactance of high voltage side in terms of low voltage side =')
+R_t=r_1+R_2
+disp(R_t,'(c)total resistance of transformer in terms of high voltage side=')
+X_t=x_1+X_2
+disp(X_t,'total reactance of transformer in terms of high voltage side=')
+R_e=r_2+R_1
+disp(R_e,'(d)total resistance of transformer in terms of low voltage side=')
+X_e=x_2+X_1
+disp(X_e,'total reactance of transformer in terms of low voltage side=')
\ No newline at end of file diff --git a/833/CH1/EX1.4/Result1_4.txt b/833/CH1/EX1.4/Result1_4.txt new file mode 100755 index 000000000..5af7327b5 --- /dev/null +++ b/833/CH1/EX1.4/Result1_4.txt @@ -0,0 +1,31 @@ +(a)equivalent resistance of low voltage side in terms of high voltage side=
+
+ 4.
+
+ equivalent reactance of low voltage side in terms of high voltage side=
+
+ 15.
+
+ (b)equivalent resistance of high voltage side in terms of low voltage side =
+
+ 0.0125
+
+ equivalent reactance of high voltage side in terms of low voltage side =
+
+ 0.04
+
+ (c)total resistance of transformer in terms of high voltage side=
+
+ 5.25
+
+ total reactance of transformer in terms of high voltage side=
+
+ 19.
+
+ (d)total resistance of transformer in terms of low voltage side=
+
+ 0.0525
+
+ total reactance of transformer in terms of low voltage side=
+
+ 0.19
\ No newline at end of file diff --git a/833/CH1/EX1.5/Ex1_5.sce b/833/CH1/EX1.5/Ex1_5.sce new file mode 100755 index 000000000..86175f762 --- /dev/null +++ b/833/CH1/EX1.5/Ex1_5.sce @@ -0,0 +1,29 @@ +//Caption: (a) terminal voltage on load (b) voltage on load at high voltage terminals (c) efficiency of transformer
+//Exa:1.5
+clc;
+clear;
+close;
+n=10//ratio of high voltage to low voltage
+V_1=200//Voltage on low voltage side(in volt)
+x_m=231//Magnetising resistance(in ohms)
+r_c=400//Core loss resistance(in ohms)
+r_e=0.1//Equivalent resistance referred to low voltage side(in ohms)
+x_e=0.5//Equivalent reactance referred to low voltage side(in ohms)
+r_l=7.9//Load resistance(in ohms)
+x_l=5.5//Load reactance(in ohms)
+I_m=V_1/x_m
+I_c=V_1/r_c
+I_0=I_c+(%i*I_m)
+R_l=r_l+r_e
+X_l=x_l+x_e
+I=V_1/(R_l+(%i*X_l))
+I_1=I+I_0
+V_2=V_1-I*(r_e+(%i*x_e))
+v=sqrt(V_2*conj(V_2))
+disp(v,'(a)terminal voltage on load(in volt)=')
+V=v*n
+disp(V,'(b)voltage on load at hgih voltage terminals(in volt)=')
+P_o=v*real(I)
+P_i=V_1*real(I_1)
+eff=(P_o/P_i)*100
+disp(eff,'(c)efficiency of transformer is(in %)=')
\ No newline at end of file diff --git a/833/CH1/EX1.5/Ex1_5.txt b/833/CH1/EX1.5/Ex1_5.txt new file mode 100755 index 000000000..852eefca9 --- /dev/null +++ b/833/CH1/EX1.5/Ex1_5.txt @@ -0,0 +1,29 @@ +//Caption:Find (a) terminal voltage on load (b) voltage on load at high voltage terminals (c) efficiency of transformer
+//Exa:1.5
+clc;
+clear;
+close;
+n=10//ratio of high voltage to low voltage
+V_1=200//Voltage on low voltage side(in volt)
+x_m=231//Magnetising resistance(in ohms)
+r_c=400//Core loss resistance(in ohms)
+r_e=0.1//Equivalent resistance referred to low voltage side(in ohms)
+x_e=0.5//Equivalent reactance referred to low voltage side(in ohms)
+r_l=7.9//Load resistance(in ohms)
+x_l=5.5//Load reactance(in ohms)
+I_m=V_1/x_m
+I_c=V_1/r_c
+I_0=I_c+(%i*I_m)
+R_l=r_l+r_e
+X_l=x_l+x_e
+I=V_1/(R_l+(%i*X_l))
+I_1=I+I_0
+V_2=V_1-I*(r_e+(%i*x_e))
+v=sqrt(V_2*conj(V_2))
+disp(v,'(a)terminal voltage on load(in volt)=')
+V=v*n
+disp(V,'(b)voltage on load at hgih voltage terminals(in volt)=')
+P_o=v*real(I)
+P_i=V_1*real(I_1)
+eff=(P_o/P_i)*100
+disp(eff,'(c)efficiency of transformer is(in %)=')
\ No newline at end of file diff --git a/833/CH1/EX1.5/Result1_5.txt b/833/CH1/EX1.5/Result1_5.txt new file mode 100755 index 000000000..cd373961a --- /dev/null +++ b/833/CH1/EX1.5/Result1_5.txt @@ -0,0 +1,11 @@ +(a)terminal voltage on load(in volt)=
+
+ 192.52013
+
+ (b)voltage on load at hgih voltage terminals(in volt)=
+
+ 1925.2013
+
+ (c)efficiency of transformer is(in %)=
+
+ 93.343093
\ No newline at end of file diff --git a/833/CH1/EX1.6/Ex1_6.sce b/833/CH1/EX1.6/Ex1_6.sce new file mode 100755 index 000000000..a88561ac5 --- /dev/null +++ b/833/CH1/EX1.6/Ex1_6.sce @@ -0,0 +1,19 @@ +//Caption:Find (a) impedance (b) % resistance and reactance
+//Exa:1.6
+clc;
+clear;
+close;
+P_s=500000//Power supplied(in VA)
+V_1=2200//Voltage on primary side(in volt)
+V_2=500//Voltage on secondary side(in volt)
+f=50//frequency(in hertz)
+r=0.01//Resistance of transformer(in ohms)
+z=0.1//impedance of transformer(in %)
+I=P_s/V_2
+Z=z*V_2/I
+disp(Z,'(a)Impedance(in ohms)=')
+R=(I*r/V_2)*100
+disp(R,'(b) Resistance(in %)=')
+x=sqrt(Z^2-r^2)
+X=(x*I/V_2)*100
+disp(X,'Reactance(in %)=')
\ No newline at end of file diff --git a/833/CH1/EX1.6/Ex1_6.txt b/833/CH1/EX1.6/Ex1_6.txt new file mode 100755 index 000000000..a88561ac5 --- /dev/null +++ b/833/CH1/EX1.6/Ex1_6.txt @@ -0,0 +1,19 @@ +//Caption:Find (a) impedance (b) % resistance and reactance
+//Exa:1.6
+clc;
+clear;
+close;
+P_s=500000//Power supplied(in VA)
+V_1=2200//Voltage on primary side(in volt)
+V_2=500//Voltage on secondary side(in volt)
+f=50//frequency(in hertz)
+r=0.01//Resistance of transformer(in ohms)
+z=0.1//impedance of transformer(in %)
+I=P_s/V_2
+Z=z*V_2/I
+disp(Z,'(a)Impedance(in ohms)=')
+R=(I*r/V_2)*100
+disp(R,'(b) Resistance(in %)=')
+x=sqrt(Z^2-r^2)
+X=(x*I/V_2)*100
+disp(X,'Reactance(in %)=')
\ No newline at end of file diff --git a/833/CH1/EX1.6/Result1_6.txt b/833/CH1/EX1.6/Result1_6.txt new file mode 100755 index 000000000..18097ab68 --- /dev/null +++ b/833/CH1/EX1.6/Result1_6.txt @@ -0,0 +1,12 @@ +(a)Impedance(in ohms)=
+
+ 0.05
+
+ (b) Resistance(in %)=
+
+ 2.
+
+ Reactance(in %)=
+
+ 9.797959
+
\ No newline at end of file diff --git a/833/CH11/EX11.1/Ex11_1.sce b/833/CH11/EX11.1/Ex11_1.sce new file mode 100755 index 000000000..533bfaac9 --- /dev/null +++ b/833/CH11/EX11.1/Ex11_1.sce @@ -0,0 +1,13 @@ +//Caption: Find (a)Number of poles and (b)% slip
+//Exa:11.1
+clc;
+clear;
+close;
+f=50//Frequency(in hertz)
+n=960//Speed of induction motor on full load(in r.p.m)
+n_s=1000//Synchronous speed(in r.p.m)
+p=(f*120)/(n_s)
+disp(p,'(a)Number of poles is=')
+s=n_s-n
+S=(s/n_s)*100
+disp(S,'(b)%Slip is(in%)=')
\ No newline at end of file diff --git a/833/CH11/EX11.1/Ex11_1.txt b/833/CH11/EX11.1/Ex11_1.txt new file mode 100755 index 000000000..533bfaac9 --- /dev/null +++ b/833/CH11/EX11.1/Ex11_1.txt @@ -0,0 +1,13 @@ +//Caption: Find (a)Number of poles and (b)% slip
+//Exa:11.1
+clc;
+clear;
+close;
+f=50//Frequency(in hertz)
+n=960//Speed of induction motor on full load(in r.p.m)
+n_s=1000//Synchronous speed(in r.p.m)
+p=(f*120)/(n_s)
+disp(p,'(a)Number of poles is=')
+s=n_s-n
+S=(s/n_s)*100
+disp(S,'(b)%Slip is(in%)=')
\ No newline at end of file diff --git a/833/CH11/EX11.1/Result11_1.txt b/833/CH11/EX11.1/Result11_1.txt new file mode 100755 index 000000000..9cd3636cc --- /dev/null +++ b/833/CH11/EX11.1/Result11_1.txt @@ -0,0 +1,7 @@ +(a)Number of poles is=
+
+ 6.
+
+ (b)%Slip is(in%)=
+
+ 4.
\ No newline at end of file diff --git a/833/CH11/EX11.10/Ex11_10.sce b/833/CH11/EX11.10/Ex11_10.sce new file mode 100755 index 000000000..f0d8a310c --- /dev/null +++ b/833/CH11/EX11.10/Ex11_10.sce @@ -0,0 +1,22 @@ +//Caption: Calculate (a)% slip (b)Rotor copper loss (c)Output from the rotor (d)Efficiency
+//Exa:11.10
+clc;
+clear;
+close;
+V=440//Supplied voltage(in volts)
+f=50//frequency(in hertz)
+p=6//Number of poles
+n=960//Speed of motor(in r.p.m)
+P_i=50000//Input power(in watt)
+P_wf=1800//Winding and friction losses(in watt)
+P_s=1200//Stator losses(in watt)
+n_s=(120*f)/p
+S=((n_s-n)/n_s)*100
+disp(S,'(a)% slip=')
+P_r=P_i-P_s
+P_rc=(S/100)*P_r
+disp(P_rc,'(b)Rotor copper loss(in watt)=')
+P_o=P_r-P_rc-P_wf
+disp(P_o,'(c)Output of rotor(in watt)=')
+eff=(P_o/P_i)*100
+disp(eff,'(d)Efficiency(in%)=')
\ No newline at end of file diff --git a/833/CH11/EX11.10/Ex11_10.txt b/833/CH11/EX11.10/Ex11_10.txt new file mode 100755 index 000000000..f0d8a310c --- /dev/null +++ b/833/CH11/EX11.10/Ex11_10.txt @@ -0,0 +1,22 @@ +//Caption: Calculate (a)% slip (b)Rotor copper loss (c)Output from the rotor (d)Efficiency
+//Exa:11.10
+clc;
+clear;
+close;
+V=440//Supplied voltage(in volts)
+f=50//frequency(in hertz)
+p=6//Number of poles
+n=960//Speed of motor(in r.p.m)
+P_i=50000//Input power(in watt)
+P_wf=1800//Winding and friction losses(in watt)
+P_s=1200//Stator losses(in watt)
+n_s=(120*f)/p
+S=((n_s-n)/n_s)*100
+disp(S,'(a)% slip=')
+P_r=P_i-P_s
+P_rc=(S/100)*P_r
+disp(P_rc,'(b)Rotor copper loss(in watt)=')
+P_o=P_r-P_rc-P_wf
+disp(P_o,'(c)Output of rotor(in watt)=')
+eff=(P_o/P_i)*100
+disp(eff,'(d)Efficiency(in%)=')
\ No newline at end of file diff --git a/833/CH11/EX11.10/Result11_10.txt b/833/CH11/EX11.10/Result11_10.txt new file mode 100755 index 000000000..237b4a0e5 --- /dev/null +++ b/833/CH11/EX11.10/Result11_10.txt @@ -0,0 +1,16 @@ +(a)% slip=
+
+ 4.
+
+ (b)Rotor copper loss(in watt)=
+
+ 1952.
+
+ (c)Output of rotor(in watt)=
+
+ 45048.
+
+ (d)Efficiency(in%)=
+
+ 90.096
+
\ No newline at end of file diff --git a/833/CH11/EX11.11/Ex11_11.sce b/833/CH11/EX11.11/Ex11_11.sce new file mode 100755 index 000000000..1461ca797 --- /dev/null +++ b/833/CH11/EX11.11/Ex11_11.sce @@ -0,0 +1,43 @@ +//Caption:Find (a)Equivalent rotor current per phase (b)Stator current per phase (c)Power factor (d)Rotor input (e)Rotor copper losses (f)Torque (g)Mechanical power output from rotor (h)Stator input (i)Efficiency
+//Exa:11.11
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+p=8//Number of poles
+f=50//Frequency(in hertz)
+r1=0.2//Stator resistance(in ohm)
+x1=1.2//Stator reactance(in ohm)
+r2=0.3//Equivalent resistance of rotor referred to stator(in ohm)
+x2=1.2//Equivalent reactance of rotor referred to stator(in ohm)
+r_m=150//Magnetising resistance(in ohms)
+x_m=18//Magnetising reactance(in ohms)
+P_wf=750//Winding and friction losses(in watt)
+s=0.04//Slip
+n_s=(f*120)/(p*60)
+y1=1/r_m
+y2=1/(%i*x_m)
+y3=1/((r2/s)+(%i*x2))
+Y=y1+y2+y3
+Z=1/Y
+Z_t=Z+(r1+(%i*x1))
+E=V*Z/(Z_t)
+z3=1/y3
+i2=E/z3
+disp(i2,'(a)Rotor current per phase(in A)=')
+i1=V/Z_t
+disp(i1,'(b)Stator current per phase(in A)=')
+pf=cosd(atand(-(imag(Z_t))/real(Z_t)))
+disp(pf,'(c)Power factor=')
+P_r=(i2*(conj(i2)))*(r2/s)
+disp(P_r,'(d)Rotor input(in watt)=')
+P_rc=(i2*(conj(i2)))*r2
+disp(P_rc,'(e)Rotor copper loss(in watt)=')
+T=3*P_r/(2*%pi*n_s)
+disp(T,'(f)Torque(in N-m)=')
+P_me=P_r-P_rc-(P_wf/3)
+disp(P_me,'(g)Mechanical output from rotor(in watts per phase)=')
+P_st=V*(sqrt(i1*(conj(i1))))*pf
+disp(P_st,'(h)Stator input(watts per phase)=')
+eff=(P_me/P_st)*100
+disp(eff,'(i)Efficiency(in %)=')
\ No newline at end of file diff --git a/833/CH11/EX11.11/Ex11_11.txt b/833/CH11/EX11.11/Ex11_11.txt new file mode 100755 index 000000000..1461ca797 --- /dev/null +++ b/833/CH11/EX11.11/Ex11_11.txt @@ -0,0 +1,43 @@ +//Caption:Find (a)Equivalent rotor current per phase (b)Stator current per phase (c)Power factor (d)Rotor input (e)Rotor copper losses (f)Torque (g)Mechanical power output from rotor (h)Stator input (i)Efficiency
+//Exa:11.11
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+p=8//Number of poles
+f=50//Frequency(in hertz)
+r1=0.2//Stator resistance(in ohm)
+x1=1.2//Stator reactance(in ohm)
+r2=0.3//Equivalent resistance of rotor referred to stator(in ohm)
+x2=1.2//Equivalent reactance of rotor referred to stator(in ohm)
+r_m=150//Magnetising resistance(in ohms)
+x_m=18//Magnetising reactance(in ohms)
+P_wf=750//Winding and friction losses(in watt)
+s=0.04//Slip
+n_s=(f*120)/(p*60)
+y1=1/r_m
+y2=1/(%i*x_m)
+y3=1/((r2/s)+(%i*x2))
+Y=y1+y2+y3
+Z=1/Y
+Z_t=Z+(r1+(%i*x1))
+E=V*Z/(Z_t)
+z3=1/y3
+i2=E/z3
+disp(i2,'(a)Rotor current per phase(in A)=')
+i1=V/Z_t
+disp(i1,'(b)Stator current per phase(in A)=')
+pf=cosd(atand(-(imag(Z_t))/real(Z_t)))
+disp(pf,'(c)Power factor=')
+P_r=(i2*(conj(i2)))*(r2/s)
+disp(P_r,'(d)Rotor input(in watt)=')
+P_rc=(i2*(conj(i2)))*r2
+disp(P_rc,'(e)Rotor copper loss(in watt)=')
+T=3*P_r/(2*%pi*n_s)
+disp(T,'(f)Torque(in N-m)=')
+P_me=P_r-P_rc-(P_wf/3)
+disp(P_me,'(g)Mechanical output from rotor(in watts per phase)=')
+P_st=V*(sqrt(i1*(conj(i1))))*pf
+disp(P_st,'(h)Stator input(watts per phase)=')
+eff=(P_me/P_st)*100
+disp(eff,'(i)Efficiency(in %)=')
\ No newline at end of file diff --git a/833/CH11/EX11.11/Result11_11.txt b/833/CH11/EX11.11/Result11_11.txt new file mode 100755 index 000000000..419b10fd1 --- /dev/null +++ b/833/CH11/EX11.11/Result11_11.txt @@ -0,0 +1,36 @@ +(a)Rotor current per phase(in A)=
+
+ 49.164969 - 14.714454i
+
+ (b)Stator current per phase(in A)=
+
+ 48.887575 - 36.523225i
+
+ (c)Power factor=
+
+ 0.8011191
+
+ (d)Rotor input(in watt)=
+
+ 19752.82
+
+ (e)Rotor copper loss(in watt)=
+
+ 790.11281
+
+ (f)Torque(in N-m)=
+
+ 754.50216
+
+ (g)Mechanical output from rotor(in watts per phase)=
+
+ 18712.708
+
+ (h)Stator input(watts per phase)=
+
+ 21510.533
+
+ (i)Efficiency(in %)=
+
+ 86.99323
+
\ No newline at end of file diff --git a/833/CH11/EX11.12/Ex11_12.sce b/833/CH11/EX11.12/Ex11_12.sce new file mode 100755 index 000000000..f2659dfa7 --- /dev/null +++ b/833/CH11/EX11.12/Ex11_12.sce @@ -0,0 +1,37 @@ +//Caption:Find (a)Equivalent rotor current per phase (b)Stator current per phase (c)Power factor (d)Rotor input (e)Rotor copper losses (f)Torque (g)Mechanical power output from rotor (h)Stator input (i)Efficiency.Solve it by APPROXIMATE equivalent circuit method
+//Exa:11.12
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+p=8//Number of poles
+f=50//Frequency(in hertz)
+r1=0.2//Stator resistance(in ohm)
+x1=1.2//Stator reactance(in ohm)
+r2=0.3//Equivalent resistance of rotor referred to stator(in ohm)
+x2=1.2//Equivalent reactance of rotor referred to stator(in ohm)
+r_m=150//Magnetising resistance(in ohms)
+x_m=18//Magnetising reactance(in ohms)
+P_wf=750//Winding and friction losses(in watt)
+s=0.04//Slip
+I2=V/((r1+(r2/s))+(%i*x1)+(%i*x2))
+disp(I2,'(a)Equivalent rotor current per phase(in A)=')
+y1=1/r_m
+y2=1/(%i*x_m)
+I_o=V*(y1+y2)
+I_1=I2+I_o
+disp(I_1,'(b)Stator current per phase(in A)=')
+pf=cosd(atand(imag(I_1)/real(I_1)))
+disp(pf,'(c)Power factor=')
+P_r=(I2*conj(I2))*(r2/s)
+disp(P_r,'(d)Rotor input(in watt)=')
+P_rc=(I2*conj(I2))*r2
+disp(P_rc,'(e)Rotor copper losses(in watts)=')
+T=P_r/(2*%pi*((f*120)/(p*60)))
+disp(T,'(f)Torque(in N-m)=')
+P_me=P_r-P_rc-(P_wf/3)
+disp(P_me,'(g)Mechanical power output from rotor(in watts per phase)=')
+P_si=V*pf*(sqrt(I_1*conj(I_1)))
+disp(P_si,'(h)Stator input(in watts per phase)=')
+e=(P_me/P_si)*100
+disp(e,'(i)Efficiency (in %)=')
\ No newline at end of file diff --git a/833/CH11/EX11.12/Ex11_12.txt b/833/CH11/EX11.12/Ex11_12.txt new file mode 100755 index 000000000..f2659dfa7 --- /dev/null +++ b/833/CH11/EX11.12/Ex11_12.txt @@ -0,0 +1,37 @@ +//Caption:Find (a)Equivalent rotor current per phase (b)Stator current per phase (c)Power factor (d)Rotor input (e)Rotor copper losses (f)Torque (g)Mechanical power output from rotor (h)Stator input (i)Efficiency.Solve it by APPROXIMATE equivalent circuit method
+//Exa:11.12
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+p=8//Number of poles
+f=50//Frequency(in hertz)
+r1=0.2//Stator resistance(in ohm)
+x1=1.2//Stator reactance(in ohm)
+r2=0.3//Equivalent resistance of rotor referred to stator(in ohm)
+x2=1.2//Equivalent reactance of rotor referred to stator(in ohm)
+r_m=150//Magnetising resistance(in ohms)
+x_m=18//Magnetising reactance(in ohms)
+P_wf=750//Winding and friction losses(in watt)
+s=0.04//Slip
+I2=V/((r1+(r2/s))+(%i*x1)+(%i*x2))
+disp(I2,'(a)Equivalent rotor current per phase(in A)=')
+y1=1/r_m
+y2=1/(%i*x_m)
+I_o=V*(y1+y2)
+I_1=I2+I_o
+disp(I_1,'(b)Stator current per phase(in A)=')
+pf=cosd(atand(imag(I_1)/real(I_1)))
+disp(pf,'(c)Power factor=')
+P_r=(I2*conj(I2))*(r2/s)
+disp(P_r,'(d)Rotor input(in watt)=')
+P_rc=(I2*conj(I2))*r2
+disp(P_rc,'(e)Rotor copper losses(in watts)=')
+T=P_r/(2*%pi*((f*120)/(p*60)))
+disp(T,'(f)Torque(in N-m)=')
+P_me=P_r-P_rc-(P_wf/3)
+disp(P_me,'(g)Mechanical power output from rotor(in watts per phase)=')
+P_si=V*pf*(sqrt(I_1*conj(I_1)))
+disp(P_si,'(h)Stator input(in watts per phase)=')
+e=(P_me/P_si)*100
+disp(e,'(i)Efficiency (in %)=')
\ No newline at end of file diff --git a/833/CH11/EX11.12/Result11_12.txt b/833/CH11/EX11.12/Result11_12.txt new file mode 100755 index 000000000..8bc0d28b9 --- /dev/null +++ b/833/CH11/EX11.12/Result11_12.txt @@ -0,0 +1,36 @@ +(a)Equivalent rotor current per phase(in A)=
+
+ 52.083013 - 16.233666i
+
+ (b)Stator current per phase(in A)=
+
+ 55.016346 - 40.678111i
+
+ (c)Power factor=
+
+ 0.8040793
+
+ (d)Rotor input(in watt)=
+
+ 22321.291
+
+ (e)Rotor copper losses(in watts)=
+
+ 892.85165
+
+ (f)Torque(in N-m)=
+
+ 284.20351
+
+ (g)Mechanical power output from rotor(in watts per phase)=
+
+ 21178.44
+
+ (h)Stator input(in watts per phase)=
+
+ 24207.192
+
+ (i)Efficiency (in %)=
+
+ 87.488211
+
\ No newline at end of file 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 diff --git a/833/CH11/EX11.2/Ex11_2.sce b/833/CH11/EX11.2/Ex11_2.sce new file mode 100755 index 000000000..78eda61ae --- /dev/null +++ b/833/CH11/EX11.2/Ex11_2.sce @@ -0,0 +1,14 @@ +//Caption: Find (a)Speed of motor (b)%Slip
+//Exa:11.2
+clc;
+clear;
+close;
+p=6//Number of poles
+f_s=50//Stator frequency(in c/s)
+f_r=2//Rotor frequency(in c/s)
+n_s=(120*f_s)/p
+n=(f_r*120)/p
+s=n_s-n
+disp(s,'(a)Speed of motor(in r.p.m)=')
+S=(n/n_s)*100
+disp(S,'(b)%Slip(in %)=')
\ No newline at end of file diff --git a/833/CH11/EX11.2/Ex11_2.txt b/833/CH11/EX11.2/Ex11_2.txt new file mode 100755 index 000000000..78eda61ae --- /dev/null +++ b/833/CH11/EX11.2/Ex11_2.txt @@ -0,0 +1,14 @@ +//Caption: Find (a)Speed of motor (b)%Slip
+//Exa:11.2
+clc;
+clear;
+close;
+p=6//Number of poles
+f_s=50//Stator frequency(in c/s)
+f_r=2//Rotor frequency(in c/s)
+n_s=(120*f_s)/p
+n=(f_r*120)/p
+s=n_s-n
+disp(s,'(a)Speed of motor(in r.p.m)=')
+S=(n/n_s)*100
+disp(S,'(b)%Slip(in %)=')
\ No newline at end of file diff --git a/833/CH11/EX11.2/Result11_2.txt b/833/CH11/EX11.2/Result11_2.txt new file mode 100755 index 000000000..982bd6f8d --- /dev/null +++ b/833/CH11/EX11.2/Result11_2.txt @@ -0,0 +1,8 @@ + (a)Speed of motor(in r.p.m)=
+
+ 960.
+
+ (b)%Slip(in %)=
+
+ 4.
+
\ No newline at end of file diff --git a/833/CH11/EX11.3/Ex11_3.sce b/833/CH11/EX11.3/Ex11_3.sce new file mode 100755 index 000000000..95fbb97c5 --- /dev/null +++ b/833/CH11/EX11.3/Ex11_3.sce @@ -0,0 +1,14 @@ +//Caption: Calculate (a)Number of poles (b)Slip (c)Slip for full load torque if total resistance in rotor circuit is doubled
+//Exa:11.3
+clc;
+clear;
+close;
+n=970//Speed of induction motor(in r.p.m)
+f=50//Frequency(in hertz)
+n_s=1000//Synchronous speed(in r.p.m)
+p=(f*120)/n_s
+disp(p,'(a)Number of poles=')
+s=((n_s-n)/n_s)*100
+disp(s,'(b)Slip(in%)=')
+S=((s/100)*2)*100
+disp(S,'(c)Required slip(in%)=')
\ No newline at end of file diff --git a/833/CH11/EX11.3/Ex11_3.txt b/833/CH11/EX11.3/Ex11_3.txt new file mode 100755 index 000000000..95fbb97c5 --- /dev/null +++ b/833/CH11/EX11.3/Ex11_3.txt @@ -0,0 +1,14 @@ +//Caption: Calculate (a)Number of poles (b)Slip (c)Slip for full load torque if total resistance in rotor circuit is doubled
+//Exa:11.3
+clc;
+clear;
+close;
+n=970//Speed of induction motor(in r.p.m)
+f=50//Frequency(in hertz)
+n_s=1000//Synchronous speed(in r.p.m)
+p=(f*120)/n_s
+disp(p,'(a)Number of poles=')
+s=((n_s-n)/n_s)*100
+disp(s,'(b)Slip(in%)=')
+S=((s/100)*2)*100
+disp(S,'(c)Required slip(in%)=')
\ No newline at end of file diff --git a/833/CH11/EX11.3/Result11_3.txt b/833/CH11/EX11.3/Result11_3.txt new file mode 100755 index 000000000..8b9f2d63b --- /dev/null +++ b/833/CH11/EX11.3/Result11_3.txt @@ -0,0 +1,12 @@ + (a)Number of poles=
+
+ 6.
+
+ (b)Slip(in%)=
+
+ 3.
+
+ (c)Required slip(in%)=
+
+ 6.
+
\ No newline at end of file diff --git a/833/CH11/EX11.4/Ex11_4.sce b/833/CH11/EX11.4/Ex11_4.sce new file mode 100755 index 000000000..6144f30ee --- /dev/null +++ b/833/CH11/EX11.4/Ex11_4.sce @@ -0,0 +1,30 @@ +//Caption: Calculate (a)Mechanical power output (b)Torque (c)Maximum Torque (d)Speed at maximum torque (e)Power output when torque is maximum
+//Exa:11.4
+clc;
+clear;
+close;
+p=4//Number of poles
+V=440//Voltage of motor(in volts)
+f=50//Frequency(in hertz)
+n_s=1500//Synchronous speed(r.p.m)
+sp=1440//Speed of motor at load(in r.p.m)
+s=4//Slip at full load(in %)
+t=1.8//Stator to rotor turns ratio
+R_r=0.1//Resistance of rotor per phase(in ohms)
+X_r=0.8//Reactance of rotor per phase at standstill(in ohms)
+r_r=R_r*(t^2)//Rotor resistance referred to stator(in ohms)
+x_r=X_r*(t^2)//Reactance of rotor at stanstill referred to stator(in ohms)
+E=V/(sqrt(3))
+P=((s/100)*(E^2)*r_r)/((r_r^2)+((s/100)^2)*(x_r^2))
+T=(3*P)/(2*(%pi)*(n_s/60))
+P_M=(3*P*sp)/n_s
+disp(P_M,'(a)Mechanical power output(in watt)=')
+disp(T,'(b)Torque(in N-m)=')
+s_m=R_r/X_r
+N=n_s*(1-s_m)
+P_1=((s_m)*(E^2)*(r_r))/((r_r^2)+((s_m^2)*(x_r^2)))
+T_m=(3*P_1)/(2*(%pi)*(n_s/60))
+disp(T_m,'(c)Maximum torque(in N-m)=')
+disp(N,'(d)Speed at maximum torque(in r.p.m)=')
+P_o=(3*P_1*N)/n_s
+disp(P_o,'(e)Output power at maximum torque(in watt)=')
\ No newline at end of file diff --git a/833/CH11/EX11.4/Ex11_4.txt b/833/CH11/EX11.4/Ex11_4.txt new file mode 100755 index 000000000..6144f30ee --- /dev/null +++ b/833/CH11/EX11.4/Ex11_4.txt @@ -0,0 +1,30 @@ +//Caption: Calculate (a)Mechanical power output (b)Torque (c)Maximum Torque (d)Speed at maximum torque (e)Power output when torque is maximum
+//Exa:11.4
+clc;
+clear;
+close;
+p=4//Number of poles
+V=440//Voltage of motor(in volts)
+f=50//Frequency(in hertz)
+n_s=1500//Synchronous speed(r.p.m)
+sp=1440//Speed of motor at load(in r.p.m)
+s=4//Slip at full load(in %)
+t=1.8//Stator to rotor turns ratio
+R_r=0.1//Resistance of rotor per phase(in ohms)
+X_r=0.8//Reactance of rotor per phase at standstill(in ohms)
+r_r=R_r*(t^2)//Rotor resistance referred to stator(in ohms)
+x_r=X_r*(t^2)//Reactance of rotor at stanstill referred to stator(in ohms)
+E=V/(sqrt(3))
+P=((s/100)*(E^2)*r_r)/((r_r^2)+((s/100)^2)*(x_r^2))
+T=(3*P)/(2*(%pi)*(n_s/60))
+P_M=(3*P*sp)/n_s
+disp(P_M,'(a)Mechanical power output(in watt)=')
+disp(T,'(b)Torque(in N-m)=')
+s_m=R_r/X_r
+N=n_s*(1-s_m)
+P_1=((s_m)*(E^2)*(r_r))/((r_r^2)+((s_m^2)*(x_r^2)))
+T_m=(3*P_1)/(2*(%pi)*(n_s/60))
+disp(T_m,'(c)Maximum torque(in N-m)=')
+disp(N,'(d)Speed at maximum torque(in r.p.m)=')
+P_o=(3*P_1*N)/n_s
+disp(P_o,'(e)Output power at maximum torque(in watt)=')
\ No newline at end of file diff --git a/833/CH11/EX11.4/Result11_4.txt b/833/CH11/EX11.4/Result11_4.txt new file mode 100755 index 000000000..468d8bd26 --- /dev/null +++ b/833/CH11/EX11.4/Result11_4.txt @@ -0,0 +1,20 @@ +(a)Mechanical power output(in watt)=
+
+ 20813.847
+
+ (b)Torque(in N-m)=
+
+ 138.02611
+
+ (c)Maximum torque(in N-m)=
+
+ 237.74998
+
+ (d)Speed at maximum torque(in r.p.m)=
+
+ 1312.5
+
+ (e)Output power at maximum torque(in watt)=
+
+ 32677.469
+
\ No newline at end of file diff --git a/833/CH11/EX11.5/Ex11_5.sce b/833/CH11/EX11.5/Ex11_5.sce new file mode 100755 index 000000000..982a4a8e7 --- /dev/null +++ b/833/CH11/EX11.5/Ex11_5.sce @@ -0,0 +1,21 @@ +//Caption:Find (a)Speed of the motor (b)Speed at which torque will be maximum (c)Ratio of maximum to full load torque
+//Exa:11.5
+clc;
+clear;
+close;
+V=3300//Voltage supplied to induction motor(in volts)
+p=10//Number of poles
+f=50//frequency(in hertz)
+R_r=0.015//Rotor resistance per phase(in ohms)
+X_r=0.25//Standstill reactance per phase(in ohms)
+s=2.5//Slip(in %)
+n_s=(f*120)/p
+n=n_s*(1-(s/100))
+disp(n,'(a)Speed of the motor(in r.p.m)=')
+S=R_r/X_r
+N=n_s*(1-S)
+disp(N,'(b)Speed at which torque will be maximum(in r.p.m)=')
+T_f=(s/100)*R_r/((R_r^2)+(((s/100)^2)*(X_r^2)))
+T_m=S*R_r/((R_r^2)+((S^2)*(X_r^2)))
+R=T_m/T_f
+disp(R,'(c)Ratio of maximum to full load torque=')
\ No newline at end of file diff --git a/833/CH11/EX11.5/Ex11_5.txt b/833/CH11/EX11.5/Ex11_5.txt new file mode 100755 index 000000000..982a4a8e7 --- /dev/null +++ b/833/CH11/EX11.5/Ex11_5.txt @@ -0,0 +1,21 @@ +//Caption:Find (a)Speed of the motor (b)Speed at which torque will be maximum (c)Ratio of maximum to full load torque
+//Exa:11.5
+clc;
+clear;
+close;
+V=3300//Voltage supplied to induction motor(in volts)
+p=10//Number of poles
+f=50//frequency(in hertz)
+R_r=0.015//Rotor resistance per phase(in ohms)
+X_r=0.25//Standstill reactance per phase(in ohms)
+s=2.5//Slip(in %)
+n_s=(f*120)/p
+n=n_s*(1-(s/100))
+disp(n,'(a)Speed of the motor(in r.p.m)=')
+S=R_r/X_r
+N=n_s*(1-S)
+disp(N,'(b)Speed at which torque will be maximum(in r.p.m)=')
+T_f=(s/100)*R_r/((R_r^2)+(((s/100)^2)*(X_r^2)))
+T_m=S*R_r/((R_r^2)+((S^2)*(X_r^2)))
+R=T_m/T_f
+disp(R,'(c)Ratio of maximum to full load torque=')
\ No newline at end of file diff --git a/833/CH11/EX11.5/Result11_5.txt b/833/CH11/EX11.5/Result11_5.txt new file mode 100755 index 000000000..5e7b68ea4 --- /dev/null +++ b/833/CH11/EX11.5/Result11_5.txt @@ -0,0 +1,12 @@ +(a)Speed of the motor(in r.p.m)=
+
+ 585.
+
+ (b)Speed at which torque will be maximum(in r.p.m)=
+
+ 564.
+
+ (c)Ratio of maximum to full load torque=
+
+ 1.4083333
+
\ No newline at end of file diff --git a/833/CH11/EX11.6/Ex11_6.sce b/833/CH11/EX11.6/Ex11_6.sce new file mode 100755 index 000000000..ec777b908 --- /dev/null +++ b/833/CH11/EX11.6/Ex11_6.sce @@ -0,0 +1,21 @@ +//Caption: Calculate (a)Speed at which mechanical power from rotor will be maximum (b)Maximum power
+//Exa:11.6
+clc;
+clear;
+close;
+p=4//Number of poles
+f=50//Frequency(in hertz)
+V=440//Supplied voltage to induction motor(in volts)
+R_r=0.1//Rotor resistance per phase(in ohm)
+X_r=0.8//Rotor reactance at standstill per phase(in ohm)
+t=1.3//Ratio of stator turns per phase to rotor turns per phase
+a=R_r/X_r
+s=(-(a^2))+sqrt(1+(a^2))
+n_s=120*f/p
+N=n_s*(1-s)
+disp(N,'(a)Required speed(in r.p.m)=')
+r=R_r*t
+x=X_r*t
+E=V/sqrt(3)
+P_m=(3*s*(E^2)*r*(1-s))/((r^2)+((s^2)+(x^2)))
+disp(P_m,'(b)Maximum power(in watts)=')
\ No newline at end of file diff --git a/833/CH11/EX11.6/Ex11_6.txt b/833/CH11/EX11.6/Ex11_6.txt new file mode 100755 index 000000000..ec777b908 --- /dev/null +++ b/833/CH11/EX11.6/Ex11_6.txt @@ -0,0 +1,21 @@ +//Caption: Calculate (a)Speed at which mechanical power from rotor will be maximum (b)Maximum power
+//Exa:11.6
+clc;
+clear;
+close;
+p=4//Number of poles
+f=50//Frequency(in hertz)
+V=440//Supplied voltage to induction motor(in volts)
+R_r=0.1//Rotor resistance per phase(in ohm)
+X_r=0.8//Rotor reactance at standstill per phase(in ohm)
+t=1.3//Ratio of stator turns per phase to rotor turns per phase
+a=R_r/X_r
+s=(-(a^2))+sqrt(1+(a^2))
+n_s=120*f/p
+N=n_s*(1-s)
+disp(N,'(a)Required speed(in r.p.m)=')
+r=R_r*t
+x=X_r*t
+E=V/sqrt(3)
+P_m=(3*s*(E^2)*r*(1-s))/((r^2)+((s^2)+(x^2)))
+disp(P_m,'(b)Maximum power(in watts)=')
\ No newline at end of file diff --git a/833/CH11/EX11.6/Result11_6.txt b/833/CH11/EX11.6/Result11_6.txt new file mode 100755 index 000000000..36343b238 --- /dev/null +++ b/833/CH11/EX11.6/Result11_6.txt @@ -0,0 +1,7 @@ + (a)Required speed(in r.p.m)=
+
+ 11.764172
+
+ (b)Maximum power(in watts)=
+
+ 94.023391
\ No newline at end of file diff --git a/833/CH11/EX11.7/Ex11_7.sce b/833/CH11/EX11.7/Ex11_7.sce new file mode 100755 index 000000000..15005a4b0 --- /dev/null +++ b/833/CH11/EX11.7/Ex11_7.sce @@ -0,0 +1,20 @@ +//Caption: Find Current per phase in the rotor (a)when rotor is at standstill and star connected impedance of 4.1+%i2 per phase is connected in series with rotor (b)when rotor runs at 3% slip with short circuit at the slip rings
+//Exa:11.7
+clc;
+clear;
+close;
+V=69.28//Induced e.m.f(in volts)
+r=0.9//Resistance of rotor per phase(in ohm)
+x=6//Standstill rectance of rotor per phase(in ohm)
+z=4.1+(%i*2)
+s=3//Slip(in%)
+V_r=V/sqrt(3)
+R_r=r+real(z)
+X_r=(%i*2)+(%i*x)
+Z=R_r+X_r
+I_r=V_r/Z
+disp(I_r,'(a)Current when rotor is at standstill=')
+E=(s/100)*V_r
+Imp=r+(%i*(s/100)*x)
+i_r=E/Imp
+disp(i_r,'(b)Current when rotor runs at 3% slip=')
\ No newline at end of file diff --git a/833/CH11/EX11.7/Ex11_7.txt b/833/CH11/EX11.7/Ex11_7.txt new file mode 100755 index 000000000..15005a4b0 --- /dev/null +++ b/833/CH11/EX11.7/Ex11_7.txt @@ -0,0 +1,20 @@ +//Caption: Find Current per phase in the rotor (a)when rotor is at standstill and star connected impedance of 4.1+%i2 per phase is connected in series with rotor (b)when rotor runs at 3% slip with short circuit at the slip rings
+//Exa:11.7
+clc;
+clear;
+close;
+V=69.28//Induced e.m.f(in volts)
+r=0.9//Resistance of rotor per phase(in ohm)
+x=6//Standstill rectance of rotor per phase(in ohm)
+z=4.1+(%i*2)
+s=3//Slip(in%)
+V_r=V/sqrt(3)
+R_r=r+real(z)
+X_r=(%i*2)+(%i*x)
+Z=R_r+X_r
+I_r=V_r/Z
+disp(I_r,'(a)Current when rotor is at standstill=')
+E=(s/100)*V_r
+Imp=r+(%i*(s/100)*x)
+i_r=E/Imp
+disp(i_r,'(b)Current when rotor runs at 3% slip=')
\ No newline at end of file diff --git a/833/CH11/EX11.7/Result11_7.txt b/833/CH11/EX11.7/Result11_7.txt new file mode 100755 index 000000000..21780ad7a --- /dev/null +++ b/833/CH11/EX11.7/Result11_7.txt @@ -0,0 +1,8 @@ +(a)Current when rotor is at standstill=
+
+ 2.2471251 - 3.5954001i
+
+ (b)Current when rotor runs at 3% slip=
+
+ 1.2820137 - 0.2564027i
+
\ No newline at end of file diff --git a/833/CH11/EX11.8/Ex11_8.sce b/833/CH11/EX11.8/Ex11_8.sce new file mode 100755 index 000000000..98998c7fe --- /dev/null +++ b/833/CH11/EX11.8/Ex11_8.sce @@ -0,0 +1,16 @@ +//Caption:Find (a)% reduction in stator voltage and (b)the power factor of the rotor circuit
+//Exa:11.8
+clc;
+clear;
+close;
+R_r=0.02//Rotor resistance per phase(in ohm)
+X_r=0.1//Rotor reactance per phase(in ohm)
+s=4//Slip(in%)
+S=100-s
+T_f=((s/100)*R_r)/((R_r^2)+(((s/100)^2)*(X_r^2)))
+S_r=1-(.5*(S/100))
+T=(S_r*R_r)/((R_r^2)+((S_r^2)*(X_r^2)))
+Re=(1-sqrt(T_f/T))*100
+disp(Re,'(a)% reduction in stator voltage(in %)=')
+pf=R_r/(sqrt((R_r^2)+((S_r^2)*(X_r^2))))
+disp(pf,'(b)Power factor=')
\ No newline at end of file diff --git a/833/CH11/EX11.8/Ex11_8.txt b/833/CH11/EX11.8/Ex11_8.txt new file mode 100755 index 000000000..98998c7fe --- /dev/null +++ b/833/CH11/EX11.8/Ex11_8.txt @@ -0,0 +1,16 @@ +//Caption:Find (a)% reduction in stator voltage and (b)the power factor of the rotor circuit
+//Exa:11.8
+clc;
+clear;
+close;
+R_r=0.02//Rotor resistance per phase(in ohm)
+X_r=0.1//Rotor reactance per phase(in ohm)
+s=4//Slip(in%)
+S=100-s
+T_f=((s/100)*R_r)/((R_r^2)+(((s/100)^2)*(X_r^2)))
+S_r=1-(.5*(S/100))
+T=(S_r*R_r)/((R_r^2)+((S_r^2)*(X_r^2)))
+Re=(1-sqrt(T_f/T))*100
+disp(Re,'(a)% reduction in stator voltage(in %)=')
+pf=R_r/(sqrt((R_r^2)+((S_r^2)*(X_r^2))))
+disp(pf,'(b)Power factor=')
\ No newline at end of file diff --git a/833/CH11/EX11.8/Result11_8.txt b/833/CH11/EX11.8/Result11_8.txt new file mode 100755 index 000000000..2e98c6f92 --- /dev/null +++ b/833/CH11/EX11.8/Result11_8.txt @@ -0,0 +1,7 @@ +(a)% reduction in stator voltage(in %)=
+
+ 24.239555
+
+ (b)Power factor=
+
+ 0.3589791
\ No newline at end of file diff --git a/833/CH11/EX11.9/Ex11_9.sce b/833/CH11/EX11.9/Ex11_9.sce new file mode 100755 index 000000000..59231bc6e --- /dev/null +++ b/833/CH11/EX11.9/Ex11_9.sce @@ -0,0 +1,13 @@ +//Caption:Find (a)the rotor copper loss per phase if motor is running at slip of 4% (b)Mechanical power developed
+//Exa:11.9
+clc;
+clear;
+close;
+P_i=100000//Input power(in watt)
+P_sc=2000//Stator copper loss(in watt)
+s=4//slip(in %)
+P_r=P_i-P_sc
+P_rc=((s/100)*P_r)/3
+disp(P_rc,'(a)Rotor copper lossper phase(in watt)=')
+P_m=P_r-(P_rc*3)
+disp(P_m,'(b)Mechanical power developed(in watt)=')
\ No newline at end of file diff --git a/833/CH11/EX11.9/Ex11_9.txt b/833/CH11/EX11.9/Ex11_9.txt new file mode 100755 index 000000000..59231bc6e --- /dev/null +++ b/833/CH11/EX11.9/Ex11_9.txt @@ -0,0 +1,13 @@ +//Caption:Find (a)the rotor copper loss per phase if motor is running at slip of 4% (b)Mechanical power developed
+//Exa:11.9
+clc;
+clear;
+close;
+P_i=100000//Input power(in watt)
+P_sc=2000//Stator copper loss(in watt)
+s=4//slip(in %)
+P_r=P_i-P_sc
+P_rc=((s/100)*P_r)/3
+disp(P_rc,'(a)Rotor copper lossper phase(in watt)=')
+P_m=P_r-(P_rc*3)
+disp(P_m,'(b)Mechanical power developed(in watt)=')
\ No newline at end of file diff --git a/833/CH11/EX11.9/Result11_9.txt b/833/CH11/EX11.9/Result11_9.txt new file mode 100755 index 000000000..e500eafb8 --- /dev/null +++ b/833/CH11/EX11.9/Result11_9.txt @@ -0,0 +1,7 @@ + (a)Rotor copper lossper phase(in watt)=
+
+ 1306.6667
+
+ (b)Mechanical power developed(in watt)=
+
+ 94080.
\ No newline at end of file diff --git a/833/CH12/EX12.1/Ex12_1.sce b/833/CH12/EX12.1/Ex12_1.sce new file mode 100755 index 000000000..b04bbbf55 --- /dev/null +++ b/833/CH12/EX12.1/Ex12_1.sce @@ -0,0 +1,32 @@ +//Caption:Calculate (a)No load power factor (b)Core and friction loss (c)r_m (d)power factor on short circuit (e)Equivalent impedance in series circuit (f)Rotor resistance referred to stator (g)Stator leakage reactance (h)Rotor leakage reactance referred to stator
+//Exa:12.1
+clc;
+clear;
+close;
+P=3000//Power of motor(in watt)
+V=415//Voltage supplied(in volts)
+f=50//Frequency(in hertz)
+p=6//Number of poles
+pf=0.8//Power factor
+I_n=3.5//No load current(in A)
+P_n=250//Power input on no load test(in watt)
+r_s=1.5//Stator resistance per phase(in ohm)
+V_r=115//Reduced voltage applied at short circuit test(in volts)
+I_s=13//Current supplied on short circuit test(in A)
+P_s=1660//Voltage applied at short circuit test(in watt)
+pfn=P_n/(sqrt(3)*V*I_n)
+disp(pfn,'(a)Noload power factor=')
+P_wf=P_n-(3*(I_n^2)*r_s)
+disp(P_wf,'(b)Core and friction loss(in watt)=')
+r_m=(V/sqrt(3))/(I_n*pfn)
+disp(r_m,'(c)Resistance(in ohms)=')
+pfs=P_s/(sqrt(3)*V_r*I_s)
+disp(pfs,'(d)Power factor on short circuit=')
+Ze=(V/sqrt(3))/((I_s*V)/V_r)
+disp(Ze,'(e)Equivalent impedance in series circuit(in ohms)=')
+R=(Ze*pfs)-r_s
+disp(R,'(f)Rotor resistance referred to stator(in ohm)=')
+X=(sqrt((Ze^2)-((Ze*pfs)^2)))
+disp(X,'(g)Stator leakage reactance(in ohms)=')
+x=X/2
+disp(x,'(h)Rotor leakage reactance referred to stator(in ohms)=')
\ No newline at end of file diff --git a/833/CH12/EX12.1/Ex12_1.txt b/833/CH12/EX12.1/Ex12_1.txt new file mode 100755 index 000000000..b04bbbf55 --- /dev/null +++ b/833/CH12/EX12.1/Ex12_1.txt @@ -0,0 +1,32 @@ +//Caption:Calculate (a)No load power factor (b)Core and friction loss (c)r_m (d)power factor on short circuit (e)Equivalent impedance in series circuit (f)Rotor resistance referred to stator (g)Stator leakage reactance (h)Rotor leakage reactance referred to stator
+//Exa:12.1
+clc;
+clear;
+close;
+P=3000//Power of motor(in watt)
+V=415//Voltage supplied(in volts)
+f=50//Frequency(in hertz)
+p=6//Number of poles
+pf=0.8//Power factor
+I_n=3.5//No load current(in A)
+P_n=250//Power input on no load test(in watt)
+r_s=1.5//Stator resistance per phase(in ohm)
+V_r=115//Reduced voltage applied at short circuit test(in volts)
+I_s=13//Current supplied on short circuit test(in A)
+P_s=1660//Voltage applied at short circuit test(in watt)
+pfn=P_n/(sqrt(3)*V*I_n)
+disp(pfn,'(a)Noload power factor=')
+P_wf=P_n-(3*(I_n^2)*r_s)
+disp(P_wf,'(b)Core and friction loss(in watt)=')
+r_m=(V/sqrt(3))/(I_n*pfn)
+disp(r_m,'(c)Resistance(in ohms)=')
+pfs=P_s/(sqrt(3)*V_r*I_s)
+disp(pfs,'(d)Power factor on short circuit=')
+Ze=(V/sqrt(3))/((I_s*V)/V_r)
+disp(Ze,'(e)Equivalent impedance in series circuit(in ohms)=')
+R=(Ze*pfs)-r_s
+disp(R,'(f)Rotor resistance referred to stator(in ohm)=')
+X=(sqrt((Ze^2)-((Ze*pfs)^2)))
+disp(X,'(g)Stator leakage reactance(in ohms)=')
+x=X/2
+disp(x,'(h)Rotor leakage reactance referred to stator(in ohms)=')
\ No newline at end of file diff --git a/833/CH12/EX12.1/Result12_1.txt b/833/CH12/EX12.1/Result12_1.txt new file mode 100755 index 000000000..e7f3f387e --- /dev/null +++ b/833/CH12/EX12.1/Result12_1.txt @@ -0,0 +1,32 @@ +(a)Noload power factor=
+
+ 0.0993718
+
+ (b)Core and friction loss(in watt)=
+
+ 194.875
+
+ (c)Resistance(in ohms)=
+
+ 688.9
+
+ (d)Power factor on short circuit=
+
+ 0.6410712
+
+ (e)Equivalent impedance in series circuit(in ohms)=
+
+ 5.1073293
+
+ (f)Rotor resistance referred to stator(in ohm)=
+
+ 1.7741617
+
+ (g)Stator leakage reactance(in ohms)=
+
+ 3.9197803
+
+ (h)Rotor leakage reactance referred to stator(in ohms)=
+
+ 1.9598901
+
\ No newline at end of file diff --git a/833/CH12/EX12.11/Ex12_11.sce b/833/CH12/EX12.11/Ex12_11.sce new file mode 100755 index 000000000..e620b20ca --- /dev/null +++ b/833/CH12/EX12.11/Ex12_11.sce @@ -0,0 +1,15 @@ +//Caption:Calculate external resistance per phase
+//Exa:12.11
+clc;
+clear;
+close;
+p=6//Number of poles
+f=50//Frequency(in hertz)
+r=0.25//Resistance per phase(in ohms)
+n_1=965//Speed on full load(in r.p.m)
+n_2=800//Reduced speed(in r.p.m)
+n_s=(120*f)/p
+s_1=(n_s-n_1)/n_s
+s_2=(n_s-n_2)/n_s
+R=((s_2*r)/s_1)-r
+disp(R,'Required external resistance per phase(in ohms)=')
\ No newline at end of file diff --git a/833/CH12/EX12.11/Ex12_11.txt b/833/CH12/EX12.11/Ex12_11.txt new file mode 100755 index 000000000..e620b20ca --- /dev/null +++ b/833/CH12/EX12.11/Ex12_11.txt @@ -0,0 +1,15 @@ +//Caption:Calculate external resistance per phase
+//Exa:12.11
+clc;
+clear;
+close;
+p=6//Number of poles
+f=50//Frequency(in hertz)
+r=0.25//Resistance per phase(in ohms)
+n_1=965//Speed on full load(in r.p.m)
+n_2=800//Reduced speed(in r.p.m)
+n_s=(120*f)/p
+s_1=(n_s-n_1)/n_s
+s_2=(n_s-n_2)/n_s
+R=((s_2*r)/s_1)-r
+disp(R,'Required external resistance per phase(in ohms)=')
\ No newline at end of file diff --git a/833/CH12/EX12.11/Result12_11.txt b/833/CH12/EX12.11/Result12_11.txt new file mode 100755 index 000000000..4099faf80 --- /dev/null +++ b/833/CH12/EX12.11/Result12_11.txt @@ -0,0 +1,4 @@ +Required external resistance per phase(in ohms)=
+
+ 1.1785714
+
\ No newline at end of file diff --git a/833/CH12/EX12.12/Ex12_12.sce b/833/CH12/EX12.12/Ex12_12.sce new file mode 100755 index 000000000..a7f1fd46d --- /dev/null +++ b/833/CH12/EX12.12/Ex12_12.sce @@ -0,0 +1,22 @@ +//Caption:Find the dimensions of D and L
+//Exa:12.12
+clc;
+clear;
+close;
+P=7.5//Power of induction motor(in KW)
+p=4//Number of poles
+f=50//frequency(in hertz)
+V=415//Voltage applied of motor(in volts)
+e=0.88//Efficiency
+pf=0.87//Power factor
+b=2.5//Ratio of pull out torque to full load torque
+c=1.75//Ratio of starting to full load torque
+n=1440//Speed of motor(in r.p.m)
+ac=23000//Ampere conductors per meter
+k=0.955
+B=0.45//flux per pole(in wb/m^2)
+n_s=(120*f)/(60*p)
+S=P/(e*pf)
+D=165//Choosing(in mm)
+L=(S*(10^3))/(1.11*k*(%pi^2)*B*ac*n_s*(10^(-3))*(D^2)*(10^(-6)))
+disp(L,D,'D and L(in mm) are=')
\ No newline at end of file diff --git a/833/CH12/EX12.12/Ex12_12.txt b/833/CH12/EX12.12/Ex12_12.txt new file mode 100755 index 000000000..a7f1fd46d --- /dev/null +++ b/833/CH12/EX12.12/Ex12_12.txt @@ -0,0 +1,22 @@ +//Caption:Find the dimensions of D and L
+//Exa:12.12
+clc;
+clear;
+close;
+P=7.5//Power of induction motor(in KW)
+p=4//Number of poles
+f=50//frequency(in hertz)
+V=415//Voltage applied of motor(in volts)
+e=0.88//Efficiency
+pf=0.87//Power factor
+b=2.5//Ratio of pull out torque to full load torque
+c=1.75//Ratio of starting to full load torque
+n=1440//Speed of motor(in r.p.m)
+ac=23000//Ampere conductors per meter
+k=0.955
+B=0.45//flux per pole(in wb/m^2)
+n_s=(120*f)/(60*p)
+S=P/(e*pf)
+D=165//Choosing(in mm)
+L=(S*(10^3))/(1.11*k*(%pi^2)*B*ac*n_s*(10^(-3))*(D^2)*(10^(-6)))
+disp(L,D,'D and L(in mm) are=')
\ No newline at end of file diff --git a/833/CH12/EX12.12/Result12_12.txt b/833/CH12/EX12.12/Result12_12.txt new file mode 100755 index 000000000..9f621e74c --- /dev/null +++ b/833/CH12/EX12.12/Result12_12.txt @@ -0,0 +1,6 @@ + D and L(in mm) are=
+
+ 165.
+
+ 132.91837
+
\ No newline at end of file diff --git a/833/CH12/EX12.2/Ex12_2.sce b/833/CH12/EX12.2/Ex12_2.sce new file mode 100755 index 000000000..ad770419b --- /dev/null +++ b/833/CH12/EX12.2/Ex12_2.sce @@ -0,0 +1,28 @@ +//Caption:Find (a)Starting current (b)Starting torque
+//Exa:12.2
+clc;
+clear;
+close;
+P=3000//Power of motor(in watt)
+V=415//Voltage supplied(in volts)
+f=50//Frequency(in hertz)
+p=6//Number of poles
+pf=0.8//Power factor
+pfs=0.64//Power factor on short circuit
+pfn=0.1//No load power factor
+I_n=3.5//No load current(in A)
+P_n=250//Power input on no load test(in watt)
+r_s=1.5//Stator resistance per phase(in ohm)
+V_r=115//Reduced voltage applied at short circuit test(in volts)
+I_s=13//Current supplied on short circuit test(in A)
+P_s=1660//Voltage applied at short circuit test(in watt)
+n_s=1000//Synchronous speed(in r.p.m)
+R2=1.77//Rotor resistance referred to stator(in ohms)
+I_st=I_s*V/(V_r)
+disp(I_st,'(a)Starting current(in A)=')
+I_i=I_st*(cosd(pfs)+(%i*(sind(pfs))))
+I_o=I_n*(cosd(pfn)+(%i*(sind(pfn))))
+I_2=I_i-I_o
+P_ri=3*(I_2*conj(I_2))*R2
+T=P_ri/(2*%pi*(n_s/60))
+disp(T,'(b)Starting torque(in N-m)=')
\ No newline at end of file diff --git a/833/CH12/EX12.2/Ex12_2.txt b/833/CH12/EX12.2/Ex12_2.txt new file mode 100755 index 000000000..ad770419b --- /dev/null +++ b/833/CH12/EX12.2/Ex12_2.txt @@ -0,0 +1,28 @@ +//Caption:Find (a)Starting current (b)Starting torque
+//Exa:12.2
+clc;
+clear;
+close;
+P=3000//Power of motor(in watt)
+V=415//Voltage supplied(in volts)
+f=50//Frequency(in hertz)
+p=6//Number of poles
+pf=0.8//Power factor
+pfs=0.64//Power factor on short circuit
+pfn=0.1//No load power factor
+I_n=3.5//No load current(in A)
+P_n=250//Power input on no load test(in watt)
+r_s=1.5//Stator resistance per phase(in ohm)
+V_r=115//Reduced voltage applied at short circuit test(in volts)
+I_s=13//Current supplied on short circuit test(in A)
+P_s=1660//Voltage applied at short circuit test(in watt)
+n_s=1000//Synchronous speed(in r.p.m)
+R2=1.77//Rotor resistance referred to stator(in ohms)
+I_st=I_s*V/(V_r)
+disp(I_st,'(a)Starting current(in A)=')
+I_i=I_st*(cosd(pfs)+(%i*(sind(pfs))))
+I_o=I_n*(cosd(pfn)+(%i*(sind(pfn))))
+I_2=I_i-I_o
+P_ri=3*(I_2*conj(I_2))*R2
+T=P_ri/(2*%pi*(n_s/60))
+disp(T,'(b)Starting torque(in N-m)=')
\ No newline at end of file diff --git a/833/CH12/EX12.2/Result12_2.txt b/833/CH12/EX12.2/Result12_2.txt new file mode 100755 index 000000000..30c8a52ea --- /dev/null +++ b/833/CH12/EX12.2/Result12_2.txt @@ -0,0 +1,8 @@ +(a)Starting current(in A)=
+
+ 46.913043
+
+ (b)Starting torque(in N-m)=
+
+ 95.567391
+
\ No newline at end of file diff --git a/833/CH12/EX12.5/Ex12_5.sce b/833/CH12/EX12.5/Ex12_5.sce new file mode 100755 index 000000000..f002123ce --- /dev/null +++ b/833/CH12/EX12.5/Ex12_5.sce @@ -0,0 +1,9 @@ +//Caption:Find starting current in terms of full load current
+//Exa:12.5
+clc;
+clear;
+close;
+s=0.04//Slip
+a=1//Starting torque T_st/Full load torque(T_fl) are equal
+I_s=sqrt(a/s)
+disp(I_s,'Starting current is (below)times the full load current=' )
\ No newline at end of file diff --git a/833/CH12/EX12.5/Ex12_5.txt b/833/CH12/EX12.5/Ex12_5.txt new file mode 100755 index 000000000..f002123ce --- /dev/null +++ b/833/CH12/EX12.5/Ex12_5.txt @@ -0,0 +1,9 @@ +//Caption:Find starting current in terms of full load current
+//Exa:12.5
+clc;
+clear;
+close;
+s=0.04//Slip
+a=1//Starting torque T_st/Full load torque(T_fl) are equal
+I_s=sqrt(a/s)
+disp(I_s,'Starting current is (below)times the full load current=' )
\ No newline at end of file diff --git a/833/CH12/EX12.5/Result12_5.txt b/833/CH12/EX12.5/Result12_5.txt new file mode 100755 index 000000000..cdebc7276 --- /dev/null +++ b/833/CH12/EX12.5/Result12_5.txt @@ -0,0 +1,4 @@ + Starting current is (below)times the full load current=
+
+ 5.
+
\ No newline at end of file diff --git a/833/CH12/EX12.7/Ex12_7.sce b/833/CH12/EX12.7/Ex12_7.sce new file mode 100755 index 000000000..c76d871d5 --- /dev/null +++ b/833/CH12/EX12.7/Ex12_7.sce @@ -0,0 +1,11 @@ +//Caption:Find starting torque in terms of full load torque
+//Exa:12.7
+clc;
+clear;
+close;
+s=0.03//slip
+a=2.5//Ratio of supply current to full load current
+b=5//Ratio of short circuit current to full load current
+x=sqrt(a/b)
+T=(x^2)*(b^2)*s
+disp(T,'Starting torque is (below) times the full load torque=')
\ No newline at end of file diff --git a/833/CH12/EX12.7/Ex12_7.txt b/833/CH12/EX12.7/Ex12_7.txt new file mode 100755 index 000000000..c76d871d5 --- /dev/null +++ b/833/CH12/EX12.7/Ex12_7.txt @@ -0,0 +1,11 @@ +//Caption:Find starting torque in terms of full load torque
+//Exa:12.7
+clc;
+clear;
+close;
+s=0.03//slip
+a=2.5//Ratio of supply current to full load current
+b=5//Ratio of short circuit current to full load current
+x=sqrt(a/b)
+T=(x^2)*(b^2)*s
+disp(T,'Starting torque is (below) times the full load torque=')
\ No newline at end of file diff --git a/833/CH12/EX12.7/Result12_7.txt b/833/CH12/EX12.7/Result12_7.txt new file mode 100755 index 000000000..b1de4ad12 --- /dev/null +++ b/833/CH12/EX12.7/Result12_7.txt @@ -0,0 +1,4 @@ + Starting torque is (below) times the full load torque=
+
+ 0.375
+
\ No newline at end of file diff --git a/833/CH12/EX12.8/Ex12_8.sce b/833/CH12/EX12.8/Ex12_8.sce new file mode 100755 index 000000000..c8366770f --- /dev/null +++ b/833/CH12/EX12.8/Ex12_8.sce @@ -0,0 +1,10 @@ +//Caption:Find the % tappings required
+//Exa:12.8
+clc;
+clear;
+close;
+s=0.04//Slip
+a=4//Ratio of short circuit current to full load current
+b=40//Starting torque to full load torque(in%)
+x=sqrt((b/100)/(s*(a^2)))*100
+disp(x,'% tappings required is(in%)=')
\ No newline at end of file diff --git a/833/CH12/EX12.8/Ex12_8.txt b/833/CH12/EX12.8/Ex12_8.txt new file mode 100755 index 000000000..c8366770f --- /dev/null +++ b/833/CH12/EX12.8/Ex12_8.txt @@ -0,0 +1,10 @@ +//Caption:Find the % tappings required
+//Exa:12.8
+clc;
+clear;
+close;
+s=0.04//Slip
+a=4//Ratio of short circuit current to full load current
+b=40//Starting torque to full load torque(in%)
+x=sqrt((b/100)/(s*(a^2)))*100
+disp(x,'% tappings required is(in%)=')
\ No newline at end of file diff --git a/833/CH12/EX12.8/Result12_8.txt b/833/CH12/EX12.8/Result12_8.txt new file mode 100755 index 000000000..7a8004abe --- /dev/null +++ b/833/CH12/EX12.8/Result12_8.txt @@ -0,0 +1,4 @@ + % tappings required is(in%)=
+
+ 79.056942
+
\ No newline at end of file diff --git a/833/CH12/EX12.9/Ex12_9.sce b/833/CH12/EX12.9/Ex12_9.sce new file mode 100755 index 000000000..a092453c9 --- /dev/null +++ b/833/CH12/EX12.9/Ex12_9.sce @@ -0,0 +1,15 @@ +//Caption:Find the line current at start
+//Exa:12.9
+clc;
+clear;
+close;
+P=5000//Power supplied to induction motor(in watts)
+V=415//Voltage supplied to motor(in volts)
+f=50//frequency(in hertz)
+e=0.85//Efficiency
+pf=0.8//Power factor lagging
+b=5//Ratio of short circuit current to full load current
+P_i=P/e
+I_fl=P_i/(sqrt(3)*V*pf)
+I_l=(1/3)*b*I_fl
+disp(I_l,'Line current(in A)=')
\ No newline at end of file diff --git a/833/CH12/EX12.9/Ex12_9.txt b/833/CH12/EX12.9/Ex12_9.txt new file mode 100755 index 000000000..a092453c9 --- /dev/null +++ b/833/CH12/EX12.9/Ex12_9.txt @@ -0,0 +1,15 @@ +//Caption:Find the line current at start
+//Exa:12.9
+clc;
+clear;
+close;
+P=5000//Power supplied to induction motor(in watts)
+V=415//Voltage supplied to motor(in volts)
+f=50//frequency(in hertz)
+e=0.85//Efficiency
+pf=0.8//Power factor lagging
+b=5//Ratio of short circuit current to full load current
+P_i=P/e
+I_fl=P_i/(sqrt(3)*V*pf)
+I_l=(1/3)*b*I_fl
+disp(I_l,'Line current(in A)=')
\ No newline at end of file diff --git a/833/CH12/EX12.9/Result12_9.txt b/833/CH12/EX12.9/Result12_9.txt new file mode 100755 index 000000000..7a7bc616a --- /dev/null +++ b/833/CH12/EX12.9/Result12_9.txt @@ -0,0 +1,3 @@ + Line current(in A)=
+
+ 17.049087
\ No newline at end of file diff --git a/833/CH13/EX13.1/Ex13_1.sce b/833/CH13/EX13.1/Ex13_1.sce new file mode 100755 index 000000000..5d588c97a --- /dev/null +++ b/833/CH13/EX13.1/Ex13_1.sce @@ -0,0 +1,9 @@ +//Caption:Find the frequency of voltage generated
+//Exa:13.1
+clc;
+clear;
+close;
+p=16//Number of poles
+n=375//Speed of alternator(in r.p.m)
+f=(p*n)/120
+disp(f,'Frequency of voltage generated(in c/s)=')
\ No newline at end of file diff --git a/833/CH13/EX13.1/Ex13_1.txt b/833/CH13/EX13.1/Ex13_1.txt new file mode 100755 index 000000000..5d588c97a --- /dev/null +++ b/833/CH13/EX13.1/Ex13_1.txt @@ -0,0 +1,9 @@ +//Caption:Find the frequency of voltage generated
+//Exa:13.1
+clc;
+clear;
+close;
+p=16//Number of poles
+n=375//Speed of alternator(in r.p.m)
+f=(p*n)/120
+disp(f,'Frequency of voltage generated(in c/s)=')
\ No newline at end of file diff --git a/833/CH13/EX13.1/Result13_1.txt b/833/CH13/EX13.1/Result13_1.txt new file mode 100755 index 000000000..2b759edf7 --- /dev/null +++ b/833/CH13/EX13.1/Result13_1.txt @@ -0,0 +1,3 @@ + Frequency of voltage generated(in c/s)=
+
+ 50.
\ No newline at end of file diff --git a/833/CH13/EX13.12/Ex13_12.sce b/833/CH13/EX13.12/Ex13_12.sce new file mode 100755 index 000000000..82b34c2b6 --- /dev/null +++ b/833/CH13/EX13.12/Ex13_12.sce @@ -0,0 +1,14 @@ +//Caption:Calculate synchronous reactance and synchronous impedance per phase
+//Exa:13.12
+clc;
+clear;
+close;
+V=3300//Voltage of alternator(in volts)
+f=50//Frequency(in hertz)
+r=0.4//Effective resistance per phase(in ohm)
+I_f=20//Field current(in ohms)
+I_fl=300//Full load current(in A)
+e=1905//Voltage induced on open circuit(in volts)
+Zs=e/I_fl
+Xs=sqrt((Zs^2)-(r^2))
+disp(Zs,Xs,'Synchronous reactance and impedance(in ohms)=')
\ No newline at end of file diff --git a/833/CH13/EX13.12/Ex13_12.txt b/833/CH13/EX13.12/Ex13_12.txt new file mode 100755 index 000000000..82b34c2b6 --- /dev/null +++ b/833/CH13/EX13.12/Ex13_12.txt @@ -0,0 +1,14 @@ +//Caption:Calculate synchronous reactance and synchronous impedance per phase
+//Exa:13.12
+clc;
+clear;
+close;
+V=3300//Voltage of alternator(in volts)
+f=50//Frequency(in hertz)
+r=0.4//Effective resistance per phase(in ohm)
+I_f=20//Field current(in ohms)
+I_fl=300//Full load current(in A)
+e=1905//Voltage induced on open circuit(in volts)
+Zs=e/I_fl
+Xs=sqrt((Zs^2)-(r^2))
+disp(Zs,Xs,'Synchronous reactance and impedance(in ohms)=')
\ No newline at end of file diff --git a/833/CH13/EX13.12/Result13_12.txt b/833/CH13/EX13.12/Result13_12.txt new file mode 100755 index 000000000..b6b0882d5 --- /dev/null +++ b/833/CH13/EX13.12/Result13_12.txt @@ -0,0 +1,6 @@ +Synchronous reactance and impedance(in ohms)=
+
+ 6.3373891
+
+ 6.35
+
\ No newline at end of file diff --git a/833/CH13/EX13.13/Ex13_13.sce b/833/CH13/EX13.13/Ex13_13.sce new file mode 100755 index 000000000..730833073 --- /dev/null +++ b/833/CH13/EX13.13/Ex13_13.sce @@ -0,0 +1,17 @@ +//Caption:Estimate terminal voltage for (a)same excitation (b)Load current at 0.8 power factor lagging
+//Exa:13.13
+clc;
+clear;
+close;
+P=1000//Power of alternator(in KVA)
+V=3300//Voltage of alternator(in volts)
+ph=3//Phase of alternator
+pf=0.8//Power factor lagging
+r=0.5//Resistance per phase(in ohms)
+x=6.5//Reactance per phase(in ohms)
+V_ph=V/sqrt(3)
+I=(P*1000)/(sqrt(3)*V)
+Eo=sqrt(((V_ph+(I*r*pf)+(I*x*sind(acosd(pf))))^2)+(((I*x*pf)-(I*r*sind(acosd(pf))))^2))
+disp(Eo,'(a)Required terminal voltage(in volts)=')
+v=sqrt((Eo^2)-(((I*r*sind(acosd(pf)))+(I*x*pf))^2))+((I*x*sind(acosd(pf)))-(I*r*pf))
+disp(v,'(b)Required voltage at given load current(in volts)=')
\ No newline at end of file diff --git a/833/CH13/EX13.13/Ex13_13.txt b/833/CH13/EX13.13/Ex13_13.txt new file mode 100755 index 000000000..730833073 --- /dev/null +++ b/833/CH13/EX13.13/Ex13_13.txt @@ -0,0 +1,17 @@ +//Caption:Estimate terminal voltage for (a)same excitation (b)Load current at 0.8 power factor lagging
+//Exa:13.13
+clc;
+clear;
+close;
+P=1000//Power of alternator(in KVA)
+V=3300//Voltage of alternator(in volts)
+ph=3//Phase of alternator
+pf=0.8//Power factor lagging
+r=0.5//Resistance per phase(in ohms)
+x=6.5//Reactance per phase(in ohms)
+V_ph=V/sqrt(3)
+I=(P*1000)/(sqrt(3)*V)
+Eo=sqrt(((V_ph+(I*r*pf)+(I*x*sind(acosd(pf))))^2)+(((I*x*pf)-(I*r*sind(acosd(pf))))^2))
+disp(Eo,'(a)Required terminal voltage(in volts)=')
+v=sqrt((Eo^2)-(((I*r*sind(acosd(pf)))+(I*x*pf))^2))+((I*x*sind(acosd(pf)))-(I*r*pf))
+disp(v,'(b)Required voltage at given load current(in volts)=')
\ No newline at end of file diff --git a/833/CH13/EX13.13/Result13_13.txt b/833/CH13/EX13.13/Result13_13.txt new file mode 100755 index 000000000..2abf17295 --- /dev/null +++ b/833/CH13/EX13.13/Result13_13.txt @@ -0,0 +1,8 @@ +(a)Required terminal voltage(in volts)=
+
+ 2792.4101
+
+ (b)Required voltage at given load current(in volts)=
+
+ 3233.7203
+
\ No newline at end of file diff --git a/833/CH13/EX13.2/Ex13_2.sce b/833/CH13/EX13.2/Ex13_2.sce new file mode 100755 index 000000000..999b95d0e --- /dev/null +++ b/833/CH13/EX13.2/Ex13_2.sce @@ -0,0 +1,12 @@ +//Caption: Find (a)speed (b)number of poles
+//Exa:13.2
+clc;
+clear;
+close;
+f1=25//Frequency of motor(in hertz)
+f2=60//Frequency of generator(in hertz)
+p=10//Number of poles
+N=(120*f1)/p
+disp(N,'(a)Speed(in r.p.m)=')
+P=(f2*120)/(N)
+disp(P,'(b)Number of poles=')
\ No newline at end of file diff --git a/833/CH13/EX13.2/Ex13_2.txt b/833/CH13/EX13.2/Ex13_2.txt new file mode 100755 index 000000000..999b95d0e --- /dev/null +++ b/833/CH13/EX13.2/Ex13_2.txt @@ -0,0 +1,12 @@ +//Caption: Find (a)speed (b)number of poles
+//Exa:13.2
+clc;
+clear;
+close;
+f1=25//Frequency of motor(in hertz)
+f2=60//Frequency of generator(in hertz)
+p=10//Number of poles
+N=(120*f1)/p
+disp(N,'(a)Speed(in r.p.m)=')
+P=(f2*120)/(N)
+disp(P,'(b)Number of poles=')
\ No newline at end of file diff --git a/833/CH13/EX13.2/Result13_2.txt b/833/CH13/EX13.2/Result13_2.txt new file mode 100755 index 000000000..bd2e8bc9e --- /dev/null +++ b/833/CH13/EX13.2/Result13_2.txt @@ -0,0 +1,7 @@ +(a)Speed(in r.p.m)=
+
+ 300.
+
+ (b)Number of poles=
+
+ 24.
\ No newline at end of file diff --git a/833/CH13/EX13.3/Ex13_3.sce b/833/CH13/EX13.3/Ex13_3.sce new file mode 100755 index 000000000..7df432c0e --- /dev/null +++ b/833/CH13/EX13.3/Ex13_3.sce @@ -0,0 +1,13 @@ +//Caption:Find distribution factor of winding
+//Exa:13.3
+clc;
+clear;
+close;
+ns=18//Number of slots
+ph=3//Number of phases
+p=2//Number of poles
+m=ns/(ph*p)
+P_p=ns/p
+theta=180/P_p
+k_b=sind(m*(theta/2))/(m*sind(theta/2))
+disp(k_b,'Distribution factor=')
\ No newline at end of file diff --git a/833/CH13/EX13.3/Ex13_3.txt b/833/CH13/EX13.3/Ex13_3.txt new file mode 100755 index 000000000..7df432c0e --- /dev/null +++ b/833/CH13/EX13.3/Ex13_3.txt @@ -0,0 +1,13 @@ +//Caption:Find distribution factor of winding
+//Exa:13.3
+clc;
+clear;
+close;
+ns=18//Number of slots
+ph=3//Number of phases
+p=2//Number of poles
+m=ns/(ph*p)
+P_p=ns/p
+theta=180/P_p
+k_b=sind(m*(theta/2))/(m*sind(theta/2))
+disp(k_b,'Distribution factor=')
\ No newline at end of file diff --git a/833/CH13/EX13.3/Result13_3.txt b/833/CH13/EX13.3/Result13_3.txt new file mode 100755 index 000000000..ea124eca4 --- /dev/null +++ b/833/CH13/EX13.3/Result13_3.txt @@ -0,0 +1,3 @@ +Distribution factor=
+
+ 0.9597951
\ No newline at end of file diff --git a/833/CH13/EX13.4/Ex13_4.sce b/833/CH13/EX13.4/Ex13_4.sce new file mode 100755 index 000000000..cda9f2503 --- /dev/null +++ b/833/CH13/EX13.4/Ex13_4.sce @@ -0,0 +1,9 @@ +//Caption:Find coil span factor
+//Exa:13.4
+clc;
+clear;
+close;
+s=9//Number of slots
+theta=180/s
+k_p=cosd(theta/2)
+disp(k_p,'Coil span factor=')
\ No newline at end of file diff --git a/833/CH13/EX13.4/Ex13_4.txt b/833/CH13/EX13.4/Ex13_4.txt new file mode 100755 index 000000000..cda9f2503 --- /dev/null +++ b/833/CH13/EX13.4/Ex13_4.txt @@ -0,0 +1,9 @@ +//Caption:Find coil span factor
+//Exa:13.4
+clc;
+clear;
+close;
+s=9//Number of slots
+theta=180/s
+k_p=cosd(theta/2)
+disp(k_p,'Coil span factor=')
\ No newline at end of file diff --git a/833/CH13/EX13.4/Result13_4.txt b/833/CH13/EX13.4/Result13_4.txt new file mode 100755 index 000000000..ae9c2e268 --- /dev/null +++ b/833/CH13/EX13.4/Result13_4.txt @@ -0,0 +1,3 @@ + Coil span factor=
+
+ 0.9848078
\ No newline at end of file diff --git a/833/CH13/EX13.5/Ex13_5.sce b/833/CH13/EX13.5/Ex13_5.sce new file mode 100755 index 000000000..bed827766 --- /dev/null +++ b/833/CH13/EX13.5/Ex13_5.sce @@ -0,0 +1,25 @@ +//Caption:Find (a)frequency (b)Phase e.m.f (c)Line e.m.f
+//Exa:13.5
+clc;
+clear;
+close;
+ph=3//Number of phases
+p=16//Number of poles
+sl=144//Number of slots
+cs=10//Number of conductors per slot
+B=0.04//Flux per pole(in wb)
+n=375//Speed of alternator(in r.p.m)
+C_s=160//Coil Span(in degrees)
+f=(p*n)/120
+disp(f,'(a)Frequency(in hertz)=')
+ct=(sl*cs)/2
+nt=ct/ph
+m=sl/(p*ph)
+P_p=sl/p
+theta=180/P_p
+k_b=sind(m*(theta/2))/(m*sind(theta/2))
+k_p=cosd(theta/2)
+E_ph=4.44*B*f*nt*k_b*k_p
+disp(E_ph,'(b)Phase e.m.f(in volts)=')
+E_l=sqrt(3)*E_ph
+disp(E_l,'(c)Line e.m.f(in volts)=')
\ No newline at end of file diff --git a/833/CH13/EX13.5/Ex13_5.txt b/833/CH13/EX13.5/Ex13_5.txt new file mode 100755 index 000000000..bed827766 --- /dev/null +++ b/833/CH13/EX13.5/Ex13_5.txt @@ -0,0 +1,25 @@ +//Caption:Find (a)frequency (b)Phase e.m.f (c)Line e.m.f
+//Exa:13.5
+clc;
+clear;
+close;
+ph=3//Number of phases
+p=16//Number of poles
+sl=144//Number of slots
+cs=10//Number of conductors per slot
+B=0.04//Flux per pole(in wb)
+n=375//Speed of alternator(in r.p.m)
+C_s=160//Coil Span(in degrees)
+f=(p*n)/120
+disp(f,'(a)Frequency(in hertz)=')
+ct=(sl*cs)/2
+nt=ct/ph
+m=sl/(p*ph)
+P_p=sl/p
+theta=180/P_p
+k_b=sind(m*(theta/2))/(m*sind(theta/2))
+k_p=cosd(theta/2)
+E_ph=4.44*B*f*nt*k_b*k_p
+disp(E_ph,'(b)Phase e.m.f(in volts)=')
+E_l=sqrt(3)*E_ph
+disp(E_l,'(c)Line e.m.f(in volts)=')
\ No newline at end of file diff --git a/833/CH13/EX13.5/Result13_5.txt b/833/CH13/EX13.5/Result13_5.txt new file mode 100755 index 000000000..d310f2427 --- /dev/null +++ b/833/CH13/EX13.5/Result13_5.txt @@ -0,0 +1,11 @@ +(a)Frequency(in hertz)=
+
+ 50.
+
+ (b)Phase e.m.f(in volts)=
+
+ 2014.4393
+
+ (c)Line e.m.f(in volts)=
+
+ 3489.1112
\ No newline at end of file diff --git a/833/CH13/EX13.6/Ex13_6.sce b/833/CH13/EX13.6/Ex13_6.sce new file mode 100755 index 000000000..116ee2b58 --- /dev/null +++ b/833/CH13/EX13.6/Ex13_6.sce @@ -0,0 +1,19 @@ +//Caption:Find number of armature conductors in series per phase
+//Exa:13.6
+clc;
+clear;
+close;
+p=10//Number of poles
+ph=3//Number of phases
+n=600//Speed of alternator(in r.p.m)
+sl=90//Number of slots
+Vl=6600//Line voltage(in volts)
+B=0.1//Flux per pole(in wb)
+cs=160//Coil span(in degrees)
+kb=0.9597//Distribution factor
+kp=0.9848//Pitch factor
+v_ph=Vl/sqrt(3)
+f=(p*n)/120
+m=sl/(p*ph)
+T=2*v_ph/(4.44*kb*kp*B*f)
+disp(T,'Number of armature conductors in series per phase=')
\ No newline at end of file diff --git a/833/CH13/EX13.6/Ex13_6.txt b/833/CH13/EX13.6/Ex13_6.txt new file mode 100755 index 000000000..116ee2b58 --- /dev/null +++ b/833/CH13/EX13.6/Ex13_6.txt @@ -0,0 +1,19 @@ +//Caption:Find number of armature conductors in series per phase
+//Exa:13.6
+clc;
+clear;
+close;
+p=10//Number of poles
+ph=3//Number of phases
+n=600//Speed of alternator(in r.p.m)
+sl=90//Number of slots
+Vl=6600//Line voltage(in volts)
+B=0.1//Flux per pole(in wb)
+cs=160//Coil span(in degrees)
+kb=0.9597//Distribution factor
+kp=0.9848//Pitch factor
+v_ph=Vl/sqrt(3)
+f=(p*n)/120
+m=sl/(p*ph)
+T=2*v_ph/(4.44*kb*kp*B*f)
+disp(T,'Number of armature conductors in series per phase=')
\ No newline at end of file diff --git a/833/CH13/EX13.6/Result13_6.txt b/833/CH13/EX13.6/Result13_6.txt new file mode 100755 index 000000000..90b045bd6 --- /dev/null +++ b/833/CH13/EX13.6/Result13_6.txt @@ -0,0 +1,4 @@ +Number of armature conductors in series per phase=
+
+ 363.22589
+
\ No newline at end of file diff --git a/833/CH14/EX14.1/Ex14_1.sce b/833/CH14/EX14.1/Ex14_1.sce new file mode 100755 index 000000000..681aa2156 --- /dev/null +++ b/833/CH14/EX14.1/Ex14_1.sce @@ -0,0 +1,17 @@ +//Caption:Find the excitation voltage in per unit
+//Exa:14.1
+clc;
+clear;
+close;
+pf=0.9//Power factor
+Xd=1//Direct axis synchronous reactance(in per unit)
+Xq=0.6//Quadrature axis synchronous reactance(in per unit)
+V=1//Terminal voltage(in volts)
+ang=49//Phase angle between Ia and excitation voltage(in degrees)
+Ia=0.9-(%i*0.436)//Armature current(in A)
+v=(%i)*Ia*Xq
+E=V+v
+Id=sqrt(Ia*conj(Ia))*sind(ang)
+Iq=sqrt(Ia*conj(Ia))*cosd(ang)
+Ef=sqrt(E*conj(E))+(Id*(Xd-Xq))
+disp(Ef,'Excitation voltage (in per unit)=')
\ No newline at end of file diff --git a/833/CH14/EX14.1/Ex14_1.txt b/833/CH14/EX14.1/Ex14_1.txt new file mode 100755 index 000000000..681aa2156 --- /dev/null +++ b/833/CH14/EX14.1/Ex14_1.txt @@ -0,0 +1,17 @@ +//Caption:Find the excitation voltage in per unit
+//Exa:14.1
+clc;
+clear;
+close;
+pf=0.9//Power factor
+Xd=1//Direct axis synchronous reactance(in per unit)
+Xq=0.6//Quadrature axis synchronous reactance(in per unit)
+V=1//Terminal voltage(in volts)
+ang=49//Phase angle between Ia and excitation voltage(in degrees)
+Ia=0.9-(%i*0.436)//Armature current(in A)
+v=(%i)*Ia*Xq
+E=V+v
+Id=sqrt(Ia*conj(Ia))*sind(ang)
+Iq=sqrt(Ia*conj(Ia))*cosd(ang)
+Ef=sqrt(E*conj(E))+(Id*(Xd-Xq))
+disp(Ef,'Excitation voltage (in per unit)=')
\ No newline at end of file diff --git a/833/CH14/EX14.1/Result14_1.txt b/833/CH14/EX14.1/Result14_1.txt new file mode 100755 index 000000000..ed487ec1e --- /dev/null +++ b/833/CH14/EX14.1/Result14_1.txt @@ -0,0 +1,3 @@ +Excitation voltage (in per unit)=
+
+ 1.6742083
\ No newline at end of file diff --git a/833/CH14/EX14.10/Ex14_10.sce b/833/CH14/EX14.10/Ex14_10.sce new file mode 100755 index 000000000..4b3836eb2 --- /dev/null +++ b/833/CH14/EX14.10/Ex14_10.sce @@ -0,0 +1,23 @@ +//Caption:Find (a)Load supplied by second machine and its power factor (b)Power factor of total load
+//Exa:14.10
+clc;
+clear;
+close;
+P1=300//Lighting load(in KW)
+P2=500//Industrial load(in KW)
+P3=200//Industrial load(in KW)
+P4=100//Load(in KW)
+Pa=500//Power supplied by first machine(in KW)
+pf1=0.8
+pf2=0.707
+pf3=0.9
+pfa=0.8
+La=P1+P2+P3+P4
+Lr=(P2*tand(acosd(pf1)))+(P3*tand(acosd(pf2)))+(P4*tand(acosd(pf3)))
+Pb=La-Pa
+Prl=Pa*(tand(acosd(pfa)))
+Pc=Lr-Prl
+pfb=cosd(atand(Pc/Pb))
+pfl=cosd(atand(Lr/La))
+disp(pfb,Pb,'(a)Load supplied by second machine(in KW) and its power factor=')
+disp(pfl,'(b)Power factor of load=')
\ No newline at end of file diff --git a/833/CH14/EX14.10/Ex14_10.txt b/833/CH14/EX14.10/Ex14_10.txt new file mode 100755 index 000000000..4b3836eb2 --- /dev/null +++ b/833/CH14/EX14.10/Ex14_10.txt @@ -0,0 +1,23 @@ +//Caption:Find (a)Load supplied by second machine and its power factor (b)Power factor of total load
+//Exa:14.10
+clc;
+clear;
+close;
+P1=300//Lighting load(in KW)
+P2=500//Industrial load(in KW)
+P3=200//Industrial load(in KW)
+P4=100//Load(in KW)
+Pa=500//Power supplied by first machine(in KW)
+pf1=0.8
+pf2=0.707
+pf3=0.9
+pfa=0.8
+La=P1+P2+P3+P4
+Lr=(P2*tand(acosd(pf1)))+(P3*tand(acosd(pf2)))+(P4*tand(acosd(pf3)))
+Pb=La-Pa
+Prl=Pa*(tand(acosd(pfa)))
+Pc=Lr-Prl
+pfb=cosd(atand(Pc/Pb))
+pfl=cosd(atand(Lr/La))
+disp(pfb,Pb,'(a)Load supplied by second machine(in KW) and its power factor=')
+disp(pfl,'(b)Power factor of load=')
\ No newline at end of file diff --git a/833/CH14/EX14.10/Result14_10.txt b/833/CH14/EX14.10/Result14_10.txt new file mode 100755 index 000000000..fd6696bab --- /dev/null +++ b/833/CH14/EX14.10/Result14_10.txt @@ -0,0 +1,10 @@ +(a)Load supplied by second machine(in KW) and its power factor=
+
+ 600.
+
+ 0.9238989
+
+ (b)Power factor of load=
+
+ 0.8699681
+
\ No newline at end of file diff --git a/833/CH14/EX14.2/Ex14_2.sce b/833/CH14/EX14.2/Ex14_2.sce new file mode 100755 index 000000000..31812c67e --- /dev/null +++ b/833/CH14/EX14.2/Ex14_2.sce @@ -0,0 +1,17 @@ +//Caption:Find regulation by (a)Two reaction method, and (b)Synchronous impedance method
+//Exa:14.2
+clc;
+clear;
+close;
+pf=0.9//Power factor
+Xd=1//Direct axis synchronous reactance(in per unit)
+Xq=0.6//Quadrature axis synchronous reactance(in per unit)
+V=1//Terminal voltage(in volts)
+ang=49//Phase angle between Ia and excitation voltage(in degrees)
+Ia=0.9-(%i*0.436)//Armature current(in A)
+E=1.6742083//Excitation voltage(in per unit)
+re=(E-V)*100/V
+disp(re,'(a)Regulation by two reaction method(in%)=')
+Ef=V+(%i*Ia*Xd)
+RE=((sqrt(Ef*conj(Ef)))-V)*100/V
+disp(RE,'(b)Regulation by Synchronous impedance method(in%)=')
\ No newline at end of file diff --git a/833/CH14/EX14.2/Ex14_2.txt b/833/CH14/EX14.2/Ex14_2.txt new file mode 100755 index 000000000..31812c67e --- /dev/null +++ b/833/CH14/EX14.2/Ex14_2.txt @@ -0,0 +1,17 @@ +//Caption:Find regulation by (a)Two reaction method, and (b)Synchronous impedance method
+//Exa:14.2
+clc;
+clear;
+close;
+pf=0.9//Power factor
+Xd=1//Direct axis synchronous reactance(in per unit)
+Xq=0.6//Quadrature axis synchronous reactance(in per unit)
+V=1//Terminal voltage(in volts)
+ang=49//Phase angle between Ia and excitation voltage(in degrees)
+Ia=0.9-(%i*0.436)//Armature current(in A)
+E=1.6742083//Excitation voltage(in per unit)
+re=(E-V)*100/V
+disp(re,'(a)Regulation by two reaction method(in%)=')
+Ef=V+(%i*Ia*Xd)
+RE=((sqrt(Ef*conj(Ef)))-V)*100/V
+disp(RE,'(b)Regulation by Synchronous impedance method(in%)=')
\ No newline at end of file diff --git a/833/CH14/EX14.2/Result14_2.txt b/833/CH14/EX14.2/Result14_2.txt new file mode 100755 index 000000000..4d3678e87 --- /dev/null +++ b/833/CH14/EX14.2/Result14_2.txt @@ -0,0 +1,8 @@ + (a)Regulation by two reaction method(in%)=
+
+ 67.42083
+
+ (b)Regulation by Synchronous impedance method(in%)=
+
+ 69.472594
+
\ No newline at end of file diff --git a/833/CH14/EX14.3/Ex14_3.sce b/833/CH14/EX14.3/Ex14_3.sce new file mode 100755 index 000000000..e44c9602e --- /dev/null +++ b/833/CH14/EX14.3/Ex14_3.sce @@ -0,0 +1,15 @@ +//Caption:Find Regulation and resultant excitation
+//Exa:14.3
+clc;
+clear;
+close;
+pf=0.8//Power factor lagging
+P=1000//Power of Synchronous generator(in KVA)
+Eo=1.25//No load voltage(in per unit)
+V=6600//Voltage of Synchronous generator(in volts)
+f=50//Frequency(in hertz)
+Fe=1//Field excitation to produce terminal voltage(in per unit)
+Fa=1//Field excitation to produce full load current(in per unit)
+Ft=sqrt(((Fe+(Fa*sind(acosd(pf))))^2)+((Fa*pf)^2))
+Re=(Eo-Fa)*100/Fa
+disp(Re,Ft,'Resultant excitation(in per unit) and regulation(in %)=')
\ No newline at end of file diff --git a/833/CH14/EX14.3/Ex14_3.txt b/833/CH14/EX14.3/Ex14_3.txt new file mode 100755 index 000000000..e44c9602e --- /dev/null +++ b/833/CH14/EX14.3/Ex14_3.txt @@ -0,0 +1,15 @@ +//Caption:Find Regulation and resultant excitation
+//Exa:14.3
+clc;
+clear;
+close;
+pf=0.8//Power factor lagging
+P=1000//Power of Synchronous generator(in KVA)
+Eo=1.25//No load voltage(in per unit)
+V=6600//Voltage of Synchronous generator(in volts)
+f=50//Frequency(in hertz)
+Fe=1//Field excitation to produce terminal voltage(in per unit)
+Fa=1//Field excitation to produce full load current(in per unit)
+Ft=sqrt(((Fe+(Fa*sind(acosd(pf))))^2)+((Fa*pf)^2))
+Re=(Eo-Fa)*100/Fa
+disp(Re,Ft,'Resultant excitation(in per unit) and regulation(in %)=')
\ No newline at end of file diff --git a/833/CH14/EX14.3/Result14_3.txt b/833/CH14/EX14.3/Result14_3.txt new file mode 100755 index 000000000..7a03a90e7 --- /dev/null +++ b/833/CH14/EX14.3/Result14_3.txt @@ -0,0 +1,6 @@ +Resultant excitation(in per unit) and regulation(in %)=
+
+ 1.7888544
+
+ 25.
+
\ No newline at end of file diff --git a/833/CH14/EX14.5/Ex14_5.sce b/833/CH14/EX14.5/Ex14_5.sce new file mode 100755 index 000000000..4d94be635 --- /dev/null +++ b/833/CH14/EX14.5/Ex14_5.sce @@ -0,0 +1,9 @@ +//Caption:Find the regulation of the machine
+//Exa:14.5
+clc;
+clear;
+close;
+Vf=400//Full load voltage(in volts)
+Vr=480//No load voltage(in volts)
+Re=(Vr-Vf)*100/Vf
+disp(Re,'Regulation of the machine(in %)=')
\ No newline at end of file diff --git a/833/CH14/EX14.5/Ex14_5.txt b/833/CH14/EX14.5/Ex14_5.txt new file mode 100755 index 000000000..4d94be635 --- /dev/null +++ b/833/CH14/EX14.5/Ex14_5.txt @@ -0,0 +1,9 @@ +//Caption:Find the regulation of the machine
+//Exa:14.5
+clc;
+clear;
+close;
+Vf=400//Full load voltage(in volts)
+Vr=480//No load voltage(in volts)
+Re=(Vr-Vf)*100/Vf
+disp(Re,'Regulation of the machine(in %)=')
\ No newline at end of file diff --git a/833/CH14/EX14.5/Result14_5.txt b/833/CH14/EX14.5/Result14_5.txt new file mode 100755 index 000000000..4fcd1cba5 --- /dev/null +++ b/833/CH14/EX14.5/Result14_5.txt @@ -0,0 +1,4 @@ + Regulation of the machine(in %)=
+
+ 20.
+
\ No newline at end of file diff --git a/833/CH14/EX14.6/Ex14_6.sce b/833/CH14/EX14.6/Ex14_6.sce new file mode 100755 index 000000000..e73d1335a --- /dev/null +++ b/833/CH14/EX14.6/Ex14_6.sce @@ -0,0 +1,22 @@ +//Caption:Find (a)Synchronising power on full load (b)Synchronising torque
+//Exa:14.6
+clc;
+clear;
+close;
+P=5000//Power ofan alternator(in KVA)
+f=50//Frequency(in hertz)
+p=6//Number of poles
+V=11000//Voltageof alternator(in volts)
+pf=0.8//Power factor
+c=3//Mechanical degree of displacement(in degrees)
+Xs=5//Synchronous reactance per phase(in ohms)
+Vph=V/sqrt(3)
+ns=(120*f)/p
+If=(P*1000)/(sqrt(3)*V)
+E=sqrt(((Vph*pf)^2)+(((Vph*sind(acosd(pf)))+(If*Xs))^2))
+a=atand(((Vph*sind(acosd(pf)))+(If*Xs))/(Vph*pf))
+b=a-acosd(pf)
+Ps=(E*Vph*cosd(b)*sind(c))/Xs
+disp(Ps,'(a)Synchronising Poweron full load(in watt/phase)=')
+Ts=(Ps*3)/(2*%pi*(ns/60))
+disp(Ts,'(b)Synchronising Torque(in Nm)=')
\ No newline at end of file diff --git a/833/CH14/EX14.6/Ex14_6.txt b/833/CH14/EX14.6/Ex14_6.txt new file mode 100755 index 000000000..e73d1335a --- /dev/null +++ b/833/CH14/EX14.6/Ex14_6.txt @@ -0,0 +1,22 @@ +//Caption:Find (a)Synchronising power on full load (b)Synchronising torque
+//Exa:14.6
+clc;
+clear;
+close;
+P=5000//Power ofan alternator(in KVA)
+f=50//Frequency(in hertz)
+p=6//Number of poles
+V=11000//Voltageof alternator(in volts)
+pf=0.8//Power factor
+c=3//Mechanical degree of displacement(in degrees)
+Xs=5//Synchronous reactance per phase(in ohms)
+Vph=V/sqrt(3)
+ns=(120*f)/p
+If=(P*1000)/(sqrt(3)*V)
+E=sqrt(((Vph*pf)^2)+(((Vph*sind(acosd(pf)))+(If*Xs))^2))
+a=atand(((Vph*sind(acosd(pf)))+(If*Xs))/(Vph*pf))
+b=a-acosd(pf)
+Ps=(E*Vph*cosd(b)*sind(c))/Xs
+disp(Ps,'(a)Synchronising Poweron full load(in watt/phase)=')
+Ts=(Ps*3)/(2*%pi*(ns/60))
+disp(Ts,'(b)Synchronising Torque(in Nm)=')
\ No newline at end of file diff --git a/833/CH14/EX14.6/Result14_6.txt b/833/CH14/EX14.6/Result14_6.txt new file mode 100755 index 000000000..40bb554d4 --- /dev/null +++ b/833/CH14/EX14.6/Result14_6.txt @@ -0,0 +1,8 @@ + (a)Synchronising Poweron full load(in watt/phase)=
+
+ 474512.67
+
+ (b)Synchronising Torque(in Nm)=
+
+ 13593.787
+
\ No newline at end of file diff --git a/833/CH14/EX14.9/Ex14_9.sce b/833/CH14/EX14.9/Ex14_9.sce new file mode 100755 index 000000000..7695b9510 --- /dev/null +++ b/833/CH14/EX14.9/Ex14_9.sce @@ -0,0 +1,21 @@ +//Caption:Find (a)Armature current of second machine (b)Power factor of ecach machine
+//Exa:14.9
+clc;
+clear;
+close;
+L=1000//Total load(in KW)
+V=6600//Total voltage(in volts)
+pf=0.8//Power factor
+Ia=50//Armature current(in A)
+L1=L/2
+Ia1=(L1*1000)/(sqrt(3)*V)
+pf1=Ia1/Ia
+a1=acosd(pf1)
+b=tand(a1)
+P1=L1*b
+Pl=L*tand(acosd(pf))
+P2=P1-Pl
+pf2=cosd(atand(P2/L1))
+Ia2=Ia1/pf2
+disp(Ia2,'(a)Armature current of second machine(in A)=')
+disp(pf1,pf2,'(b)Power factor of both machines=')
\ No newline at end of file diff --git a/833/CH14/EX14.9/Ex14_9.txt b/833/CH14/EX14.9/Ex14_9.txt new file mode 100755 index 000000000..7695b9510 --- /dev/null +++ b/833/CH14/EX14.9/Ex14_9.txt @@ -0,0 +1,21 @@ +//Caption:Find (a)Armature current of second machine (b)Power factor of ecach machine
+//Exa:14.9
+clc;
+clear;
+close;
+L=1000//Total load(in KW)
+V=6600//Total voltage(in volts)
+pf=0.8//Power factor
+Ia=50//Armature current(in A)
+L1=L/2
+Ia1=(L1*1000)/(sqrt(3)*V)
+pf1=Ia1/Ia
+a1=acosd(pf1)
+b=tand(a1)
+P1=L1*b
+Pl=L*tand(acosd(pf))
+P2=P1-Pl
+pf2=cosd(atand(P2/L1))
+Ia2=Ia1/pf2
+disp(Ia2,'(a)Armature current of second machine(in A)=')
+disp(pf1,pf2,'(b)Power factor of both machines=')
\ No newline at end of file diff --git a/833/CH14/EX14.9/Result14_9.txt b/833/CH14/EX14.9/Result14_9.txt new file mode 100755 index 000000000..d8b7784b5 --- /dev/null +++ b/833/CH14/EX14.9/Result14_9.txt @@ -0,0 +1,10 @@ +(a)Armature current of second machine(in A)=
+
+ 60.21201
+
+ (b)Power factor of both machines=
+
+ 0.7264108
+
+ 0.8747731
+
\ No newline at end of file diff --git a/833/CH15/EX15.6/Ex15_6.sce b/833/CH15/EX15.6/Ex15_6.sce new file mode 100755 index 000000000..ca312c8d0 --- /dev/null +++ b/833/CH15/EX15.6/Ex15_6.sce @@ -0,0 +1,21 @@ +//Caption:Find (a)Input power(in KVA) (b)Power factor
+//Exa:15.6
+clc;
+clear;
+close;
+V=440//Voltage of circuit(in volts)
+f=50//Frequency(in hertz)
+I=30//Current taken by circuit(in A)
+pf=0.8//Power factor
+Pl=10//Load supplied(in KW)
+e=0.85//Efficiency
+Pi=Pl/e
+Ii=Pi*1000/(sqrt(3)*V)
+Ia=I*pf
+Ir=I*sind(acosd(pf))
+i=Ii+Ia
+It=sqrt((Ii^2)+(Ir^2))
+pfm=Ii/It
+Wi=sqrt(3)*V*It/(1000)
+disp(Wi,'(a)Input power(in KVA)=')
+disp(pfm,'(b)Power factor=')
\ No newline at end of file diff --git a/833/CH15/EX15.6/Ex15_6.txt b/833/CH15/EX15.6/Ex15_6.txt new file mode 100755 index 000000000..ca312c8d0 --- /dev/null +++ b/833/CH15/EX15.6/Ex15_6.txt @@ -0,0 +1,21 @@ +//Caption:Find (a)Input power(in KVA) (b)Power factor
+//Exa:15.6
+clc;
+clear;
+close;
+V=440//Voltage of circuit(in volts)
+f=50//Frequency(in hertz)
+I=30//Current taken by circuit(in A)
+pf=0.8//Power factor
+Pl=10//Load supplied(in KW)
+e=0.85//Efficiency
+Pi=Pl/e
+Ii=Pi*1000/(sqrt(3)*V)
+Ia=I*pf
+Ir=I*sind(acosd(pf))
+i=Ii+Ia
+It=sqrt((Ii^2)+(Ir^2))
+pfm=Ii/It
+Wi=sqrt(3)*V*It/(1000)
+disp(Wi,'(a)Input power(in KVA)=')
+disp(pfm,'(b)Power factor=')
\ No newline at end of file diff --git a/833/CH15/EX15.6/Result15_6.txt b/833/CH15/EX15.6/Result15_6.txt new file mode 100755 index 000000000..854f4632e --- /dev/null +++ b/833/CH15/EX15.6/Result15_6.txt @@ -0,0 +1,8 @@ +(a)Input power(in KVA)=
+
+ 18.071732
+
+ (b)Power factor=
+
+ 0.6510005
+
\ No newline at end of file diff --git a/833/CH15/EX15.7/Ex15_7.sce b/833/CH15/EX15.7/Ex15_7.sce new file mode 100755 index 000000000..7b8b32e47 --- /dev/null +++ b/833/CH15/EX15.7/Ex15_7.sce @@ -0,0 +1,16 @@ +//Caption:(a)How much KVA should be supplied by synchronous motor (b)Power factor of synchronous motor
+//Exa:15.7
+clc;
+clear;
+close;
+Pm=40//Power absorb by motor(in Kw)
+Pl=300//Load connected in parallel with motor(in KW)
+pfm=0.85//Power factor of motor
+pfl=0.9//Power factor on load
+Pt=Pl+Pm
+Pr=Pt*tand(acosd(pfl))
+Pri=Pl*tand(acosd(pfm))
+Ps=Pri-Pr
+pf=cosd(atand(Ps/Pm))
+disp(Ps,'(a)Power supplied by synchronous motor(in KVA)=')
+disp(pf,'(b)Power factor of synchronous machine=')
\ No newline at end of file diff --git a/833/CH15/EX15.7/Ex15_7.txt b/833/CH15/EX15.7/Ex15_7.txt new file mode 100755 index 000000000..7b8b32e47 --- /dev/null +++ b/833/CH15/EX15.7/Ex15_7.txt @@ -0,0 +1,16 @@ +//Caption:(a)How much KVA should be supplied by synchronous motor (b)Power factor of synchronous motor
+//Exa:15.7
+clc;
+clear;
+close;
+Pm=40//Power absorb by motor(in Kw)
+Pl=300//Load connected in parallel with motor(in KW)
+pfm=0.85//Power factor of motor
+pfl=0.9//Power factor on load
+Pt=Pl+Pm
+Pr=Pt*tand(acosd(pfl))
+Pri=Pl*tand(acosd(pfm))
+Ps=Pri-Pr
+pf=cosd(atand(Ps/Pm))
+disp(Ps,'(a)Power supplied by synchronous motor(in KVA)=')
+disp(pf,'(b)Power factor of synchronous machine=')
\ No newline at end of file diff --git a/833/CH15/EX15.7/Result15_7.txt b/833/CH15/EX15.7/Result15_7.txt new file mode 100755 index 000000000..b06e1165b --- /dev/null +++ b/833/CH15/EX15.7/Result15_7.txt @@ -0,0 +1,8 @@ +(a)Power supplied by synchronous motor(in KVA)=
+
+ 21.253786
+
+ (b)Power factor of synchronous machine=
+
+ 0.8830811
+
\ No newline at end of file diff --git a/833/CH15/EX15.8/Ex15_8.sce b/833/CH15/EX15.8/Ex15_8.sce new file mode 100755 index 000000000..5d466c0aa --- /dev/null +++ b/833/CH15/EX15.8/Ex15_8.sce @@ -0,0 +1,16 @@ +//Caption: (a)Power alternator can supply (b)Power factor of synchronous motor (c)Load taken by motor
+//Exa:15.8
+clc;
+clear;
+close;
+P=500//Load supplied by alternator(inKW)
+pf=0.8//Power factor
+e=0.9
+L=P/pf
+Ps=L-P
+disp(Ps,'(a)Power alternator can supply(in KW)=')
+Pr=P*tand(acosd(pf))
+pfm=cosd(atand(Pr/Ps))
+disp(pfm,'(b)Power factor of synchronous motor=')
+l=Ps*e
+disp(l,'(c)Load taken by motor(in Kw)=')
\ No newline at end of file diff --git a/833/CH15/EX15.8/Ex15_8.txt b/833/CH15/EX15.8/Ex15_8.txt new file mode 100755 index 000000000..5d466c0aa --- /dev/null +++ b/833/CH15/EX15.8/Ex15_8.txt @@ -0,0 +1,16 @@ +//Caption: (a)Power alternator can supply (b)Power factor of synchronous motor (c)Load taken by motor
+//Exa:15.8
+clc;
+clear;
+close;
+P=500//Load supplied by alternator(inKW)
+pf=0.8//Power factor
+e=0.9
+L=P/pf
+Ps=L-P
+disp(Ps,'(a)Power alternator can supply(in KW)=')
+Pr=P*tand(acosd(pf))
+pfm=cosd(atand(Pr/Ps))
+disp(pfm,'(b)Power factor of synchronous motor=')
+l=Ps*e
+disp(l,'(c)Load taken by motor(in Kw)=')
\ No newline at end of file diff --git a/833/CH15/EX15.8/Result15_8.txt b/833/CH15/EX15.8/Result15_8.txt new file mode 100755 index 000000000..cf08eb280 --- /dev/null +++ b/833/CH15/EX15.8/Result15_8.txt @@ -0,0 +1,12 @@ +(a)Power alternator can supply(in KW)=
+
+ 125.
+
+ (b)Power factor of synchronous motor=
+
+ 0.3162278
+
+ (c)Load taken by motor(in Kw)=
+
+ 112.5
+
\ No newline at end of file diff --git a/833/CH15/EX15.9/Ex15_9.sce b/833/CH15/EX15.9/Ex15_9.sce new file mode 100755 index 000000000..6cc6f980a --- /dev/null +++ b/833/CH15/EX15.9/Ex15_9.sce @@ -0,0 +1,22 @@ +//Caption:Find efficiency of machine
+//Exa:15.9
+clc;
+clear;
+close;
+P=50000//Power of alternator(in KVA)
+V=11//Voltage of alternator(in Kv)
+pf=0.8//Power factor
+r=0.01//Resistance of stator winding per phase(in ohms)
+Wc=150//Copper loss(in KW)
+Wf=100//Friction loss(in KW)
+Ww=250//Winding loss(in KW)
+Wco=200//Core loss(in KW)
+We=15//Excitor loss(in KW)
+Is=(P*1000)/(sqrt(3)*V*1000)
+Ps=(Is^2)*3*(r/1000)
+Ws=(0.5*Ps)
+Lt=Ps+Ws+Wc+Wf+Ww+Wco+We
+Po=P*pf
+Pi=Po+Lt
+e=Po*100/Pi
+disp(e,'Efficieny of machine(in %)=')
\ No newline at end of file diff --git a/833/CH15/EX15.9/Ex15_9.txt b/833/CH15/EX15.9/Ex15_9.txt new file mode 100755 index 000000000..6cc6f980a --- /dev/null +++ b/833/CH15/EX15.9/Ex15_9.txt @@ -0,0 +1,22 @@ +//Caption:Find efficiency of machine
+//Exa:15.9
+clc;
+clear;
+close;
+P=50000//Power of alternator(in KVA)
+V=11//Voltage of alternator(in Kv)
+pf=0.8//Power factor
+r=0.01//Resistance of stator winding per phase(in ohms)
+Wc=150//Copper loss(in KW)
+Wf=100//Friction loss(in KW)
+Ww=250//Winding loss(in KW)
+Wco=200//Core loss(in KW)
+We=15//Excitor loss(in KW)
+Is=(P*1000)/(sqrt(3)*V*1000)
+Ps=(Is^2)*3*(r/1000)
+Ws=(0.5*Ps)
+Lt=Ps+Ws+Wc+Wf+Ww+Wco+We
+Po=P*pf
+Pi=Po+Lt
+e=Po*100/Pi
+disp(e,'Efficieny of machine(in %)=')
\ No newline at end of file diff --git a/833/CH15/EX15.9/Result15_9.txt b/833/CH15/EX15.9/Result15_9.txt new file mode 100755 index 000000000..1c16ea80b --- /dev/null +++ b/833/CH15/EX15.9/Result15_9.txt @@ -0,0 +1,4 @@ + Efficieny of machine(in %)=
+
+ 97.50172
+
\ No newline at end of file diff --git a/833/CH16/EX16.1/Ex16_1.sce b/833/CH16/EX16.1/Ex16_1.sce new file mode 100755 index 000000000..550ab776a --- /dev/null +++ b/833/CH16/EX16.1/Ex16_1.sce @@ -0,0 +1,45 @@ +//Caption:Find (a)Input Current (b)Power factor (c)Input power (d)Torque due to forward revolving field (e)Torque due to backward revovlving field (f)Net torque (g)Output And (h)Efficiency
+//Exa:16.1
+clc;
+clear;
+close;
+Pi=750//Power of Single phase induction motor(in Watts)
+p=4//Number of poles
+f=50//Frequency(in hertz)
+V=230//Voltage supplied to motor(in volts)
+R1=2//Resistance of stator(in ohm)
+X1=2.6//Reactance of stator(in ohm)
+Wf=25//Friction and winding loss(in Watts)
+R2=3.8//Resistance of rotor(in ohm)
+X2=2.6//Reactance of rotor(in ohm)
+Xm=56//Magnetising Reactance(in ohms)
+r2=1.9//Imaginary resistance of rotor(in ohm)
+x2=1.3//Imaginary reactance of rotor(in ohm)
+xm=28//Imaginary magnetising reactance(in ohm)
+s=0.05//Slip
+Z1=R1+(%i*X1)
+Z2=((%i*xm)*((r2/s)+(%i*x2)))/((r2/s)+(%i*(x2+xm)))
+Z3=((%i*xm)*((r2/(2-s))+(%i*x2)))/((r2/(2-s))+(%i*(x2+xm)))
+Z=Z1+Z2+Z3
+I=V/Z
+disp(I,'(a)Input Current(in A)=')
+pf=cosd(atand(imag(Z)/real(Z)))
+disp(pf,'(b)Power factor=')
+Wp=V*pf*sqrt(I*conj(I))
+disp(Wp,'(c)Input power(in watts)=')
+z2=sqrt(((r2/s)^2)+((x2)^2))
+v2=sqrt(I*conj(I))*sqrt(Z2*conj(Z2))
+i2=v2/z2
+z3=sqrt(((r2/(2-s))^2)+((x2)^2))
+v3=sqrt(I*conj(I))*sqrt(Z3*conj(Z3))
+i3=v3/z3
+Tf=((i2)^2)*(r2/s)
+disp(Tf,'(d)Torque due to forward field(in Nm)=')
+Tb=(i3^2)*(r2)/(2-s)
+disp(Tb,'(e)Torque due to backward field(in Nm)=')
+T=Tf-Tb
+disp(T,'(f)Torque(in Nm)=')
+Wo=(T*(1-s))-Wf
+disp(Wo,'(g)Output(in Watts)=')
+e=(Wo/Wp)*100
+disp(e,'(h)Efficiency(in %)=')
\ No newline at end of file diff --git a/833/CH16/EX16.1/Ex16_1.txt b/833/CH16/EX16.1/Ex16_1.txt new file mode 100755 index 000000000..550ab776a --- /dev/null +++ b/833/CH16/EX16.1/Ex16_1.txt @@ -0,0 +1,45 @@ +//Caption:Find (a)Input Current (b)Power factor (c)Input power (d)Torque due to forward revolving field (e)Torque due to backward revovlving field (f)Net torque (g)Output And (h)Efficiency
+//Exa:16.1
+clc;
+clear;
+close;
+Pi=750//Power of Single phase induction motor(in Watts)
+p=4//Number of poles
+f=50//Frequency(in hertz)
+V=230//Voltage supplied to motor(in volts)
+R1=2//Resistance of stator(in ohm)
+X1=2.6//Reactance of stator(in ohm)
+Wf=25//Friction and winding loss(in Watts)
+R2=3.8//Resistance of rotor(in ohm)
+X2=2.6//Reactance of rotor(in ohm)
+Xm=56//Magnetising Reactance(in ohms)
+r2=1.9//Imaginary resistance of rotor(in ohm)
+x2=1.3//Imaginary reactance of rotor(in ohm)
+xm=28//Imaginary magnetising reactance(in ohm)
+s=0.05//Slip
+Z1=R1+(%i*X1)
+Z2=((%i*xm)*((r2/s)+(%i*x2)))/((r2/s)+(%i*(x2+xm)))
+Z3=((%i*xm)*((r2/(2-s))+(%i*x2)))/((r2/(2-s))+(%i*(x2+xm)))
+Z=Z1+Z2+Z3
+I=V/Z
+disp(I,'(a)Input Current(in A)=')
+pf=cosd(atand(imag(Z)/real(Z)))
+disp(pf,'(b)Power factor=')
+Wp=V*pf*sqrt(I*conj(I))
+disp(Wp,'(c)Input power(in watts)=')
+z2=sqrt(((r2/s)^2)+((x2)^2))
+v2=sqrt(I*conj(I))*sqrt(Z2*conj(Z2))
+i2=v2/z2
+z3=sqrt(((r2/(2-s))^2)+((x2)^2))
+v3=sqrt(I*conj(I))*sqrt(Z3*conj(Z3))
+i3=v3/z3
+Tf=((i2)^2)*(r2/s)
+disp(Tf,'(d)Torque due to forward field(in Nm)=')
+Tb=(i3^2)*(r2)/(2-s)
+disp(Tb,'(e)Torque due to backward field(in Nm)=')
+T=Tf-Tb
+disp(T,'(f)Torque(in Nm)=')
+Wo=(T*(1-s))-Wf
+disp(Wo,'(g)Output(in Watts)=')
+e=(Wo/Wp)*100
+disp(e,'(h)Efficiency(in %)=')
\ No newline at end of file diff --git a/833/CH16/EX16.1/Result16_1.txt b/833/CH16/EX16.1/Result16_1.txt new file mode 100755 index 000000000..3eb20def6 --- /dev/null +++ b/833/CH16/EX16.1/Result16_1.txt @@ -0,0 +1,32 @@ +(a)Input Current(in A)=
+
+ 4.9874006 - 6.8992325i
+
+ (b)Power factor=
+
+ 0.5858473
+
+ (c)Input power(in watts)=
+
+ 1147.1021
+
+ (d)Torque due to forward field(in Nm)=
+
+ 937.73814
+
+ (e)Torque due to backward field(in Nm)=
+
+ 64.416849
+
+ (f)Torque(in Nm)=
+
+ 873.32129
+
+ (g)Output(in Watts)=
+
+ 804.65523
+
+ (h)Efficiency(in %)=
+
+ 70.146781
+
\ No newline at end of file diff --git a/833/CH16/EX16.2/Ex16_2.sce b/833/CH16/EX16.2/Ex16_2.sce new file mode 100755 index 000000000..9f8ecc25e --- /dev/null +++ b/833/CH16/EX16.2/Ex16_2.sce @@ -0,0 +1,12 @@ +//Caption:Find equivalent circuit resistance
+//Exa:16.2
+clc;
+clear;
+close;
+Wc=60//Core loss(in watts)
+a=90//Voltage across first rotor is 90% of applied voltage(in %)
+V=230//Voltage applied to motor(in volts)
+v=V*(a/100)
+Ic=Wc/v
+rc=v/Ic
+disp(rc,'Equivalent circuit resistance(in ohms)=')
\ No newline at end of file diff --git a/833/CH16/EX16.2/Ex16_2.txt b/833/CH16/EX16.2/Ex16_2.txt new file mode 100755 index 000000000..9f8ecc25e --- /dev/null +++ b/833/CH16/EX16.2/Ex16_2.txt @@ -0,0 +1,12 @@ +//Caption:Find equivalent circuit resistance
+//Exa:16.2
+clc;
+clear;
+close;
+Wc=60//Core loss(in watts)
+a=90//Voltage across first rotor is 90% of applied voltage(in %)
+V=230//Voltage applied to motor(in volts)
+v=V*(a/100)
+Ic=Wc/v
+rc=v/Ic
+disp(rc,'Equivalent circuit resistance(in ohms)=')
\ No newline at end of file diff --git a/833/CH16/EX16.2/Result16_2.txt b/833/CH16/EX16.2/Result16_2.txt new file mode 100755 index 000000000..b0b0b896a --- /dev/null +++ b/833/CH16/EX16.2/Result16_2.txt @@ -0,0 +1,4 @@ + Equivalent circuit resistance(in ohms)=
+
+ 714.15
+
\ No newline at end of file diff --git a/833/CH17/EX17.1/Ex17_1.sce b/833/CH17/EX17.1/Ex17_1.sce new file mode 100755 index 000000000..722bf29e2 --- /dev/null +++ b/833/CH17/EX17.1/Ex17_1.sce @@ -0,0 +1,20 @@ +//Caption:Find (a)Speed (b)Power factor of motor
+//Exa:17.1
+clc;
+clear;
+close;
+r=25//Resistance of motor(in ohms)
+P=2//Number of poles
+l=0.4//Inductance of motor(in henry)
+n=1800//Speed of motor(in r.p.m)
+V=230//Voltage supplied(in volts)
+Il=1//Load current(in A)
+f=50//Frequency(in hertz)
+fr=(P*n)/120
+Eb=V-(r*Il)
+Er=Eb/fr
+fac=(sqrt((V^2)-((Il*2*(%pi)*f*l)^2))-(Il*r))/Er
+n=fac*(120/P)
+disp(n,'(a)Speed(in rpm)=')
+pf=sqrt((V^2)-((Il*2*(%pi)*f*l)^2))/V
+disp(pf,'(b)Power factor=')
\ No newline at end of file diff --git a/833/CH17/EX17.1/Ex17_1.txt b/833/CH17/EX17.1/Ex17_1.txt new file mode 100755 index 000000000..722bf29e2 --- /dev/null +++ b/833/CH17/EX17.1/Ex17_1.txt @@ -0,0 +1,20 @@ +//Caption:Find (a)Speed (b)Power factor of motor
+//Exa:17.1
+clc;
+clear;
+close;
+r=25//Resistance of motor(in ohms)
+P=2//Number of poles
+l=0.4//Inductance of motor(in henry)
+n=1800//Speed of motor(in r.p.m)
+V=230//Voltage supplied(in volts)
+Il=1//Load current(in A)
+f=50//Frequency(in hertz)
+fr=(P*n)/120
+Eb=V-(r*Il)
+Er=Eb/fr
+fac=(sqrt((V^2)-((Il*2*(%pi)*f*l)^2))-(Il*r))/Er
+n=fac*(120/P)
+disp(n,'(a)Speed(in rpm)=')
+pf=sqrt((V^2)-((Il*2*(%pi)*f*l)^2))/V
+disp(pf,'(b)Power factor=')
\ No newline at end of file diff --git a/833/CH17/EX17.1/Result17_1.txt b/833/CH17/EX17.1/Result17_1.txt new file mode 100755 index 000000000..a12d4c212 --- /dev/null +++ b/833/CH17/EX17.1/Result17_1.txt @@ -0,0 +1,8 @@ +(a)Speed(in rpm)=
+
+ 1471.926
+
+ (b)Power factor=
+
+ 0.8375479
+
\ No newline at end of file diff --git a/833/CH2/EX2.1/Ex2_1.sce b/833/CH2/EX2.1/Ex2_1.sce new file mode 100755 index 000000000..d81761fa5 --- /dev/null +++ b/833/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,22 @@ +//Caption:Find (a)all day efficiency (b)commercial efficiency on full load (c)efficiency on half load
+//Exa:2_1
+clc;
+clear;
+close;
+P_s=50//Power supplied(in kVA)
+V_1=440//Primary side voltage(in volt)
+V_2=220//Secondary side voltage(in volt)
+t_1=6//Full load(in hours)
+t_2=2//50% load(in hours)
+Cu_1=2//Copper loss on full load(in KW)
+Fe=1//Iron losses(in KW)
+E_1=P_s*t_1//Energy used on full load(in watt-hours)
+E_2=0.5*P_s*t_2//Energy used on half load(in watt-hours)
+Cu_2=Cu_1*0.25//Copper losses on half load(in watts)
+E=(Cu_1*t_1)+(Cu_2*t_2)+(Fe*24)//Energy lost on losses(in watt-hours)
+eff_1=(E_1+E_2)/(E_1+E_2+E)*100
+disp(eff_1,'(a)All day efficiency(in%)=')
+eff_2=(E_2)/(E_2+Cu_1+Fe)*100
+disp(eff_2,'(b)commercial efficiency on full load(in%)=')
+eff_3=(0.5*E_2)/(0.5*E_2+Cu_2+Fe)*100
+disp(eff_3,'(c)efficiency on half load(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.1/Ex2_1.txt b/833/CH2/EX2.1/Ex2_1.txt new file mode 100755 index 000000000..d81761fa5 --- /dev/null +++ b/833/CH2/EX2.1/Ex2_1.txt @@ -0,0 +1,22 @@ +//Caption:Find (a)all day efficiency (b)commercial efficiency on full load (c)efficiency on half load
+//Exa:2_1
+clc;
+clear;
+close;
+P_s=50//Power supplied(in kVA)
+V_1=440//Primary side voltage(in volt)
+V_2=220//Secondary side voltage(in volt)
+t_1=6//Full load(in hours)
+t_2=2//50% load(in hours)
+Cu_1=2//Copper loss on full load(in KW)
+Fe=1//Iron losses(in KW)
+E_1=P_s*t_1//Energy used on full load(in watt-hours)
+E_2=0.5*P_s*t_2//Energy used on half load(in watt-hours)
+Cu_2=Cu_1*0.25//Copper losses on half load(in watts)
+E=(Cu_1*t_1)+(Cu_2*t_2)+(Fe*24)//Energy lost on losses(in watt-hours)
+eff_1=(E_1+E_2)/(E_1+E_2+E)*100
+disp(eff_1,'(a)All day efficiency(in%)=')
+eff_2=(E_2)/(E_2+Cu_1+Fe)*100
+disp(eff_2,'(b)commercial efficiency on full load(in%)=')
+eff_3=(0.5*E_2)/(0.5*E_2+Cu_2+Fe)*100
+disp(eff_3,'(c)efficiency on half load(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.1/Result2_1.txt b/833/CH2/EX2.1/Result2_1.txt new file mode 100755 index 000000000..9f444818a --- /dev/null +++ b/833/CH2/EX2.1/Result2_1.txt @@ -0,0 +1,11 @@ +(a)All day efficiency(in%)=
+
+ 90.439276
+
+ (b)commercial efficiency on full load(in%)=
+
+ 94.339623
+
+ (c)efficiency on half load(in%)=
+
+ 94.339623
\ No newline at end of file diff --git a/833/CH2/EX2.2/Ex2_2.sce b/833/CH2/EX2.2/Ex2_2.sce new file mode 100755 index 000000000..e6b124125 --- /dev/null +++ b/833/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,20 @@ +//Caption:Find (a)Efficiency of transformer at half load at 0.8 power factor lagging (b)At what load will the efficiency be maximum and maximum efficiency?
+//Exa:2.2
+clc;
+clear;
+close;
+P_s=25000//Power supplied(in VA)
+V_1=3300//Voltage on primary side(in volts)
+V_2=230//Voltage on secondary side(in volts)
+f=50//frequency(in hertz)
+P_i=300//Iron loss(in watt)
+P_c=400//Copper loss(in watt)
+pf=0.8//Power factor
+Cu=P_c*(0.5^2)//Copper loss on half load
+P_o=P_s*0.5*pf//Output of transformer on half load
+eff=(P_o)/(P_o+Cu+P_i)*100
+disp(eff,'(a)Efficiency of transformer at half load(in %)=')
+x=sqrt(P_i/P_c)*20000
+disp(x,'(b)Load for maximum efficiency(in watt)=')
+eff_max=(x)/(x+P_i+P_i)*100
+disp(eff_max,'Maximum efficiency(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.2/Ex2_2.txt b/833/CH2/EX2.2/Ex2_2.txt new file mode 100755 index 000000000..f5a2f9a58 --- /dev/null +++ b/833/CH2/EX2.2/Ex2_2.txt @@ -0,0 +1,20 @@ +//Caption:Find (a)Efficiency of transformer at half load at 0.8 power factor lagging (b)At what load will the efficiency be maximum and maximum?
+//Exa:2.2
+clc;
+clear;
+close;
+P_s=25000//Power supplied(in VA)
+V_1=3300//Voltage on primary side(in volts)
+V_2=230//Voltage on secondary side(in volts)
+f=50//frequency(in hertz)
+P_i=300//Iron loss(in watt)
+P_c=400//Copper loss(in watt)
+pf=0.8//Power factor
+Cu=P_c*(0.5^2)//Copper loss on half load
+P_o=P_s*0.5*pf//Output of transformer on half load
+eff=(P_o)/(P_o+Cu+P_i)*100
+disp(eff,'(a)Efficiency of transformer at half load(in %)=')
+x=sqrt(P_i/P_c)*20000
+disp(x,'(b)Load for maximum efficiency(in watt)=')
+eff_max=(x)/(x+P_i+P_i)*100
+disp(eff_max,'Maximum efficiency(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.2/Result2_2.txt b/833/CH2/EX2.2/Result2_2.txt new file mode 100755 index 000000000..f501d857e --- /dev/null +++ b/833/CH2/EX2.2/Result2_2.txt @@ -0,0 +1,12 @@ +(a)Efficiency of transformer at half load(in %)=
+
+ 96.153846
+
+ (b)Load for maximum efficiency(in watt)=
+
+ 17320.508
+
+ Maximum efficiency(in%)=
+
+ 96.651881
+
\ No newline at end of file diff --git a/833/CH2/EX2.3/Ex2_3.sce b/833/CH2/EX2.3/Ex2_3.sce new file mode 100755 index 000000000..d140ead88 --- /dev/null +++ b/833/CH2/EX2.3/Ex2_3.sce @@ -0,0 +1,19 @@ +//Caption:Find (a)% resistance (b)Regulation for power factors- unity, 0.8 lagging and 0.8 leading
+//Exa:2_3
+clc;
+clear;
+close;
+L_o=1//Ohmic loss(%)
+X=6//Reactance(in %)
+pf_1=0.8//lagging power factor
+pf_2=0.8//leading power factor
+R=L_o
+disp(R,'(a)% resistance(in %)=')
+Re_1=L_o
+disp(Re_1,'(b)Regulation at unity power factor(in%)=')
+theta=(acosd(pf_1))
+a=sind(theta)
+Re_2=L_o*pf_1+X*a
+disp(Re_2,'Regulation at 0.8 lagging power factor(in%)=')
+Re_3=L_o*pf_2-X*a
+disp(Re_3,'Regulation at leading power factor(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.3/Ex2_3.txt b/833/CH2/EX2.3/Ex2_3.txt new file mode 100755 index 000000000..d140ead88 --- /dev/null +++ b/833/CH2/EX2.3/Ex2_3.txt @@ -0,0 +1,19 @@ +//Caption:Find (a)% resistance (b)Regulation for power factors- unity, 0.8 lagging and 0.8 leading
+//Exa:2_3
+clc;
+clear;
+close;
+L_o=1//Ohmic loss(%)
+X=6//Reactance(in %)
+pf_1=0.8//lagging power factor
+pf_2=0.8//leading power factor
+R=L_o
+disp(R,'(a)% resistance(in %)=')
+Re_1=L_o
+disp(Re_1,'(b)Regulation at unity power factor(in%)=')
+theta=(acosd(pf_1))
+a=sind(theta)
+Re_2=L_o*pf_1+X*a
+disp(Re_2,'Regulation at 0.8 lagging power factor(in%)=')
+Re_3=L_o*pf_2-X*a
+disp(Re_3,'Regulation at leading power factor(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.3/Result2_3.txt b/833/CH2/EX2.3/Result2_3.txt new file mode 100755 index 000000000..b49f69141 --- /dev/null +++ b/833/CH2/EX2.3/Result2_3.txt @@ -0,0 +1,16 @@ +(a)% resistance(in %)=
+
+ 1.
+
+ (b)Regulation at unity power factor(in%)=
+
+ 1.
+
+ Regulation at 0.8 lagging power factor(in%)=
+
+ 4.4
+
+ Regulation at leading power factor(in%)=
+
+ - 2.8
+
\ No newline at end of file diff --git a/833/CH2/EX2.4/Ex2_4.sce b/833/CH2/EX2.4/Ex2_4.sce new file mode 100755 index 000000000..77ab56622 --- /dev/null +++ b/833/CH2/EX2.4/Ex2_4.sce @@ -0,0 +1,29 @@ +//Caption:Find Regulation on full load at 0.8 power factor lagging
+//Exa:2_4
+clc;
+clear;
+close;
+P_s=500000//Power supplied(in VA)
+V_1=2200//Voltage on primary side(in volt)
+V_2=500//Voltage on secondary side(in volt)
+f=50//frequency(in hertz)
+Eff=97//Efficiency of transformer(in %)
+Eff_m=75//Maximum efficiency(in %) of its full load
+Z_1=10//Impedance(in %)
+pf_1=1//Power factor for maximum efficiency
+pf_2=0.8//Power factor lagging
+I_fl=P_s/V_2
+I=(Eff_m*I_fl)/100
+Losses=(100-Eff)/100
+Cu=Losses/2
+Fe=Losses/2
+C=(Cu*P_s*Eff_m)/100
+R=C/(I^2)
+V=(Z_1*V_2)/100
+Z=V/I_fl
+X=sqrt(Z^2-R^2)
+theta=(acosd(pf_2))
+Re=(I_fl*R*pf_2)+(I_fl*X*sind(theta))
+disp(Re,'Regulation on full load at 0.8 power factor lagging(in volt)=')
+Reg=(Re/V_2)*100
+disp(Reg,'Percentage Regulation(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.4/Ex2_4.txt b/833/CH2/EX2.4/Ex2_4.txt new file mode 100755 index 000000000..77ab56622 --- /dev/null +++ b/833/CH2/EX2.4/Ex2_4.txt @@ -0,0 +1,29 @@ +//Caption:Find Regulation on full load at 0.8 power factor lagging
+//Exa:2_4
+clc;
+clear;
+close;
+P_s=500000//Power supplied(in VA)
+V_1=2200//Voltage on primary side(in volt)
+V_2=500//Voltage on secondary side(in volt)
+f=50//frequency(in hertz)
+Eff=97//Efficiency of transformer(in %)
+Eff_m=75//Maximum efficiency(in %) of its full load
+Z_1=10//Impedance(in %)
+pf_1=1//Power factor for maximum efficiency
+pf_2=0.8//Power factor lagging
+I_fl=P_s/V_2
+I=(Eff_m*I_fl)/100
+Losses=(100-Eff)/100
+Cu=Losses/2
+Fe=Losses/2
+C=(Cu*P_s*Eff_m)/100
+R=C/(I^2)
+V=(Z_1*V_2)/100
+Z=V/I_fl
+X=sqrt(Z^2-R^2)
+theta=(acosd(pf_2))
+Re=(I_fl*R*pf_2)+(I_fl*X*sind(theta))
+disp(Re,'Regulation on full load at 0.8 power factor lagging(in volt)=')
+Reg=(Re/V_2)*100
+disp(Reg,'Percentage Regulation(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.4/Result2_4.txt b/833/CH2/EX2.4/Result2_4.txt new file mode 100755 index 000000000..998c015a5 --- /dev/null +++ b/833/CH2/EX2.4/Result2_4.txt @@ -0,0 +1,7 @@ + Regulation on full load at 0.8 power factor lagging(in volt)=
+
+ 37.393877
+
+ Percentage Regulation(in%)=
+
+ 7.4787754
\ No newline at end of file diff --git a/833/CH2/EX2.5/Ex2_5.sce b/833/CH2/EX2.5/Ex2_5.sce new file mode 100755 index 000000000..fc8b081b8 --- /dev/null +++ b/833/CH2/EX2.5/Ex2_5.sce @@ -0,0 +1,28 @@ +//Caption: Find:(a) R_o (b)X_o (c)Resistance reffered to l.v side (d)Reactance reffered to l.v side
+//Exa:2.5
+clc;
+clear;
+close;
+P_s=5000//Power Supplied(in VA)
+V_1=220//Primary side voltage(in volt)
+V_2=440//Secondary side voltage(in volt)
+f=50//frequency(in hertz)
+I_o=0.75//Open circuit test current(in A)
+P_o=75//Open circuit test power(in watt)
+V_s=16//Short circuit test voltage(in volt)
+P_c=80//Short circuit test power(in watt)
+pf=(P_o)/(V_1*I_o)
+a=sind(acosd(pf))
+R_o=(V_1)/(I_o*pf)
+disp(R_o,'(a)R_o(in ohms)=')
+X_o=(V_1)/(I_o*a)
+disp(X_o,'(b)X_o(in ohms)=')
+I_l=P_s/V_2
+Z=V_s/I_l
+R=(P_c)/(I_l^2)
+X=sqrt(Z^2-R^2)
+n=V_2/V_1
+r=(R)/(n^2)
+disp(r','(c)resistance reffered to low voltage side(in ohms)=')
+x=(X)/(n^2)
+disp(x,'(d)reactane reffered to low voltage side(in ohms)=')
\ No newline at end of file diff --git a/833/CH2/EX2.5/Ex2_5.txt b/833/CH2/EX2.5/Ex2_5.txt new file mode 100755 index 000000000..fc8b081b8 --- /dev/null +++ b/833/CH2/EX2.5/Ex2_5.txt @@ -0,0 +1,28 @@ +//Caption: Find:(a) R_o (b)X_o (c)Resistance reffered to l.v side (d)Reactance reffered to l.v side
+//Exa:2.5
+clc;
+clear;
+close;
+P_s=5000//Power Supplied(in VA)
+V_1=220//Primary side voltage(in volt)
+V_2=440//Secondary side voltage(in volt)
+f=50//frequency(in hertz)
+I_o=0.75//Open circuit test current(in A)
+P_o=75//Open circuit test power(in watt)
+V_s=16//Short circuit test voltage(in volt)
+P_c=80//Short circuit test power(in watt)
+pf=(P_o)/(V_1*I_o)
+a=sind(acosd(pf))
+R_o=(V_1)/(I_o*pf)
+disp(R_o,'(a)R_o(in ohms)=')
+X_o=(V_1)/(I_o*a)
+disp(X_o,'(b)X_o(in ohms)=')
+I_l=P_s/V_2
+Z=V_s/I_l
+R=(P_c)/(I_l^2)
+X=sqrt(Z^2-R^2)
+n=V_2/V_1
+r=(R)/(n^2)
+disp(r','(c)resistance reffered to low voltage side(in ohms)=')
+x=(X)/(n^2)
+disp(x,'(d)reactane reffered to low voltage side(in ohms)=')
\ No newline at end of file diff --git a/833/CH2/EX2.5/Result2_5.txt b/833/CH2/EX2.5/Result2_5.txt new file mode 100755 index 000000000..d8ec18453 --- /dev/null +++ b/833/CH2/EX2.5/Result2_5.txt @@ -0,0 +1,16 @@ +(a)R_o(in ohms)=
+
+ 645.33333
+
+ (b)X_o(in ohms)=
+
+ 329.32029
+
+ (c)resistance reffered to low voltage side(in ohms)=
+
+ 0.15488
+
+ (d)reactane reffered to low voltage side(in ohms)=
+
+ 0.3160952
+
\ No newline at end of file diff --git a/833/CH2/EX2.6/Ex2_6.sce b/833/CH2/EX2.6/Ex2_6.sce new file mode 100755 index 000000000..dde90ce87 --- /dev/null +++ b/833/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,20 @@ +//Caption:Find voltage for h.v voltage side on full load at 0.8 power factor lagging when secondary terminal voltage is 240 volts
+//Exa:2.6
+clc;
+clear;
+close;
+P_s=100000//Supplied power(in VA)
+V_1=6600//Primary side voltage(in volt)
+V_2=240//Secondary side voltage(in volt)
+f=50//frequency(in hertz)
+I_sh=5//short circuit test current(in A)
+P_sh=109//short circuit test power(in watt)
+V_sh=50//short circuit test voltage(in volt)
+pf=0.8//Power factor
+Z=V_sh/I_sh
+R=P_sh/(I_sh^2)
+X=sqrt(Z^2-R^2)
+I_l=P_s/V_1
+Re=(I_l*R*pf)+(I_l*X*sind(acosd(pf)))
+V_r=Re+V_1
+disp(V_r,'Voltage for high voltage side on full load at 0.8 power factor lagging when secondary terminal voltage is 240 volts(in volt)=')
\ No newline at end of file diff --git a/833/CH2/EX2.6/Ex2_6.txt b/833/CH2/EX2.6/Ex2_6.txt new file mode 100755 index 000000000..dde90ce87 --- /dev/null +++ b/833/CH2/EX2.6/Ex2_6.txt @@ -0,0 +1,20 @@ +//Caption:Find voltage for h.v voltage side on full load at 0.8 power factor lagging when secondary terminal voltage is 240 volts
+//Exa:2.6
+clc;
+clear;
+close;
+P_s=100000//Supplied power(in VA)
+V_1=6600//Primary side voltage(in volt)
+V_2=240//Secondary side voltage(in volt)
+f=50//frequency(in hertz)
+I_sh=5//short circuit test current(in A)
+P_sh=109//short circuit test power(in watt)
+V_sh=50//short circuit test voltage(in volt)
+pf=0.8//Power factor
+Z=V_sh/I_sh
+R=P_sh/(I_sh^2)
+X=sqrt(Z^2-R^2)
+I_l=P_s/V_1
+Re=(I_l*R*pf)+(I_l*X*sind(acosd(pf)))
+V_r=Re+V_1
+disp(V_r,'Voltage for high voltage side on full load at 0.8 power factor lagging when secondary terminal voltage is 240 volts(in volt)=')
\ No newline at end of file diff --git a/833/CH2/EX2.6/Result2_6.txt b/833/CH2/EX2.6/Result2_6.txt new file mode 100755 index 000000000..a2f7358a2 --- /dev/null +++ b/833/CH2/EX2.6/Result2_6.txt @@ -0,0 +1,4 @@ +Voltage for high voltage side on full load at 0.8 power factor lagging when secondary terminal voltage is 240 volts(in volt)=
+
+ 6734.6618
+
\ No newline at end of file diff --git a/833/CH2/EX2.7/Ex2_7.sce b/833/CH2/EX2.7/Ex2_7.sce new file mode 100755 index 000000000..71e3c17c8 --- /dev/null +++ b/833/CH2/EX2.7/Ex2_7.sce @@ -0,0 +1,28 @@ +//Caption: Calculate (a)Z,X,R reffered to h.v side (b)Regulaton on full load at 0.8 power factor lagging (c)Terminal voltage on l.v side on full load at pf=0.8 lagging (d)Efficiency of transformer when current=250A,pf=0.8 lagging is load connected to l.v side and voltage at h.v side is 11000 volts
+//Exa:2.7
+clc;
+clear;
+close;
+P_s=220000//Supplied power (in VA)
+V_1=11000//Primary side voltage(in volt)
+V_2=440//Secondary side voltage(in volt)
+P_i=2200//Iron losses(in watt)
+V=500//voltage applied to high voltage side for open circuit test(in volt)
+P=2000//Wattmeter reading for open circuit test(in watt)
+pf=0.8//Power factor
+I=250//Load current(in A)
+I_fl=P_s/V_1
+r=P/(I_fl^2)
+z=V/I_fl
+x=sqrt(z^2-r^2)
+disp(r,x,z,'(a)Z,X,R(in ohms)=')
+Re=(I_fl*r*pf)+(I_fl*x*sind(acosd(pf)))
+disp(Re,'(b)Regulation on full load on high voltage side(in volts)=')
+Re_1=(Re*V_2)/V_1
+disp(Re_1,'Regulation on full load on low volrage side(in volts)=')
+V_t=V_2-Re_1
+disp(V_t,'(c)Terminal voltage on low voltage side on full load(in volts)=')
+I_c=I*V_2/(V_1)
+W_c=P/(2^2)
+Eff=(V_1*I_c*pf)/((V_1*I_c*pf)+(P_i)+(W_c))*100
+disp(Eff,'(d)Efficiency of transformer(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.7/Ex2_7.txt b/833/CH2/EX2.7/Ex2_7.txt new file mode 100755 index 000000000..71e3c17c8 --- /dev/null +++ b/833/CH2/EX2.7/Ex2_7.txt @@ -0,0 +1,28 @@ +//Caption: Calculate (a)Z,X,R reffered to h.v side (b)Regulaton on full load at 0.8 power factor lagging (c)Terminal voltage on l.v side on full load at pf=0.8 lagging (d)Efficiency of transformer when current=250A,pf=0.8 lagging is load connected to l.v side and voltage at h.v side is 11000 volts
+//Exa:2.7
+clc;
+clear;
+close;
+P_s=220000//Supplied power (in VA)
+V_1=11000//Primary side voltage(in volt)
+V_2=440//Secondary side voltage(in volt)
+P_i=2200//Iron losses(in watt)
+V=500//voltage applied to high voltage side for open circuit test(in volt)
+P=2000//Wattmeter reading for open circuit test(in watt)
+pf=0.8//Power factor
+I=250//Load current(in A)
+I_fl=P_s/V_1
+r=P/(I_fl^2)
+z=V/I_fl
+x=sqrt(z^2-r^2)
+disp(r,x,z,'(a)Z,X,R(in ohms)=')
+Re=(I_fl*r*pf)+(I_fl*x*sind(acosd(pf)))
+disp(Re,'(b)Regulation on full load on high voltage side(in volts)=')
+Re_1=(Re*V_2)/V_1
+disp(Re_1,'Regulation on full load on low volrage side(in volts)=')
+V_t=V_2-Re_1
+disp(V_t,'(c)Terminal voltage on low voltage side on full load(in volts)=')
+I_c=I*V_2/(V_1)
+W_c=P/(2^2)
+Eff=(V_1*I_c*pf)/((V_1*I_c*pf)+(P_i)+(W_c))*100
+disp(Eff,'(d)Efficiency of transformer(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.7/Result2_7.txt b/833/CH2/EX2.7/Result2_7.txt new file mode 100755 index 000000000..d95763067 --- /dev/null +++ b/833/CH2/EX2.7/Result2_7.txt @@ -0,0 +1,24 @@ +(a)Z,X,R(in ohms)=
+
+ 25.
+
+ 24.494897
+
+ 5.
+
+ (b)Regulation on full load on high voltage side(in volts)=
+
+ 373.93877
+
+ Regulation on full load on low volrage side(in volts)=
+
+ 14.957551
+
+ (c)Terminal voltage on low voltage side on full load(in volts)=
+
+ 425.04245
+
+ (d)Efficiency of transformer(in%)=
+
+ 97.023153
+
\ No newline at end of file diff --git a/833/CH2/EX2.8/Ex2_8.sce b/833/CH2/EX2.8/Ex2_8.sce new file mode 100755 index 000000000..cb6cba1f7 --- /dev/null +++ b/833/CH2/EX2.8/Ex2_8.sce @@ -0,0 +1,19 @@ +//Caption: Determine (a)Efficiency (b)Regulation at loading conditions
+//Exa:2.8
+clc;
+clear;
+close;
+P_s=10000//Supplied power (in VA)
+V_1=440//Primary voltage (in volts)
+V_2=240//Secondary voltage(in volts)
+f=50//frequency(in hertz)
+I_l=35//Load current(in A)
+V_l=234//Load voltage(in volts)
+W=8500//Wattmeter reading(in watts) connected on 440V side
+P_o=I_l*V_l
+P_i=W
+Eff=P_o/(P_i)*100
+disp(Eff,'(a)Efficiency(in %)=')
+V_d=V_2-V_l
+Re=V_d/(V_2)*100
+disp(Re,'(b)Regulation(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.8/Ex2_8.txt b/833/CH2/EX2.8/Ex2_8.txt new file mode 100755 index 000000000..cb6cba1f7 --- /dev/null +++ b/833/CH2/EX2.8/Ex2_8.txt @@ -0,0 +1,19 @@ +//Caption: Determine (a)Efficiency (b)Regulation at loading conditions
+//Exa:2.8
+clc;
+clear;
+close;
+P_s=10000//Supplied power (in VA)
+V_1=440//Primary voltage (in volts)
+V_2=240//Secondary voltage(in volts)
+f=50//frequency(in hertz)
+I_l=35//Load current(in A)
+V_l=234//Load voltage(in volts)
+W=8500//Wattmeter reading(in watts) connected on 440V side
+P_o=I_l*V_l
+P_i=W
+Eff=P_o/(P_i)*100
+disp(Eff,'(a)Efficiency(in %)=')
+V_d=V_2-V_l
+Re=V_d/(V_2)*100
+disp(Re,'(b)Regulation(in%)=')
\ No newline at end of file diff --git a/833/CH2/EX2.8/Result2_8.txt b/833/CH2/EX2.8/Result2_8.txt new file mode 100755 index 000000000..0d16bae45 --- /dev/null +++ b/833/CH2/EX2.8/Result2_8.txt @@ -0,0 +1,8 @@ +(a)Efficiency(in %)=
+
+ 96.352941
+
+ (b)Regulation(in%)=
+
+ 2.5
+
\ No newline at end of file diff --git a/833/CH2/EX2.9/Ex2_9.sce b/833/CH2/EX2.9/Ex2_9.sce new file mode 100755 index 000000000..b8a1c3a2f --- /dev/null +++ b/833/CH2/EX2.9/Ex2_9.sce @@ -0,0 +1,24 @@ +//Caption: Find how they will share 750KVA load at 0.8 power factor lagging
+//Exa:2.9
+clc;
+clear;
+close;
+P_s1=500000//Supplied power(in VA) to first transformer
+r_1=0.01//Per unit resistance of first transformer
+x_1=0.05//Per unit reactance of first transformer
+P_s2=250000//Supplied power(in VA) to second transformer
+r_2=0.015//Per unit resistance of second transformer
+x_2=0.04//Per unit reactance of second transformer
+P_l=750000//Load(in VA)
+pf=0.8//Powerfactor lagging
+V_2=400//Secondary voltage of each transformer(in volts)
+Z_1=r_1+(%i*x_1)
+Z_2=((2*r_2)+(2*%i*x_2))
+Z=Z_1+Z_2
+S=P_l*(pf-(%i*(sind(acosd(pf)))))
+S_1=(S*Z_2)/(Z)
+s_1=sqrt(((real(S_1))^2)+((imag(S_1)^2)))
+disp(s_1,'Load on first transformer(in VA)=')
+S_2=(S*Z_1)/(Z)
+s_2=sqrt(((real(S_2))^2)+((imag(S_2)^2)))
+disp(s_2,'Load on second transformer(inVA)=')
\ No newline at end of file diff --git a/833/CH2/EX2.9/Ex2_9.txt b/833/CH2/EX2.9/Ex2_9.txt new file mode 100755 index 000000000..b8a1c3a2f --- /dev/null +++ b/833/CH2/EX2.9/Ex2_9.txt @@ -0,0 +1,24 @@ +//Caption: Find how they will share 750KVA load at 0.8 power factor lagging
+//Exa:2.9
+clc;
+clear;
+close;
+P_s1=500000//Supplied power(in VA) to first transformer
+r_1=0.01//Per unit resistance of first transformer
+x_1=0.05//Per unit reactance of first transformer
+P_s2=250000//Supplied power(in VA) to second transformer
+r_2=0.015//Per unit resistance of second transformer
+x_2=0.04//Per unit reactance of second transformer
+P_l=750000//Load(in VA)
+pf=0.8//Powerfactor lagging
+V_2=400//Secondary voltage of each transformer(in volts)
+Z_1=r_1+(%i*x_1)
+Z_2=((2*r_2)+(2*%i*x_2))
+Z=Z_1+Z_2
+S=P_l*(pf-(%i*(sind(acosd(pf)))))
+S_1=(S*Z_2)/(Z)
+s_1=sqrt(((real(S_1))^2)+((imag(S_1)^2)))
+disp(s_1,'Load on first transformer(in VA)=')
+S_2=(S*Z_1)/(Z)
+s_2=sqrt(((real(S_2))^2)+((imag(S_2)^2)))
+disp(s_2,'Load on second transformer(inVA)=')
\ No newline at end of file diff --git a/833/CH2/EX2.9/Result2_9.txt b/833/CH2/EX2.9/Result2_9.txt new file mode 100755 index 000000000..c68a7a797 --- /dev/null +++ b/833/CH2/EX2.9/Result2_9.txt @@ -0,0 +1,8 @@ +Load on first transformer(in VA)=
+
+ 471125.74
+
+ Load on second transformer(inVA)=
+
+ 281165.53
+
\ No newline at end of file diff --git a/833/CH3/EX3.1/Ex3_1.sce b/833/CH3/EX3.1/Ex3_1.sce new file mode 100755 index 000000000..05939ea3c --- /dev/null +++ b/833/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,22 @@ +//Caption: Find Secondary line voltage,Line Current,and output power for (a)delta/delta (b)star/star (c)delta/star (d)star/delta
+//Exa:3.1
+clc;
+clear;
+close;
+V=6600//Supplied voltage(in volts)
+I=20//Supplied current(in A)
+n=15//Number of turns per phase
+V_la=V/n
+I_la=n*I
+disp(V_la,I_la,'(a)(in A),(in volts)=')
+V_lb=V/n
+I_lb=I*n
+disp(V_lb,I_lb,'(b)(in A),(in volts)=')
+V_lc=(V*(3^0.5))/(n)
+I_lc=(n*I)/(3^0.5)
+disp(V_lc,I_lc,'(c)(in A),(in volts)=')
+V_ld=V/(n*(3^0.5))
+I_ld=(3^0.5)*I*n
+disp(V_ld,I_ld,'(d)(in A),(in volts)=')
+P=(3^0.5)*V*I/1000
+disp(P,'(d)Output Power (in KVA)=')
\ No newline at end of file diff --git a/833/CH3/EX3.1/Ex3_1.txt b/833/CH3/EX3.1/Ex3_1.txt new file mode 100755 index 000000000..05939ea3c --- /dev/null +++ b/833/CH3/EX3.1/Ex3_1.txt @@ -0,0 +1,22 @@ +//Caption: Find Secondary line voltage,Line Current,and output power for (a)delta/delta (b)star/star (c)delta/star (d)star/delta
+//Exa:3.1
+clc;
+clear;
+close;
+V=6600//Supplied voltage(in volts)
+I=20//Supplied current(in A)
+n=15//Number of turns per phase
+V_la=V/n
+I_la=n*I
+disp(V_la,I_la,'(a)(in A),(in volts)=')
+V_lb=V/n
+I_lb=I*n
+disp(V_lb,I_lb,'(b)(in A),(in volts)=')
+V_lc=(V*(3^0.5))/(n)
+I_lc=(n*I)/(3^0.5)
+disp(V_lc,I_lc,'(c)(in A),(in volts)=')
+V_ld=V/(n*(3^0.5))
+I_ld=(3^0.5)*I*n
+disp(V_ld,I_ld,'(d)(in A),(in volts)=')
+P=(3^0.5)*V*I/1000
+disp(P,'(d)Output Power (in KVA)=')
\ No newline at end of file diff --git a/833/CH3/EX3.1/Result3_1.txt b/833/CH3/EX3.1/Result3_1.txt new file mode 100755 index 000000000..9ac79ff62 --- /dev/null +++ b/833/CH3/EX3.1/Result3_1.txt @@ -0,0 +1,28 @@ +(a)(in A),(in volts)=
+
+ 300.
+
+ 440.
+
+ (b)(in A),(in volts)=
+
+ 300.
+
+ 440.
+
+ (c)(in A),(in volts)=
+
+ 173.20508
+
+ 762.10236
+
+ (d)(in A),(in volts)=
+
+ 519.61524
+
+ 254.03412
+
+ (d)Output Power (in KVA)=
+
+ 228.63071
+
\ No newline at end of file diff --git a/833/CH3/EX3.2/Ex3_2.sce b/833/CH3/EX3.2/Ex3_2.sce new file mode 100755 index 000000000..0b13b6eba --- /dev/null +++ b/833/CH3/EX3.2/Ex3_2.sce @@ -0,0 +1,18 @@ +//Caption: Calculate Phase and Line currents in (a)High voltage (b)Low voltage windings of transformer
+//Exa:3.2
+clc;
+clear;
+close;
+P=50000//Power of induction motor(in watts)
+V=440//Voltage of induction motor(in volts)
+eff=90//Efficiency(in%)
+pf=0.85//power factor
+V_1=11000//Primary side voltage of transformer(in volts)
+V_2=440//Secondary side voltage of transformer(in volts)
+I_fl=P/((3^0.5)*V*pf*(eff/100))
+v=V/(3^0.5)
+n=V_1/v
+I_ph=I_fl/(n)
+I_l=(3^0.5)*I_ph
+disp(I_ph,I_l,'(a)High Voltage side line and phase currents(inA)=')
+disp(I_fl,I_fl,'(b)Low voltage side phase and line currents(inA)=')
\ No newline at end of file diff --git a/833/CH3/EX3.2/Ex3_2.txt b/833/CH3/EX3.2/Ex3_2.txt new file mode 100755 index 000000000..0b13b6eba --- /dev/null +++ b/833/CH3/EX3.2/Ex3_2.txt @@ -0,0 +1,18 @@ +//Caption: Calculate Phase and Line currents in (a)High voltage (b)Low voltage windings of transformer
+//Exa:3.2
+clc;
+clear;
+close;
+P=50000//Power of induction motor(in watts)
+V=440//Voltage of induction motor(in volts)
+eff=90//Efficiency(in%)
+pf=0.85//power factor
+V_1=11000//Primary side voltage of transformer(in volts)
+V_2=440//Secondary side voltage of transformer(in volts)
+I_fl=P/((3^0.5)*V*pf*(eff/100))
+v=V/(3^0.5)
+n=V_1/v
+I_ph=I_fl/(n)
+I_l=(3^0.5)*I_ph
+disp(I_ph,I_l,'(a)High Voltage side line and phase currents(inA)=')
+disp(I_fl,I_fl,'(b)Low voltage side phase and line currents(inA)=')
\ No newline at end of file diff --git a/833/CH3/EX3.2/Result3_2.txt b/833/CH3/EX3.2/Result3_2.txt new file mode 100755 index 000000000..3fcf7ba85 --- /dev/null +++ b/833/CH3/EX3.2/Result3_2.txt @@ -0,0 +1,11 @@ +(a)High Voltage side line and phase currents(inA)=
+
+ 3.4304829
+
+ 1.9805902
+
+ (b)Low voltage side phase and line currents(inA)=
+
+ 85.762072
+
+ 85.762072
\ No newline at end of file diff --git a/833/CH3/EX3.3/Ex3_3.sce b/833/CH3/EX3.3/Ex3_3.sce new file mode 100755 index 000000000..b5e86d406 --- /dev/null +++ b/833/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,19 @@ +//Caption: Find possible voltage ratio and output for connections (a)BC=11500V,AC=2300V (b)BC=2300V,AC=11500V
+//Exa:3.3
+clc;
+clear;
+close;
+V_1=11500//Voltage on primary side(in volts)
+V_2=2300//Voltage on secondary side(in volts)
+P_o=100000//Rated output(in VA)
+V=V_1+V_2
+v=V/V_1
+I_1=P_o/V_1
+I_2=P_o/V_2
+I=I_1+I_2
+W_o=(V_1*I)/1000
+Cu=1-(V_1/V)//(a)Ratio of weight of copper
+disp(W_o,v,'(a)Voltage ratio and output(in KVA)=')
+w_o=(V_2*I)/(1000)
+cu=1-(V_2/v)//(b)Ratio of weight of copper
+disp(w_o,v,'(b)Voltage ratio and output(in KVA)=')
\ No newline at end of file diff --git a/833/CH3/EX3.3/Ex3_3.txt b/833/CH3/EX3.3/Ex3_3.txt new file mode 100755 index 000000000..b5e86d406 --- /dev/null +++ b/833/CH3/EX3.3/Ex3_3.txt @@ -0,0 +1,19 @@ +//Caption: Find possible voltage ratio and output for connections (a)BC=11500V,AC=2300V (b)BC=2300V,AC=11500V
+//Exa:3.3
+clc;
+clear;
+close;
+V_1=11500//Voltage on primary side(in volts)
+V_2=2300//Voltage on secondary side(in volts)
+P_o=100000//Rated output(in VA)
+V=V_1+V_2
+v=V/V_1
+I_1=P_o/V_1
+I_2=P_o/V_2
+I=I_1+I_2
+W_o=(V_1*I)/1000
+Cu=1-(V_1/V)//(a)Ratio of weight of copper
+disp(W_o,v,'(a)Voltage ratio and output(in KVA)=')
+w_o=(V_2*I)/(1000)
+cu=1-(V_2/v)//(b)Ratio of weight of copper
+disp(w_o,v,'(b)Voltage ratio and output(in KVA)=')
\ No newline at end of file diff --git a/833/CH3/EX3.3/Result3_3.txt b/833/CH3/EX3.3/Result3_3.txt new file mode 100755 index 000000000..59e3a0561 --- /dev/null +++ b/833/CH3/EX3.3/Result3_3.txt @@ -0,0 +1,12 @@ +(a)Voltage ratio and output(in KVA)=
+
+ 1.2
+
+ 600.
+
+ (b)Voltage ratio and output(in KVA)=
+
+ 1.2
+
+ 120.
+
\ No newline at end of file diff --git a/833/CH4/EX4.1/Ex4_1.sce b/833/CH4/EX4.1/Ex4_1.sce new file mode 100755 index 000000000..69694156a --- /dev/null +++ b/833/CH4/EX4.1/Ex4_1.sce @@ -0,0 +1,31 @@ +//Caption: Find (a)Voltage per turn (b)Cross sectional area of core (c)Cross sectional area of conductor for l.v (d)Cross sectional area of conductor for h.v (e)Number of turns in l.v (f)Number of turns in h.v (g)Window area (h)Yoke and approx. frame size (i)Copper used in windings
+//Exa:4.1
+clc;
+clear;
+close;
+P=5000//Power supplied to transformer(in VA)
+f=50//frequency(in Hertz)
+V_1=415//Primary side voltage(in volts)
+V_2=240//Secondary side voltage(in volts)
+k=0.75
+B=1.6//Maximum flux density(in weber/m^2)
+i_d=2//Current density(in A/mm^2)
+k_w=0.3
+E=k*sqrt(P/1000)
+disp(E,'(a)Voltage per turn(in volts)=')
+A_1=(E*(10^6))/(4.44*B*f)
+disp(A_1,'(b)Cross sectional area of core(in mm^2)=')
+i_2=P/V_2
+A_2=i_2/i_d
+disp(A_2,'(c)Cross sectional area of conductor for low voltage side(in mm^2)=')
+i_1=P/V_1
+A_1=i_1/i_d
+disp(A_1,'(d)Cross sectional area of conductor for high voltage side(in mm^2)=')
+n_2=V_2/E
+disp(n_2,'(e)Number of turns in low voltage winding=')
+n_1=V_1/E
+disp(n_1,'(f)Number of turns in high voltage winding=')
+A_w=(P*(10^(9))/1000)/(2.22*A_1*k_w*i_d*B)
+disp(A_w,'(g)Window area(in mm^2)=')
+cu=(A_1*n_1)+(A_2*n_2)
+disp(cu,'(i)Copper used in windings(in mm^2)=')
\ No newline at end of file diff --git a/833/CH4/EX4.1/Ex4_1.txt b/833/CH4/EX4.1/Ex4_1.txt new file mode 100755 index 000000000..69694156a --- /dev/null +++ b/833/CH4/EX4.1/Ex4_1.txt @@ -0,0 +1,31 @@ +//Caption: Find (a)Voltage per turn (b)Cross sectional area of core (c)Cross sectional area of conductor for l.v (d)Cross sectional area of conductor for h.v (e)Number of turns in l.v (f)Number of turns in h.v (g)Window area (h)Yoke and approx. frame size (i)Copper used in windings
+//Exa:4.1
+clc;
+clear;
+close;
+P=5000//Power supplied to transformer(in VA)
+f=50//frequency(in Hertz)
+V_1=415//Primary side voltage(in volts)
+V_2=240//Secondary side voltage(in volts)
+k=0.75
+B=1.6//Maximum flux density(in weber/m^2)
+i_d=2//Current density(in A/mm^2)
+k_w=0.3
+E=k*sqrt(P/1000)
+disp(E,'(a)Voltage per turn(in volts)=')
+A_1=(E*(10^6))/(4.44*B*f)
+disp(A_1,'(b)Cross sectional area of core(in mm^2)=')
+i_2=P/V_2
+A_2=i_2/i_d
+disp(A_2,'(c)Cross sectional area of conductor for low voltage side(in mm^2)=')
+i_1=P/V_1
+A_1=i_1/i_d
+disp(A_1,'(d)Cross sectional area of conductor for high voltage side(in mm^2)=')
+n_2=V_2/E
+disp(n_2,'(e)Number of turns in low voltage winding=')
+n_1=V_1/E
+disp(n_1,'(f)Number of turns in high voltage winding=')
+A_w=(P*(10^(9))/1000)/(2.22*A_1*k_w*i_d*B)
+disp(A_w,'(g)Window area(in mm^2)=')
+cu=(A_1*n_1)+(A_2*n_2)
+disp(cu,'(i)Copper used in windings(in mm^2)=')
\ No newline at end of file diff --git a/833/CH4/EX4.1/Result4_1.txt b/833/CH4/EX4.1/Result4_1.txt new file mode 100755 index 000000000..17f0876b1 --- /dev/null +++ b/833/CH4/EX4.1/Result4_1.txt @@ -0,0 +1,31 @@ +(a)Voltage per turn(in volts)=
+
+ 1.677051
+
+ (b)Cross sectional area of core(in mm^2)=
+
+ 4721.4273
+
+ (c)Cross sectional area of conductor for low voltage side(in mm^2)=
+
+ 10.416667
+
+ (d)Cross sectional area of conductor for high voltage side(in mm^2)=
+
+ 6.0240964
+
+ (e)Number of turns in low voltage winding=
+
+ 143.10835
+
+ (f)Number of turns in high voltage winding=
+
+ 247.45819
+
+ (g)Window area(in mm^2)=
+
+ 3.895D+08
+
+ (i)Copper used in windings(in mm^2)=
+
+ 2981.424
\ No newline at end of file diff --git a/833/CH4/EX4.2/Ex4_2.sce b/833/CH4/EX4.2/Ex4_2.sce new file mode 100755 index 000000000..b2516b2f1 --- /dev/null +++ b/833/CH4/EX4.2/Ex4_2.sce @@ -0,0 +1,32 @@ +//Caption:Find (a)Voltage per turn (b)Cross sectional area of core (c)Cross sectional area of conductor for h.v (d)Number of turns per phase in h.v winding (e)Cross sectional area of conductor in l.v winding (f)Number of turns in l.v winding (g)Window area (h)Yoke and approx frame size,and (i)Copper used in window area
+//Exa:4.2
+clc;
+clear;
+close;
+P=100000//Power supplied to transformer(in VA)
+f=50//Frequency(in hertz)
+V_1=11000//Primary side voltage(in volts)
+V_2=433//Secondary side voltage(in volts)
+k=0.45
+B=1.65//Maximum flux density(in tesla)
+k_w=0.28
+i_d=2.5//Current density(in A/mm^2)
+E=k*sqrt(P/1000)
+disp(E,'(a)Voltage per turn(in volts)=')
+A_1=E*(10^6)/(4.44*f*B)
+disp(A_1,'(b)Cross sectional area of core(in mm^2)=')
+I_1=P/(3*V_1)
+a_1=I_1/i_d
+disp(a_1,'(c)Cross sectional area of conductor in h.v winding(in mm^2)=')
+n_1=V_1/E
+disp(n_1,'(d)Number of turns per phase in h.v winding(in mm^2)=')
+I_2=P/((3^0.5)*V_2)
+a_2=I_2/i_d
+disp(a_2,'(e)Cross sectional area of conductor in l.v winding(in mm^2)=')
+v=V_2/(3^0.5)
+n_2=v/E
+disp(n_2,'(f)Number of turns in l.v winding=')
+A_w=(P*(10^6))/(3.33*f*A_1*k_w*i_d*B)
+disp(A_w,'(g)Window Area(in mm^2)=')
+Cu=2*((a_1*n_1)+(a_2*n_2))
+disp(Cu,'Copper used in window area(in mm^2)=')
\ No newline at end of file diff --git a/833/CH4/EX4.2/Ex4_2.txt b/833/CH4/EX4.2/Ex4_2.txt new file mode 100755 index 000000000..b2516b2f1 --- /dev/null +++ b/833/CH4/EX4.2/Ex4_2.txt @@ -0,0 +1,32 @@ +//Caption:Find (a)Voltage per turn (b)Cross sectional area of core (c)Cross sectional area of conductor for h.v (d)Number of turns per phase in h.v winding (e)Cross sectional area of conductor in l.v winding (f)Number of turns in l.v winding (g)Window area (h)Yoke and approx frame size,and (i)Copper used in window area
+//Exa:4.2
+clc;
+clear;
+close;
+P=100000//Power supplied to transformer(in VA)
+f=50//Frequency(in hertz)
+V_1=11000//Primary side voltage(in volts)
+V_2=433//Secondary side voltage(in volts)
+k=0.45
+B=1.65//Maximum flux density(in tesla)
+k_w=0.28
+i_d=2.5//Current density(in A/mm^2)
+E=k*sqrt(P/1000)
+disp(E,'(a)Voltage per turn(in volts)=')
+A_1=E*(10^6)/(4.44*f*B)
+disp(A_1,'(b)Cross sectional area of core(in mm^2)=')
+I_1=P/(3*V_1)
+a_1=I_1/i_d
+disp(a_1,'(c)Cross sectional area of conductor in h.v winding(in mm^2)=')
+n_1=V_1/E
+disp(n_1,'(d)Number of turns per phase in h.v winding(in mm^2)=')
+I_2=P/((3^0.5)*V_2)
+a_2=I_2/i_d
+disp(a_2,'(e)Cross sectional area of conductor in l.v winding(in mm^2)=')
+v=V_2/(3^0.5)
+n_2=v/E
+disp(n_2,'(f)Number of turns in l.v winding=')
+A_w=(P*(10^6))/(3.33*f*A_1*k_w*i_d*B)
+disp(A_w,'(g)Window Area(in mm^2)=')
+Cu=2*((a_1*n_1)+(a_2*n_2))
+disp(Cu,'Copper used in window area(in mm^2)=')
\ No newline at end of file diff --git a/833/CH4/EX4.2/Result4_2.txt b/833/CH4/EX4.2/Result4_2.txt new file mode 100755 index 000000000..4618523de --- /dev/null +++ b/833/CH4/EX4.2/Result4_2.txt @@ -0,0 +1,31 @@ +(a)Voltage per turn(in volts)=
+
+ 4.5
+
+ (b)Cross sectional area of core(in mm^2)=
+
+ 12285.012
+
+ (c)Cross sectional area of conductor in h.v winding(in mm^2)=
+
+ 1.2121212
+
+ (d)Number of turns per phase in h.v winding(in mm^2)=
+
+ 2444.4444
+
+ (e)Cross sectional area of conductor in l.v winding(in mm^2)=
+
+ 53.334898
+
+ (f)Number of turns in l.v winding=
+
+ 55.553926
+
+ (g)Window Area(in mm^2)=
+
+ 42328.042
+
+ Copper used in window area(in mm^2)=
+
+ 11851.852
\ No newline at end of file diff --git a/833/CH7/EX7.10/Ex7_10.sce b/833/CH7/EX7.10/Ex7_10.sce new file mode 100755 index 000000000..84a6ed1a2 --- /dev/null +++ b/833/CH7/EX7.10/Ex7_10.sce @@ -0,0 +1,18 @@ +//Caption: Calculate the speed of the motor when it is loaded and takes 60A from the mains
+//Exa:7.10
+clc;
+clear;
+close;
+V=230//Voltage of motor(in volts)
+n=800//Speedof motor(in r.p.m)
+i=5//Current taken by motor(in A)
+r_a=0.25//Armature resistance(in ohms)
+r_f=230//field resistance(in ohms)
+i_l=60//Load current(in A)
+i_f=V/r_f
+i_a=i-i_f
+E_b1=V-(i_a*r_a)
+i_al=i_l-i_f
+E_b2=V-(i_al*r_a)
+N=(n*E_b2)/E_b1
+disp(N,'Required speed of motor(in r.p.m) is=')
\ No newline at end of file diff --git a/833/CH7/EX7.10/Ex7_10.txt b/833/CH7/EX7.10/Ex7_10.txt new file mode 100755 index 000000000..84a6ed1a2 --- /dev/null +++ b/833/CH7/EX7.10/Ex7_10.txt @@ -0,0 +1,18 @@ +//Caption: Calculate the speed of the motor when it is loaded and takes 60A from the mains
+//Exa:7.10
+clc;
+clear;
+close;
+V=230//Voltage of motor(in volts)
+n=800//Speedof motor(in r.p.m)
+i=5//Current taken by motor(in A)
+r_a=0.25//Armature resistance(in ohms)
+r_f=230//field resistance(in ohms)
+i_l=60//Load current(in A)
+i_f=V/r_f
+i_a=i-i_f
+E_b1=V-(i_a*r_a)
+i_al=i_l-i_f
+E_b2=V-(i_al*r_a)
+N=(n*E_b2)/E_b1
+disp(N,'Required speed of motor(in r.p.m) is=')
\ No newline at end of file diff --git a/833/CH7/EX7.10/Result7_10.txt b/833/CH7/EX7.10/Result7_10.txt new file mode 100755 index 000000000..3ec2d7d34 --- /dev/null +++ b/833/CH7/EX7.10/Result7_10.txt @@ -0,0 +1,4 @@ +Required speed of motor(in r.p.m) is=
+
+ 751.96507
+
\ No newline at end of file diff --git a/833/CH7/EX7.11/Ex7_11.sce b/833/CH7/EX7.11/Ex7_11.sce new file mode 100755 index 000000000..2cb6e029f --- /dev/null +++ b/833/CH7/EX7.11/Ex7_11.sce @@ -0,0 +1,16 @@ +//Caption: Calculate Power and torque developed
+//Exa:7.11
+clc;
+clear;
+close;
+p=4//Number of poles
+d=20//Diameter of armature(in cm)
+l=25//Core length(in cm)
+c=300//Number of conductors
+i_a=50//Armature current(in A)
+B=0.3//Average flux density(in weber/m^2)
+n=1000//Speedofmotor(in r.p.m)
+T=(B*(l/100)*(i_a/p)*c*(d/100)*(1/2))
+s=(2*%pi*n)/(60)
+P=(T*s)/1000
+disp(T,P,'Power(in KW) and Torque(in Nm) developed is=')
\ No newline at end of file diff --git a/833/CH7/EX7.11/Ex7_11.txt b/833/CH7/EX7.11/Ex7_11.txt new file mode 100755 index 000000000..2cb6e029f --- /dev/null +++ b/833/CH7/EX7.11/Ex7_11.txt @@ -0,0 +1,16 @@ +//Caption: Calculate Power and torque developed
+//Exa:7.11
+clc;
+clear;
+close;
+p=4//Number of poles
+d=20//Diameter of armature(in cm)
+l=25//Core length(in cm)
+c=300//Number of conductors
+i_a=50//Armature current(in A)
+B=0.3//Average flux density(in weber/m^2)
+n=1000//Speedofmotor(in r.p.m)
+T=(B*(l/100)*(i_a/p)*c*(d/100)*(1/2))
+s=(2*%pi*n)/(60)
+P=(T*s)/1000
+disp(T,P,'Power(in KW) and Torque(in Nm) developed is=')
\ No newline at end of file diff --git a/833/CH7/EX7.11/Result7_11.txt b/833/CH7/EX7.11/Result7_11.txt new file mode 100755 index 000000000..ab3cc8033 --- /dev/null +++ b/833/CH7/EX7.11/Result7_11.txt @@ -0,0 +1,6 @@ +Power(in KW) and Torque(in Nm) developed is=
+
+ 2.9452431
+
+ 28.125
+
\ No newline at end of file diff --git a/833/CH7/EX7.12/Ex7_12.sce b/833/CH7/EX7.12/Ex7_12.sce new file mode 100755 index 000000000..cfd2cb63e --- /dev/null +++ b/833/CH7/EX7.12/Ex7_12.sce @@ -0,0 +1,15 @@ +//Caption: Determineper pole (a)Number of cross magnetising ampereturns,and (b)Demagnetising ampereturns
+//Exa:7.12
+clc;
+clear;
+close;
+I=100//Current(in A)
+c=500//Armature conductors
+p=6//Poles
+t=10//Angle of lead(in degree)
+a=2//Wave wound
+e=(10*p)/2
+F_d=(c*I*2*e)/(2*a*p*180)
+disp(F_d,'(a)Number of cross magnetising ampereturns=')
+F_c=(c*I)*(1-((2*e)/180))/(2*a*p)
+disp(F_c,'(b)Demagnetising ampereturns=')
\ No newline at end of file diff --git a/833/CH7/EX7.12/Ex7_12.txt b/833/CH7/EX7.12/Ex7_12.txt new file mode 100755 index 000000000..cfd2cb63e --- /dev/null +++ b/833/CH7/EX7.12/Ex7_12.txt @@ -0,0 +1,15 @@ +//Caption: Determineper pole (a)Number of cross magnetising ampereturns,and (b)Demagnetising ampereturns
+//Exa:7.12
+clc;
+clear;
+close;
+I=100//Current(in A)
+c=500//Armature conductors
+p=6//Poles
+t=10//Angle of lead(in degree)
+a=2//Wave wound
+e=(10*p)/2
+F_d=(c*I*2*e)/(2*a*p*180)
+disp(F_d,'(a)Number of cross magnetising ampereturns=')
+F_c=(c*I)*(1-((2*e)/180))/(2*a*p)
+disp(F_c,'(b)Demagnetising ampereturns=')
\ No newline at end of file diff --git a/833/CH7/EX7.12/Result7_12.txt b/833/CH7/EX7.12/Result7_12.txt new file mode 100755 index 000000000..d373d279c --- /dev/null +++ b/833/CH7/EX7.12/Result7_12.txt @@ -0,0 +1,8 @@ + (a)Number of cross magnetising ampereturns=
+
+ 694.44444
+
+ (b)Demagnetising ampereturns=
+
+ 1388.8889
+
\ No newline at end of file diff --git a/833/CH7/EX7.13/Ex7_13.sce b/833/CH7/EX7.13/Ex7_13.sce new file mode 100755 index 000000000..f1657c3d0 --- /dev/null +++ b/833/CH7/EX7.13/Ex7_13.sce @@ -0,0 +1,17 @@ +//Caption:Find the time of Commutation
+//Exa:7.13
+clc;
+clear;
+close;
+p=4//Number of poles
+n=600//Speed of generator(in r.p.m)
+d=0.4//Diameter of commutator(in m)
+c=243//Number ofcommutator segments
+c_s=3//Coil sides per layer
+w=12.5//Width of brush(in mm)
+W=0.6//Width of mica between commutator segments
+W_c=(%pi*d*1000)/(c)
+D=w-W+(2*W_c)
+V_c=(%pi*d*n)/60
+T=D/V_c*(10^(-3))
+disp(T,'Time of commutation(in sec)=')
\ No newline at end of file diff --git a/833/CH7/EX7.13/Ex7_13.txt b/833/CH7/EX7.13/Ex7_13.txt new file mode 100755 index 000000000..f1657c3d0 --- /dev/null +++ b/833/CH7/EX7.13/Ex7_13.txt @@ -0,0 +1,17 @@ +//Caption:Find the time of Commutation
+//Exa:7.13
+clc;
+clear;
+close;
+p=4//Number of poles
+n=600//Speed of generator(in r.p.m)
+d=0.4//Diameter of commutator(in m)
+c=243//Number ofcommutator segments
+c_s=3//Coil sides per layer
+w=12.5//Width of brush(in mm)
+W=0.6//Width of mica between commutator segments
+W_c=(%pi*d*1000)/(c)
+D=w-W+(2*W_c)
+V_c=(%pi*d*n)/60
+T=D/V_c*(10^(-3))
+disp(T,'Time of commutation(in sec)=')
\ No newline at end of file diff --git a/833/CH7/EX7.13/Result7_13.txt b/833/CH7/EX7.13/Result7_13.txt new file mode 100755 index 000000000..53baa06da --- /dev/null +++ b/833/CH7/EX7.13/Result7_13.txt @@ -0,0 +1,4 @@ + Time of commutation(in sec)=
+
+ 0.0017700
+
\ No newline at end of file diff --git a/833/CH7/EX7.14/Ex7_14.sce b/833/CH7/EX7.14/Ex7_14.sce new file mode 100755 index 000000000..c51280bee --- /dev/null +++ b/833/CH7/EX7.14/Ex7_14.sce @@ -0,0 +1,13 @@ +//Caption: Find average reactance voltage produce due to commutation
+//Exa:7.14
+clc;
+clear;
+close;
+p=4//Number of poles
+I=300//Current delievered by generator on full load(in A)
+L=0.02*(10^(-3))//Inductance of each coil(in mH)
+a=2//Wavw wound
+i=I/2//Current in conductors in each path(in A)
+T_c=0.00174//Time of commutation(in sec)
+E_r=(2*L*i)/T_c
+disp(E_r,'Average reactance voltage(in volts)=')
\ No newline at end of file diff --git a/833/CH7/EX7.14/Ex7_14.txt b/833/CH7/EX7.14/Ex7_14.txt new file mode 100755 index 000000000..c51280bee --- /dev/null +++ b/833/CH7/EX7.14/Ex7_14.txt @@ -0,0 +1,13 @@ +//Caption: Find average reactance voltage produce due to commutation
+//Exa:7.14
+clc;
+clear;
+close;
+p=4//Number of poles
+I=300//Current delievered by generator on full load(in A)
+L=0.02*(10^(-3))//Inductance of each coil(in mH)
+a=2//Wavw wound
+i=I/2//Current in conductors in each path(in A)
+T_c=0.00174//Time of commutation(in sec)
+E_r=(2*L*i)/T_c
+disp(E_r,'Average reactance voltage(in volts)=')
\ No newline at end of file diff --git a/833/CH7/EX7.14/Result7_14.txt b/833/CH7/EX7.14/Result7_14.txt new file mode 100755 index 000000000..02ea36d66 --- /dev/null +++ b/833/CH7/EX7.14/Result7_14.txt @@ -0,0 +1,4 @@ + Average reactance voltage(in volts)=
+
+ 3.4482759
+
\ No newline at end of file diff --git a/833/CH7/EX7.15/Ex7_15.sce b/833/CH7/EX7.15/Ex7_15.sce new file mode 100755 index 000000000..cd9802f13 --- /dev/null +++ b/833/CH7/EX7.15/Ex7_15.sce @@ -0,0 +1,18 @@ +//Caption: Calculate the number of turns needed on each commutating pole
+//Exa:7.15
+clc;
+clear;
+close;
+p=4//Number of poles
+P=125000//Power delievered by generator(in watts)
+V=230//Voltage of generator(in volts)
+z=240//Armature conductors
+B=0.3//Flux density under the interpolar gap(in weber/m^2)
+g=0.01//Interpolar airgap(in m)
+a=p//LAP connection
+I_a=P/V
+F_a=(z*I_a)/(2*a*p)
+A=(B*g)/(4*%pi*(10^(-7)))
+A_t=A+F_a
+T=A_t/I_a
+disp(T,'The number of turns on each commutating pole=')
\ No newline at end of file diff --git a/833/CH7/EX7.15/Ex7_15.txt b/833/CH7/EX7.15/Ex7_15.txt new file mode 100755 index 000000000..cd9802f13 --- /dev/null +++ b/833/CH7/EX7.15/Ex7_15.txt @@ -0,0 +1,18 @@ +//Caption: Calculate the number of turns needed on each commutating pole
+//Exa:7.15
+clc;
+clear;
+close;
+p=4//Number of poles
+P=125000//Power delievered by generator(in watts)
+V=230//Voltage of generator(in volts)
+z=240//Armature conductors
+B=0.3//Flux density under the interpolar gap(in weber/m^2)
+g=0.01//Interpolar airgap(in m)
+a=p//LAP connection
+I_a=P/V
+F_a=(z*I_a)/(2*a*p)
+A=(B*g)/(4*%pi*(10^(-7)))
+A_t=A+F_a
+T=A_t/I_a
+disp(T,'The number of turns on each commutating pole=')
\ No newline at end of file diff --git a/833/CH7/EX7.15/Result7_15.txt b/833/CH7/EX7.15/Result7_15.txt new file mode 100755 index 000000000..7be861f1c --- /dev/null +++ b/833/CH7/EX7.15/Result7_15.txt @@ -0,0 +1,4 @@ + The number of turns on each commutating pole=
+
+ 11.892676
+
\ No newline at end of file diff --git a/833/CH7/EX7.3/Ex7_3.sce b/833/CH7/EX7.3/Ex7_3.sce new file mode 100755 index 000000000..96c85bd5a --- /dev/null +++ b/833/CH7/EX7.3/Ex7_3.sce @@ -0,0 +1,20 @@ +//Caption:Find effect of change in connection on voltage,current and output
+//Exa:7.3
+clc;
+clear;
+close;
+P=50000//Power of generator(in watt)
+V_b1=230//Voltage of generator(in volts)
+p=4//Number of poles
+a=4//Number of parallel paths for lap winding
+b=2//Number of parallel paths for wave winding
+C=268//Number of conductors with LAP winding
+t=2//Two turns coils are used
+c=t*2//Conductors per slot
+n=C/c
+I_1=P/(V_b1)
+V_b2=V_b1*b
+I_2=P/(V_b2)
+disp(V_b1,I_1,'Current(in A) and voltage(in volts) for LAP winding=')
+disp(V_b2,I_2,'Current(in A) and voltage(in volts) for WAVE winding=')
+disp(P,'Output is same for both connections(in watts)=')
\ No newline at end of file diff --git a/833/CH7/EX7.3/Ex7_3.txt b/833/CH7/EX7.3/Ex7_3.txt new file mode 100755 index 000000000..96c85bd5a --- /dev/null +++ b/833/CH7/EX7.3/Ex7_3.txt @@ -0,0 +1,20 @@ +//Caption:Find effect of change in connection on voltage,current and output
+//Exa:7.3
+clc;
+clear;
+close;
+P=50000//Power of generator(in watt)
+V_b1=230//Voltage of generator(in volts)
+p=4//Number of poles
+a=4//Number of parallel paths for lap winding
+b=2//Number of parallel paths for wave winding
+C=268//Number of conductors with LAP winding
+t=2//Two turns coils are used
+c=t*2//Conductors per slot
+n=C/c
+I_1=P/(V_b1)
+V_b2=V_b1*b
+I_2=P/(V_b2)
+disp(V_b1,I_1,'Current(in A) and voltage(in volts) for LAP winding=')
+disp(V_b2,I_2,'Current(in A) and voltage(in volts) for WAVE winding=')
+disp(P,'Output is same for both connections(in watts)=')
\ No newline at end of file diff --git a/833/CH7/EX7.3/Result7_3.txt b/833/CH7/EX7.3/Result7_3.txt new file mode 100755 index 000000000..4eb5a8cd9 --- /dev/null +++ b/833/CH7/EX7.3/Result7_3.txt @@ -0,0 +1,16 @@ + Current(in A) and voltage(in volts) for LAP winding=
+
+ 217.3913
+
+ 230.
+
+ Current(in A) and voltage(in volts) for WAVE winding=
+
+ 108.69565
+
+ 460.
+
+ Output is same for both connections(in watts)=
+
+ 50000.
+
\ No newline at end of file diff --git a/833/CH7/EX7.6/Ex7_6.sce b/833/CH7/EX7.6/Ex7_6.sce new file mode 100755 index 000000000..0912cb0ab --- /dev/null +++ b/833/CH7/EX7.6/Ex7_6.sce @@ -0,0 +1,20 @@ +//Caption: Select a two circuit armature winding for a d.c machine
+//Exa:7.6
+clc;
+clear;
+close;
+p=4//Number of poles
+n=1000//Speed of d.c. machine(in r.p.m)
+V=400//Voltage of d.cmachine(in volts)
+B=0.04//Flux per pole(in weber)
+s_1=41//Slot 1
+s_2=45//Slot 2
+s_3=51//Slot 3
+a=2//Number of parallel paths
+Z=(V*60*a)/(B*n*p)
+Z_c=Z/a
+Y=(s_3+1)/(p/2)
+t=3//turns per coil
+c=t*a
+z=s_3*c
+disp(z,c,t,s_3,'slots,turn coils,coils sides per slot and total number of conductors=')
\ No newline at end of file diff --git a/833/CH7/EX7.6/Ex7_6.txt b/833/CH7/EX7.6/Ex7_6.txt new file mode 100755 index 000000000..0912cb0ab --- /dev/null +++ b/833/CH7/EX7.6/Ex7_6.txt @@ -0,0 +1,20 @@ +//Caption: Select a two circuit armature winding for a d.c machine
+//Exa:7.6
+clc;
+clear;
+close;
+p=4//Number of poles
+n=1000//Speed of d.c. machine(in r.p.m)
+V=400//Voltage of d.cmachine(in volts)
+B=0.04//Flux per pole(in weber)
+s_1=41//Slot 1
+s_2=45//Slot 2
+s_3=51//Slot 3
+a=2//Number of parallel paths
+Z=(V*60*a)/(B*n*p)
+Z_c=Z/a
+Y=(s_3+1)/(p/2)
+t=3//turns per coil
+c=t*a
+z=s_3*c
+disp(z,c,t,s_3,'slots,turn coils,coils sides per slot and total number of conductors=')
\ No newline at end of file diff --git a/833/CH7/EX7.6/Result7_6.txt b/833/CH7/EX7.6/Result7_6.txt new file mode 100755 index 000000000..065894342 --- /dev/null +++ b/833/CH7/EX7.6/Result7_6.txt @@ -0,0 +1,10 @@ +slots,turn coils,coils sides per slot and total number of conductors=
+
+ 51.
+
+ 3.
+
+ 6.
+
+ 306.
+
\ No newline at end of file diff --git a/833/CH7/EX7.7/Ex7_7.sce b/833/CH7/EX7.7/Ex7_7.sce new file mode 100755 index 000000000..59bb4e1ba --- /dev/null +++ b/833/CH7/EX7.7/Ex7_7.sce @@ -0,0 +1,19 @@ +//Caption: Find (a)e.m.f generated at 750r.p.m for lap wound (b)e.m.f generated at 600r.p.m for wave wound (c)Speed to be driven for 400V for same flux per pole
+//Exa:7.7
+clc;
+clear;
+close;
+p=4//Number of poles
+B=0.04//Flux per pole(in weber)
+c=740//Number of conductors for lap connection
+n_1=750//Speed of machine(in r.p.m)
+n_2=600//Speed of machine(in r.p.m)
+V=400//Voltage of machine(in volts)
+a=4//Number of parallel paths for lap winding
+b=2//Number of parallel paths for wave winding
+E=(B*c*n_1*p)/(60*a)
+disp(E,'(a)E.M.F generated at 750r.p.m for lap wound(in volts)=')
+E_1=(B*c*n_2*p)/(60*b)
+disp(E_1,'(b)E.M.F generated at 600r.p.m for wavewound(in volts)=')
+n=(V*60*b)/(B*c*p)
+disp(n,'(c)Speed of machine(in r.p.m)=')
\ No newline at end of file diff --git a/833/CH7/EX7.7/Ex7_7.txt b/833/CH7/EX7.7/Ex7_7.txt new file mode 100755 index 000000000..59bb4e1ba --- /dev/null +++ b/833/CH7/EX7.7/Ex7_7.txt @@ -0,0 +1,19 @@ +//Caption: Find (a)e.m.f generated at 750r.p.m for lap wound (b)e.m.f generated at 600r.p.m for wave wound (c)Speed to be driven for 400V for same flux per pole
+//Exa:7.7
+clc;
+clear;
+close;
+p=4//Number of poles
+B=0.04//Flux per pole(in weber)
+c=740//Number of conductors for lap connection
+n_1=750//Speed of machine(in r.p.m)
+n_2=600//Speed of machine(in r.p.m)
+V=400//Voltage of machine(in volts)
+a=4//Number of parallel paths for lap winding
+b=2//Number of parallel paths for wave winding
+E=(B*c*n_1*p)/(60*a)
+disp(E,'(a)E.M.F generated at 750r.p.m for lap wound(in volts)=')
+E_1=(B*c*n_2*p)/(60*b)
+disp(E_1,'(b)E.M.F generated at 600r.p.m for wavewound(in volts)=')
+n=(V*60*b)/(B*c*p)
+disp(n,'(c)Speed of machine(in r.p.m)=')
\ No newline at end of file diff --git a/833/CH7/EX7.7/Result7_7.txt b/833/CH7/EX7.7/Result7_7.txt new file mode 100755 index 000000000..09d1ce11e --- /dev/null +++ b/833/CH7/EX7.7/Result7_7.txt @@ -0,0 +1,12 @@ +(a)E.M.F generated at 750r.p.m for lap wound(in volts)=
+
+ 370.
+
+ (b)E.M.F generated at 600r.p.m for wavewound(in volts)=
+
+ 592.
+
+ (c)Speed of machine(in r.p.m)=
+
+ 405.40541
+
\ No newline at end of file diff --git a/833/CH7/EX7.8/Ex7_8.sce b/833/CH7/EX7.8/Ex7_8.sce new file mode 100755 index 000000000..023d5c513 --- /dev/null +++ b/833/CH7/EX7.8/Ex7_8.sce @@ -0,0 +1,19 @@ +//Caption: Calculate (a)Total armature current (b)Current per armature path (c)Generated e.m.f
+//Exa:7.8
+clc;
+clear;
+close;
+p=4//Number of poles
+P=4000//Power of generator(in watts)
+V=230//Voltage of generator(in volts)
+r_f=115//Field resistance(in ohms)
+r_a=0.1//Armature resistance(in ohms)
+a=p//number of parallel paths
+i_f=V/r_f
+i_l=P/V
+I_a=i_l+i_f
+disp(I_a,'(a)Armature current(in A)=')
+i=I_a/p
+disp(i,'(b)Current per armature path(in A)=')
+E=V+(I_a*r_a)
+disp(E,'(c)E.M.F generated(in volts)=')
\ No newline at end of file diff --git a/833/CH7/EX7.8/Ex7_8.txt b/833/CH7/EX7.8/Ex7_8.txt new file mode 100755 index 000000000..023d5c513 --- /dev/null +++ b/833/CH7/EX7.8/Ex7_8.txt @@ -0,0 +1,19 @@ +//Caption: Calculate (a)Total armature current (b)Current per armature path (c)Generated e.m.f
+//Exa:7.8
+clc;
+clear;
+close;
+p=4//Number of poles
+P=4000//Power of generator(in watts)
+V=230//Voltage of generator(in volts)
+r_f=115//Field resistance(in ohms)
+r_a=0.1//Armature resistance(in ohms)
+a=p//number of parallel paths
+i_f=V/r_f
+i_l=P/V
+I_a=i_l+i_f
+disp(I_a,'(a)Armature current(in A)=')
+i=I_a/p
+disp(i,'(b)Current per armature path(in A)=')
+E=V+(I_a*r_a)
+disp(E,'(c)E.M.F generated(in volts)=')
\ No newline at end of file diff --git a/833/CH7/EX7.8/Result7_8.txt b/833/CH7/EX7.8/Result7_8.txt new file mode 100755 index 000000000..1c276cce2 --- /dev/null +++ b/833/CH7/EX7.8/Result7_8.txt @@ -0,0 +1,11 @@ +(a)Armature current(in A)=
+
+ 19.391304
+
+ (b)Current per armature path(in A)=
+
+ 4.8478261
+
+ (c)E.M.F generated(in volts)=
+
+ 231.93913
\ No newline at end of file diff --git a/833/CH7/EX7.9/Ex7_9.sce b/833/CH7/EX7.9/Ex7_9.sce new file mode 100755 index 000000000..b41e432ba --- /dev/null +++ b/833/CH7/EX7.9/Ex7_9.sce @@ -0,0 +1,23 @@ +//Caption:Find the speed at which it will run as a motor
+//Exa:7.9
+clc;
+clear;
+close;
+P_g=110000//Power of generator(in watts)
+n=400//Speed of generator(in r.p.m)
+V=220//Voltage of busbars(in volts)
+P_m=10900//Power of motor(in watt)
+r_a=0.025//Armature resistance(in ohms)
+r_f=55//Field resistance(in ohms)
+v_b=1//Voltage drop at each brush(in volt)
+i_l=P_g/V
+i_f=V/r_f
+I_a=i_l+i_f
+V_a=I_a*r_a
+E=V+V_a+(2*v_b)
+I_1=P_m/V
+i_a=I_1-i_f
+v_a=i_a*r_a
+E_b=V-(i_a*r_a)-(2*v_b)
+N_m=(n*E_b)/E
+disp(N_m,'Speed at which generator will run as motor is(in r.p.m)=')
\ No newline at end of file diff --git a/833/CH7/EX7.9/Ex7_9.txt b/833/CH7/EX7.9/Ex7_9.txt new file mode 100755 index 000000000..b41e432ba --- /dev/null +++ b/833/CH7/EX7.9/Ex7_9.txt @@ -0,0 +1,23 @@ +//Caption:Find the speed at which it will run as a motor
+//Exa:7.9
+clc;
+clear;
+close;
+P_g=110000//Power of generator(in watts)
+n=400//Speed of generator(in r.p.m)
+V=220//Voltage of busbars(in volts)
+P_m=10900//Power of motor(in watt)
+r_a=0.025//Armature resistance(in ohms)
+r_f=55//Field resistance(in ohms)
+v_b=1//Voltage drop at each brush(in volt)
+i_l=P_g/V
+i_f=V/r_f
+I_a=i_l+i_f
+V_a=I_a*r_a
+E=V+V_a+(2*v_b)
+I_1=P_m/V
+i_a=I_1-i_f
+v_a=i_a*r_a
+E_b=V-(i_a*r_a)-(2*v_b)
+N_m=(n*E_b)/E
+disp(N_m,'Speed at which generator will run as motor is(in r.p.m)=')
\ No newline at end of file diff --git a/833/CH7/EX7.9/Result7_9.txt b/833/CH7/EX7.9/Result7_9.txt new file mode 100755 index 000000000..24f76682d --- /dev/null +++ b/833/CH7/EX7.9/Result7_9.txt @@ -0,0 +1,4 @@ +Speed at which generator will run as motor is(in r.p.m)=
+
+ 369.7551
+
\ No newline at end of file diff --git a/833/CH8/EX8.10/Ex8_10.sce b/833/CH8/EX8.10/Ex8_10.sce new file mode 100755 index 000000000..ab3e5a42a --- /dev/null +++ b/833/CH8/EX8.10/Ex8_10.sce @@ -0,0 +1,28 @@ +//Caption: Calculate efficiency of (a)motor and (b)generator
+//Exa:8.10
+clc;
+clear;
+close;
+V=230//Line voltage for both shunt machines(in volts)
+I=70//Line current excluding field currents of both machines(in A)
+i_a=400//Armature current(in A)
+i_f1=4//Field current of first machine(in A)
+i_f2=3//Field current of second machine(in A)
+r_a=0.03//Resistance of armature of each mchine(in ohms)
+P_acm=(i_a^2)*r_a
+P_i=V*I
+I_g=i_a-I
+P_acg=(I_g^2)*r_a
+P_f=(P_i-P_acm-P_acg)/2
+P_m=(V*i_a)+(V*i_f2)
+P_fc=V*i_f2
+L_t=P_fc+P_acm+P_f
+P_o=P_m-L_t
+n_m=(P_o/P_m)*100
+disp(n_m,'(a)Efficiency of motor(in%)=')
+P_og=V*I_g
+P_fcu=V*i_f1
+L_t1=P_f+P_fcu+P_acg
+P_ig=P_og+L_t1
+n_g=(P_og/P_ig)*100
+disp(n_g,'(b)Efficiency of generator(in%)=')
\ No newline at end of file diff --git a/833/CH8/EX8.10/Ex8_10.txt b/833/CH8/EX8.10/Ex8_10.txt new file mode 100755 index 000000000..ab3e5a42a --- /dev/null +++ b/833/CH8/EX8.10/Ex8_10.txt @@ -0,0 +1,28 @@ +//Caption: Calculate efficiency of (a)motor and (b)generator
+//Exa:8.10
+clc;
+clear;
+close;
+V=230//Line voltage for both shunt machines(in volts)
+I=70//Line current excluding field currents of both machines(in A)
+i_a=400//Armature current(in A)
+i_f1=4//Field current of first machine(in A)
+i_f2=3//Field current of second machine(in A)
+r_a=0.03//Resistance of armature of each mchine(in ohms)
+P_acm=(i_a^2)*r_a
+P_i=V*I
+I_g=i_a-I
+P_acg=(I_g^2)*r_a
+P_f=(P_i-P_acm-P_acg)/2
+P_m=(V*i_a)+(V*i_f2)
+P_fc=V*i_f2
+L_t=P_fc+P_acm+P_f
+P_o=P_m-L_t
+n_m=(P_o/P_m)*100
+disp(n_m,'(a)Efficiency of motor(in%)=')
+P_og=V*I_g
+P_fcu=V*i_f1
+L_t1=P_f+P_fcu+P_acg
+P_ig=P_og+L_t1
+n_g=(P_og/P_ig)*100
+disp(n_g,'(b)Efficiency of generator(in%)=')
\ No newline at end of file diff --git a/833/CH8/EX8.10/Result8_10.txt b/833/CH8/EX8.10/Result8_10.txt new file mode 100755 index 000000000..127b6abd4 --- /dev/null +++ b/833/CH8/EX8.10/Result8_10.txt @@ -0,0 +1,8 @@ +(a)Efficiency of motor(in%)=
+
+ 89.74377
+
+ (b)Efficiency of generator(in%)=
+
+ 90.245947
+
\ No newline at end of file diff --git a/833/CH8/EX8.11/Ex8_11.sce b/833/CH8/EX8.11/Ex8_11.sce new file mode 100755 index 000000000..3990192ce --- /dev/null +++ b/833/CH8/EX8.11/Ex8_11.sce @@ -0,0 +1,14 @@ +//Caption: Calculate efficiency of motor
+//Exa:8.11
+clc;
+clear;
+close;
+W=25//Effective load on break drum(in kgf)
+d=50//Diameter of drum(in cm)
+n=750//Speed of the motor(in r.p.m)
+I=25//Current taken by motor(in A)
+V=230//Voltage of motor(in volts)
+P_o=(2*%pi*n*W*9.81*(d/2))/(60*100)
+P_i=V*I
+Eff=(P_o/P_i)*100
+disp(Eff,'Efficiency of motor(in %)=')
\ No newline at end of file diff --git a/833/CH8/EX8.11/Ex8_11.txt b/833/CH8/EX8.11/Ex8_11.txt new file mode 100755 index 000000000..3990192ce --- /dev/null +++ b/833/CH8/EX8.11/Ex8_11.txt @@ -0,0 +1,14 @@ +//Caption: Calculate efficiency of motor
+//Exa:8.11
+clc;
+clear;
+close;
+W=25//Effective load on break drum(in kgf)
+d=50//Diameter of drum(in cm)
+n=750//Speed of the motor(in r.p.m)
+I=25//Current taken by motor(in A)
+V=230//Voltage of motor(in volts)
+P_o=(2*%pi*n*W*9.81*(d/2))/(60*100)
+P_i=V*I
+Eff=(P_o/P_i)*100
+disp(Eff,'Efficiency of motor(in %)=')
\ No newline at end of file diff --git a/833/CH8/EX8.11/Result8_11.txt b/833/CH8/EX8.11/Result8_11.txt new file mode 100755 index 000000000..c1573f7bc --- /dev/null +++ b/833/CH8/EX8.11/Result8_11.txt @@ -0,0 +1,4 @@ + Efficiency of motor(in %)=
+
+ 83.747348
+
\ No newline at end of file diff --git a/833/CH8/EX8.12/Ex8_12.sce b/833/CH8/EX8.12/Ex8_12.sce new file mode 100755 index 000000000..0c45ac658 --- /dev/null +++ b/833/CH8/EX8.12/Ex8_12.sce @@ -0,0 +1,22 @@ +//Caption:Find efficiency of motor
+//Exa:8.12
+clc;
+clear;
+close;
+V=500//Voltage of shunt motor(in volts)
+I=10//Current taken by motor on no load(inA)
+I_f=3//Field Current(inA)
+r_a=0.1//Armature resistance(in ohms)
+P_i=100000//Input power to motor(in watt)
+P_nl=V*I
+I_ao=I-I_f
+P_acn=(I_ao^2)*r_a
+P_fcn=I_f*V
+P_c=(P_nl)-P_acn-P_fcn
+I_l=P_i/V
+I_al=I_l-I_f
+P_acl=(I_al^2)*r_a
+P_fcl=V*I_f
+L_t=P_acl+P_fcl+P_c
+Eff=((P_i-L_t)/P_i)*100
+disp(Eff,'Efficiency of motor(in%) is=')
\ No newline at end of file diff --git a/833/CH8/EX8.12/Ex8_12.txt b/833/CH8/EX8.12/Ex8_12.txt new file mode 100755 index 000000000..0c45ac658 --- /dev/null +++ b/833/CH8/EX8.12/Ex8_12.txt @@ -0,0 +1,22 @@ +//Caption:Find efficiency of motor
+//Exa:8.12
+clc;
+clear;
+close;
+V=500//Voltage of shunt motor(in volts)
+I=10//Current taken by motor on no load(inA)
+I_f=3//Field Current(inA)
+r_a=0.1//Armature resistance(in ohms)
+P_i=100000//Input power to motor(in watt)
+P_nl=V*I
+I_ao=I-I_f
+P_acn=(I_ao^2)*r_a
+P_fcn=I_f*V
+P_c=(P_nl)-P_acn-P_fcn
+I_l=P_i/V
+I_al=I_l-I_f
+P_acl=(I_al^2)*r_a
+P_fcl=V*I_f
+L_t=P_acl+P_fcl+P_c
+Eff=((P_i-L_t)/P_i)*100
+disp(Eff,'Efficiency of motor(in%) is=')
\ No newline at end of file diff --git a/833/CH8/EX8.12/Result8_12.txt b/833/CH8/EX8.12/Result8_12.txt new file mode 100755 index 000000000..71c93598f --- /dev/null +++ b/833/CH8/EX8.12/Result8_12.txt @@ -0,0 +1,4 @@ +Efficiency of motor(in%) is=
+
+ 91.124
+
\ No newline at end of file diff --git a/833/CH8/EX8.2/Ex8_2.sce b/833/CH8/EX8.2/Ex8_2.sce new file mode 100755 index 000000000..dfb2d4921 --- /dev/null +++ b/833/CH8/EX8.2/Ex8_2.sce @@ -0,0 +1,14 @@ +//Caption: Find the (a)current (b)voltage required
+//Exa:8.2
+clc;
+clear;
+close;
+r=1//Resistance of series motor(in ohms)
+V=230//Voltage of series motor(in volts)
+n_1=300//Speed of motor(in r.p.m)
+i_1=15//Current taken by motor(in A)
+n_2=375//Speed of motor(in r.p.m)
+i_2=sqrt(((i_1^2)*(n_2^2))/(n_1^2))
+disp(i_2,'(a)Current(in A)=')
+V_2=(((V-(i_1*r))*(i_2*n_2))/(i_1*n_1))+(i_2*r)
+disp(V_2,'(b)Voltage(in volts)=')
\ No newline at end of file diff --git a/833/CH8/EX8.2/Ex8_2.txt b/833/CH8/EX8.2/Ex8_2.txt new file mode 100755 index 000000000..dfb2d4921 --- /dev/null +++ b/833/CH8/EX8.2/Ex8_2.txt @@ -0,0 +1,14 @@ +//Caption: Find the (a)current (b)voltage required
+//Exa:8.2
+clc;
+clear;
+close;
+r=1//Resistance of series motor(in ohms)
+V=230//Voltage of series motor(in volts)
+n_1=300//Speed of motor(in r.p.m)
+i_1=15//Current taken by motor(in A)
+n_2=375//Speed of motor(in r.p.m)
+i_2=sqrt(((i_1^2)*(n_2^2))/(n_1^2))
+disp(i_2,'(a)Current(in A)=')
+V_2=(((V-(i_1*r))*(i_2*n_2))/(i_1*n_1))+(i_2*r)
+disp(V_2,'(b)Voltage(in volts)=')
\ No newline at end of file diff --git a/833/CH8/EX8.2/Result8_2.txt b/833/CH8/EX8.2/Result8_2.txt new file mode 100755 index 000000000..457e2aa87 --- /dev/null +++ b/833/CH8/EX8.2/Result8_2.txt @@ -0,0 +1,8 @@ + (a)Current(in A)=
+
+ 18.75
+
+ (b)Voltage(in volts)=
+
+ 354.6875
+
\ No newline at end of file diff --git a/833/CH8/EX8.3/Ex8_3.sce b/833/CH8/EX8.3/Ex8_3.sce new file mode 100755 index 000000000..6183e26e1 --- /dev/null +++ b/833/CH8/EX8.3/Ex8_3.sce @@ -0,0 +1,13 @@ +//Caption: Find the resistance required
+//Exa:8.3
+clc;
+clear;
+close;
+I_1=40//Current taken by series motor(in A)
+V=500//Supplied voltage(in volts)
+n_1=100//Initial speed(in%)
+n_2=80//final speed(in%)
+I_2=sqrt(((I_1^2)*(n_2^2))/(n_1^2))
+a=(I_1*(n_1/100))/(I_2*(n_2/100))
+R=((a*V)-V)/(a*I_2)
+disp(R,'Resistance required(in ohms) is=')
\ No newline at end of file diff --git a/833/CH8/EX8.3/Ex8_3.txt b/833/CH8/EX8.3/Ex8_3.txt new file mode 100755 index 000000000..6183e26e1 --- /dev/null +++ b/833/CH8/EX8.3/Ex8_3.txt @@ -0,0 +1,13 @@ +//Caption: Find the resistance required
+//Exa:8.3
+clc;
+clear;
+close;
+I_1=40//Current taken by series motor(in A)
+V=500//Supplied voltage(in volts)
+n_1=100//Initial speed(in%)
+n_2=80//final speed(in%)
+I_2=sqrt(((I_1^2)*(n_2^2))/(n_1^2))
+a=(I_1*(n_1/100))/(I_2*(n_2/100))
+R=((a*V)-V)/(a*I_2)
+disp(R,'Resistance required(in ohms) is=')
\ No newline at end of file diff --git a/833/CH8/EX8.3/Result8_3.txt b/833/CH8/EX8.3/Result8_3.txt new file mode 100755 index 000000000..d354b8d5c --- /dev/null +++ b/833/CH8/EX8.3/Result8_3.txt @@ -0,0 +1,3 @@ +Resistance required(in ohms) is=
+
+ 5.625
\ No newline at end of file diff --git a/833/CH8/EX8.5/Ex8_5.sce b/833/CH8/EX8.5/Ex8_5.sce new file mode 100755 index 000000000..3de3879a4 --- /dev/null +++ b/833/CH8/EX8.5/Ex8_5.sce @@ -0,0 +1,21 @@ +//Caption: Find (a)Speed at full load torque (b)Speed at double full load torque (c)Stalling torque
+//Exa:8.5
+clc;
+clear;
+close;
+V=250//Voltage of motor(in volts)
+R_a=0.5//Armature resistance(in ohms)
+n=400//Speed of motor at full load(in r.p.m)
+i=30//Current taken by motor(in A)
+R=1//Series resistance with armature(in ohms)
+E_b1=V-(i*R_a)
+E_b2=V-((R_a+R)*i)
+N=n*(E_b2/E_b1)
+disp(N,'(a)Speed at full load torque(in r.p.m)=')
+I=2*i
+E_b=V-(I*(R+R_a))
+N_1=n*(E_b/E_b1)
+disp(N_1,'(b)Speed at double full load torque(in r.p.m)=')
+I_ft=V/(R+R_a)
+T_stalling=I_ft/i
+disp(T_stalling,'(c)Stalling torque=times the full load torque')
\ No newline at end of file diff --git a/833/CH8/EX8.5/Ex8_5.txt b/833/CH8/EX8.5/Ex8_5.txt new file mode 100755 index 000000000..3de3879a4 --- /dev/null +++ b/833/CH8/EX8.5/Ex8_5.txt @@ -0,0 +1,21 @@ +//Caption: Find (a)Speed at full load torque (b)Speed at double full load torque (c)Stalling torque
+//Exa:8.5
+clc;
+clear;
+close;
+V=250//Voltage of motor(in volts)
+R_a=0.5//Armature resistance(in ohms)
+n=400//Speed of motor at full load(in r.p.m)
+i=30//Current taken by motor(in A)
+R=1//Series resistance with armature(in ohms)
+E_b1=V-(i*R_a)
+E_b2=V-((R_a+R)*i)
+N=n*(E_b2/E_b1)
+disp(N,'(a)Speed at full load torque(in r.p.m)=')
+I=2*i
+E_b=V-(I*(R+R_a))
+N_1=n*(E_b/E_b1)
+disp(N_1,'(b)Speed at double full load torque(in r.p.m)=')
+I_ft=V/(R+R_a)
+T_stalling=I_ft/i
+disp(T_stalling,'(c)Stalling torque=times the full load torque')
\ No newline at end of file diff --git a/833/CH8/EX8.5/Result8_5.txt b/833/CH8/EX8.5/Result8_5.txt new file mode 100755 index 000000000..e6cd867ea --- /dev/null +++ b/833/CH8/EX8.5/Result8_5.txt @@ -0,0 +1,12 @@ +(a)Speed at full load torque(in r.p.m)=
+
+ 348.93617
+
+ (b)Speed at double full load torque(in r.p.m)=
+
+ 272.34043
+
+ (c)Stalling torque=times the full load torque=
+
+ 5.5555556
+
\ No newline at end of file diff --git a/833/CH8/EX8.6/Ex8_6.sce b/833/CH8/EX8.6/Ex8_6.sce new file mode 100755 index 000000000..a6a43a016 --- /dev/null +++ b/833/CH8/EX8.6/Ex8_6.sce @@ -0,0 +1,23 @@ +//Caption: Find (a)Input to generator from prime mover on full load (b)Efficiency on full load (c)Load current at which generator efficiency is maximum
+//Exa:8.6
+clc;
+clear;
+close;
+V=230//Voltage of generator(in volts)
+I=150//Full load current(in A)
+R_a=0.1//Armature resistance(in ohms)
+R_f=230//Field resistance(in ohms)
+P_s=1500//Stray losses(in watt)
+I_f=V/R_f
+I_a=I_f+I
+W_ac=(I_a^2)*R_a
+W_fc=(I_f^2)*R_f
+P_c=W_fc+P_s
+L_t=W_ac+P_c
+P_o=V*I
+P_i=P_o+L_t
+disp(P_i,'(a)Input to generator from prime mover on full load(in watt)=')
+Eff=(P_o/P_i)*100
+disp(Eff,'(b)Efficiency on full load(in %)=')
+I_l=sqrt(P_c/R_a)
+disp(I_l,'(c)Load current at which generator efficiency is maximum(in A)=')
\ No newline at end of file diff --git a/833/CH8/EX8.6/Ex8_6.txt b/833/CH8/EX8.6/Ex8_6.txt new file mode 100755 index 000000000..a6a43a016 --- /dev/null +++ b/833/CH8/EX8.6/Ex8_6.txt @@ -0,0 +1,23 @@ +//Caption: Find (a)Input to generator from prime mover on full load (b)Efficiency on full load (c)Load current at which generator efficiency is maximum
+//Exa:8.6
+clc;
+clear;
+close;
+V=230//Voltage of generator(in volts)
+I=150//Full load current(in A)
+R_a=0.1//Armature resistance(in ohms)
+R_f=230//Field resistance(in ohms)
+P_s=1500//Stray losses(in watt)
+I_f=V/R_f
+I_a=I_f+I
+W_ac=(I_a^2)*R_a
+W_fc=(I_f^2)*R_f
+P_c=W_fc+P_s
+L_t=W_ac+P_c
+P_o=V*I
+P_i=P_o+L_t
+disp(P_i,'(a)Input to generator from prime mover on full load(in watt)=')
+Eff=(P_o/P_i)*100
+disp(Eff,'(b)Efficiency on full load(in %)=')
+I_l=sqrt(P_c/R_a)
+disp(I_l,'(c)Load current at which generator efficiency is maximum(in A)=')
\ No newline at end of file diff --git a/833/CH8/EX8.6/Result8_6.txt b/833/CH8/EX8.6/Result8_6.txt new file mode 100755 index 000000000..8cb515000 --- /dev/null +++ b/833/CH8/EX8.6/Result8_6.txt @@ -0,0 +1,12 @@ +(a)Input to generator from prime mover on full load(in watt)=
+
+ 38510.1
+
+ (b)Efficiency on full load(in %)=
+
+ 89.586888
+
+ (c)Load current at which generator efficiency is maximum(in A)=
+
+ 131.52946
+
\ No newline at end of file diff --git a/833/CH8/EX8.7/Ex8_7.sce b/833/CH8/EX8.7/Ex8_7.sce new file mode 100755 index 000000000..7389ba8c3 --- /dev/null +++ b/833/CH8/EX8.7/Ex8_7.sce @@ -0,0 +1,34 @@ +//Caption: Calculate (a)Efficiency on full load (b)Efficiency on 40A input (c)Efficiency on 25A input (d)Full load speed regulation
+//Exa:8.7
+clc;
+clear;
+close;
+V=230//Voltage of motor(in volts)
+i_l=50//Full load current(in A)
+r_a=0.25//Armature resistance(in ohms)
+r_f=230//Field resistance(in ohms)
+i_o=3//No load current(in A)
+i_1=40//Input current(in A)
+i_2=25//Input current(in A)
+P_c=V*i_o
+P_i1=V*i_l
+i_f=V/r_f
+i_a1=i_l-i_f
+L_fl=((i_a1^2)*r_a)+P_c
+Eff_1=((P_i1-L_fl)/P_i1)*100
+disp(Eff_1,'(a)Efficiency on full load(in%)=')
+P_i2=V*i_1
+i_a2=i_1-i_f
+L=((i_a2^2)*r_a)+P_c
+Eff_2=((P_i2-L)/P_i2)*100
+disp(Eff_2,'(b)Efficiency on 40A input(in%)=')
+P_i3=V*i_2
+i_a3=i_2-i_f
+L_1=((i_a3^2*r_a)+P_c)
+Eff_3=((P_i3-L_1)/P_i3)*100
+disp(Eff_3,'(c)Efficiency on 25A input(in%)=')
+I_ao=i_o-i_f
+E_bo=V-(I_ao*r_a)
+E_bl=V-(r_a*i_a1)
+Re=((E_bo-E_bl)/E_bo)*100
+disp(Re,'(d)Full load speed regulation(in%)=')
\ No newline at end of file diff --git a/833/CH8/EX8.7/Ex8_7.txt b/833/CH8/EX8.7/Ex8_7.txt new file mode 100755 index 000000000..7389ba8c3 --- /dev/null +++ b/833/CH8/EX8.7/Ex8_7.txt @@ -0,0 +1,34 @@ +//Caption: Calculate (a)Efficiency on full load (b)Efficiency on 40A input (c)Efficiency on 25A input (d)Full load speed regulation
+//Exa:8.7
+clc;
+clear;
+close;
+V=230//Voltage of motor(in volts)
+i_l=50//Full load current(in A)
+r_a=0.25//Armature resistance(in ohms)
+r_f=230//Field resistance(in ohms)
+i_o=3//No load current(in A)
+i_1=40//Input current(in A)
+i_2=25//Input current(in A)
+P_c=V*i_o
+P_i1=V*i_l
+i_f=V/r_f
+i_a1=i_l-i_f
+L_fl=((i_a1^2)*r_a)+P_c
+Eff_1=((P_i1-L_fl)/P_i1)*100
+disp(Eff_1,'(a)Efficiency on full load(in%)=')
+P_i2=V*i_1
+i_a2=i_1-i_f
+L=((i_a2^2)*r_a)+P_c
+Eff_2=((P_i2-L)/P_i2)*100
+disp(Eff_2,'(b)Efficiency on 40A input(in%)=')
+P_i3=V*i_2
+i_a3=i_2-i_f
+L_1=((i_a3^2*r_a)+P_c)
+Eff_3=((P_i3-L_1)/P_i3)*100
+disp(Eff_3,'(c)Efficiency on 25A input(in%)=')
+I_ao=i_o-i_f
+E_bo=V-(I_ao*r_a)
+E_bl=V-(r_a*i_a1)
+Re=((E_bo-E_bl)/E_bo)*100
+disp(Re,'(d)Full load speed regulation(in%)=')
\ No newline at end of file diff --git a/833/CH8/EX8.7/Result8_7.txt b/833/CH8/EX8.7/Result8_7.txt new file mode 100755 index 000000000..1e342e1e1 --- /dev/null +++ b/833/CH8/EX8.7/Result8_7.txt @@ -0,0 +1,15 @@ + (a)Efficiency on full load(in%)=
+
+ 88.780435
+
+ (b)Efficiency on 40A input(in%)=
+
+ 88.366848
+
+ (c)Efficiency on 25A input(in%)=
+
+ 85.495652
+
+ (d)Full load speed regulation(in%)=
+
+ 5.1198257
\ No newline at end of file diff --git a/833/CH9/EX9.1/Ex9_1.sce b/833/CH9/EX9.1/Ex9_1.sce new file mode 100755 index 000000000..6264a42b6 --- /dev/null +++ b/833/CH9/EX9.1/Ex9_1.sce @@ -0,0 +1,19 @@ +//Caption:Find the dimensions of D and L
+//Exa:9.1
+clc;
+clear;
+close;
+P=15000//Power of shunt motor(in watt)
+V=440//Supplied voltage to motor(in volts)
+n=1500//Speed of motor(in r.p.m)
+e=88//Efficiency(in %)
+B=0.65//Average flux density(in webers/m^2)
+q=30000//Specific electric loading(ampere conductors/m)
+p=4//Number of poles
+R_f=220//Field resistance(in ohms)
+P_i=P/(e/100)
+I=P_i/V
+I_f=V/R_f
+D=170//Choosing the diameter(in mm)
+L=(P_i)/((%pi^2)*((D^2)*(10^(-6)))*B*q*(n/60)*(10^(-3)))
+disp(D,L,'Required dimensions of L and D(in mm) are=')
\ No newline at end of file diff --git a/833/CH9/EX9.1/Ex9_1.txt b/833/CH9/EX9.1/Ex9_1.txt new file mode 100755 index 000000000..6264a42b6 --- /dev/null +++ b/833/CH9/EX9.1/Ex9_1.txt @@ -0,0 +1,19 @@ +//Caption:Find the dimensions of D and L
+//Exa:9.1
+clc;
+clear;
+close;
+P=15000//Power of shunt motor(in watt)
+V=440//Supplied voltage to motor(in volts)
+n=1500//Speed of motor(in r.p.m)
+e=88//Efficiency(in %)
+B=0.65//Average flux density(in webers/m^2)
+q=30000//Specific electric loading(ampere conductors/m)
+p=4//Number of poles
+R_f=220//Field resistance(in ohms)
+P_i=P/(e/100)
+I=P_i/V
+I_f=V/R_f
+D=170//Choosing the diameter(in mm)
+L=(P_i)/((%pi^2)*((D^2)*(10^(-6)))*B*q*(n/60)*(10^(-3)))
+disp(D,L,'Required dimensions of L and D(in mm) are=')
\ No newline at end of file diff --git a/833/CH9/EX9.1/Result9_1.txt b/833/CH9/EX9.1/Result9_1.txt new file mode 100755 index 000000000..50599ef64 --- /dev/null +++ b/833/CH9/EX9.1/Result9_1.txt @@ -0,0 +1,6 @@ + Required dimensions of L and D(in mm) are=
+
+ 122.58473
+
+ 170.
+
\ No newline at end of file diff --git a/833/CH9/EX9.2/Ex9_2.sce b/833/CH9/EX9.2/Ex9_2.sce new file mode 100755 index 000000000..d8d096beb --- /dev/null +++ b/833/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,28 @@ +//Caption: Find values of the 5 steps in a 6 stud starter for a d.c. shunt motor
+//Exa:9.2
+clc;
+clear;
+close;
+P_o=3730//Output power(in watt)
+V=200//Voltage supplied to motor(in volts)
+e=88//Efficiency(in%)
+P_i=P_o/(e/100)
+I=P_i/V//Full load current
+I_a=I//Neglecting field current
+L=P_i-P_o
+Cu=(1/2)*L//Copper loss is half the total loss(Given)
+R_a=Cu/(I^2)
+I_m=(2*I)//Maximum current is twice full load current(Given)
+R_1=V/I_m
+g=(R_1/R_a)^(1/5)
+R_2=R_1/g
+r1=R_1-R_2
+R_3=R_2/g
+r2=R_2-R_3
+R_4=R_3/g
+r3=R_3-R_4
+R_5=R_4/g
+r4=R_4-R_5
+R_6=R_5/g
+r5=R_5-R_6
+disp(r5,r4,r3,r2,r1,'Required resistances r1,r2,r3,r4,r5(in ohms)=')
\ No newline at end of file diff --git a/833/CH9/EX9.2/Ex9_2.txt b/833/CH9/EX9.2/Ex9_2.txt new file mode 100755 index 000000000..d8d096beb --- /dev/null +++ b/833/CH9/EX9.2/Ex9_2.txt @@ -0,0 +1,28 @@ +//Caption: Find values of the 5 steps in a 6 stud starter for a d.c. shunt motor
+//Exa:9.2
+clc;
+clear;
+close;
+P_o=3730//Output power(in watt)
+V=200//Voltage supplied to motor(in volts)
+e=88//Efficiency(in%)
+P_i=P_o/(e/100)
+I=P_i/V//Full load current
+I_a=I//Neglecting field current
+L=P_i-P_o
+Cu=(1/2)*L//Copper loss is half the total loss(Given)
+R_a=Cu/(I^2)
+I_m=(2*I)//Maximum current is twice full load current(Given)
+R_1=V/I_m
+g=(R_1/R_a)^(1/5)
+R_2=R_1/g
+r1=R_1-R_2
+R_3=R_2/g
+r2=R_2-R_3
+R_4=R_3/g
+r3=R_3-R_4
+R_5=R_4/g
+r4=R_4-R_5
+R_6=R_5/g
+r5=R_5-R_6
+disp(r5,r4,r3,r2,r1,'Required resistances r1,r2,r3,r4,r5(in ohms)=')
\ No newline at end of file diff --git a/833/CH9/EX9.2/Result9_2.txt b/833/CH9/EX9.2/Result9_2.txt new file mode 100755 index 000000000..ec4693663 --- /dev/null +++ b/833/CH9/EX9.2/Result9_2.txt @@ -0,0 +1,12 @@ + Required resistances r1,r2,r3,r4,r5(in ohms)=
+
+ 1.6307632
+
+ 1.0671541
+
+ 0.6983343
+
+ 0.4569826
+
+ 0.2990446
+
\ No newline at end of file |