1 files changed, 19 insertions, 0 deletions
diff --git a/3863/CH16/EX16.7/Ex16_7.sce b/3863/CH16/EX16.7/Ex16_7.sce
new file mode 100644
index 000000000..40aa960c0
--- /dev/null
+++ b/3863/CH16/EX16.7/Ex16_7.sce
@@ -0,0 +1,19 @@
+clear
+//
+//
+
+//Given
+//Variable declaration
+Do=120          //External diameter in mm
+P=300*1000      //Power in W
+N=200           //Speed in r.p.m
+tau=60          //Maximum shear stress in N/sq.mm
+
+//Calculation
+T=((P*60)/(2*%pi*N))*1e3                         //Torque transmitted in Nmm
+
+Di=(((Do**4)-((T*16*Do)/(%pi*tau)))**(1/4))      //Maximum internal diameter in mm
+
+
+//Result
+printf("\n Maximum Internal diameter = %0.3f  mm",Di)