n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
!if $printbaar=0        
    white=white
!else
    white=magenta
!endif        

!if $R=1
    bewerking=bewerking4.proc
    soort=1
    a=!randitem -5,-4,-3,-2,-1,2,3,4,5
    b=!randitem 1,2,3
    e=!randitem 1,2,3,4
    !if $a>0
	d=!randint $b,9
    !else
	d=!randint -9,-$b
    !endif
    f=!rawmath sqrt($a*(x + $b))
    F$n=&radic;($a*(x+$b))
    g=$d
    G$n=$d
    !if $afrondingsfactor>0
	Ys=$[(round($afrondingsfactor*sqrt($a*($d+$b))))/$afrondingsfactor]
    !else
	Ys=$[sqrt($a*($d+$b))]
	test1=$[round(100000*$Ys)/100000]
	!if $test1 !=$Ys
	    Ys=sqrt($[$a*($d+$b)])
	!endif
    !endif
    coordinaat=($d;$Ys)
    GOED$n=$d,$Ys
    LATEX=\left\{ \begin{array}{c}f(x)=\sqrt{$a\sdot (x + $b)}\\\\x=$d\end{array}\right.    
    
    !if $taal=nl
	somtekst$n=<p align="left">Bepaal het snijpunt van de volgende wortelfunctie en de vertikale lijn:</p>\
	<p align="left"><em>$AFRONDING</em></p>
	nivo_title=Bepaal het snijpunt <br>een wortel en een lineaire functie
	antwoord$n=Het goede antwoord is dus: $coordinaat
    !else
	somtekst$n=<p align="left">Determine the intersection point of root-function and vertical line:</p>\
	<p align="left"><em>$AFRONDING</em></p>
	nivo_title=Determine the intersection <br>a "root-function" and vertical line
	antwoord$n=The correct answer is: $coordinaat
    !endif
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">$coordinaat</textarea>
    !else
	opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
    !endif
    
    !if $PLAATJE=1
	GRAFIEK=curve red,$f\
	vline $d,0,green\
	text black,8,-0.5,normal,x-axis\
	textup black,-0.8,normal,y-axis
        XRANGE=-10,10
	YRANGE=-5,15
	XSCHAAL=5
	YSCHAAL=5
	punt=point $d,$Ys,green
    !endif
!endif

!if $R=2 
    soort=2
    bewerking=bewerking4.proc
    !if $afrondingsfactor=0
	afrondingsfactor=100
	!readproc $authordir/afronding.$taal
    !endif
    a=!randitem -5,-4,-3,-2,-1,2,3,4,5
    b=!randitem 1,2,4,5,8,10
    #e=!randitem -2,-3/2,-5/2,-1,
    e=!randitem 1,5/2,3/2,2
    !if $a>0
	c=$[ceil(-1*$b/$a)]
	d=!randitem -8,$c
    !else
	c=$[floor(-1*$b/$a)]
	d=!randitem $c,8
    !endif
    p=$e*$d
    f=!rawmath sqrt($a*x + $b)
    F$n=&radic;($a*x+$b)
    g=($e)*x + $p
    G$n=$e*x+$p
    G=!exec pari printtex($g)
    LATEX=\left\{ \begin{array}{c}f(x)=\sqrt{$a\sdot x + $b}\\\\g(x)=$G\end{array}\right.    
    A=$[$e*$e]
    B=$[2*$e*$p-$a]
    C=$[$p*$p-$b]
    Xs1=$[(-1*$B-sqrt($B*$B-4*$A*$C))/(2*$A)]
    Xs2=$[(-1*$B+sqrt($B*$B-4*$A*$C))/(2*$A)]
    Ys1=$[$e*$Xs1+$p]
    Ys2=$[$e*$Xs2+$p]
    !if $Ys1>0
	Xs1=$[round($afrondingsfactor*$Xs1)/$afrondingsfactor]
	Ys1=$[round($afrondingsfactor*$Ys1)/$afrondingsfactor]
	GOED$n=$Xs1,$Ys1
	coordinaat=($Xs1;$Ys1)
    !else
	Xs2=$[round($afrondingsfactor*$Xs2)/$afrondingsfactor]
	Ys2=$[round($afrondingsfactor*$Ys2)/$afrondingsfactor]
	GOED$n=$Xs2,$Ys2
	coordinaat=($Xs2;$Ys2)
    !endif
    !if $taal=nl	
	somtekst$n=<p align="left">Bepaal het snijpunt van de volgende functies :</p>\
	<p align="left"><em>$AFRONDING</em></p> 
	nivo_title=Bepaal het snijpunt van <br>een wortel en een lineaire functie
	antwoord$n=Het goede antwoord is dus: $coordinaat
    !else
	somtekst$n=<p align="left">Determine the intersection points of :</p>\
	<p align="left"><em>$AFRONDING</em></p> 
	nivo_title=Determine the intersection <br>a "root-function" and line
	antwoord$n=The correct answer is: $coordinaat    
    !endif
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">$coordinaat</textarea>
    !else
	opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
    !endif
    !if $PLAATJE=1
	GRAFIEK=curve red,$f\
	curve green,$g\
	text normal,15,-0.5,normal,x-axis\
	textup normal,-0.5,15,normal,y-axis
        
	XRANGE=-20,20
	YRANGE=-2,10
	XSCHAAL=5
	YSCHAAL=2
	punt=point $(GOED$n),green
    !endif
!endif

!if $R>2
    soort=3
    bewerking=bewerking6.proc
    !if $PLAATJE=0
	APPLET=0
    !else
	APPLET=1
	PLAATJE=niks
    !endif
    a=!randitem 1,2,3,4,-1,-2,-3,-4
    c=!randitem -3,-2,-1,1,2,3
    b=!randint 4,15
    d=!randitem -1,1,2,3,4
    !if $c>0
	!if $a>0
	    d=$[-1*$d]
	    e=!randint $d,8
	    f=!randitem -4,-3,-2,-1
	!else
	    d=$[-1*$d]
	    e=!randint $d,8
	    f=!randitem 1,2,3,4
	!endif
     !else
        !if $a>0
	    e=!randint -9,$d
	    f=!randitem 1,2,3,4
	!else
	    e=!randint -9,$d
	    f=!randitem -4,-3,-2,-1
	!endif
    !endif
    l1=!rawmath $f*x+$e
    w1=!rawmath $c*sqrt($a*x +$b) + $d
    F$n=!htmlmath $w1
    F$n=!replace internal sqrt by <font size="+2">&radic;</font> in $(F$n)
    G$n=!htmlmath $l1
##voort oog
    A=!exec pari printtex($a*x + $b)
	!if $d=0
	    W1=$c \cdot \sqrt{$A} 
	!else
	    !if $d<0
		 W1=$c \cdot \sqrt{$A} $d
	    !else
		W1=$c \cdot \sqrt{$A} + $d
	    !endif
	!endif
    L1=!texmath $l1
##
    A=$[$f*$f]
    B=$[2*($e-$d)*$f-$c*$c*$a]
    C=$[($e-$d)*($e-$d)-$c*$c*$b]
    D=$[sqrt($B*$B-4*$A*$C)]
    NA=$[(-1*$b)/$a]
    !if $a>0
	X=!exec pari (-1*$B-$D)/(2*$A)
	Y=$[$f*$X+$e]
    !else
	X=!exec pari (-1*$B+$D)/(2*$A)
	Y=$[$f*$X+$e]
    !endif
    !if $afrondingsfactor!=0
	x=$[(round($afrondingsfactor*$X))/$afrondingsfactor]
	y=$[(round($afrondingsfactor*$Y))/$afrondingsfactor]
	NA=$[(round($afrondingsfactor*$NA))/$afrondingsfactor]
    !else
	x=$X
	y=$Y
    !endif
    coordinaten=($x:$y)
    !if $taal=nl
	ligging1=de wortelfunctie <b>f</b> boven de lijn <b>g</b> ligt.
	ligging2=de wortelfunctie <b>f</b> onder de lijn <b>g</b> ligt.
    !else
	ligging1=the root-function <b>f</b> lies above line <b>g</b>.
	ligging2=the root-function <b>f</b> lies under line <b>g</b>.    
    !endif
    keuze=!randitem 1,2
    !if $c>0
	!if $a>0
	    !if $keuze=1
	        ligging=$ligging1 
		GOED$n=x>$x
		ongelijkheid=x &gt; $x
		latextekst=f > g
	    !else
		ligging=$ligging2
		GOED$n=$NA<=x&&x<$x
		ongelijkheid=$NA &le; x &lt; $x
		latextekst=f < g
	    !endif
	!else
	    !if $keuze=1
		ligging=$ligging1
		GOED$n=x<$x
		ongelijkheid=x &lt; $x
		latextekst=f > g
	    !else
		ligging=$ligging2
		GOED$n=$x<x&&x<=$NA
		ongelijkheid=$x &lt; x &le; $NA
		latextekst=f < g
	    !endif
	!endif
    !else
	!if $a>0
	    !if $keuze=1
	        ligging=$ligging1
		GOED$n=$NA<=x&&x<$x
		ongelijkheid=$NA &le; x &lt; $x
		latextekst=f > g
	    !else
		ligging=$ligging2
		GOED$n=x>$x
		ongelijkheid=x &gt; $x
		latextekst=f < g
	    !endif
	!else
	    !if $keuze=1
		ligging=$ligging1
		GOED$n=$x<x&&x<=$NA
		ongelijkheid=$x &lt; x &le; $NA
		latextekst=f > g
	    !else
		ligging=$ligging2
		GOED$n=x<$x
		ongelijkheid=x &lt; $x
		latextekst=f < g
	    !endif
	!endif
	
    !endif
    !if $taal=nl
	somtekst$n=Gegeven de rechte lijn <b>g</b> met functievoorschrift <br><em>g(x)=$(G$n)</em><br> en<br>\
	de wortelfunctie <b>f</b> met als functievoorschrift <br><em>f(x)=$(F$n)</em> <br>\
	<ul>\
	<li><em>Bepaal via inklemming voor jezelf eerst de co&ouml;rdinaten van de snijpunten tussen lijn <b>g</b> en wortelfuntie <b>f</b> </em></li>\
	<li>En geef dan aan voor welke <em>x</em>-waarden de grafiek van $ligging  .</li>\
	<li>$AFRONDING</li></ul>
	LATEX= \left\{\begin{array}{c}g(x)=$L1\\\\f(x)=$W1\end{array}
	antwoord$n=<p align="left">Het goede antwoord is dus:\
	<ul><li>de snijpunten zijn $coordinaten</li>\
	<li>En dus waar de grafiek van $ligging geldt:<br> $ongelijkheid</li></ul></p>
	!if $wims_user=supervisor and $printbaar=0
    	    opgave$n=<table border=1 cellpadding=10 width="100%">\
	    <th>Los op</th><th>Vul in:</th><tr>\
	    <td>$latextekst</td><td><center><textarea cols="20" rows="3" name="ANT$n">$(GOED$n)</textarea></td></table>
	!else
    	    opgave$n=<table border=1 cellpadding=10 width="100%">\
	    <th>Los op</th><th>vul in:</th><tr>\
	    <td>$latextekst</td><td><cemter><textarea cols="20" rows="3" name="ANT$n"></textarea></td></table>
	!endif
    !else
	somtekst$n=Given the line <b>g</b> with function <em>g(x)=$(G$n)</em><br> and \
	the root-function <b>f</b> with function <br> <em>f(x)=$(F$n)</em> <br>\
	<ul>\
	<li><em>First determine -for yourself- the co&ouml;rdinate(s) of the intersection point(s) of line <b>g</b> and <b>f</b> </em></li>\
	<li>Then figure out for which <em>x</em>-values $ligging </li>\
	<li>$AFRONDING</li></ul>
	LATEX= \left\{\begin{array}{c}g(x)=$L1\\\\f(x)=$W1\end{array}
	antwoord$n=<p align="left">the correct answer is:\
	<ul><li>the intersection points are $coordinaten</li>\
	<li>$ligging when:<br> $ongelijkheid</li></ul></p>
	!if $wims_user=supervisor and $printbaar=0
    	    opgave$n=<table border=1 cellpadding=10 width="100%">\
	    <th>Solve</th><th>Fill in:</th><tr>\
	    <td>$latextekst</td><td><center><textarea cols="20" rows="3" name="ANT$n">$(GOED$n)</textarea></td></table>
	!else
    	    opgave$n=<table border=1 cellpadding=10 width="100%">\
	    <th>Solve</th><th>Fill in:</th><tr>\
	    <td>$latextekst</td><td><cemter><textarea cols="20" rows="3" name="ANT$n"></textarea></td></table>
	!endif
    !endif
    XSIZE=500
    YSIZE=500
    Xmin=-30
    Xmax=30
    Ymin=-4
    Ymax=20
    !if $APPLET=1 and $printbaar=0
    applet$n=<applet codebase="$appletdir" archive="jcm1.0-config.jar" code="MultiGraph.class" width="$XSIZE" height="$YSIZE">\
    <param name="UseFunctionInput" value="no">\
    <param name="CanvasColor" value="255 255 224">\
    <param name="PanelBackground" value="255 255 224">\
    <param name="BackgroundColor" value="255 255 224">\
    <param name="UseGrid" value="yes">\
    <param name="Parameter1" value="doet_even_niet_mee">\
    <param name="Parameter2" value="doet_even_niet_mee">\
    <param name="UsePanner" value="yes">\
    <param name="UseZoomButtons" value="yes">\
    <param name="UseMouseZoom" value="yes">\
    <param name="UseLimitsPanel" value="yes">\
    <param name="Limits" value="$Xmin $Xmax $Ymin $Ymax">\
    <param name="Function1" value="$l1">\
    <param name="Function2" value="$w1">\
    <param name="GraphColor1" value="black">\
    <param name="GraphColor2" value="red">$geenjava</applet> 
  !endif
!endif

!if $PLAATJE=1
    XSIZE=300
    YSIZE=300

    !readproc $authordir/ruitjespapier.proc
    knipperen=1
    aantal_beeldjes=2
    
    plaatje$n=300,300\
    $ruitjespapier\
    transparent $white\
    xrange $XRANGE\
    yrange $YRANGE\
    linewidth 1\
    vline 0,0,blue\
    hline 0,0,blue\
    linewidth 2\
    plotstep 1000\
    $GRAFIEK\
    linewidth s*14\
    $punt
!endif  
    
hint=$empty
 
