questiontype=0
math=0
plot=0
draw=1
n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif  
!endif
letter1=x
letter2=y
###!randitem f,g,h,k
wims_rawmath_variables=$letter1
color1=!randitem red,blue,green,orange,purple
soort=!randitem 1,2
!if $soort=1
    checkfile=$checkdir/number.proc
    varlist=$empty
    arglist=$letter1
!else
    checkfile=$checkdir/coord.proc
!endif
#soort=2 (1:0)
keuze=!randitem 1,2
a=!randitem 1,2,3,4,5
q=!randitem 2,3,4
b=$[$a+$q]

y1=0
y2=0
y3=0
        
!if $R=1
    !if $keuze=1
	vraag=($letter1 + $a)($letter1 - $b)
	curve=(x + $a)*(x - $b)
	x1=$[-1*$a]
	x2=$b
    !else
	vraag=($a - $letter1)($b + $letter1)
	curve=($a - x)*($b + x)
	x1=$a
	x2=$[-1*$b]
    !endif
    !if $soort=1
	answer$n=$x1,$x2
    !else
	answer$n=$x1,$y1,$x2,$y2
    !endif
    punten=points red,$x1,$y1,$x2,$y2
    rr=!record 12 of lang/remarks.$taal
    #@ De waarden zijn <em>x=$x1</em> en <em>x=$x2</em><br>en dus de snijpunten met de x-as zijn ($x1:0) en ($x2:0)
    textanswer$n=$rr
    texanswer$n= \left[ \begin{array}{l} x_1 = $x1 \\ x_2 = $x2 \end{array}\right.
!endif

!if $R=2
    !if $keuze=1
	curve=!exec pari (x + $a)*(x - $b)
	vraag=!replace internal * by $empty in $curve
	x1=$[-1*$a]
	x2=$b
    !else
	curve=!exec pari ($a - x)*(x + $b)
	vraag=!replace internal * by  in $curve
	vraag=!replace internal x by $letter1 in $vraag
	x1=$a
	x2=$[-1*$b]
    !endif	
    !if $soort=1
	answer$n=$x1,$x2
    !else
	answer$n=$x1,$y1,$x2,$y2
    !endif
    punten=points red,$x1,$y1,$x2,$y2
    rr=!record 12 of lang/remarks.$taal
    #@ De waarden zijn <em>x=$x1</em> en <em>x=$x2</em><br>en dus de snijpunten met de x-as zijn ($x1:0) en ($x2:0)
    textanswer$n=$rr
    texanswer$n= \left[ \begin{array}{l} x_1 = $x1 \\ x_2 = $x2 \end{array}\right.
!endif

!if $R=3
    !if $keuze=1
	curve=x*(x + $a)*(x - $b)
	vraag=$letter1\cdot($letter1 + $a)($letter1 - $b)
	x1=$[-1*$a]
	x2=$b
	x3=0
    !else
	curve=x*($a - x)*(x + $b)
	vraag=$letter1\cdot($a - $letter1)($letter1 + $b)
	x1=$[-1*$b]
	x2=$a
	x3=0
    !endif	
    !if $soort=1
	answer$n=$x1,$x2,$x3
    !else
	answer$n=$x1,$y1,$x2,$y2,$x3,$y3
    !endif
    punten=points red,$x1,$y1,$x2,$y2,$x3,$y3
    rr=!record 13 of lang/remarks.$taal
    #@ De waarden zijn <em>x=0</em> ,<em>x=$b</em> en <em>x=$[-1*$a]</em><br> dus de punten (0:0) en ($b:0) en ($[-1*$a]:0)
    textanswer$n=$rr
    texanswer$n= \left[ \begin{array}{l} x_1 = $x1 \\ x_2 = $x2 \\ x_3 = $y3 \end{array}\right.
!endif
!if $R>3
    !if $keuze=1
        curve=!exec pari x*(x + $a)*(x - $b)
	vraag=!replace internal * by  in $curve
	x1=$[-1*$a]
	x2=$b
	x3=0
    !else
        curve=!exec pari x*($a - x)*(x + $b)
	vraag=!replace internal * by  in $curve
	vraag=!replace internal x by $letter1  in $vraag
	x1=$[-1*$b]
	x2=$a
	x3=0
    !endif
    !if $soort=1
	answer$n=$x1,$x2,$x3
    !else
	answer$n=$x1,$y1,$x2,$y2,$x3,$y3
    !endif
    punten=points red,$x1,$y1,$x2,$y2,$x3,$y3
    rr=!record 13 of lang/remarks.$taal
    #@  De waarden zijn <em>x=0</em> ,<em>x=$b</em> en <em>x=$[-1*$a]</em><br> dus de punten (0:0) en ($b:0) en ($[-1*$a]:0)
    textanswer$n=$rr
    texanswer$n= \left[ \begin{array}{l} x_1 = $x1 \\ x_2 = $x2 \\ x_3 = $y3 \end{array}\right.
!endif

!if $soort=1
    formula$n=\left[ \begin{array}{l}$letter2=$vraag\\\\$letter2=0\end{array}\right.
    question$n=!record 10 of lang/remarks.$taal
    #@ Los de onderstaande vergelijking op:<br>(Bereken dus x=.....)<br>
!else
    formula$n= f:\, $letter2 \,\,=\,\, $vraag
    question$n=!record 11 of lang/remarks.$taal
    #@ Determine the co&ouml;rdinates of the intersection points of the $parabool<br> with the <em>$letter1-axis</em>:<br>
!endif

!if $image=1 or $teaching=1
    XSIZE=200
    YSIZE=200
    XRANGE=-10,10
    YRANGE=-50,50
    plaatje=$XSIZE,$YSIZE\
    transparent white\
    xrange $XRANGE\
    yrange $YRANGE\
    linewidth 1\
    vline 0,0,blue\
    hline 0,0,blue\
    linewidth 2\
    curve $color1,$curve\
    linewidth 6\
    $punten

    !if $printexo=0
	image$n=$plaatje
	draw=1
	plot=0
	helptext=$empty
	exotext=$empty
    !else
	helptext=!record 63 of $remarkdir/commonremarks.$taal
	insdraw_size=$XSIZE,$YSIZE
	!insdraw $plaatje
	#@Hier</a> staat een klein grafiekje van de functie
	#helptext=<a href="javascript:showimage();">$helptext
	helptext=<a onmouseover="this.T_OPACITY=85;this.T_PADDING=10;this.T_WIDTH=$XSIZE;this.T_BORDERCOLOR='gold';this.T_BORDERWIDTH=1;return escape('<img src= $wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif>')"><font color=blue>$helptext</font>
        #helptext=<a onmouseover="return escape('<img src= $wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif>')"><font color=blue>$helptext</font>
    !endif
!endif



