2 files changed, 83 insertions, 0 deletions
diff --git a/764/CH12/EX12.6.b/result12_6.txt b/764/CH12/EX12.6.b/result12_6.txt
new file mode 100755
index 000000000..7f3ca7639
--- /dev/null
+++ b/764/CH12/EX12.6.b/result12_6.txt
@@ -0,0 +1,58 @@
+-->//(Brakes) Example 12.6
+ 
+-->//Limit of the product pv
+ 
+-->pv = 2
+ pv  =
+ 
+    2.  
+ 
+-->//Coefficient of friction between the drum and the friction lining mu
+ 
+-->mu = 0.2
+ mu  =
+ 
+    0.2  
+ 
+-->//Gear ratio between the brake and cable drum g
+ 
+-->g = 4
+ g  =
+ 
+    4.  
+ 
+-->//Permissible intensity of pressure on friction lining pmax (N/mm2)
+ 
+-->pmax = 1
+ pmax  =
+ 
+    1.  
+ 
+-->//Radius of the brake drum Rb (mm)
+ 
+-->Rb = 200
+ Rb  =
+ 
+    200.  
+ 
+-->//Radius of the cable drum Rc (mm)
+ 
+-->Rc = 150
+ Rc  =
+ 
+    150.  
+ 
+-->//Mass attached to the cable drum m (kg)
+ 
+-->m = 500
+ m  =
+ 
+    500.  
+ 
+
+Brake shoe force(P) = 4598.437500 N
+
+Area of friction lining(A) = 4598.437500 mm2
+
+Uniform velocity at which the mass can be lowered(v1) = 0.375000 m/s or 22.500000 m/min
+ 
+\ No newline at end of file
diff --git a/764/CH12/EX12.6.b/solution12_6.sce b/764/CH12/EX12.6.b/solution12_6.sce
new file mode 100755
index 000000000..6411e914e
--- /dev/null
+++ b/764/CH12/EX12.6.b/solution12_6.sce
@@ -0,0 +1,25 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution12_6.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data12_6.sci'
+//Clear all
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the actuating force P (N)
+P = (m * 9.81 * Rc)/(g * mu * Rb)
+//Calculate the area of friction lining A (mm2)
+A = P/pmax
+//Calculate the peripheral velocity of the brake drum v2 (m/s)
+v2 = pv/pmax
+//Calculate the angular velocity of the brake drum w2 (rad/s)
+w2 = v2/Rb
+//Calculate the angular velocity of the cable drum w1 (rad/s)
+w1 = w2/g
+//Calculate the peripheral velocity of the cable drum v1 (m/s)
+v1 = w1 * Rc
+//Print results
+printf("\nBrake shoe force(P) = %f N\n",P)
+printf("\nArea of friction lining(A) = %f mm2\n",A)
+printf("\nUniform velocity at which the mass can be lowered(v1) = %f m/s or %f m/min\n",v1,v1*60)