1 files changed, 14 insertions, 0 deletions
diff --git a/1958/CH5/EX5.2/Chapter5_example2.sce b/1958/CH5/EX5.2/Chapter5_example2.sce
new file mode 100755
index 000000000..12c71606d
--- /dev/null
+++ b/1958/CH5/EX5.2/Chapter5_example2.sce
@@ -0,0 +1,14 @@
+clc
+clear
+//Input data
+l=0.8//Length of the wire in m
+d=(1.8*10^-3)//Diameter of the wire in m
+a=1.5//Angle of twist in degrees
+S=(1.8*10^11)//Modulus of rigidity of the material in N/m^2
+
+//Calculations
+r=(a*3.14)/180//Angle of twist in radians
+W=((3.14*S*(d/2)^4*r^2)/(4*l))/10^-5//Work required to twist the wire in J*10^-5
+
+//Output
+printf('Work required to twist the wire is %3.2f*10^-5 J',W)