1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
exec('degree_rad.sci', -1)
exec('cross_product.sci', -1)
//Given that
A = dtor(30) //in rad
r = 3*[cos(A), 0, sin(A)]
F1 = 2*[1, 0, 0]
F2 = 2*[0, 0, 1]
F3 = 2*[0, 1, 0]
//Sample Problem 12-3
printf("**Sample Problem 12-3**\n")
T1 = crossproduct(r, F1)
T2 = crossproduct(r, F2)
T3 = crossproduct(r, F3)
printf("The torque due to F1 is equal to %fN.m\n", norm(T1))
printf("The torque due to F2 is equal to %fN.m\n", norm(T2))
printf("The torque due to F3 is equal to %fN.m", norm(T3))
|
