set 
m, (1) * Mamax 1) 
b(1) = b,, WD 
b1(1) =0 
Mamax(l) = k(1) (p/2)mb? (1) 
If 
d(1) <b, (D) tan (8(1)) (2/7) 
set 
b(D = d(D) cot (B(1)) (7/2) 
b1d) = bd) 
m, (1) = k,(1) (p/2)rb?(1) 
for 
hy, () <0; 
ma) ES OF b() =0, bl(l)=0 
This subroutine then calls FUNCT which in turn calls COMPUT to determine the values 
of N, and F the lift force and moment. The values of Ny and F are used to compute 
the following 
F, = T, +F, sin@ -D cos 0 
Elis Beet Ecost0kn Disinig +W 
F, 
=N, -Dyg + Tx, 
*b1 array is set up for integrations for portion of hull for which chine is not immersed. 
44 
