1 files changed, 9 insertions, 0 deletions
diff --git a/3020/CH1/EX1.7/ex1_7.sce b/3020/CH1/EX1.7/ex1_7.sce
new file mode 100755
index 000000000..dc95cc2e0
--- /dev/null
+++ b/3020/CH1/EX1.7/ex1_7.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+l=1; // Length of wire in meters
+d=1e-3; // Diameter of wire in meters
+r=d/2;//radius of wire in meters
+n=2.8e10; // Rigidity modulus in newton per square meters
+ang=%pi/2; //  angle in radian
+c=ang*%pi*n*r^4/(2*l);
+disp('N m',c,'The couple to be applied is')