18.01.2013 Views

click here to download - UniKL MIMET Official Website

click here to download - UniKL MIMET Official Website

click here to download - UniKL MIMET Official Website

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!