diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1853 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1853')
85 files changed, 968 insertions, 0 deletions
diff --git a/1853/CH1/EX1.1/Ex1_1.sce b/1853/CH1/EX1.1/Ex1_1.sce new file mode 100755 index 000000000..36d3a776c --- /dev/null +++ b/1853/CH1/EX1.1/Ex1_1.sce @@ -0,0 +1,6 @@ + //find the specific resistance of the material
+L =12 //meter
+A=0.01*10^-4 //m^2
+R=0.2 //ohm
+p=R*A/L //specific resistance
+disp('value of specific resistance='+string(p)+' ohm -meter')
diff --git a/1853/CH1/EX1.10/Ex1_10.sce b/1853/CH1/EX1.10/Ex1_10.sce new file mode 100755 index 000000000..29f388109 --- /dev/null +++ b/1853/CH1/EX1.10/Ex1_10.sce @@ -0,0 +1,9 @@ +
+//what is the resistance of each coil
+V=200
+I=25
+P1=1500
+R1=(V*V)/P1
+R=V/I //total resistance
+R2=R*R1/(R1-R)
+disp('R2='+string(R2)+' ohms' )
diff --git a/1853/CH1/EX1.11/Ex1_11.sce b/1853/CH1/EX1.11/Ex1_11.sce new file mode 100755 index 000000000..9ea29423d --- /dev/null +++ b/1853/CH1/EX1.11/Ex1_11.sce @@ -0,0 +1,16 @@ +
+//what is the resistance of each coil
+V=100
+P=1500
+R=(V^2/P)/2
+Ra=R
+Rb=R
+Rc=R
+R1=((Ra*Rc)/(Ra+Rc))+Rb
+I=V/R1
+I1=(I*Ra)/(Ra+Rc)
+I2=(I*Ra)/(Ra+Rc)
+Pa=I*I*Ra
+Pb=I1*I1*Rb
+Pc=I2*I2*Rc
+disp( 'Pc='+string(Pc)+' watts' , 'Pb='+string(Pb)+' watts' , 'Pa='+string(Pa)+' watts')
diff --git a/1853/CH1/EX1.12/Ex1_12.sce b/1853/CH1/EX1.12/Ex1_12.sce new file mode 100755 index 000000000..80c7179e9 --- /dev/null +++ b/1853/CH1/EX1.12/Ex1_12.sce @@ -0,0 +1,11 @@ +
+//determine the energy consume in a house in the month
+L=3600//six lamp 1000 watt each for six days
+H=3000//one haeter
+M=735.5//single phase motor
+F=2400//four fans 75W
+T=L+H+M+F//total energy consumed in watt
+TE=T*30/1000
+C=0.9//cost of energy
+B=TE*0.9//Bil amount
+disp('B= '+string(B)+' ')
diff --git a/1853/CH1/EX1.18/Ex1_18.sce b/1853/CH1/EX1.18/Ex1_18.sce new file mode 100755 index 000000000..52943a654 --- /dev/null +++ b/1853/CH1/EX1.18/Ex1_18.sce @@ -0,0 +1,9 @@ +
+//convert the delta circuit
+Rry=4
+Ryb=1
+Rbr=5
+Rr=(Rbr*Rry)/(Rry+Rbr+Ryb)
+Ry=(Rry*Ryb)/(Rry+Rbr+Ryb)
+Rb=(Rbr*Ryb)/(Rry+Rbr+Ryb)
+disp('Rb='+string(Rb)+ 'ohms' , 'Ry='+string(Ry)+ ' ohms' , 'Rr='+string(Rr)+' ohms')
diff --git a/1853/CH1/EX1.19/Ex1_19.sce b/1853/CH1/EX1.19/Ex1_19.sce new file mode 100755 index 000000000..48ecd642f --- /dev/null +++ b/1853/CH1/EX1.19/Ex1_19.sce @@ -0,0 +1,9 @@ +
+//convert star circuit
+Rr=2
+Ry=0.67
+Rb=1
+Rry=(Rr*Ry)+(Ry*Rb)+(Rb*Rr)/Rb
+Ryb=(Rr*Ry)+(Ry*Rb)+(Rb*Rr)/Rr
+Rbr=(Rr*Ry)+(Ry*Rb)+(Rb*Rr)/Ry
+disp('Rbr='+string(Rbr)+'ohms' , 'Ryb='+string(Ryb)+'ohms' , 'Rry='+string(Rry)+ 'ohms')
diff --git a/1853/CH1/EX1.2/Ex1_2.sce b/1853/CH1/EX1.2/Ex1_2.sce new file mode 100755 index 000000000..3fb8682b0 --- /dev/null +++ b/1853/CH1/EX1.2/Ex1_2.sce @@ -0,0 +1,8 @@ +
+//resistance at 40 degree
+a0=0.0043
+t1=27
+t2=40
+R1=1.5
+R2=R1*(1+a0*t2)/(1+a0*t1)
+disp('value of resistance='+string(R2)+ ' ohm')
diff --git a/1853/CH1/EX1.3/Ex1_3.sce b/1853/CH1/EX1.3/Ex1_3.sce new file mode 100755 index 000000000..cee9b621e --- /dev/null +++ b/1853/CH1/EX1.3/Ex1_3.sce @@ -0,0 +1,12 @@ +
+//find the total R.I.V
+R1=5
+R2=10
+R3=15
+V=120
+R=R1+R2+R3
+I=V/R
+V1=I*R1
+V2=I*R2
+V3=I*R3
+disp('Voltage V3='+string(V3)+'volts' , 'Voltage V2='+string(V2)+'volt' , 'Voltage V1='+string(V1)+'volts')
diff --git a/1853/CH1/EX1.4/Ex1_4.sce b/1853/CH1/EX1.4/Ex1_4.sce new file mode 100755 index 000000000..8fb079689 --- /dev/null +++ b/1853/CH1/EX1.4/Ex1_4.sce @@ -0,0 +1,6 @@ +
+//find the eqvivalent rasistance of series parallel combination
+Rab=(2*4)/(2+4)
+Rbc=(6*8)/(6+8)
+Rac=Rab+Rbc
+disp('rasistance across AC='+string(Rac)+'ohms')
diff --git a/1853/CH1/EX1.5/Ex1_5.sce b/1853/CH1/EX1.5/Ex1_5.sce new file mode 100755 index 000000000..a0284be93 --- /dev/null +++ b/1853/CH1/EX1.5/Ex1_5.sce @@ -0,0 +1,7 @@ +
+//find the eqvivalent resistance of series parallel combination
+Rab=4
+Rbc=(12*8)/(12+8)
+Rcd=(3*6)/(3+6)
+Rad=Rab+Rbc+Rcd
+disp('resistance across AC='+string(Rad)+' ohms')
diff --git a/1853/CH1/EX1.6/Ex1_6.sce b/1853/CH1/EX1.6/Ex1_6.sce new file mode 100755 index 000000000..7284f9145 --- /dev/null +++ b/1853/CH1/EX1.6/Ex1_6.sce @@ -0,0 +1,5 @@ +
+//what resistance must be connected in parallel
+R1=8
+R2=48/2//R1*R2/R1+R2
+disp('R2='+string(R2)+'ohms')
diff --git a/1853/CH1/EX1.7/Ex1_7.sce b/1853/CH1/EX1.7/Ex1_7.sce new file mode 100755 index 000000000..15c2808b8 --- /dev/null +++ b/1853/CH1/EX1.7/Ex1_7.sce @@ -0,0 +1,8 @@ +
+//calculate the current I1.I2
+I=12
+R1=6
+R2=8
+I1=I*R2/(R1+R2)
+I2=I*R1/(R1+R2)
+disp('I1='+string(I1)+'amps' , 'I2 ='+string(I2)+'amps')
diff --git a/1853/CH1/EX1.9/Ex1_9.sce b/1853/CH1/EX1.9/Ex1_9.sce new file mode 100755 index 000000000..553b928d3 --- /dev/null +++ b/1853/CH1/EX1.9/Ex1_9.sce @@ -0,0 +1,7 @@ +
+//find how current divide in circuit
+R1=0.02
+R2=0.03
+I1=(10*R2)/(R1+R2)
+I2=(10*R1)/(R1+R2)
+disp('I2='+string(I2)+ 'amps' , 'I1= '+string(I1)+ 'amps')
diff --git a/1853/CH2/EX2.1/Ex2_1.sce b/1853/CH2/EX2.1/Ex2_1.sce new file mode 100755 index 000000000..bb10be1eb --- /dev/null +++ b/1853/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,6 @@ +
+//determine the fukux density
+F=0.5e-3;//webers
+A=4*10^-4;//meter^2
+B=F/A;
+disp('flux density is = '+string(B)+' Wb/m^2');
diff --git a/1853/CH2/EX2.10/Ex2_10.sce b/1853/CH2/EX2.10/Ex2_10.sce new file mode 100755 index 000000000..9377dd060 --- /dev/null +++ b/1853/CH2/EX2.10/Ex2_10.sce @@ -0,0 +1,21 @@ +
+//calculate the total amprers turns
+u=1//for air gap
+F=1.2e-3//flux
+A=10e-4 //area
+B=F/A
+H=B/(4*3.14*10^-7*u)
+l=0.2e-3//air gap
+S=H*l//amps turns in air gap
+l1=15e-2//air gap
+A1=8e-4
+H1=450
+S1=H1*l1
+F1=0.6e-3
+B1=F1/A1
+H2=140
+S2=H2*30e-2
+TN=500
+TAN=S+S1+S2
+EI=TAN/TN
+disp('exciting current =' +string(EI)+'amps' )
diff --git a/1853/CH2/EX2.11/Ex2_11.sce b/1853/CH2/EX2.11/Ex2_11.sce new file mode 100755 index 000000000..de23741e6 --- /dev/null +++ b/1853/CH2/EX2.11/Ex2_11.sce @@ -0,0 +1,14 @@ +
+//calculate the hysteris loss
+A=50//area of hysterisis
+H=200
+B=0.2
+f=50
+D=10// density
+M=1000// mass
+V=M/D// velocity is mass /density
+HL=A*H*B//.....j/m^2/cycle
+HL1=A*H*B*10^-4//....j/cycle
+HL2=A*H*B*50*1e-4//....j/s
+
+disp('Hysteresis loop = '+string(HL2)+' j/s')
diff --git a/1853/CH2/EX2.2/Ex2_2.sce b/1853/CH2/EX2.2/Ex2_2.sce new file mode 100755 index 000000000..5f0b77579 --- /dev/null +++ b/1853/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,7 @@ +
+//determine the magnetic field strenght at the centre of solinoid
+I=2;//amp
+L=50e-2;//meter
+N=100;//turns
+H=(N*I)/L;
+disp('magnetic field strenght='+string(H)+'AT/m');
diff --git a/1853/CH2/EX2.3/Ex2_3.sce b/1853/CH2/EX2.3/Ex2_3.sce new file mode 100755 index 000000000..89ff4dd69 --- /dev/null +++ b/1853/CH2/EX2.3/Ex2_3.sce @@ -0,0 +1,10 @@ +
+//calculate the reluctance and current
+A=5e-4
+N=250
+l=50e-2
+F=700e-6
+u=380
+S=l/(4*%pi*10^-7*A*u)
+I=F*S/N
+disp('current='+string(I)+'amps' , 'reluctance ='+string(S)+'AT/Wb')
diff --git a/1853/CH2/EX2.4/Ex2_4.sce b/1853/CH2/EX2.4/Ex2_4.sce new file mode 100755 index 000000000..350c90380 --- /dev/null +++ b/1853/CH2/EX2.4/Ex2_4.sce @@ -0,0 +1,9 @@ +
+//determine the value of relative permeability of iron
+D=15e-2
+l=%pi*15e-2
+N=450
+I=2
+B=1.2
+u=B/(4*%pi*10^-7*N*I*l)
+disp('value of relative permeability='+string(u)+' ')
diff --git a/1853/CH2/EX2.5/Ex2_5.sce b/1853/CH2/EX2.5/Ex2_5.sce new file mode 100755 index 000000000..a84f54b5b --- /dev/null +++ b/1853/CH2/EX2.5/Ex2_5.sce @@ -0,0 +1,11 @@ +
+//calculate the mmf
+l=1.5
+u=1600
+B=1.2
+H1=B*l/(4*%pi*10^-7*u)
+la=1e-3
+ua=1
+H2=B*la/(4*%pi*10^-7*ua)
+H=H1+H2
+disp('total amprs turns ='+string(H)+' AT' , 'amprs turns='+string(H2)+' AT', 'amprs turns='+string(H1)+' AT')
diff --git a/1853/CH2/EX2.6/Ex2_6.sce b/1853/CH2/EX2.6/Ex2_6.sce new file mode 100755 index 000000000..907be96fa --- /dev/null +++ b/1853/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,16 @@ +
+//calculate the magnetising force relative permeability
+A=5e-4
+l=25e-2
+N=100
+I=2
+F=0.3e-3
+H=(N*I)/l
+u=(F*l)/(N*I*A*4*3.14*10^-7)
+B=(u*H*4*3.14*10^-7)
+I1=5
+F1=0.58e-3
+H1=(N*I1)/l
+u1=(F1*l)/(N*I*A*4*3.14*10^-7)
+B1=(u1*H*4*3.14*10^-7)
+disp('flux density B1=' +string(B1)+ 'Wb/m^2' ,'flux density B =' +string(B)+ 'Wb/m^2' )
diff --git a/1853/CH2/EX2.7/Ex2_7.sce b/1853/CH2/EX2.7/Ex2_7.sce new file mode 100755 index 000000000..d5f384088 --- /dev/null +++ b/1853/CH2/EX2.7/Ex2_7.sce @@ -0,0 +1,17 @@ +
+//calculate the magnitising current
+A=0.01
+l=2e-3
+u=1
+F=800e-6
+B=F/A//flux
+H=B/(4*3.14*10^-7*u)
+N=(H*l)
+L=150e-2
+v=600
+f=9.6e-4
+N1=(f*L)/(v*A*4*%pi*10^-7)
+N2=N1+N
+n=200
+M=N2/n
+disp( 'Magnetising current = '+string(M)+' A' , 'Total amps turns= '+string(N2)+' AT' , 'amps turn iron= '+string(N1)+' AT' , 'amps turn for air= '+string(N)+' AT' )
diff --git a/1853/CH2/EX2.8/Ex2_8.sce b/1853/CH2/EX2.8/Ex2_8.sce new file mode 100755 index 000000000..c00703b1e --- /dev/null +++ b/1853/CH2/EX2.8/Ex2_8.sce @@ -0,0 +1,12 @@ +
+//find the number of amprs turns required
+A=25e-4
+F=1.2e-3
+u=1 //air path
+l=0.25e-2
+N=(F*l/(4*%pi*10^-7*A*u))*2 // for two air gaps
+v=2000 // iron path
+L=50e-2
+N1=(F*L)/(v*A*4*%pi*10^-7)
+N2=N+N1
+disp( 'total amps turns = '+string(N2)+' AT' , 'amps turn for air= '+string(N1)+' AT' , 'amps turn for air= '+string(N)+' AT' )
diff --git a/1853/CH2/EX2.9/Ex2_9.sce b/1853/CH2/EX2.9/Ex2_9.sce new file mode 100755 index 000000000..f4410edac --- /dev/null +++ b/1853/CH2/EX2.9/Ex2_9.sce @@ -0,0 +1,26 @@ +
+//calculate the circuit current
+u=1//for air gap
+F=1.5e-3//flux
+A=9e-4 //area
+B=F/A
+H=B/(4*3.14*10^-7*u)
+l=4e-3//air gap
+S=H*l//amps turns in air gap
+l=4e-3//air gap
+u1=800// for iron gap
+A1=750e-6
+B1=F/A1
+H1=B1/(4*3.14*10^-7*u1)
+l1=270e-3
+S1=H1*l1
+u2=1000//for P,Q,R
+H2=B/(4*3.14*10^-7*u2)
+Ip=135e-3
+Iq=270e-3
+Ir=135e-3
+S2=H2*(Ip+Iq+Ir)//amps turns
+TNn=S+S1+S2
+TN=4000
+EI=TNn/TN
+disp('exciting current= '+string(EI)+' amps' )
diff --git a/1853/CH3/EX3.1/Ex3_1.sce b/1853/CH3/EX3.1/Ex3_1.sce new file mode 100755 index 000000000..80981dac8 --- /dev/null +++ b/1853/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,9 @@ +
+//calculate the emf induced in the coil
+N=200
+F1=1e-3
+F2=3e-3
+F3=F2-F1
+t=0.1
+e=N*F3/t //neglecting negative sign
+disp('induced emf= ' +string(e)+' volts')
diff --git a/1853/CH3/EX3.10/Ex3_10.sce b/1853/CH3/EX3.10/Ex3_10.sce new file mode 100755 index 000000000..e40d9a80a --- /dev/null +++ b/1853/CH3/EX3.10/Ex3_10.sce @@ -0,0 +1,7 @@ +
+//determine the pull between poles and keeper
+A=15e-4
+B=1.2
+U=1
+F=2*B*B*A/(2*4*3.14*10^-7)
+disp('Total force='+string(F)+' N')
diff --git a/1853/CH3/EX3.2/Ex3_2.sce b/1853/CH3/EX3.2/Ex3_2.sce new file mode 100755 index 000000000..10e13d90b --- /dev/null +++ b/1853/CH3/EX3.2/Ex3_2.sce @@ -0,0 +1,7 @@ +
+//calculate the emf inducedin a long wire
+B=1.2;//weber/meter^2...flux density
+V=4;//meter/second..velocity of conductor
+l=2;//meter...lenght of
+e=(B*V*l*1)//sin90=1
+disp('emf induced in the conductor='+string(e)+'volt');
diff --git a/1853/CH3/EX3.3/Ex3_3.sce b/1853/CH3/EX3.3/Ex3_3.sce new file mode 100755 index 000000000..df0a7590c --- /dev/null +++ b/1853/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,7 @@ +
+//find the inductance of the coil
+N=1500;// number of turns
+I=10;//amp...current in coil
+F=.5*10^-3;//weber...flux
+L=N*F/I;
+disp('inductance of coil='+string(L)+'henry');
diff --git a/1853/CH3/EX3.4/Ex3_4.sce b/1853/CH3/EX3.4/Ex3_4.sce new file mode 100755 index 000000000..dfe79c719 --- /dev/null +++ b/1853/CH3/EX3.4/Ex3_4.sce @@ -0,0 +1,12 @@ +
+//P3.4 calculate its self induction
+
+Ur=1;
+N=400;
+l=30e-2;
+A=5e-4;
+U0=4e-7*%pi;
+S=l/(U0*Ur*A);
+L=N^2/S;
+disp('Self inductance is = '+string(L)+' henry','S = '+string(S));
+
diff --git a/1853/CH3/EX3.5/Ex3_5.sce b/1853/CH3/EX3.5/Ex3_5.sce new file mode 100755 index 000000000..cf3ec69c9 --- /dev/null +++ b/1853/CH3/EX3.5/Ex3_5.sce @@ -0,0 +1,14 @@ +
+//calculat the inductance and emf induced in the coil
+u=1 //air core torroidal ring
+D=25e-2
+l=3.14*D
+N=500
+d=4e-2 //cross sectional diameter
+A=(3.14*d*d)/4 //cross sectional area
+s=l/(4*3.14*10^-7*u*A)
+L=N^2/s // self inductance
+dI=10
+dt=50e-3
+e=(L*dI)/dt
+disp('Induced emf=' +string(e)+' volts' , 'Inductance = '+string(L)+' henry' )
diff --git a/1853/CH3/EX3.6/Ex3_6.sce b/1853/CH3/EX3.6/Ex3_6.sce new file mode 100755 index 000000000..722cfb1c4 --- /dev/null +++ b/1853/CH3/EX3.6/Ex3_6.sce @@ -0,0 +1,14 @@ +
+//calculate the induced emf in the coil
+A=4e-4 //cross sectional is a squar side
+u=1 //air core torroidal ring
+D=25e-2
+l=3.14*D
+N=500
+d=4e-2 //cross sectional diameter
+s=l/(4*3.14*10^-7*u*A)
+L=N^2/s // self inductance
+dI=10
+dt=50e-3
+e=(L*dI)/dt
+disp('Induced emf=' +string(e)+' volts' , 'Inductance = '+string(L)+' henry' )
diff --git a/1853/CH3/EX3.7/Ex3_7.sce b/1853/CH3/EX3.7/Ex3_7.sce new file mode 100755 index 000000000..2406809ba --- /dev/null +++ b/1853/CH3/EX3.7/Ex3_7.sce @@ -0,0 +1,10 @@ +
+//calculate the induced emf in coil
+di=5
+dt=0.05
+L=5.029e-4
+di1=400
+dt1=1
+e=L*di/dt
+e1=L*di1/dt1
+disp('Induced emf= ' +string(e1)+' volts' , 'Induced emf= ' +string(e)+' volts')
diff --git a/1853/CH3/EX3.8/Ex3_8.sce b/1853/CH3/EX3.8/Ex3_8.sce new file mode 100755 index 000000000..743a25c4d --- /dev/null +++ b/1853/CH3/EX3.8/Ex3_8.sce @@ -0,0 +1,13 @@ +
+////calculate the mutual inductance between the two coil
+N1=50
+N2=400
+A=150e-4
+l=200e-2
+u=2500
+s=l/(4*3.14*10^-7*A*u)
+M=(N1*N2)/s
+dI1=24
+dt=0.03
+eM2=M*dI1/dt
+disp('induced emf= '+string(eM2)+' volts' , 'Mutual inductance= '+string(M)+' henry' , 's='+string(s)+' AT/Wb')
diff --git a/1853/CH3/EX3.9/Ex3_9.sce b/1853/CH3/EX3.9/Ex3_9.sce new file mode 100755 index 000000000..c241711d8 --- /dev/null +++ b/1853/CH3/EX3.9/Ex3_9.sce @@ -0,0 +1,6 @@ +
+//find the energy stored in it
+L=0.5
+I=2
+E=0.5*L*I*I
+disp('Energy stored= '+string(E)+' joule')
diff --git a/1853/CH4/EX4.1/Ex4_1.sce b/1853/CH4/EX4.1/Ex4_1.sce new file mode 100755 index 000000000..be182785c --- /dev/null +++ b/1853/CH4/EX4.1/Ex4_1.sce @@ -0,0 +1,12 @@ +
+//
+//i=40sin 314t
+//i=Imsin wt
+Im=40
+w=314
+Iav=Im/1.414
+Irms=Im*2/3.14
+f=w/(2*3.14)
+Ff=Irms/Iav
+Pf=Im/Irms
+disp('peak factor='+string(Pf)+ ' ' , 'form factor='+string(Ff)+ ' ' , 'frequency ='+string(f)+ ' ')
diff --git a/1853/CH4/EX4.12/Ex4_12.sce b/1853/CH4/EX4.12/Ex4_12.sce new file mode 100755 index 000000000..e70351905 --- /dev/null +++ b/1853/CH4/EX4.12/Ex4_12.sce @@ -0,0 +1,12 @@ +
+//determine the power dissipiated in resistance
+//v=200 sind 314t
+Vm=200;
+o=314; //@=omega
+//i=50 sind 314t
+Im=50
+o=314
+R=Vm/Im
+I=Im/1.414
+P=(I*I*R)
+disp( 'power dissipiated in resistance='+string(P)+' watts')
diff --git a/1853/CH4/EX4.13/Ex4_14.sce b/1853/CH4/EX4.13/Ex4_14.sce new file mode 100755 index 000000000..22b64fed2 --- /dev/null +++ b/1853/CH4/EX4.13/Ex4_14.sce @@ -0,0 +1,6 @@ +
+//determine the inductive reactance of the coil
+L=0.25;//henry....inductance
+f=50;//hertz...frequency
+X=2*3.14*f*L
+disp('value of inductive reactance='+string(X)+'ohms');
diff --git a/1853/CH4/EX4.15/Ex4_15.sce b/1853/CH4/EX4.15/Ex4_15.sce new file mode 100755 index 000000000..505e2efc4 --- /dev/null +++ b/1853/CH4/EX4.15/Ex4_15.sce @@ -0,0 +1,8 @@ +
+//calculate the current flowing through the coil
+L=0.05
+V=230
+f=60
+X=(2*%pi*f*L)
+I=V/X
+disp(' the current flowing through the coil='+string(I)+'amps')
diff --git a/1853/CH4/EX4.16/Ex4_16.sce b/1853/CH4/EX4.16/Ex4_16.sce new file mode 100755 index 000000000..886c66a5b --- /dev/null +++ b/1853/CH4/EX4.16/Ex4_16.sce @@ -0,0 +1,8 @@ +
+//detrmine the value of inductance
+I=5;//amp
+V=200;//volt
+f=50;//hertz
+X=V/I;
+L=40/(2*%pi*50);
+disp('the value of inductive.reactance='+string (X)+'ohms' , 'value of inductors='+string(L)+'henry');
diff --git a/1853/CH4/EX4.17/Ex4_17.sce b/1853/CH4/EX4.17/Ex4_17.sce new file mode 100755 index 000000000..1cafb3d28 --- /dev/null +++ b/1853/CH4/EX4.17/Ex4_17.sce @@ -0,0 +1,9 @@ +
+//write the time equation for voltage and current
+Vrms=150
+Vm=2*1.414*Vrms
+f=50
+L=0.2
+X=2*3.14*f*L
+Im=Vm/X
+disp('current equation i=212.132sin(314)t' , 'voltage equation v=3.376sin(314t-90)' , ' Im= '+string(Im)+ ' ')
diff --git a/1853/CH4/EX4.18/Ex4_18.sce b/1853/CH4/EX4.18/Ex4_18.sce new file mode 100755 index 000000000..802997504 --- /dev/null +++ b/1853/CH4/EX4.18/Ex4_18.sce @@ -0,0 +1,10 @@ +
+//calculate the current
+C=25e-6;
+V=200
+f=60 //frequency half
+f2=120 //frequency doubled
+Xc=1/(2*%pi*f*C)
+Xc=1/(2*%pi*f2*C)
+I=V/Xc
+disp('frequency half='+string(f)+'hz' , 'frequency douled='+string(f2)+'hz')
diff --git a/1853/CH4/EX4.19/Ex4_19.sce b/1853/CH4/EX4.19/Ex4_19.sce new file mode 100755 index 000000000..f8beb6a99 --- /dev/null +++ b/1853/CH4/EX4.19/Ex4_19.sce @@ -0,0 +1,8 @@ +
+//determine the value of capacitance nd current
+Xc=25
+V=200
+f=50
+C=1/(2*%pi*f*Xc)
+I=V/Xc
+disp('the value of capacitance ='+string(C)+'farad', 'the value of current='+string(I)+'amps')
diff --git a/1853/CH4/EX4.2/Ex4_2.sce b/1853/CH4/EX4.2/Ex4_2.sce new file mode 100755 index 000000000..fb30bffce --- /dev/null +++ b/1853/CH4/EX4.2/Ex4_2.sce @@ -0,0 +1,9 @@ +
+//determine the voltage sin wave
+f=50
+V=50
+Vm=V*1.414
+w=2*3.14*f
+t=(0:0.1:5*%pi)';
+plot2d1('onn',t,[5*sin(t)])
+disp('voltage equation v=70.7sin(314)t')
diff --git a/1853/CH4/EX4.20/Ex4_20.sce b/1853/CH4/EX4.20/Ex4_20.sce new file mode 100755 index 000000000..48092f023 --- /dev/null +++ b/1853/CH4/EX4.20/Ex4_20.sce @@ -0,0 +1,8 @@ +
+//find the frquency
+Vrms=110
+c=15e-6
+I=0.518
+Xc=Vrms/I
+f=1/(2*%pi*Xc*c)
+disp('value of frequency='+string(f)+'hz')
diff --git a/1853/CH4/EX4.21/Ex4_21.sce b/1853/CH4/EX4.21/Ex4_21.sce new file mode 100755 index 000000000..3dd98972b --- /dev/null +++ b/1853/CH4/EX4.21/Ex4_21.sce @@ -0,0 +1,12 @@ +
+//calculate the value of current
+R=10;//ohms
+L=0.02;//henry
+V=250;//volt
+f=50;//hertz
+X=(2*%pi*f*L)
+Z=sqrt(R^2+X^2)
+I=V/Z
+coso=R/Z
+o=acosd(coso)
+disp('phase angle='+string(o)+'degree', 'current flowing through coil='+string(I)+'amp')
diff --git a/1853/CH4/EX4.22/Ex4_22.sce b/1853/CH4/EX4.22/Ex4_22.sce new file mode 100755 index 000000000..6d35bc7cd --- /dev/null +++ b/1853/CH4/EX4.22/Ex4_22.sce @@ -0,0 +1,20 @@ +
+//find the inductance impd,curent,power factr,voltage.power
+R=50;//ohms
+L=0.5;//henry
+V=200;//volt
+f=50;//hertz
+X=(2*%pi*f*L)
+Z=sqrt(R^2+X^2)
+I=V/Z
+coso=R/Z
+sino=R/Z
+o=acosd(coso)
+o1=asind(sino)
+Vr=I*R
+Vl=I*X
+AP=V*I*coso
+RP=V*I*sino
+APP=V*I;
+//disp('Apprent power='+string(AP)+'degree''phase angle='+string(o)+'degree', 'crnt flowing through coil='+string(I)+'amp')
+disp('The time equation of current = 1.711sin(314t-72.34)')
diff --git a/1853/CH4/EX4.23/Ex4_23.sce b/1853/CH4/EX4.23/Ex4_23.sce new file mode 100755 index 000000000..e9a68192a --- /dev/null +++ b/1853/CH4/EX4.23/Ex4_23.sce @@ -0,0 +1,10 @@ +
+//determine the supply voltage
+R=15;//ohms
+L=0.15;//henry
+I=20;//ampss
+f=50;//hertz
+X=2*%pi*50*0.15
+Z=sqrt(R^2+X^2)
+V=I*Z
+disp('supply voltage = '+string(V)+'volts');
diff --git a/1853/CH4/EX4.24/Ex4_24.sce b/1853/CH4/EX4.24/Ex4_24.sce new file mode 100755 index 000000000..0d26acc5e --- /dev/null +++ b/1853/CH4/EX4.24/Ex4_24.sce @@ -0,0 +1,10 @@ +
+//determine the supply voltage
+V=200;//ohms
+L=0.4;//henry
+I=0.5;//ampss
+f=50;//hertz
+Z=V/I
+X=2*%pi*f*L
+R=sqrt(Z^2+X^2)
+disp('Resistance = '+string(R)+'ohms')
diff --git a/1853/CH4/EX4.25/Ex4_25.sce b/1853/CH4/EX4.25/Ex4_25.sce new file mode 100755 index 000000000..916781210 --- /dev/null +++ b/1853/CH4/EX4.25/Ex4_25.sce @@ -0,0 +1,10 @@ +
+//determine the inductance of the coil
+R=6
+V=250;//volts
+I=1.5;//amps
+Z=V/I;//impedance
+f=60;//hetrz
+X=sqrt(Z^2-R^2)
+L=X/(2*%pi*f)
+disp('inductance of coil='+string(L)+ 'henry')
diff --git a/1853/CH4/EX4.27/Ex4_27.sce b/1853/CH4/EX4.27/Ex4_27.sce new file mode 100755 index 000000000..f05ddd6c6 --- /dev/null +++ b/1853/CH4/EX4.27/Ex4_27.sce @@ -0,0 +1,15 @@ +
+//determine the inductance of the coil and voltage across each element
+I=7
+V=200
+f=50
+R=10
+r=1.5 //rasistance choke coil
+V1=I*R
+V3=I*r
+V2=sqrt(V^2-(V1+V3)^2)
+X=V2/I //inductive reactance
+L=X/(2*%pi*f)
+V4=sqrt(V2^2+V3^2) ///voltage across choking coil
+disp('voltage across choking coil='+string(V4)+'volts' , 'inductor='+string(L)+'henry')
+
diff --git a/1853/CH4/EX4.28/Ex4_28.sce b/1853/CH4/EX4.28/Ex4_28.sce new file mode 100755 index 000000000..db8bcfea4 --- /dev/null +++ b/1853/CH4/EX4.28/Ex4_28.sce @@ -0,0 +1,21 @@ +
+4.28//voltage across R$C
+C=15e-6;//farad..
+R=100;//ohms
+V=100;//volts
+f=50;//hertz
+Xc=1/(2*%pi*f*C);
+Z=sqrt(R^2+(Xc^2));
+I=V/Z;
+coso=R/Z;
+sino=R/Z
+o=acosd(coso);
+o=asind(sino)
+Vr=I*R;
+Vc=I*Xc;
+AP=V*I*coso
+RP=V*I*sino
+APP=V*I;
+disp('The time equation of current i = (0.426)1.414sin(314t-64.34)' , 'Apparent power ='+string(APP)+'vars ' , 'ACTIVE POWER ='+string(AP)+ ' watts' )
+
+
diff --git a/1853/CH4/EX4.29/Ex4_29.sce b/1853/CH4/EX4.29/Ex4_29.sce new file mode 100755 index 000000000..99a47ef3f --- /dev/null +++ b/1853/CH4/EX4.29/Ex4_29.sce @@ -0,0 +1,10 @@ +
+//determine the frequency
+R=30;//ohms
+L=0.5;//henry
+f=50;//hertz
+X=(2*%pi*f*L)
+Z=R+%i*X
+V=86.6+%i*50
+I=V/Z
+disp('current = '+string(I)+ 'A')
diff --git a/1853/CH4/EX4.3/Ex4_3.sce b/1853/CH4/EX4.3/Ex4_3.sce new file mode 100755 index 000000000..e2953f61a --- /dev/null +++ b/1853/CH4/EX4.3/Ex4_3.sce @@ -0,0 +1,12 @@ +
+//determine the time taken to reach the intantaneous of 150
+f=50
+Vr=200
+Vm=Vr*1.414
+t=2.5e-3
+w=2*3.14*f*t
+v=Vm*sind(w*180/%pi)
+v1=150 //v1=Vmsimwt
+t=1/18000*asind(150/282.8)
+disp( 'voltage equation='+string(v)+' volts ' , 'time='+string(t)+' seconds ')
+
diff --git a/1853/CH4/EX4.30/Ex4_30.sce b/1853/CH4/EX4.30/Ex4_30.sce new file mode 100755 index 000000000..41944455b --- /dev/null +++ b/1853/CH4/EX4.30/Ex4_30.sce @@ -0,0 +1,15 @@ +
+//find the equation of voltage and current
+C=10e-6;//farad..
+R=300;//ohms
+//i=2 sin 314t
+V=100;//volts
+f=50;//hertz
+Xc=1/(2*%pi*f*C);
+Z=sqrt(R^2+(Xc^2));
+Im=2
+Vm=2*Z
+coso=R/Z;
+o=acosd(coso);
+disp('The time equation of voltage Vr = 600sin(314t)' , 'The time equation of voltage Vc = 636sin(wt-90)')
+
diff --git a/1853/CH4/EX4.31/Ex4_31.sce b/1853/CH4/EX4.31/Ex4_31.sce new file mode 100755 index 000000000..e56ec1b38 --- /dev/null +++ b/1853/CH4/EX4.31/Ex4_31.sce @@ -0,0 +1,12 @@ +
+//calculate the value of RESISTANCE AND CAPACITANCE
+I=2.5;//amps
+V=150;//volts
+f=50;//hetz
+Z=V/I;
+P=100;//watt..power
+R=P/(I*I)
+Xc=sqrt(Z^2-R^2)
+C=1/(2*3.14*f*Xc);// capacitance
+disp('find tha value of capacitance='+string(C)+'farad');
+
diff --git a/1853/CH4/EX4.32/Ex4_32.sce b/1853/CH4/EX4.32/Ex4_32.sce new file mode 100755 index 000000000..66828e967 --- /dev/null +++ b/1853/CH4/EX4.32/Ex4_32.sce @@ -0,0 +1,11 @@ +
+//determine the value of capacitance
+V1=100;//volts
+V=250;//volts
+f=50;//hertz
+P=500;//watt
+I=P/V;
+V2=sqrt(V^2-V1^2);//volts
+Xc=V2/I;
+C=1/(2*%pi*f*Xc);
+disp('determine the value of capacitance='+string(C)+'farad');
diff --git a/1853/CH4/EX4.33/Ex4_33.sce b/1853/CH4/EX4.33/Ex4_33.sce new file mode 100755 index 000000000..d3d78a0d8 --- /dev/null +++ b/1853/CH4/EX4.33/Ex4_33.sce @@ -0,0 +1,17 @@ +
+//determine the ind.reactance nd capacitance nd voltage across R L C
+R=25
+C=20e-6
+L=0.15
+V=250
+f=50
+X=2*%pi*f*L
+Xc=1/(2*%pi*f*C)
+Z=sqrt(R^2+(X-Xc)^2)
+I=V/Z
+coso=R/Z
+o=acosd(coso)
+Vr=I*R
+Vl=I*X
+Vc=I*Xc
+disp('Vr='+string(Vr)+'volts' , 'Vl='+string(Vl)+'volts' , 'Vc='+string(Vc)+'volts' , 'phase angle='+string(o)+'degree' , 'current='+string(I)+'amps' , 'impedence='+string(Z)+'ohms' , 'ind.reactance='+string(X)+'ohms' , 'ind capacitance='+string(Xc)+'ohms')
diff --git a/1853/CH4/EX4.34/Ex4_34.sce b/1853/CH4/EX4.34/Ex4_34.sce new file mode 100755 index 000000000..bd8cf1a9b --- /dev/null +++ b/1853/CH4/EX4.34/Ex4_34.sce @@ -0,0 +1,19 @@ +
+//determine the current also V1 nd V2
+V=250
+f=50
+R1=10
+L1=0.15
+C1=10e-6
+X1=2*%pi*f*L1
+Xc1=1/(2*%pi*f*C1)
+R2=8
+L2=0.25
+X2=2*%pi*f*L2
+Z=sqrt((R1+R2)^2+[(X1+X2)-Xc1]^2)
+I=V/Z
+Z1=sqrt(R1^2+(X1-Xc1)^2)
+V1=I*Z1
+Z2=sqrt(R2^2+X2^2)
+V2=I*Z2
+disp('value of current='+string(I)+'amps' , 'v1='+string(V1)+'volts', 'V2='+string(V2)+'volts')
diff --git a/1853/CH4/EX4.35/Ex4_35.sce b/1853/CH4/EX4.35/Ex4_35.sce new file mode 100755 index 000000000..7163d7377 --- /dev/null +++ b/1853/CH4/EX4.35/Ex4_35.sce @@ -0,0 +1,9 @@ +
+//determine the value of max. current
+C=30e-6;//farad
+R=12;//ohms
+L=0.2;//henry
+V=200;//volt
+I=V/R
+f=1/(2*%pi*sqrt (L*C))
+disp('frequency='+string(f)+'hertz','maximum crnt='+string(I)+'amp')
diff --git a/1853/CH4/EX4.36/Ex4_36.sce b/1853/CH4/EX4.36/Ex4_36.sce new file mode 100755 index 000000000..b8ac0dd90 --- /dev/null +++ b/1853/CH4/EX4.36/Ex4_36.sce @@ -0,0 +1,8 @@ +
+//calculate freq at resonance
+C=30*10^-6
+L=0.2
+R=12
+F= sqrt(1/(L*C)-R^2/(L*L))
+f=1/(2*3.14)*F
+disp(('freq at resonance='+string(f)+'hz'))
diff --git a/1853/CH4/EX4.37/Ex4_37.sce b/1853/CH4/EX4.37/Ex4_37.sce new file mode 100755 index 000000000..7ecd3c43c --- /dev/null +++ b/1853/CH4/EX4.37/Ex4_37.sce @@ -0,0 +1,27 @@ +
+//determine the current also power nd power factor
+V=200+%i*0
+f=50
+R1=30
+L1=0.2
+C1=10e-6
+X1=2*%pi*f*L1
+Z1=R1+%i*X1
+R2=40
+L2=0.12
+X2=2*%pi*f*L2
+Z2=R2+%i*X2
+Z=(Z1*Z2)/(Z1+Z2)
+I=V/Z
+R=18.858//calculatimg Z and I we get R and Z,I
+Z=31.06
+coso=R/Z
+I=6.44
+P=I^2*R
+I1=(I*Z1)/(Z1+Z2)
+I2=(I*Z1)/(Z1+Z2)
+coso1=R1/Z1
+P1=I1^2*R1
+coso2=R2/Z2
+P2=(I2)^2*R2
+disp('P2 ='+string(P2)+ 'watt' ,'P1 ='+string(P1)+ 'watt ' , 'Total power factr='+string(coso)+'' , 'Total power='+string(P)+'watt' , 'total current ='+string(I)+'amps' , 'total impedance='+string(Z)+'ohms' )
diff --git a/1853/CH4/EX4.38/Ex4_38.sce b/1853/CH4/EX4.38/Ex4_38.sce new file mode 100755 index 000000000..4794fa989 --- /dev/null +++ b/1853/CH4/EX4.38/Ex4_38.sce @@ -0,0 +1,23 @@ +
+//determine the current also power nd power factor
+V=200+%i*0
+f=50
+R1=10
+X1=12
+Z1=R1+%i*X1
+R2=15
+Xc2=20
+Z2=R2-%i*Xc2
+Z=(Z1*Z2)/(Z1+Z2)
+I=V/Z//calculatimg Z and I we get R and Z,I
+R=14.36
+I=13.46
+coso=R/Z
+P=I*I*R
+I1=(I*Z2)/(Z1+Z2)
+I2=(I*Z1)/(Z1+Z2)
+coso1=R1/Z1
+P1=I1*I1*R1
+coso2=R2/Z2
+P2=I2*I2*R2
+disp('P2 ='+string(P2)+ 'watt' ,'P1 ='+string(P1)+ 'watt ' , 'Total power factr='+string(coso)+'' , 'Total power='+string(P)+'watt' , 'total current ='+string(I)+'amps' , 'total impedance Z ='+string(Z)+'ohms' )
diff --git a/1853/CH4/EX4.40/Ex4_40.sce b/1853/CH4/EX4.40/Ex4_40.sce new file mode 100755 index 000000000..01e133ea8 --- /dev/null +++ b/1853/CH4/EX4.40/Ex4_40.sce @@ -0,0 +1,15 @@ +
+//calculate the line currnt nd voltage
+R=200
+Vl=440
+f=50
+V=Vl/1.732//star connection
+I=V/R
+Il=I
+coso=1
+P=3*V*I*coso
+Vp=440//delta connection
+Vl=440
+I1=1.732*I
+P1=3*Vp*I*coso
+disp('active power='+string(P)+'watt' , 'active power='+string(P1)+'watt' )
diff --git a/1853/CH4/EX4.41/Ex4_41.sce b/1853/CH4/EX4.41/Ex4_41.sce new file mode 100755 index 000000000..637f13aa9 --- /dev/null +++ b/1853/CH4/EX4.41/Ex4_41.sce @@ -0,0 +1,14 @@ +
+//calculate total power absrbed
+R=15
+L=0.25
+f=50
+X=2*%pi*f*L
+Z=sqrt(R^2+X^2)
+Vl=400
+V=Vl/1.732 //in star connection
+I=V/Z
+Il=I
+coso=R/Z
+P=3*V*Il*coso
+disp('total power absorbed='+string(P)+'watt')
diff --git a/1853/CH4/EX4.42/Ex4_42.sce b/1853/CH4/EX4.42/Ex4_42.sce new file mode 100755 index 000000000..004288743 --- /dev/null +++ b/1853/CH4/EX4.42/Ex4_42.sce @@ -0,0 +1,11 @@ +
+//calculate resistance nd reactance of circuit
+P=15000; //power
+Vl=400;//line voltage
+V=Vl/1.732
+I=35;//line current equal to phase current
+Z=V/I
+coso=15e3/(1.732*400*35)
+R=Z*coso
+X=sqrt(Z^2-R^2)
+disp('reactance='+string(X)+'ohms' ,'resistance='+string(R)+'ohms')
diff --git a/1853/CH4/EX4.43/Ex4_43.sce b/1853/CH4/EX4.43/Ex4_43.sce new file mode 100755 index 000000000..e0442caf0 --- /dev/null +++ b/1853/CH4/EX4.43/Ex4_43.sce @@ -0,0 +1,6 @@ +
+//calculate power factor
+W1=5000//W1=V*L*cos(30+o)
+W2=3000//W2=V*L*cos(30-o)
+o=atand (1.732*(W1-W2)/(W1+W2))
+disp('power factor='+string(o)+' ')
diff --git a/1853/CH5/EX5.1/Ex5_1.sce b/1853/CH5/EX5.1/Ex5_1.sce new file mode 100755 index 000000000..5f3248b72 --- /dev/null +++ b/1853/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,11 @@ +
+//P5.1 determine the induced emf in the armature
+P=4;//poles
+A=2;//wave wound
+N=50;//number of slots
+SperCondctr=24;//slots/conductor
+Z=SperCondctr*N;//total conductor
+N=600;//rpm....speed of armature
+F=10e-3;//webers....flux/poles
+E=F*Z*N*P/(60*A);//emf induced
+disp('e.m.f induced is = '+string(E)+' volts');
diff --git a/1853/CH5/EX5.10/Ex5_10.sce b/1853/CH5/EX5.10/Ex5_10.sce new file mode 100755 index 000000000..70ed0be13 --- /dev/null +++ b/1853/CH5/EX5.10/Ex5_10.sce @@ -0,0 +1,13 @@ +
+//dtermine its speed when its take crnt 25 amps
+Vl=250
+Ra=0.05
+R=0.02
+Ia=30
+I1=30 //Il=Ia
+N1=400
+E1=Vl-(Ia*Ra)-(Ia*R)
+//E1=E2
+I2=25
+N2=(N1*E1*I1)/(E1*I2)
+disp('speed of motor='+string(N2)+'rpm')
diff --git a/1853/CH5/EX5.11/Ex5_11.sce b/1853/CH5/EX5.11/Ex5_11.sce new file mode 100755 index 000000000..42db7308d --- /dev/null +++ b/1853/CH5/EX5.11/Ex5_11.sce @@ -0,0 +1,13 @@ +
+//find the torque whn its take scurnt 60amprs
+Vl=200
+Il=60 //amprs
+R=50
+I=Vl/R // amprs
+Ia=Il-I //amprs
+f=0.03 // flux
+Z=700
+P=4
+A=2
+T=(0.159*f*Z*Ia*P)/A
+disp('Torque='+string(T)+'N-m')
diff --git a/1853/CH5/EX5.12/Ex5_12.sce b/1853/CH5/EX5.12/Ex5_12.sce new file mode 100755 index 000000000..aaaf89e31 --- /dev/null +++ b/1853/CH5/EX5.12/Ex5_12.sce @@ -0,0 +1,10 @@ +
+//calcute the num of prim turns and prim $sec current
+KVA=50
+E1=6000
+E2=250
+N2=52
+N1=N2*E1/E2
+I2=KVA*1000/E2
+I1=KVA*1000/E1
+disp('prim current I1 = '+string(I1)+' amps' , 'sec current I2 = '+string(I2)+' amps' , 'prim num of turns N1 = '+string(N1)+' turns' )
diff --git a/1853/CH5/EX5.13/Ex5_13.sce b/1853/CH5/EX5.13/Ex5_13.sce new file mode 100755 index 000000000..5e41e8923 --- /dev/null +++ b/1853/CH5/EX5.13/Ex5_13.sce @@ -0,0 +1,10 @@ +
+//determine the emf induced in the secondry max value of flux density
+f=50
+N1=350
+N2=800
+E1=400
+E2=(N2*E1)/N1
+A=75e-4
+Bm=E1/(4.44*f*A*N1)
+disp('flux density='+string(Bm)+'wb/m^2')
diff --git a/1853/CH5/EX5.14/Ex5_14.sce b/1853/CH5/EX5.14/Ex5_14.sce new file mode 100755 index 000000000..243aa0a87 --- /dev/null +++ b/1853/CH5/EX5.14/Ex5_14.sce @@ -0,0 +1,10 @@ +
+//find the magnetic nd iron loss component of current
+E1=440
+E2=200
+I=0.2
+coso=0.18
+sino=sqrt(1-coso^2)
+Iw=I*coso
+Iu=I*sino
+disp('Iw='+string(Iw)+'amps' , 'Iu='+string(Iu)+'amprs')
diff --git a/1853/CH5/EX5.15/Ex5_15.sce b/1853/CH5/EX5.15/Ex5_15.sce new file mode 100755 index 000000000..31a17d345 --- /dev/null +++ b/1853/CH5/EX5.15/Ex5_15.sce @@ -0,0 +1,18 @@ +
+//calculate teh efficiency at loads
+KVA=20
+Il=350
+Cl=400
+x=1
+pf=0.8//at full load
+pf1=0.4 //at half load
+x1=0.5
+op=KVA*1000*x
+op1=KVA*1000*x1*pf1
+Tl=Il+(Cl*x*x)
+Tl1=Il+(Cl*x1*x1)
+ip=op+Tl
+ip1=op1+Tl1
+%n=op/ip*100
+%n1=op1/ip1*100
+disp('efficiency at half load n = '+string(%n1)+' ' , 'efficiency at full load n1 = '+string(%n)+' ' )
diff --git a/1853/CH5/EX5.16/Ex5_16.sce b/1853/CH5/EX5.16/Ex5_16.sce new file mode 100755 index 000000000..d536c6df7 --- /dev/null +++ b/1853/CH5/EX5.16/Ex5_16.sce @@ -0,0 +1,9 @@ +
+//calculate the synchronous speed ,slip,frequncy induced emf
+f=50
+p=4
+Ns=120*f/p
+N=1460
+s=(Ns-N)/Ns
+f1=(s*f)
+disp( 'f1='+string(f1)+'hz' , 's='+string(s)+' ' , 'Ns='+string(Ns)+'rpm' )
diff --git a/1853/CH5/EX5.17/Ex5_17.sce b/1853/CH5/EX5.17/Ex5_17.sce new file mode 100755 index 000000000..1d2b4ec60 --- /dev/null +++ b/1853/CH5/EX5.17/Ex5_17.sce @@ -0,0 +1,9 @@ +
+//determine the value of slip nd speed of motor
+P=6
+f=50
+Ns=120*f/P
+f1=1.5
+s=f1/f
+N=Ns*(1-s)
+disp('speed of motor='+string(N)+'RPM')
diff --git a/1853/CH5/EX5.18/Ex5_18.sce b/1853/CH5/EX5.18/Ex5_18.sce new file mode 100755 index 000000000..a676b1c3a --- /dev/null +++ b/1853/CH5/EX5.18/Ex5_18.sce @@ -0,0 +1,10 @@ +
+//calculate the numbers of poles ,slip at full load,frequncy rotor,speed of motor
+Ns=1000
+N=960
+f=50
+P=120*f/Ns// synchronous speed
+s=(Ns-N)/Ns
+f1=s*f
+N=Ns*(1-0.08)//speed of motor at 8% slip
+disp('speed of rotor='+string(N)+'RPM')
diff --git a/1853/CH5/EX5.19/Ex5_19.sce b/1853/CH5/EX5.19/Ex5_19.sce new file mode 100755 index 000000000..48f28725b --- /dev/null +++ b/1853/CH5/EX5.19/Ex5_19.sce @@ -0,0 +1,11 @@ +
+//calculate the induced emf per phase
+f=50
+P=16
+N=160
+S=6
+n=N*S
+Z=n/3
+F=0.025
+e=2.22*F*f*Z
+disp('e='+string(e)+'volts')
diff --git a/1853/CH5/EX5.2/Ex5_2.sce b/1853/CH5/EX5.2/Ex5_2.sce new file mode 100755 index 000000000..ac1cfb077 --- /dev/null +++ b/1853/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,11 @@ +
+//P5.2 determine the induced emf in the armature
+P=4;//poles
+A=4;//wave wound
+N=50;//number of slots
+SperCondctr=24;//slots/conductor
+Z=SperCondctr*N;//total conductor
+N=600;//rpm....speed of armature
+F=10e-3;//webers....flux/poles
+E=F*Z*N*P/(60*A);//emf induced
+disp('e.m.f induced is = '+string(E)+' volts');
diff --git a/1853/CH5/EX5.3/Ex5_3.sce b/1853/CH5/EX5.3/Ex5_3.sce new file mode 100755 index 000000000..4c3ef4fd1 --- /dev/null +++ b/1853/CH5/EX5.3/Ex5_3.sce @@ -0,0 +1,10 @@ +
+//determine the speed
+P=6;//poles
+A=2;//wave wound
+Z=780;//armature conductors
+F=12*10^-3;//webers..flux/poles
+E=400;//volt
+N=(E*60*2)/(F*Z*P);
+N2=(E*60*6)/(F*Z*P);
+disp('determine the speed='+string(N)+'rpm', 'determine the speed (A=P=6)='+string(N2)+'rpm');
diff --git a/1853/CH5/EX5.4/Ex5_4.sce b/1853/CH5/EX5.4/Ex5_4.sce new file mode 100755 index 000000000..0f3d0dfaf --- /dev/null +++ b/1853/CH5/EX5.4/Ex5_4.sce @@ -0,0 +1,11 @@ +
+//determine the emf induced
+R=0.05;
+Rs=100;
+V=250;
+P=10000;
+I=P/V;
+Is=V/Rs;
+Ia=I+Is;
+Eg=V+(R*Ia);
+disp('emf induced='+string(Eg)+'volts');
diff --git a/1853/CH5/EX5.5/Ex5_5.sce b/1853/CH5/EX5.5/Ex5_5.sce new file mode 100755 index 000000000..ca7d1ccce --- /dev/null +++ b/1853/CH5/EX5.5/Ex5_5.sce @@ -0,0 +1,12 @@ +
+//calculate the emf induced in the armature
+Il=200
+Vl=500
+Ra=0.03
+Rs=0.015
+R=150
+BCD=2 //one volt per brush
+I=Vl/R
+Ia=Il+I
+Eg=Vl+(Ia*Ra)+(Ia*Rs)+BCD
+disp('emf induced= '+string(Eg)+' volts');
diff --git a/1853/CH5/EX5.6/Ex5_6.sce b/1853/CH5/EX5.6/Ex5_6.sce new file mode 100755 index 000000000..86a17cd61 --- /dev/null +++ b/1853/CH5/EX5.6/Ex5_6.sce @@ -0,0 +1,13 @@ +
+//calculate the emf induced in the armature
+Il=200
+Vl=500
+Ra=0.03
+Rs=0.015
+Is=200 //for a short shunt generator Il=Ise
+R=150
+BCD=2 //one volt per brush
+I=(Vl+(Is*Rs))/R
+Ia=Il+I
+Eg=Vl+(Ia*Ra)+(Ia*Rs)+BCD
+disp('emf induced= '+string(Eg)+' volts' );
diff --git a/1853/CH5/EX5.7/Ex5_7.sce b/1853/CH5/EX5.7/Ex5_7.sce new file mode 100755 index 000000000..090b25a4a --- /dev/null +++ b/1853/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,10 @@ +
+//calculate the back emf induced on full load
+Ra=0.5 //armature resistance
+Rs=250 //shunt resistance
+Vl=250 //line volt
+Il=40
+Is=Vl/Rs
+Ia=Il-Is
+Eb=Vl-(Ia*Ra)
+disp('emf induced= '+string(Eb)+' volts' );
diff --git a/1853/CH5/EX5.8/Ex5_8.sce b/1853/CH5/EX5.8/Ex5_8.sce new file mode 100755 index 000000000..4d243a530 --- /dev/null +++ b/1853/CH5/EX5.8/Ex5_8.sce @@ -0,0 +1,12 @@ +
+//find the power developed in circiut
+Pl=20e3
+Vl=200
+Ra=0.05
+R=150
+I=Vl/R
+Il=Pl/Vl
+Ia=Il+I
+Eg=Vl+(Ia*Ra)
+P=Eg*Ia
+disp('power developed='+string(P)+'watt')
diff --git a/1853/CH5/EX5.9/Ex5_9.sce b/1853/CH5/EX5.9/Ex5_9.sce new file mode 100755 index 000000000..043434561 --- /dev/null +++ b/1853/CH5/EX5.9/Ex5_9.sce @@ -0,0 +1,7 @@ +
+//calculate the speed of the machine when running
+N1=1000 //speed of generator
+E1=205.06 //emf generator
+E2=195.06 //emf of motor
+N2=(E2*N1)/E1 //speed of generator
+disp('speed of motor='+string(N2)+'rpm')
|