n=$teller
nivo_title=tabellen en zoek het lineaire verband
bewerking=bewerking3.proc
somtekst$n=Bepaal het verband tussen de <em>x-waarde en de y-waarde</em></br>\
Het gezochte verband is <tt>linear</tt> , dus van het type:
opgave$n= y\,\,=\,\,m \cdot x + q
hint=hier staat een hint
woordmax=10
argument=y
varlist=x
#wims_rawmath-variables=x
punten=!randint 4,8
som=$empty
############
n=$teller

!if $graad=0
    R=$teller
!else
    R=$graad    
!endif
keuze=!randitem 1,2    
!if $R=1
    !if $keuze=1
        b=!randint 2,20
    !else
	b=!randint -2,-20
    !endif	
    functie$n=$b*x 
    !for q=1 to $punten
    	X=$q
	Y=$[$b*$X]
	som=!append line <td>$X</td><td>$Y</td><tr> to $som
    !next q
    somtekst$n=<table border="1" cellpadding="5"><td><em>$varlist -waarde</em></td><td><em>$argument -waarde</em></td><tr>$som</table>
    !goto PLAATJE
!endif
!if $R=2
    !if $keuze=1
	a=!randint 1,20
        b=!randitem -7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7
        b=$[$b/10]
        B=!randint -10,10
        pm=!randitem +,-
        functie$n=$b*x $pm $a
        !for q=1 to $punten
    	    X=$[$q+($B)]
	    Y=$[$b*$X $pm $a]
	    som=!append line <td>$X</td><td>$Y</td><tr> to $som
	!next q
    !else
	a=!randint 1,4
	b=!randint 1,4
	B=!randint -10,10
        pm=!randitem +,-
	functie$n=$b*x $pm $a
	!for q=1 to $punten
    	    X=$[$q+($B)]
	    Y=$[$b*$X $pm $a]
	    som=!append line <td>$X</td><td>$Y</td><tr> to $som
	!next q
    !endif
    somtekst$n=<table border="1" cellpadding="5"><td><em>$varlist -waarde</em></td><td><em>$argument -waarde</em></td><tr>$som</table>
    !goto PLAATJE
!endif
!if $R=3
    !if $keuze=1
	a=!randint 1,4
	b=!randitem -4,-3,-2,2,3,4,4
	pm=!randitem +,-
	functie$n=$b*x $pm $a
	B=!randint -10,10
	!for q=1 to $punten
    	    X=$[$q+($B)]
	    Y=$[$b*$X $pm $a]
	    som=!append line <td>$X</td><td>$Y</td><tr> to $som
	!next q
    !else
	a=!randint 1,20
	b=!randitem  -10,-9,-8,-7,-6,-5,-4,4,5,6,7,8,9,10
	pm=!randitem +,-
	functie$n=$b*x $pm $a
	B=!randint -10,10
	!for q=1 to $punten
    	    X=$[$q+($B)]
	    Y=$[$b*$X $pm $a]
	    som=!append line <td>$X</td><td>$Y</td><tr> to $som
	!next q
    !endif
    somtekst$n=<table border="1" cellpadding="5"><td><em>$varlist -waarde</em></td><td><em>$argument -waarde</em></td><tr>$som</table>
    !goto PLAATJE
!endif
!if $R>3
    a=!randint 1,20
    b=!randitem  -9,-8,-7,-6,-5,-4,-3,-2,-1,2,3,4,5,6,7,8,9
    b=$[$b/10]
    pm=!randitem +,-
    functie$n=$b*x $pm $a
    B=!randint -10,10
    !for q=1 to $punten
        X=$[$q+($B)]
	Y=$[$b*$X $pm $a]
	som=!append line <td>$X</td><td>$Y</td><tr> to $som
    !next q
    somtekst$n=<table border="1" cellpadding="5"><td><em>$varlist -waarde</em></td><td><em>$argument -waarde</em></td><tr>$som</table>
!endif


:PLAATJE
GOED$n=$(functie$n)
insplot_set=border ; xzeroaxis linetype 3 ; yzeroaxis linetype 3 ; autoscale ; tmargin 1 ; rmargin 1 ; grid ; xlabel "x-as" ; ylabel "y-as" ;xtics ;ytics;mxtics 2 ;mytics 2
plotsettings$n=$insplot_set
plaatje$n=$(functie$n)  notitle 