Keskustelu: Koodit: QB: Suoran/käyrän piirtäjä

SCREEN 13

'piirretään koordinaatisto

FOR x = 0 TO 320 STEP 10
LINE (x, 0)-(x, 199), 2
NEXT x

FOR y = 0 TO 320 STEP 10
LINE (0, y)-(319, y), 2
NEXT y

LINE (0, 100)-(319, 100), 10
LINE (160, 0)-(160, 199), 10

'funktion luvut, k=kulmakerroin v=vakiomuuttuja e=eksponentti s=skaala

s = 10

k = 1
v = -4
e = 2

pituus = 3  'kuinka pitkä suora/käyrä piirretään

FOR x = -pituus TO pituus STEP .001  'toi .001 on tarkkuus

y = k * x ^ e + v    'eli y on kulmakerroin kertaa x potenssiin eksponentti plus vakiomuuttuja

IF x > -pituus THEN LINE (160 + lx * s, 100 - ly * s)-(160 + x * s, 100 - y * s), 4   'vedetään viiva

lx = x
ly = y

NEXT x