!**********************************************************
!*

  MACRO GEOMETRY MODULE calellys(
   FLOAT loa,beam,disp,sa;
   VAR FLOAT lys);

!*    Calculates a LYS estimate according to the
!*    formula developed by Erik Lindskog. (el@signal.uu.se)
!*    According to Erik Lindskog this formula predicts
!*    actual LYS rating for the majority of boats rated
!*    in Sweden with an error less than:
!*
!*    0.035 for 70% of the boats
!*    0.05  for 89% of the boats
!*    0.07  for 94% of the boats
!*
!*    The formula is:
!*
!*    LYS=0.252*(LOA^0.4727)*(B^0.1337)*(DISP^-0.1341)*(SA^0.1147)
!*
!*    Where:
!*
!*    LOA  = hull length over all in meters
!*    B    = max beam in meters
!*    DISP = displacement in tons
!*    SA   = sail area in meters = (P*E+T*LP)/2
!*    P    = mastlik i m
!*    E    = bomlik i m
!*    T    = length of forestay in meters
!*    LP   = förseglets vinkelräta avstånd från skothornet till förstaget
!*
!*    (C)Microform AB 1998-09-23, J.Kjellander
!*
!**********************************************************

BEGINMODULE

!*
!***Erik Lindskogs LYS estimate.
!*
   lys:=0.252*(loa**0.4727)*
               (beam**0.1337)*
               (disp**(-0.1341))*
               (sa**0.1147);

ENDMODULE

!**********************************************************