diff options
Diffstat (limited to '1970/CH15/EX15.7')
| -rwxr-xr-x | 1970/CH15/EX15.7/CH15Exa7.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1970/CH15/EX15.7/CH15Exa7.sce b/1970/CH15/EX15.7/CH15Exa7.sce new file mode 100755 index 000000000..2c1946b8e --- /dev/null +++ b/1970/CH15/EX15.7/CH15Exa7.sce @@ -0,0 +1,10 @@ +// Scilab code Exa15.7 : : Page-655 (2011) +clc; clear; +B_sqr = 65; // Geometrical buckling +a = sqrt(3*%pi^2/B_sqr)*100; // Side of the cubical reactor, centi metre +R = round(%pi/sqrt(B_sqr)*100); // Radius of the cubical reactor,centi metre +printf("\nThe side of the cubical reactor = %4.1f cm\nThe critical radius of the reactor = %d cm", a, R); + +// Result +// The side of the cubical reactor = 67.5 cm +// The critical radius of the reactor = 39 cm
\ No newline at end of file |