blob: 79d7e13c6c28f45e0b92cd4d919cffca372de969 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
//Sample Problem 9-2
printf("**Sample Problem 9-2**\n")
R = poly(0, 'R')
//Mass is proportinal to area
Aw = %pi* (2*R)^2
Ac = %pi* R^2
//& the x-co-ordinate of the masses
CMw = 0
CMc = -R
CMf = pdiv((Aw*CMw - Ac*CMc), (Aw - Ac))
printf("The CM is located at a distace of %fR to the right of the center", horner(CMf, 1))
|
