1 files changed, 15 insertions, 0 deletions
diff --git a/3012/CH2/EX2.4/Ex2_4.sce b/3012/CH2/EX2.4/Ex2_4.sce
new file mode 100755
index 000000000..2b7ea36c7
--- /dev/null
+++ b/3012/CH2/EX2.4/Ex2_4.sce
@@ -0,0 +1,15 @@
+// Given:-
+w1dot = -60.0                // input work rate in KW
+h = 0.171                    // heat transfer coefficient,unit in KW/m2 .K
+A = 1.0                      // outer surface area of gearbox, unit in m2
+Tb = 300.0                   // outer surface temperature in kelvin
+Tf = 293.0                   // temperature of the sorrounding
+
+// Calculations
+Qdot = -h*A*(Tb-Tf);         // rate of energy transfer by heat
+wdot = Qdot;                 // steady state energy equation
+w2dot = wdot-w1dot;
+
+// Results
+printf( 'The heat transfer rate in KW is:\n\tQdot =  %f',Qdot)
+printf( 'The power delivered through output shaft in KW is: = %f',w2dot);