Operation Manual

Hoofdstuk 17: Activiteiten 531
Convergentiepunten zoeken bij een webgrafiek
Convergentiepunten zoeken bij een webgrafiekConvergentiepunten zoeken bij een webgrafiek
Convergentiepunten zoeken bij een webgrafiek
Probleem
ProbleemProbleem
Probleem
PROGRAM:SIERPINS
:FnOff :ClrDraw
:PlotsOff
:AxesOff
:0!Xmin:1!Xmax
:0!Ymin:1!Ymax
Instelling van het zichtbare venster.
:rand!X:rand!Y
:For(K,1,3000)
:rand!N
Begin van de For-lus.
:If N1à3
:Then
:.5X!X
:.5Y!Y
:End
If/Then-procedure.
:If 1à3<N and N2à3
:Then
:.5(.5+X)!X
:.5(1+Y)!Y
:End
If/Then-procedure.