diff options
Diffstat (limited to '3020/CH1/EX1.7/ex1_7.sce')
| -rwxr-xr-x | 3020/CH1/EX1.7/ex1_7.sce | 9 |
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')
|