2 files changed, 67 insertions, 0 deletions
diff --git a/764/CH12/EX12.14.b/result12_14.txt b/764/CH12/EX12.14.b/result12_14.txt
new file mode 100755
index 000000000..66a403cdb
--- /dev/null
+++ b/764/CH12/EX12.14.b/result12_14.txt
@@ -0,0 +1,49 @@
+-->//(Brakes) Example 12.14
+ 
+-->//Mass of the flywheel M (kg)
+ 
+-->M = 100
+ M  =
+ 
+    100.  
+ 
+-->//Radius of gyration of the flywheel k (mm)
+ 
+-->k = 350
+ k  =
+ 
+    350.  
+ 
+-->//Speed of the flywheel n (rpm)
+ 
+-->n = 500
+ n  =
+ 
+    500.  
+ 
+-->//Mass of the brake drum m (kg)
+ 
+-->m = 5
+ m  =
+ 
+    5.  
+ 
+-->//Specific heat capacity of the brake drum c (J/kgK)
+ 
+-->c = 460
+ c  =
+ 
+    460.  
+ 
+-->//Final velocity of the flywheel w2 (rad/s)
+ 
+-->w2 = 0
+ w2  =
+ 
+    0.  
+ 
+
+Temperature rise of the brake drum(t) = 7.300885 deg celsius
+
+The printed answer is erroneous
+ 
+\ No newline at end of file
diff --git a/764/CH12/EX12.14.b/solution12_14.sce b/764/CH12/EX12.14.b/solution12_14.sce
new file mode 100755
index 000000000..8142093ed
--- /dev/null
+++ b/764/CH12/EX12.14.b/solution12_14.sce
@@ -0,0 +1,18 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution12_14.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data12_14.sci'
+//Clear all 
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the initial angular velocity of the flywheel w1 (rad/s)
+w1 = (2 * %pi * n)/60
+//Calculate the KE of the flywheel KE (J)
+KE = 0.5 * M * (k/1000)^2 * (w1^2 - w2^2)
+//Calculate the temperature rise of the drum t (deg celsius)
+t = KE/(m * c)
+//Print results
+printf("\nTemperature rise of the brake drum(t) = %f deg celsius\n",t)
+printf("\nThe printed answer is erroneous\n")