click here to download - UniKL MIMET Official Website
click here to download - UniKL MIMET Official Website
click here to download - UniKL MIMET Official Website
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
The Program<br />
The computation was performed using a simple<br />
program written in FORTRAN or it can also be cal‐<br />
culated using COTS spread sheet software;<br />
C THIS PROGRAM CALCULATES DIRECTIONAL<br />
C STABILITY CRITERIA AND NON‐DIMENSIONAL<br />
C TURNING RADII<br />
REAL NVB<br />
REAL NRB<br />
REAL M<br />
REAL NV(7,7,7)<br />
REAL NR(7,7,7)<br />
REAL NVR(7)<br />
REAL NRR(7)<br />
REAL NRS(7)<br />
REAL NVS(7)<br />
REAL NVT(7)<br />
REAL NRT(7)<br />
REAL NDEL(7)<br />
DIMENSION TR(7)<br />
DIMENSION REFF(7)<br />
DIMENSION SEFF(7)<br />
DIMENSION YVR(7)<br />
DIMENSION YVS(7)<br />
DIMENSION YRS(7)<br />
DIMENSION YVT(7)<br />
DIMENSION YRT(7)<br />
DIMENSION YDEL(7)<br />
DIMENSION YRR(7)<br />
DIMENSION YV(7,7,7)<br />
DIMENSION YR(7,7,7)<br />
DIMENSION S(7,7,7)<br />
DIMENSION RAD(7,7,7)<br />
<strong>MIMET</strong> Technical Bulletin Volume 1 (2) 2010<br />
L=115<br />
T=3.92<br />
DISP=3708<br />
XR=50<br />
XS=45<br />
RO=1.023<br />
DEL=25*3.1416/180<br />
YVB=‐.00495<br />
YRB=.000973<br />
NRB=‐.000754<br />
NVB=‐.00165<br />
CLR=.00045<br />
CLS=CLR/2<br />
M=2*DISP/(RO*L**3)<br />
XRR=XR/L<br />
XSS=XS/L<br />
WRITE(1,*)’RESULTS OF STABILITY CRITERIA<br />
AND MANOEUVRABILITY<br />
$ WITH EFFECTS OF TRIM, RUDDER AND SKEG<br />
EFFECTIVENESS’<br />
WRITE(1,*)<br />
WRITE(1,*)’ TRIM REFF SEFF YR<br />
$ STAB T/RAD(m)’<br />
WRITE(1,*)<br />
DO 10 I=1,7<br />
TR(I)=(I‐3)/4.0<br />
NR YV NV<br />
YVT(I)=YVB*(1+(2*TR(I)/(3*T)))<br />
YRT(I)=YRB*(1+(.8*TR(I)/T))<br />
NVT(I)=NVB*(1‐(.27*TR(I)/(T*NVB/YVB)))<br />
NRT(I)=NRB*(1+(.3*TR(I)/T))<br />
| MARINE FRONTIER @ <strong>UniKL</strong><br />
8