# 2 talig : moet anders
n=$teller
bewerking=bewerking2.proc
inputsize=!charcnt $afrondingsfactor
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        
!if $printbaar=0
    white=white
!else
    white=mangenta
!endif

!if $R=1
    soort=1
    b=!randitem 2,3,4,5,6,7,8,9,10,11,12
    keuze=!randitem 1,2	
    !if $taal=nl	
	!if $keuze=1	
	    a=!randitem 3,5,7,9
	    Xs1=$[(round($afrondingsfactor*$b^(1/$a)))/$afrondingsfactor]
	    Ys=$b
	    Xs2=
	    coordinaat= het punt met de co&ouml;rdinaten ($Xs1;$Ys)
	    GOED$n=$Xs1,$Ys
	    punt=point $(GOED$n),green
	!else
	    a=!randitem 2,4,6,8
	    Xs1=$[(round($afrondingsfactor*$b^(1/$a)))/$afrondingsfactor]
	    Xs2=$[-1*$Xs1]
	    Ys=$b
	    coordinaat= de punten met  co&ouml;rdinaten ($Xs1;$Ys) en ($Xs2;$Ys)
	    GOED$n=$Xs1,$Ys,$Xs2,$Ys
	    punt=points green,$(GOED$n)
	!endif
	f=!rawmath x^$a
	g=$b
	F=!htmlmath f(x)= $f
	G=!htmlmath g(x)= $g
	nivo_title=Bepaal de snijpunten.
	antwoord$n=Het goede antwoord is dus: $coordinaat
	somtekst$n=<p align="left">Bepaal het snijpunt (of de snijpunten) van de volgende functies:\
	<ul><li>$F</li><li>$G</li></ul></p>\
	<p align="left"><em>$AFRONDING</em></p>
	!if $keuze=1
	    !if $wims_user=supervisor and $printbaar=0     
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">($Xs1:$Ys)</textarea>
	    !else	
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!else
	    !if $wims_user=supervisor and $printbaar=0     
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">($Xs1:$Ys) en ($Xs2:$Ys)</textarea>
	    !else	
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!endif
    !else
    #taal != nl
	!if $keuze=1	
	    a=!randitem 3,5,7,9
	    Xs1=$[(round($afrondingsfactor*$b^(1/$a)))/$afrondingsfactor]
	    Ys=$b
	    Xs2=
	    coordinaat= the point with co&ouml;rdinates ($Xs1;$Ys)
	    GOED$n=$Xs1,$Ys
	    punt=point $(GOED$n),green
	!else
	    a=!randitem 2,4,6,8
	    Xs1=$[(round($afrondingsfactor*$b^(1/$a)))/$afrondingsfactor]
	    Xs2=$[-1*$Xs1]
	    Ys=$b
	    coordinaat= the points with  co&ouml;rdinates ($Xs1;$Ys) and ($Xs2;$Ys)
	    GOED$n=$Xs1,$Ys,$Xs2,$Ys
	    punt=points green,$(GOED$n)
	!endif
	f=!rawmath x^$a
	g=$b
	F=!htmlmath f(x)= $f
	G=!htmlmath g(x)= $g
	nivo_title=Determine the intersection points.     
	antwoord$n=The correct aswer is: $coordinaat
	somtekst$n=<p align="left">Determine the intersection points of:\
	<ul><li>$F</li><li>$G</li></ul></p>\
	<p align="left"><em>$AFRONDING</em></p>
	!if $keuze=1
	    !if $wims_user=supervisor and $printbaar=0     
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">($Xs1:$Ys)</textarea>
	    !else	
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!else
	    !if $wims_user=supervisor and $printbaar=0     
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">($Xs1:$Ys) and ($Xs2:$Ys)</textarea>
	    !else	
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!endif
    !endif	
!endif

