summaryrefslogtreecommitdiff
path: root/3845/CH5/EX5.4/Ex5_4.sce
blob: b9aa3eb1518e4d9fc614279db51fc6b84cc5db19 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example 5.4
m=62;//Mass supported (kg)
g=9.80;//Acceleration due to gravity (m/s^2)
F=m*g;//Weight supported (N)
L_0=0.400;//Original length (m)
Y=9*10^9;//Young's modulus (N/m^2)
r=2*10^-2;//Bone radius (m)
A=%pi*(r^2);//Cross-sectional area of bone (m^2)
delta_L=F*L_0/(Y*A);//Change in length (m)
printf('Change in length = %0.0e m',delta_L)
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest