2 files changed, 71 insertions, 0 deletions
diff --git a/764/CH12/EX12.13.b/result12_13.txt b/764/CH12/EX12.13.b/result12_13.txt
new file mode 100755
index 000000000..78046e7a7
--- /dev/null
+++ b/764/CH12/EX12.13.b/result12_13.txt
@@ -0,0 +1,47 @@
+-->//(Brakes) Example 12.13
+ 
+-->//Troque capacity of the disk brake Mt (N-m)
+ 
+-->Mt = 1500
+ Mt  =
+ 
+    1500.  
+ 
+-->//Number of caliper brakes on the wheel nb
+ 
+-->nb = 3
+ nb  =
+ 
+    3.  
+ 
+-->//Number of pads on each caliper brake np
+ 
+-->np = 2
+ np  =
+ 
+    2.  
+ 
+-->//Coefficient of friction mu
+ 
+-->mu = 0.35
+ mu  =
+ 
+    0.35  
+ 
+-->//Average pressure on the pad pavg (MPa)
+ 
+-->pavg = 2
+ pavg  =
+ 
+    2.  
+ 
+-->//R/e ratio r
+ 
+-->r = 0.2
+ r  =
+ 
+    0.2  
+ 
+
+Radius of the pad(R) = 28.625602 mm
+ 
+\ No newline at end of file
diff --git a/764/CH12/EX12.13.b/solution12_13.sce b/764/CH12/EX12.13.b/solution12_13.sce
new file mode 100755
index 000000000..57eb6595d
--- /dev/null
+++ b/764/CH12/EX12.13.b/solution12_13.sce
@@ -0,0 +1,24 @@
+
+//Obtain path of solution file
+path = get_absolute_file_path('solution12_13.sce')
+//Obtain path of data file
+datapath = path + filesep() + 'data12_13.sci'
+//Clear all 
+clc
+//Execute the data file
+exec(datapath)
+//Calculate the torque capacity of one pad mt (N-m)
+mt = Mt/(nb * np)
+//Read the csv file containing table 12.1
+numeric = read_csv(path + filesep() + 'table12_13.csv')
+//Obtain the value of delta
+for row = 3:1:%inf
+    if (evstr(numeric(row,1)) == r)
+        delta = evstr(numeric(row,2))
+        break
+    end
+end
+//Calculate the radius of the pad R (mm)
+R = (mt * 1000/(mu * pavg * %pi * (delta/r)))^(1/3)
+//Print results
+printf("\nRadius of the pad(R) = %f mm\n",R)