blob: 34a337ba5509abfa6ae9cc0b4276ffd1cbc92442 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
// Chapter 4-Buoyancy and Floatation
//// Problem 4.22
//Given Data Set in the Problem
dens=1000
g=9.81
T=10
I=10000
BG=1.5
W=29430*10^3
SG=10100
//calculations
Vol=W/SG //vol of water displaced
//for meta centric height
GM=I/Vol-(BG)
//Using the formula to calculate th eradius of gyration
function [f]=F(K)
f=T-2*%pi*(K^2/GM/g)^0.5
endfunction
K=1
K=fsolve(K,F)
mprintf("The Radius of gyration is %f m \n",K)
|
