blob: dc95cc2e01aaba5019899c4d4d1b1b62bf7831dc (
plain)
1
2
3
4
5
6
7
8
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')
|
