1 files changed, 32 insertions, 0 deletions
diff --git a/3204/CH7/EX7.9/Ex7_9.sce b/3204/CH7/EX7.9/Ex7_9.sce
new file mode 100644
index 000000000..d6441877b
--- /dev/null
+++ b/3204/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,32 @@
+// Initilization of variabes
+b=0.1 //m //width of the belt
+t=0.008 //m //thickness of the belt
+v=26.67 // m/s // belt speed
+pie=3.14 // constant
+beta=165 // radian // angle of lap for the smaller belt
+mu=0.3 // coefficient of friction
+sigma_max=2 // MN/m^2 // maximum permissible stress in the belt
+m=0.9 // kg/m // mass of the belt
+g=9.81 // m/s^2
+e=2.718 // constant
+// Calculations
+A=b*t // m^2 // cross-sectional area of the belt
+T_e=m*v^2 // N // where T_e is the Centrifugal tension
+T_max=(sigma_max)*(A)*(10^6) // N // maximum tension in the belt
+T1=(T_max)-(T_e) // N 
+T2=T1/(e^((mu*pie*beta)/180)) //N // from formulae T1/T2=e^(mu*beta)
+P=(T1-T2)*v*(10^-3) //kW // Power transmitted
+T_o=(T1+T2)/2 // N // Initial tension
+// Now calculations to transmit maximum power
+Te=T_max/3 // N // max tension
+u=sqrt(T_max/(3*m)) // m/s // belt speed for max power
+T_1=T_max-Te // N // T1 for case 2
+T_2=T_1/(e^((mu*pie*beta)/180)) // N 
+P_max=(T_1-T_2)*u*(10^-3) // kW // Max power transmitted
+// Results
+clc
+printf('The initial power transmitted is %f kW \n',P)
+printf('The initial tension in the belt is %f N \n',T_o)
+printf('The maximum power that can be transmitted is %f kW \n',P_max)
+printf('The maximum power is transmitted at a belt speed of %f m/s \n',u)
+