!if $R=2
    soort=10
    b=!randitem 2,3,4,5,6,7,8,9,10,11,12
    c=!randitem 1,2,3,4,5
    pm=!randitem +,-
    keuze=!randitem 1,2
    !if $taal=nl
	!if $keuze=1	
	    a=!randitem 3,5,7,9
	    pm=-
	    f=!rawmath x^$a
	    g=$b $pm $c*x
	    TUSSEN=!exec pari P=solve(x=0,6,$g-$f)\
	    Q=subst($g,x,P);round($afrondingsfactor*Q)\
	    round($afrondingsfactor*P)
	    Ys=!line 2 of $TUSSEN
	    Ys=$[$Ys/$afrondingsfactor]
	    Xs=!line 3 of $TUSSEN
	    Xs=$[$Xs/$afrondingsfactor]
	    coordinaat= het punt met de co&ouml;rdinaten ($Xs;$Ys)
	    GOED$n=$Xs
	    punt=point $Xs,$Ys,green
	!else
	    a=!randitem 2,4,6,8
	    pm=!randitem +,-
	    f=!rawmath x^$a
	    g=$b $pm $c*x
	    TUSSEN=!exec pari P1=solve(x=-8,-0.1,$g-$f)\
	    Q1=subst($g,x,P1);round($afrondingsfactor*Q1)\
	    round($afrondingsfactor*P1)\
	    P2=solve(x=0.1,8,$g-$f)\
	    Q2=subst($g,x,P2);round($afrondingsfactor*Q2)\
	    round($afrondingsfactor*P2)
	    Ys1=!line 2 of $TUSSEN
	    Ys1=$[$Ys1/$afrondingsfactor]
	    Xs1=!line 3 of $TUSSEN
	    Xs1=$[$Xs1/$afrondingsfactor]
	    Ys2=!line 5 of $TUSSEN
	    Ys2=$[$Ys2/$afrondingsfactor]
	    Xs2=!line 6 of $TUSSEN
	    Xs2=$[$Xs2/$afrondingsfactor]
	    coordinaat= de punten met  co&ouml;rdinaten ($Xs1;$Ys1) en ($Xs2;$Ys2)
	    GOED$n=$Xs1,$Xs2
	    punt=points green,$Xs1,$Ys1,$Xs2,$Ys2
	!endif
	F=!htmlmath f(x)= $f
	G=!htmlmath g(x)= $g
	antwoord$n=Het goede antwoord is dus: $coordinaat
	nivo_title=Bepaal de x-waarden van de snijpunten.     
	somtekst$n=<p align="left">Bepaal de <b>x-waarde(n)</b> van het snijpunt(en) van de volgende functies:\
	<ul><li>$F</li><li>$G</li></ul></p>\
	<p align="left"><em>$AFRONDING</em></p>
	!if $keuze=1
	    !if $wims_user=supervisor and $printbaar=0
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">$Xs</textarea>
	    !else
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!else
	    !if $wims_user=supervisor and $printbaar=0
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">$Xs1 en $Xs2</textarea>
	    !else
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!endif    
    !else
    # taal != nl
	!if $keuze=1	
	    a=!randitem 3,5,7,9
	    pm=-
	    f=!rawmath x^$a
	    g=$b $pm $c*x
	    TUSSEN=!exec pari P=solve(x=0,6,$g-$f)\
	    Q=subst($g,x,P);round($afrondingsfactor*Q)\
	    round($afrondingsfactor*P)
	    Ys=!line 2 of $TUSSEN
	    Ys=$[$Ys/$afrondingsfactor]
	    Xs=!line 3 of $TUSSEN
	    Xs=$[$Xs/$afrondingsfactor]
	    coordinaat= het punt met de co&ouml;rdinaten ($Xs;$Ys)
	    GOED$n=$Xs
	    punt=point $Xs,$Ys,green
	!else
	    a=!randitem 2,4,6,8
	    pm=!randitem +,-
	    f=!rawmath x^$a
	    g=$b $pm $c*x
	    TUSSEN=!exec pari P1=solve(x=-8,-0.1,$g-$f)\
	    Q1=subst($g,x,P1);round($afrondingsfactor*Q1)\
	    round($afrondingsfactor*P1)\
	    P2=solve(x=0.1,8,$g-$f)\
	    Q2=subst($g,x,P2);round($afrondingsfactor*Q2)\
	    round($afrondingsfactor*P2)
	    Ys1=!line 2 of $TUSSEN
	    Ys1=$[$Ys1/$afrondingsfactor]
	    Xs1=!line 3 of $TUSSEN
	    Xs1=$[$Xs1/$afrondingsfactor]
	    Ys2=!line 5 of $TUSSEN
	    Ys2=$[$Ys2/$afrondingsfactor]
	    Xs2=!line 6 of $TUSSEN
	    Xs2=$[$Xs2/$afrondingsfactor]
	    coordinaat= the points with co&ouml;rdinates ($Xs1;$Ys1) and ($Xs2;$Ys2)
	    GOED$n=$Xs1,$Xs2
	    punt=points green,$Xs1,$Ys1,$Xs2,$Ys2
	    #coordinaat=($Xs1;$Ys1)of($Xs1;$Yfussy1)of($Xs1;$Yfussy2)<br>\
	    #($Xs2;$Ys2)of($Xs2;$Yfussy3)of($Xs2;$Yfussy4)
	!endif
	F=!htmlmath f(x)= $f
	G=!htmlmath g(x)= $g
	antwoord$n=The correct answer is: $coordinaat
	nivo_title=Determine the x-value of the intersection point(s).     
	somtekst$n=<p align="left">Determine the x-value of the intersection point (or points) of the next functions:\
	<ul><li>$F</li><li>$G</li></ul></p>\
	<p align="left"><em>$AFRONDING</em></p>
	!if $keuze=1
	    !if $wims_user=supervisor and $printbaar=0
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">$Xs</textarea>
	    !else
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!else
	    !if $wims_user=supervisor and $printbaar=0
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">$Xs1 and $Xs2</textarea>
	    !else
		opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	!endif
    !endif
