initial commit / add all books

6 files changed, 142 insertions, 0 deletions

diff --git a/2213/CH9/EX9.1/ex_9_1.sce b/2213/CH9/EX9.1/ex_9_1.sce
new file mode 100755
index 000000000..3cdc9d183
--- /dev/null
+++ b/2213/CH9/EX9.1/ex_9_1.sce
@@ -0,0 +1,27 @@
+//Example 9.1.//energy lost and total energy
+clc;
+clear;
+close;
+//given data :
+format('v',7)
+V=600;// in volts
+I=350;//in A
+Ts=20;// in sec
+R=0.15;// in ohm
+E_bse=(V/2)-(I*R);
+E_bp=V-(I*R);
+Tse=(E_bse/E_bp)*Ts;
+Tp=Ts-Tse;
+Vd=V-(2*I*R);
+Ed1=(Vd/2)*I*(Tse/3600);
+Ed2=((V/2)/2)*2*I*(Tp/3600);
+El=(Ed1+Ed2)*10^-3;
+disp("part (a)")
+disp(El,"Energy lost in starting rhestat,El(kWh) = ")
+El_1=(2*(I^2)*R*Ts)/(3600*1000);
+disp("part (b)")
+disp(El_1,"Energy lost in  motors,El(kWh) = ")
+//answer is wrong in  part b in the textbook
+Et=((V*I*Tse)+(2*V*I*Tp))/(3600*1000);
+disp("part (c)")
+disp(Et,"Total Energy,Et(kWh) = ")
diff --git a/2213/CH9/EX9.2/ex_9_2.sce b/2213/CH9/EX9.2/ex_9_2.sce
new file mode 100755
index 000000000..a27b324d1
--- /dev/null
+++ b/2213/CH9/EX9.2/ex_9_2.sce
@@ -0,0 +1,25 @@
+//Example 9.2.rheostatic losses and train speed
+clc;
+clear;
+close;
+//given data :
+format('v',7)
+V=600;// in volts
+I=300;//in A
+Ts=15;// in sec
+R=0.1;// in ohm
+E_bse=(V/2)-(I*R);
+E_bp=V-(I*R);
+Tse=(E_bse/E_bp)*Ts;
+Tp=Ts-Tse;
+Vd=V-(2*I*R);
+Ed1=(round((Vd/2)*I*(Tse/3600))*10^-3);//
+disp("part (i)")
+disp(Ed1,"rheostatic in series,Ed1(kWh) = ")
+Ed2=((V/2)/2)*2*I*(Tp/3600)*10^-3;
+disp(Ed2,"rheostatic in parallel,Ed2(kWh) = ")
+Vm=29;// in kmph
+alfa=Vm/Ts;
+S=alfa*Tse;
+disp("part (ii)")
+disp(S,"Speed at the end of series period,S(km/h) = ")
diff --git a/2213/CH9/EX9.3/ex_9_3.sce b/2213/CH9/EX9.3/ex_9_3.sce
new file mode 100755
index 000000000..b1c2249e2
--- /dev/null
+++ b/2213/CH9/EX9.3/ex_9_3.sce
@@ -0,0 +1,27 @@
+//Example 9.3.efficiency and speed
+clc;
+clear;
+close;
+//given data :
+format('v',5)
+V=600;// in volts
+I=200;//in A
+Ts=20;// in sec
+R=0.1;// in ohm
+E_bse=(V/2)-(I*R);
+E_bp=V-(I*R);
+Tse=(E_bse/E_bp)*Ts;
+Tp=Ts-Tse;
+Vd=V-(2*I*R);
+Mi=((V*I*Tse)/(2*3600))+((V*I*Tp)/3600);
+Er=((Vd/4)*I*(Tse/3600))+(((V/2)/2)*I*(Tp/3600));
+El=(I^2*R*Ts)/(3600);
+Mo=Mi-Er-El;
+eta=(Mo/Mi)*100;
+disp("part (a)")
+disp(eta,"Starting efficiency,(%) = ")
+Vm=80;// in kmph
+alfa=Vm/Ts;
+S=alfa*Tse;
+disp("part (b)")
+disp(S,"speed,S(kmph) = ")
diff --git a/2213/CH9/EX9.4/ex_9_4.sce b/2213/CH9/EX9.4/ex_9_4.sce
new file mode 100755
index 000000000..f252bdf17
--- /dev/null
+++ b/2213/CH9/EX9.4/ex_9_4.sce
@@ -0,0 +1,34 @@
+//Example 9.4 time duration ,speed and rheostatic losses
+clc
+clear;
+close;
+//given data :
+format('v',6)
+W=150;// in tonne
+We=1.1*W;// in tonnes
+Vm=30;//kmph
+V=600;// in volts
+r=10;// N/tonne
+I=300;//in A
+R=0.1;// in ohm
+Ft=4*15000;// in N
+G=1;//gradient in %
+alfa=(Ft-(W*r)-(98.1*W*G))/(277.8*We);
+Ts=Vm/alfa;
+E_bse=(V/2)-(I*R);
+E_bp=V-(I*R);
+Tse=(E_bse/E_bp)*Ts;
+disp("part (a)")
+disp(Ts,"Duration of starting period,Ts(seconds) = ")
+disp(Tse,"Duration for Series running,Tse(seconds) = ")
+sptr=alfa*Tse;//in kmph
+disp("part (b)")
+disp(sptr,"speed of train at transition in kmph is")
+sptr=alfa*Tse;//in kmph
+rls=((V-(2*I*R))/2)*(2*I)*(Tse/3600);//watts hours
+rlp=((V/2)/2)*(4*I)*((Ts-Tse)/3600);//watts hours
+tl=rls+rlp;//
+disp("part (c)")
+disp(rls,"rheostat losses during series operation in W-hours")
+disp(rlp,"rheostat losses during parallel operation in W-hours")
+disp(tl,"total losses in W-hours is")
diff --git a/2213/CH9/EX9.5/ex_9_5.sce b/2213/CH9/EX9.5/ex_9_5.sce
new file mode 100755
index 000000000..07d9c99d8
--- /dev/null
+++ b/2213/CH9/EX9.5/ex_9_5.sce
@@ -0,0 +1,16 @@
+//Example 9.5:diverter resistance
+clc;
+clear;
+close;
+format('v',6)
+nf=1;//
+n2=1.25*nf;//
+of=1;//
+of2=nf/n2;//
+isef=1;//
+ise2=0.66667;//
+ia2=(1/ise2);//
+idiv=ia2-ise2;//
+rdiv=ise2/idiv;//
+disp(rdiv*100,"diverter resistance required as percentage of the field resistance is")
+//answer is wrong in the textbook
diff --git a/2213/CH9/EX9.6/ex_9_6.sce b/2213/CH9/EX9.6/ex_9_6.sce
new file mode 100755
index 000000000..a745a3c1d
--- /dev/null
+++ b/2213/CH9/EX9.6/ex_9_6.sce
@@ -0,0 +1,13 @@
+//Example 9.6:draw chracterstics
+clc;
+clear;
+close;
+format('v',6)
+Ia=[60;80;100;120;160;180];// in amperes
+sp1=[47.4;40.3;35.8;33.9;29.8;28.5];//in kmph
+dpk=[440;700;970;1245;1800;2360];//in kg
+sp2=[58.1;50;45;40.3;35;32];//
+for i=1:6
+    dpk1(i)= ((dpk(i))*(sp1(i)))/(sp2(i));//
+    disp("for current "+string(Ia(i))+" amperes ,speed in kmph is "+string(sp2(i))+" and drawbar pull in kg is "+string(dpk1(i))+" ")
+end