diff options
Diffstat (limited to '1268/CH6/EX6.4/6_4.sce')
| -rw-r--r-- | 1268/CH6/EX6.4/6_4.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1268/CH6/EX6.4/6_4.sce b/1268/CH6/EX6.4/6_4.sce new file mode 100644 index 000000000..3d9f8883b --- /dev/null +++ b/1268/CH6/EX6.4/6_4.sce @@ -0,0 +1,12 @@ +clc;
+disp("Example 6.4")
+r=0.5 // radius in cm
+volume=4*%pi*r*r*r/3
+mass=0.05 // in g
+density=mass/volume
+liquiddensity=0.9 // in g/cc
+if(density<liquiddensity)
+ F=volume*981*(density-liquiddensity)
+ disp(F,"The drag force is ")
+ disp(" dynes")
+end
|