diff options
Diffstat (limited to '3557/CH19/EX19.10/Ex19_10.sce')
| -rw-r--r-- | 3557/CH19/EX19.10/Ex19_10.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3557/CH19/EX19.10/Ex19_10.sce b/3557/CH19/EX19.10/Ex19_10.sce new file mode 100644 index 000000000..5f5d5b5cc --- /dev/null +++ b/3557/CH19/EX19.10/Ex19_10.sce @@ -0,0 +1,12 @@ +//Example19.10//
+
+k=45*10^-3;// wear coefficient
+P=50;//Kg //Kilograms //Load
+x=5;//mm //millimeter //distance
+H=235;//kg/mm^2 //hardness of the surface being worn away
+V=(k*P*x)/(3*H)
+mprintf("V = %f mm^3",V)
+//As the volume of a hemisphere is (1/12)*pi*d^3
+a=12; //volume of hemisphere
+d=nthroot(((a*V)/%pi),3)
+mprintf("\nd = %f mm ",d)
|