Mathemathics Framework

Imports BV.Core
Imports BV.Math

Public Class RealCurve
    Implements ICurve

    Protected intRange As RangeF
    Protected intFn As [Function]

    Protected Sub Initialize()
        
    End Sub

    Public Property [Function]() As [Function]
        Get
            Return intFn
        End Get
        Set(ByVal Value As [Function])
            intFn = Value
        End Set
    End Property

    Public ReadOnly Property Range() As RangeF Implements ICurve.Range
        Get
            Return intRange
        End Get
    End Property

    Public Function Calc(ByVal s As Double) As ComplexUndefinied Implements ICurve.Calc
        If Me.intRange.Contains(s) Then
            Return intFn.Calc(s)
        End If
        If s > Me.intRange.Max Then
            Return intFn.Calc(Me.intRange.Max)
        End If
        Return intFn.Calc(Me.intRange.Min)
    End Function

End Class