summaryrefslogtreecommitdiff
path: root/3845/CH12/EX12.7/Ex12_7.sce
blob: 8400502a66ce78b1fae8668ab4496a2f2e05492f (plain)
1
2
3
4
5
6
7
8
9
//Example 12.7
//Deriving from Poiseuille's law and considering flow rate has halved [Q2=0.5Q1], we get
//(r2/r1)^4=Q2/Q1
//r2/r1=(0.5)^1/4;
ratio=(0.5)^(1/4);
printf('The radius of the coronary artery after plaque deposits is %0.3f times the initial radius,\na decrease of %0.2f%%',ratio,[(1-ratio)/1*100])
//The answer varies due to round off error
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest