" "
" "
" DIAGRAM of STATIC and DYNAMIC STABILITY"

.CurrentY 37
.FontBold 0
.FontSize 10
"================================================================================="
"Heel angle [deg.]| ##.# ##.# ##.# ##.# ##.# ##.# ##.# ##.# ##.# "
cFi01 cFi02 cFi03 cFi04 cFi05 cFi06 cFi07 cFi08 cFi09
"---------------------------------------------------------------------------------"
"KN [m]| ##.### ##.### ##.### ##.### ##.### ##.### ##.### ##.### ##.###"
cKN01 cKN02 cKN03 cKN04 cKN05 cKN06 cKN07 cKN08 cKN09
"KG'*sin(Fi) [m]| # # # # # # # # # "
cKG01 cKG02 cKG03 cKG04 cKG05 cKG06 cKG07 cKG08 cKG09
"YG *cos(Fi) [m]| # # # # # # # # # "
cYG01 cYG02 cYG03 cYG04 cYG05 cYG06 cYG07 cYG08 cYG09
"! dGZ(Fi) [m]| # # # # # # # # # "
! cMP01 cMP02 cMP03 cMP04 cMP05 cMP06 cMP07 cMP08 cMP09
"GZ [m]| # # # # # # # # # "
cGZ01 cGZ02 cGZ03 cGZ04 cGZ05 cGZ06 cGZ07 cGZ08 cGZ09
"ld [mrad]| # # # # # # # # # "
cLd01 cLd02 cLd03 cLd04 cLd05 cLd06 cLd07 cLd08 cLd09
"================================================================================="

.CurrentY 47

! IfNotGroup GRAIN
.FontBold 1
"S T A B I L I T Y C R I T E R I A a c c. t o B U R E A U V E R I T A S "
.FontBold 0
"================================================================================="
"Relevant criteria Required Actual Unit Status"
"---------------------------------------------------------------------------------"
"Angle of flooding for the point: ## deg. ------"
hFloodAngle
"(X = ##.### m, Y = ##.### m, Z = ##.### m) "
FloodPointX FloodPointY FloodPointZ
"Angle of deck edge immersion: ## deg. ------"
hDeckImm
"GZ curve area up to 30 deg. > ##.### ##.### mrad #######"
cLd30- cLd30 cLd30:
"GZ curve area up to ## deg. > ##.### ##.### mrad #######"
hForty_Flood cLd40_Flood- cLd40_Flood cLd40_Flood:
"GZ curve area beetwen 30 and ## deg. ##.### ##.### mrad #######"
hForty_Flood cLd40Flood_30- cLd40Flood_30 cLd40Flood_30:
"Righting lever GZ at angle >= 30 deg. > ##.## ##.## m #######"
cGZmin- cGZmin cGZmin:
"! Maximum righting lever ##.## ##.## m #######"
! cGZmax- cGZmax cGZmax:
"Angle of maximum righting lever > ##.# ##.# deg. #######"
cFi_GZmax- cFi_GZmax cFi_GZmax:
"Corrected metecentric height GM' > ##.## ##.## m #######"
?GMprim- ?GMprim ?GMprim:
"Area 'b' and 'a' in weather criterium > ##.### ##.### mrad #######"
cAreaB- cAreaB cAreaB:
"Heel angle under action of steady wind < ##.# ##.# deg. #######"
cTheta0+ cTheta0 cTheta0:
"================================================================================="
! EndIfNotGroup GRAIN

!OFF
!IfGroup GRAIN
.FontBold 1
" GRAIN STABILITY CRITERIA according to IGC - INTERNATIONAL GRAIN CODE "
.FontBold 0
"================================================================================="
"Relevant criteria Required Actual Unit Status"
"---------------------------------------------------------------------------------"
"Corrected metecentric height > ##.## ##.## m #######"
?GMprim- ?GMprim ?GMprim:
"Angle of heel due to "
"grain shifting moment < ##.# ##.# deg. #######"
cGrainFi0+ cGrainFi0 cGrainFi0:
"Area between GZ curve and grain "
"lever arm from ##.# deg. to ##.# deg. > ##.### ##.### mrad #######"
cGrainFi0 cGrainFi1 cGrainField- cGrainField cGrainField:
" "
" "
" A C T U A L GRAIN HEELING MOMENT = #####.# tm "
tGrainMoment
" "
" MAXIMUM PERMISSIBLE GRAIN HEELING MOMENT = #####.# tm "
tGrainMoment+
!EndIfGroup GRAIN
!ON

.ScaleMode 0
! .Scale -20 -5 70 20
!Rysunek1 150 90 30 55 0 1 70 0
! FactorY -1.0
.DrawWidth 1
.FontBold 1
.ForeColor 01

!DrawAxis1 70 70 1 0 6 0.5 -70 0 -1.1 -0.5
!DrawAxis2 0 5 5 6 6 1 0 -6 -0.5 0.1 #0

!IfVar tGrainMoment 0.0
!DrawAxis2 10 11 02 6 6 1 0 -6 -0.5 0.1 #0
!EndIfVar

!IfNotVar tGrainMoment 0.0
!DrawAxis2 12 13 02 6 6 1 0 -6 -0.5 0.1 #0
!EndIfNotVar

!DrawAxis2 20 50 10 6 6 1 0 -6 -0.5 0.1 #0
!DrawAxis2 60 70 10 6 6 1 0 -6 -0.5 0.1 #0

.ForeColor 09
.DrawWidth 2
!WriteLabel1 0 0 0 1.025 -0.5 -1 GZ_[m]
!DrawAxis1 0 0 1 0 6 0.5 0 0 -1.1 -0.5 #0.000
.DrawWidth 2
!GZ_curve 0.05 70 4 1 0.05
.ForeColor 10
!WriteLabel1 70 0 70 1.025 -0.5 -1.0 ld_[mrad]
!DrawAxis1 70 70 1 0 6 0.5 0 0 0.1 -0.5 #0.000
!Ld_curve 0.05 70 4 0.05

.NewPage