diff options
Diffstat (limited to '698/CH26/EX26.6/P6_permissible_velocity.sce')
| -rw-r--r-- | 698/CH26/EX26.6/P6_permissible_velocity.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/698/CH26/EX26.6/P6_permissible_velocity.sce b/698/CH26/EX26.6/P6_permissible_velocity.sce new file mode 100644 index 000000000..44911ee05 --- /dev/null +++ b/698/CH26/EX26.6/P6_permissible_velocity.sce @@ -0,0 +1,23 @@ +clc
+//Example 26.6
+//Permissible velocity
+
+//------------------------------------------------------------------------------
+
+//Given data
+St=27.5* 10^6
+rho=7000
+
+
+res6=mopen(TMPDIR+'6_permissible_velocity.txt','wt')
+mfprintf(res6,'St=rho*v^2\n')
+
+V=sqrt(St/rho)
+
+mfprintf(res6,'Neglecting bending in the rim, V=%0.1f m/s',V)
+
+
+mclose(res6)
+editor(TMPDIR+'6_permissible_velocity.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
|