1 files changed, 34 insertions, 0 deletions
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")