!set n=$teller
bewerking=nivo/bewerking1.proc
nivo_title=!record 23 of lang/remarks.$taal
# Domein en Bereik van de 'absolute waarde'-functie.
!if $drag=1
    plaatje=1
!endif    
!if $plaatje=1
    graph=!record 20 of lang/remarks.$taal
!else
    graph=!record 21 of lang/remarks.$taal
!endif
Domein=!record 14 of lang/remarks.$taal
Bereik=!record 15 of lang/remarks.$taal

a=!randitem 2,3,4,5,6,7,8,9
b=!randitem 1,2,3,4,5,6,7,8,9
lijst=!randitem lijst4a.def,lijst4b.def
aantal_vragen=4
aantal_records=!recordcnt nivo/$lijst
num=!randint 1,$aantal_records

vraag=!record $num of nivo/$lijst
functie=!line 1 of $vraag

opgave$n=!texmath f(x) = $functie
keus=!randitem 1,2
soort=!randitem 1,0
!if $keus=1
    bereik=$Domein
    !if $soort=0
	DB=D_f \,:\,
    !else
	DB=D_f \,=\,
    !endif	
    vraag=!line 2 to 5 of $vraag
    # eerste item van $vraag is goed
!else
    !if $soort=0
	DB=B_f \,:\,
    !else
	DB=B_f \,=\,
    !endif	
    bereik=$Bereik
    vraag=!line 6 to 9 of $vraag
    # eerste item van $vraag is goed
!endif		


keuzes=!shuffle 1,2,3,4
!for p=1 to 4
    nummer=!item $p of $keuzes
    som$p=!line $nummer of $vraag
    som$p=$DB  $(som$p)
    !if $nummer=1
	GOED$n=$p
	goed$n=$(opgave$n) \longrightarrow $(som$p)
    !endif    	
!next p	


XRANGE=-10:10
YRANGE=-20:20
plotsettings$n= border ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "x-axis" ; ylabel "y-axis"
plaatje$n=[$XRANGE] [$YRANGE] $functie notitle

text=!record 24 of lang/remarks.$taal
somtekst$n=$text
# Welk <tt>$bereik</tt> past bij de $plaatje  van de absolute-waarde functie?
!exit