For k.kreuz= Each kreuz

   ;o ist das nächste Kreuz nach k
   o.kreuz= After k
   
   Color 0,255,0   ;Grün
   ;Wenn es das nächste Kreuz gibt dann wir eine Linie zwischen k und o gezeichnet
   
   If o <> Null Then
   
      Line k\xpos,k\ypos,o\xpos,o\ypos
      
   EndIf
   
   Line k\xpos-10 ,k\ypos - 10,k\xpos + 10,k\ypos + 10    ; Das sind Striche, die das Kreuz dastellen sollen
   Line k\xpos + 10,k\ypos - 10,k\xpos - 10,k\ypos + 10
   
    Color 0,0,255   ;blau   
   
Next

Graphics 1024,768,0,2
Global x#
Global i#
Global y#
;----------------------------------------Daten--------
Const Strichex=10
Const Strichey=10
Const schrittweite#=0.1
Const min=(-2)
Const max=2
Const graphxmin=-10
Const graphxmax=10
Const graphymin=-10
Const graphymax=10
Const name$="f(x)=x³+2"
;----------------------------------------Daten--------
SetFont(LoadFont("Arial",20,True))
Global xlast#,  ylast#
ClsColor 255,255,255
Cls
Color 0,0,0
Line 512,0,512,768
Line 0,768/2,1024,768/2
for x=1 To 1024 Step (1024/(Strichex*2))
   Line x+1,768/2-3,x+1,768/2+3
Next
for y=1 To 768 Step (768/(Strichey*2))
   Line 512-3,y+3,512+3,y+3
Next

rendertmp=millisecs()
For i=min To max Step schrittweite   
   x=i
   y=x^3+2 ;<-------------------------------------------Formel
   y=y*(-1)
   x=(1024/(graphxmax-graphxmin))*i
   y=(768/(graphymax-graphymin))*y
   x=x+512
   y=y+(768/2)
   
   If xlast=0 And ylast=0 Then
      xlast=x
      ylast=y
   Else
      Line xlast,ylast,x,y
      xlast=x
      ylast=y
   EndIf
   If tmp=0 Then tmp=1
Next
renderzeit=millisecs()-rendertmp

Print "Name: "+name$
Print "Schrittweite: "+schrittweite
Print "Kleinster Wert: "+min
Print "Größter Wert: "+max
Print "Graphenlänge-X: "+graphxmin+" bis "+graphxmax
Print "Graphenlänge-Y: "+graphymin+" bis "+graphymax
Print "Abschnitte-X: "+Strichex
Print "Abschnitte-Y: "+Strichey
Print "Renderzeit: "+renderzeit+"ms"

savebuffer FrontBuffer(),name$+".bmp"
WaitKey
End