Skip to content

Transport/keepstation.tl

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
mission keepstation {
  """
  Vehicle transits to desired waypoint (or stays put if none is commanded)
  and stays within the specified radius.
  """

  arguments {
    MissionTimeout = 4 hour
      """
      Maximum duration of mission
      """

    NeedCommsTime = 45 minute
      """
      How often to surface for communications
      """

    Latitude = NaN degree
      """
      Latitude of waypoint to hold. If NaN, hold the latitude at start of
      mission.
      """

    Longitude = NaN degree
      """
      Longitude of waypoint to hold. If NaN, hold the longitude at start of
      mission.
      """

    Depth = 30 meter
      """
      Depth held during drift mode
      """

    ApproachDepth = 15 meter
      """
      Depth for initial approach to station.
      """

    DepthDeadband = 4 meter
      """
      How much vertical drift from the specified depth is allowed in drift
      mode
      """

    Speed = 0.75 meter_per_second
      """
      Vehicle transit speed.
      """

    Radius = 200 meter
      """
      Radius of circle around waypoint to hold.
      """

    MaxDepth = 45 meter
      """
      Maximum allowable depth during the mission.
      """

    MinOffshore = 2 kilometer
      """
      Minimum distance from the shoreline to maintain
      """
  }

  timeout duration=MissionTimeout

  insert id="NeedComms" Insert/NeedComms.tl

  assign in sequence NeedComms:DiveInterval = NeedCommsTime

  insert Insert/StandardEnvelopes.tl

  assign in sequence StandardEnvelopes:MaxDepth = MaxDepth

  assign in sequence StandardEnvelopes:MinOffshore = MinOffshore

  insert Insert/BackseatDriver.tl

  behavior Guidance:Pitch {
    run in parallel

    set massPosition = Control:VerticalControl.massDefault
  }

  call id="StartingMission" refId="NeedComms"

  aggregate TransitToStation {
    """
    Need a separate aggregate for transit if we want to specify a
    different depth for the approach.
    """

    run in sequence

    behavior Guidance:Buoyancy {
      run in parallel

      set position = Control:VerticalControl.buoyancyNeutral
    }

    behavior Guidance:Pitch {
      run in parallel

      set depth = ApproachDepth
    }

    behavior Guidance:SetSpeed {
      run in parallel

      set speed = Speed
    }

    behavior Guidance:Waypoint id="Wpt1" {
      run in sequence

      set latitude = Latitude
      set longitude = Longitude
    }
  }

  call id="OnStation" refId="NeedComms"

  aggregate KeepStation {
    run in sequence

    assign in parallel Control:VerticalControl.depthDeadband = DepthDeadband

    behavior Guidance:Pitch {
      run in parallel

      set depth = Depth
    }

    behavior Guidance:KeepStation {
      run in parallel

      set latitude = Latitude
      set longitude = Longitude
      set radius = Radius
      set speed = Speed
    }

    behavior Guidance:Wait {
      """
      Due to the way the KeepStation behavior is currently
      implemented, we must run it in parallel and use a Wait to keep
      from completing the mission before the timeout expires. However,
      this new version of the mission uses a top-level timeout so that
      the entire mission will not run for longer then MissionTimeout.
      """

      run in sequence

      set duration = MissionTimeout
    }
  }
}