diff options
Diffstat (limited to '3845/CH12/EX12.7/Ex12_7.sce')
| -rw-r--r-- | 3845/CH12/EX12.7/Ex12_7.sce | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/3845/CH12/EX12.7/Ex12_7.sce b/3845/CH12/EX12.7/Ex12_7.sce new file mode 100644 index 000000000..8400502a6 --- /dev/null +++ b/3845/CH12/EX12.7/Ex12_7.sce @@ -0,0 +1,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
|