!endif

!if $R>2
    soort=3
    !if $PLAATJE=0
	APPLET=0
    !else
	APPLET=1
	PLAATJE=niks
    !endif
    b=!randitem 2,3,4,5,6,7,8,9,10,11,12
    c=!randitem 1,2,3,4,5
    pm=!randitem +,-
    keuze=!randitem 1,2
    !if $keuze=1	
	a=!randitem 3,5,7,9
	pm=-
	f=!rawmath x^$a
	g=$b $pm $c*x
	Xs=!exec pari solve(x=0,6,$g-$f)
	Xs=$[(round($afrondingsfactor*$Xs))/$afrondingsfactor]
    !else
	a=!randitem 2,4,6,8
	pm=!randitem +,-
	f=!rawmath x^$a
	g=$b $pm $c*x
	TUSSEN=!exec pari P1=solve(x=-8,-0.1,$g-$f)\
	P2=solve(x=0.1,8,$g-$f)
	    
	Xs1=!line 1 of $TUSSEN
	Xs2=!line 2 of $TUSSEN
	Xs1=$[(round($afrondingsfactor*$Xs1))/$afrondingsfactor]
	Xs2=$[(round($afrondingsfactor*$Xs2))/$afrondingsfactor]
    !endif    
    F=!htmlmath f(x)= $f
    G=!htmlmath g(x)= $g
    Xmin=-5
    Xmax=5
    Ymin=-30
    Ymax=30
    gebied=!randitem 1,2
    !if $taal=nl	
	!if $gebied=1
	    vraag=Los op:<br> <em>f(x) &lt; g(x)</em>
	    !if $keuze=1
		GOED$n=x<$Xs
		goed$n=$Xs
		antwoordje=x&lt;$Xs
		GG= x<$Xs
	    !else
		GOED$n=$Xs1<x&&x<$Xs2
		goed$n=$Xs1,$Xs2
		antwoordje=$Xs1&lt;x&lt;$Xs2
		GG= $Xs1<x<$Xs2
	    !endif
	!else
	    vraag=Los op:<br> <em>f(x) &gt; g(x)</em>
	    !if $keuze=1
		GOED$n=x>$Xs
		goed$n=$Xs
		antwoordje=x&gt;$Xs
		GG= x>$Xs
	    !else
		GOED$n=x<$Xs1&&x>$Xs2
		goed$n=$Xs1,$Xs2
		antwoordje=x&lt;$Xs1 of x&gt;$Xs2
		GG= x<$Xs1 of x>$Xs2
	    !endif
	!endif
	nivo_title=Los de ongelijkheid op
	!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>$vraag</td><td><textarea cols=18 rows="3" name="ANT$n">$GG</textarea></td></table>
	!else
    	    opgave$n=<table border=1 cellpadding=10 width="100%">\
	    <th> Los op </th><th> Vul in: </th><tr>\
	    <td>$vraag</td><td><textarea cols=18 rows="3" name="ANT$n"></textarea></td></table>
	!endif
    	somtekst$n=<p align="left">Gegeven zijn de volgende functies<br>\
	<ul><li>$F</li><li>$G</li></ul></p><p align="center"> $vraag </p><em>$AFRONDING</em></p>
	antwoord$n=De oplossing van de ongelijkheid is $antwoordje
    !else
    # taal != nl
	!if $gebied=1
	    vraag=Solve:<br> <em>f(x) &lt; g(x)</em>
	    !if $keuze=1
		GOED$n=x<$Xs
		goed$n=$Xs
		antwoordje=x&lt;$Xs
		GG= x<$Xs
	    !else
		GOED$n=$Xs1<x&&x<$Xs2
		goed$n=$Xs1,$Xs2
		antwoordje=$Xs1&lt;x&lt;$Xs2
		GG= $Xs1<x<$Xs2
	    !endif
	!else
	    vraag=Solve:<br> <em>f(x) &gt; g(x)</em>
	    !if $keuze=1
		GOED$n=x>$Xs
		goed$n=$Xs
		antwoordje=x&gt;$Xs
		GG= x>$Xs
	    !else
		GOED$n=x<$Xs1&&x>$Xs2
		goed$n=$Xs1,$Xs2
		antwoordje=x&lt;$Xs1 or x&gt;$Xs2
		GG= x<$Xs1 or x>$Xs2
	    !endif
	!endif
	nivo_title=Solve the inequality
	!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>$vraag</td><td><textarea cols=18 rows="3" name="ANT$n">$GG</textarea></td></table>
	!else
    	    opgave$n=<table border=1 cellpadding=10 width="100%">\
	    <th>Solve</th><th>Filll in:</th><tr>\
	    <td>$vraag</td><td><textarea cols=18 rows="3" name="ANT$n"></textarea></td></table>
	!endif
    	somtekst$n=<p align="left">Given:<br>\
	<ul><li>$F</li><li>$G</li></ul></p><p align="center"> $vraag </p><em>$AFRONDING</em></p>
	antwoord$n=The correct answer: $antwoordje
    !endif
	
    XSIZE=500
    YSIZE=500
  !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="unused">\
    <param name="Parameter2" value="unused">\
    <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="$f">\
    <param name="Function2" value="$g">\
    <param name="GraphColor1" value="black">\
    <param name="GraphColor2" value="red">$geenjava</applet>
  !endif
!endif

!if $PLAATJE=1 and $APPLET != 1
    XSIZE=300
    YSIZE=300
    XRANGE=-5,5
    YRANGE=-30,30
    XSCHAAL=1
    YSCHAAL=10

    !readproc $authordir/ruitjespapier.proc
    knipperen=1
    aantal_beeldjes=2

    plaatje$n=300,300\
    $ruitjespapier\
    transparent $white\
    xrange $XRANGE\
    yrange $YRANGE\
    text black,4,-5,normal,x-axis\
    textup black,-0.5,normal,y-axis\
    linewidth 1\
    vline 0,0,blue\
    hline 0,0,blue\
    linewidth 2\
    curve red,$f\
    curve green,$g\
    linewidth s*14\
    $punt
!endif  
    
hint=$empty

 
  
