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

Sawtooth Wave Sample Sub
Math Arithmetic Class

Private Sub SawtoothWaveSample()
    ' Print some samples of the SawtoothWave function.

    Const strFormat = " 0.0;-0.0"

    Dim dblY As Double
    For dblY = 3 To -3 Step -6
        Dim dblX As Double
        For dblX = -4 To 4 Step 0.5
            Debug.Print "SawtoothWave(" & Format$(dblX, strFormat) & ", " & dblY & ") = ";
            Debug.Print Format$(SawtoothWave(dblX, dblY), strFormat)
        Next dblX
    Next dblY
End Sub

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