1 files changed, 38 insertions, 0 deletions
diff --git a/698/CH15/EX15.1/P1_parameters_of_brake_drum.sce b/698/CH15/EX15.1/P1_parameters_of_brake_drum.sce
new file mode 100644
index 000000000..37a0b6b33
--- /dev/null
+++ b/698/CH15/EX15.1/P1_parameters_of_brake_drum.sce
@@ -0,0 +1,38 @@
+clc
+//Example 15.1
+// Parameters of Brake Drum
+
+//------------------------------------------------------------------------------
+//Given Data:
+
+T=225
+N=500
+f=0.3
+r=0.36
+c=0.04
+b=0.9
+a=0.36
+V=(2*%pi*N*r)/60
+
+res1= mopen(TMPDIR+'1_parameters_of_brake_drum.txt','wt')
+
+N=T/(f*r)
+mfprintf(res1,'(a) N = %d N\n\n',N)
+
+F= (-(c*f*N) + (r*N))/b
+mfprintf(res1,'(b) For clockwise rotation, F = %d N\n\n',F)
+
+F= ((c*f*N) + (r*N))/b
+mfprintf(res1,'(c) For clockwise rotation, F = %d N\n\n',F)
+
+c_new=a/f
+mfprintf(res1,'(d) For self locking, c>=a/f\n\t=%0.1f m\n\n',c_new)
+
+Hg=f*N*V
+mfprintf(res1,'(e) Hg = %0.1f kW\n\n',Hg* 1e-3)
+
+mclose(res1);
+editor(TMPDIR+'1_parameters_of_brake_drum.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
+\ No newline at end of file