<-- Previous || Up || Next -->

Text Plot Cubic Sample Sub
Math Arithmetic Class

Private Sub TextPlotCubicSample()
    ' Plot F(X) = X ^ 3.

    Const NUMS = 256

    Dim avarNums() As Variant
    ReDim avarNums(0 To 2, 0 To NUMS)

    Dim intX As Integer
    For intX = 1 To NUMS
        avarNums(1, intX) = CDbl(intX - NUMS / 2)
        avarNums(2, intX) = CDbl(intX - NUMS / 2) ^ 3
    Next intX

    Debug.Print
    Debug.Print TextPlot(avarNums(), Null, Null)
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.