FiniteDifference.xml

Page auto-generated from XML file.

Failure

The generated TethysL source could not be parsed, likely due to source XML not being well-formed.

Below is the compile error at the TethysL level, as well as the source XML.

The TethysL file name shown below does not necessarily indicate the file exists, but hints about the actual corresponding .xml file.

Syntax error:
   --> lrauv-application/Missions/Deprecated/BehaviorScripts/FiniteDifference.xml:11:46
    | 
  7 | # -   Export Administration Act of 1979 (Title 50, U.S.C., App. 2401 et seq.), as
  8 | # -   amended. Violations of these export laws are subject to severe civil and/or
  9 | # -   criminal penalties.
 10 | 
 11 | # NOTE: DefineBehavior NOT handled by TethysL
Unexpected: end-of-input
One of the following is possible:
  aggregate
  mission

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
# -   Copyright (c) 2024 MBARI
# -   MBARI Proprietary Information. Confidential. All Rights Reserved
# -   Unauthorized copying or distribution of this file via any medium is strictly
# -   prohibited.
# -
# -   WARNING - This file contains information whose export is restricted by the
# -   Export Administration Act of 1979 (Title 50, U.S.C., App. 2401 et seq.), as
# -   amended. Violations of these export laws are subject to severe civil and/or
# -   criminal penalties.

# NOTE: DefineBehavior NOT handled by TethysL

  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
<?xml version="1.0" encoding="UTF-8"?>
<!--
-   Copyright (c) 2024 MBARI
-   MBARI Proprietary Information. Confidential. All Rights Reserved
-   Unauthorized copying or distribution of this file via any medium is strictly
-   prohibited.
-
-   WARNING - This file contains information whose export is restricted by the
-   Export Administration Act of 1979 (Title 50, U.S.C., App. 2401 et seq.), as
-   amended. Violations of these export laws are subject to severe civil and/or
-   criminal penalties.
-->

<DefineBehavior xmlns="Tethys"
       xmlns:Control="Tethys/Control"
       xmlns:BehaviorScripts="Tethys/BehaviorScripts" 
       xmlns:Units="Tethys/Units"
       xmlns:Universal="Tethys/Universal"
       xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
       xsi:schemaLocation="Tethys http://okeanids.mbari.org/tethys/Xml/Tethys.xsd
                           Tethys/Control http://okeanids.mbari.org/tethys/Xml/Control.xsd
                           Tethys/BehaviorScripts ./BehaviorScripts.xsd
                           Tethys/Units http://okeanids.mbari.org/tethys/Xml/Units.xsd
                           Tethys/Universal http://okeanids.mbari.org/tethys/Xml/Universal.xsd"
       Name="FiniteDifference" Language="Lua">

    <Description>
        Given an input value and an order, calculate the backwards-looking
        finite difference.
    </Description>

    <DefineSetting Name="inputSet">
        <BehaviorScripts:FiniteDifference.input/>
        <Description>
            The value to be finite differenced
        </Description><Units:none/>
        <DefaultValue>NaN</DefaultValue>
    </DefineSetting>

    <DefineSetting Name="orderSet">
        <BehaviorScripts:FiniteDifference.order/>
        <Description>
            Order (#elements -1) for the finite difference operation
        </Description><Units:count/>
        <DefaultValue>1</DefaultValue>
    </DefineSetting>

    <Construct>
        <Description>
            Define functions for use in the behavior
        </Description>
        <Script><![CDATA[
            function Binomial( k, m )
                if m > k then return nil end
                if m > k/2 then m = k - m end
                numer, denom = 1, 1
                for i = 1, m do
                    numer = numer * ( k - i + 1 )
                    denom = denom * i
                end
                local bin = numer / denom
                return bin
            end
            function BackwardDifference( buf, k )
                n = table.getn(buf);
                if k >= n then return nil end
                d = 0
                for m=0,k do
                    d = d + math.pow(-1,m) * Binomial( k, m ) * buf[ n - m ]
                end
                return d
            end
            function AddValue( buf, k, value )
                n = table.getn(buf)
                if(n <= k ) then buf[n+1]=value return end
                for i=1,k,1 do
                   buf[i]=buf[i+1]
                end
                buf[k+1]=value
            end
            return "Constructed FiniteDifference", "IMPORTANT"
        ]]></Script>
    </Construct>

    <Initialize>
        <Description>
            Initialize global variables
        </Description>
        <Script><![CDATA[
           buffer={}
        ]]></Script>
    </Initialize>

    <Run>
        <OutputArg><BehaviorScripts:FiniteDifference.output/><Description>
            Result of the finite difference operation. Not written until the
            buffer is full
        </Description><Units:none/></OutputArg>
        <Script><![CDATA[
           AddValue(buffer,orderSet,inputSet)
           bd = BackwardDifference( buffer, orderSet )
           return bd
        ]]></Script>
    </Run>

</DefineBehavior>