Merge remote-tracking branch 'origin/develop' into develop

Moose Development/Moose/Ops/NavyGroup.lua

@@ -90,7 +90,7 @@ NAVYGROUP = {
 
 --- NavyGroup version.
 -- @field #string version
-NAVYGROUP.version="1.0.1"
+NAVYGROUP.version="1.0.2"
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- TODO list
@@ -586,7 +586,7 @@ end
 -- @param #string stoptime Stop time, e.g. "9:00" for nine o'clock. Default 90 minutes after start time.
 -- @param #number speed Wind speed on deck in knots during turn into wind leg. Default 20 knots.
 -- @param #boolean uturn If `true` (or `nil`), carrier wil perform a U-turn and go back to where it came from before resuming its route to the next waypoint. If false, it will go directly to the next waypoint.
--- @param #number offset Offset angle in degrees, e.g. to account for an angled runway. Default 0 deg.
+-- @param #number offset Offset angle clock-wise in degrees, *e.g.* to account for an angled runway. Default 0 deg. Use around -9.1° for US carriers.
 -- @return #NAVYGROUP.IntoWind Turn into window data table.
 function NAVYGROUP:AddTurnIntoWind(starttime, stoptime, speed, uturn, offset)
 
@@ -1277,25 +1277,20 @@ end
 -- @param #NAVYGROUP.IntoWind Into wind parameters.
 function NAVYGROUP:onafterTurnIntoWind(From, Event, To, IntoWind)
 
-  IntoWind.Heading=self:GetHeadingIntoWind(IntoWind.Offset)
+  -- Calculate heading and speed of ship.
+  local heading, speed=self:GetHeadingIntoWind(IntoWind.Offset, IntoWind.Speed)
   
+  IntoWind.Heading=heading
   IntoWind.Open=true
   
+  -- Get coordinate.
   IntoWind.Coordinate=self:GetCoordinate(true)
   
+  -- Set current into wind parameters.
   self.intowind=IntoWind
 
-  -- Wind speed in m/s.
-  local _,vwind=self:GetWind()
-  
-  -- Convert to knots.
-  vwind=UTILS.MpsToKnots(vwind)
-
-  -- Speed of carrier relative to wind but at least 4 knots.
-  local speed=math.max(IntoWind.Speed-vwind, 4)
-
   -- Debug info.
-  self:T(self.lid..string.format("Steaming into wind: Heading=%03d Speed=%.1f Vwind=%.1f Vtot=%.1f knots, Tstart=%d Tstop=%d", IntoWind.Heading, speed, vwind, speed+vwind, IntoWind.Tstart, IntoWind.Tstop))
+  self:T(self.lid..string.format("Steaming into wind: Heading=%03d Speed=%.1f, Tstart=%d Tstop=%d", IntoWind.Heading, speed, IntoWind.Tstart, IntoWind.Tstop))
   
   local distance=UTILS.NMToMeters(1000)
   
@@ -2055,15 +2050,16 @@ end
 
 --- Get wind direction and speed at current position.
 -- @param #NAVYGROUP self
+-- @param #number Altitude Altitude in meters above main sea level at which the wind is calculated. Default 18 meters.
 -- @return #number Direction the wind is blowing **from** in degrees.
 -- @return #number Wind speed in m/s.
-function NAVYGROUP:GetWind()
+function NAVYGROUP:GetWind(Altitude)
 
   -- Current position of the carrier or input.
   local coord=self:GetCoordinate()
 
-  -- Wind direction and speed. By default at 50 meters ASL.
-  local Wdir, Wspeed=coord:GetWind(50)
+  -- Wind direction and speed. By default at 18 meters ASL.
+  local Wdir, Wspeed=coord:GetWind(Altitude or 18)
 
   return Wdir, Wspeed
 end
@@ -2072,7 +2068,7 @@ end
 -- @param #NAVYGROUP self
 -- @param #number Offset Offset angle in degrees, e.g. to account for an angled runway.
 -- @return #number Carrier heading in degrees.
-function NAVYGROUP:GetHeadingIntoWind(Offset)
+function NAVYGROUP:GetHeadingIntoWind_old(Offset)
 
   Offset=Offset or 0
 
@@ -2095,6 +2091,95 @@ function NAVYGROUP:GetHeadingIntoWind(Offset)
   return intowind
 end
 
+
+--- Get heading of group into the wind. This minimizes the cross wind for an angled runway.
+-- Implementation based on [Mags & Bami](https://magwo.github.io/carrier-cruise/) work.
+-- @param #NAVYGROUP self
+-- @param #number Offset Offset angle in degrees, e.g. to account for an angled runway.
+-- @param #number vdeck Desired wind speed on deck in Knots.
+-- @return #number Carrier heading in degrees.
+function NAVYGROUP:GetHeadingIntoWind(Offset, vdeck)
+
+  -- Default offset angle.
+  Offset=Offset or 0
+
+  -- Get direction the wind is blowing from.
+  local windfrom, vwind=self:GetWind(18)
+  
+  -- Convert wind speed to knots.
+  vwind=UTILS.MpsToKnots(vwind)
+  
+  -- Wind to in knots.
+  local windto=(windfrom+180)%360
+  
+  -- Offset angle in rad. We also define the rotation to be clock-wise, which requires a minus sign.
+  local alpha=math.rad(-Offset)
+  
+  -- Ships min/max speed.
+  local Vmin=4
+  local Vmax=UTILS.KmphToKnots(self.speedMax)
+  
+  -- Constant.
+  local C = math.sqrt(math.cos(alpha)^2 / math.sin(alpha)^2 + 1)
+  
+
+  -- Upper limit of desired speed due to max boat speed.
+  local vdeckMax=vwind + math.cos(alpha) * Vmax
+  
+  -- Lower limit of desired speed due to min boat speed.
+  local vdeckMin=vwind + math.cos(alpha) * Vmin
+  
+  
+  -- Speed of ship so it matches the desired speed.
+  local v=0
+  
+  -- Angle wrt. to wind TO-direction 
+  local theta=0
+
+  if vdeck>vdeckMax then
+    -- Boat cannot go fast enough
+    
+    -- Set max speed.
+    v=Vmax
+    
+    -- Calculate theta.
+    theta = math.asin(v/(vwind*C)) - math.asin(-1/C)
+  
+  elseif vdeck<vdeckMin then
+    -- Boat cannot go slow enought
+  
+    -- Set min speed.
+    v=Vmin
+    
+    -- Calculatge theta.
+    theta = math.asin(v/(vwind*C)) - math.asin(-1/C)
+  
+  elseif vdeck*math.sin(alpha)>vwind then
+    -- Too little wind
+    
+    -- Set theta to 90°
+    theta=math.pi/2
+    
+    -- Set speed.
+    v = math.sqrt(vdeck^2 - vwind^2)
+  
+  else
+    -- Normal case
+    theta = math.asin(vdeck * math.sin(alpha) / vwind)
+    v = vdeck * math.cos(alpha) - vwind * math.cos(theta)
+  end
+  
+  
+  -- Ship heading so cross wind is min for the given wind.
+  local intowind = (540 + (windto + math.deg(theta) )) % 360
+  
+  -- Debug info.
+  self:T(self.lid..string.format("Heading into Wind: vship=%.1f, vwind=%.1f, WindTo=%03d°, Theta=%03d°, Heading=%03d", v, vwind, windto, theta, intowind))
+  
+  return intowind, v
+end
+
+
 --- Find free path to next waypoint.
 -- @param #NAVYGROUP self
 -- @return #boolean If true, a path was found.