Mathemathics Framework

Imports FormUtils
Imports BV.Core
Imports BV.controls
Imports MidRange
Imports System.ComponentModel
Imports GraphicsObjects

Public Class FRConfig
    Inherits ParseCommonConfiguration

    Public Sub New(ByVal Visor As VisorXYAdvanced, ByVal FormToolBar As BVToolBar)
        MyBase.New(Visor, FormToolBar)
        Me.intVisor.Add(SystemCalc)
    End Sub

#Region "Properties"

    Public Overrides ReadOnly Property Description() As String
        Get
            Return "Root Finder Demo Configuration"
        End Get
    End Property

#End Region

    'Public Overrides Sub Redraw()
    '    Dim s As Single

    '    Br.Reset()
    '    ReDim a(Br.NumberOfPoints - 1)
    '    a(0) = New PointC(intParseObj.Calc(Br.CurrentValue), Br.CurrentValue)
    '    Do While Br.CalculatedPosition < a.GetUpperBound(0)
    '        s = Br.StepForward
    '        a(Br.CalculatedPosition) = New PointC(intParseObj.Calc(s), s)
    '    Loop
    '    Me.ParallelObj.In(a)

    '    Me.intVisor.Refresh()
    'End Sub

End Class