Skip to content

_examples/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
160
161
162
163
164
#!!! -------------------------------------------------------------------
#!!! TethysL script automatically generated from original XML.
#!!! This translation should be pretty complete already but is still under testing.
#!!! Please report any translation issues. Keep in mind that possible compile errors
#!!! might be due to the more strict validation performed by TethysL. Once you have
#!!! reviewed and done any necessary edits, remove all these lines and save/commit.
#!!! -------------------------------------------------------------------
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" _examples/NeedComms.tl

  assign in sequence NeedComms:DiveInterval = NeedCommsTime

  insert _examples/StandardEnvelopes.tl

  assign in sequence StandardEnvelopes:MaxDepth = MaxDepth

  assign in sequence StandardEnvelopes:MinOffshore = MinOffshore

  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
    }
  }
}