n=$teller
bewerking=bewerking4.proc
!if $graad=0
    R=$teller
!else
    R=$graad
!endif   
     
!if $printbaar=0
    white=white
!else
    white=mangenta
!endif

!if $afrondingsfactor=0
    af=10000
!else
    af=$afrondingsfactor
!endif		
        
!if $R=1
    letter1=!item $p of $letters
    a=!randint 12,40
    a=$[$a/10]
    b=!randitem 2,3,4,5,6,7,8,9,10,11,12
    c=!randitem 1,2,3,4,5
    f=!rawmath $b*$a^x 
    g=$[$b+$c]
    #F= !htmlmath f(x)= $b*($a)^x
    F=<em>f</em>(<em>x</em>)&nbsp;=&nbsp;$b&sdot;($a)<sup><small><em>x</em></small></sup>
    G= !htmlmath g(x) = $g
    Xs=$[(log($g/$b))/(log($a))]
    Xs=$[(round($af*$Xs))/$af]
    Ys=$g
    GOED$n=$Xs,$Ys
    
    !if $taal=nl	
	antwoord$n=Het goede antwoord is dus: ($Xs;$Ys)
	nivo_title=Bepaal de snijpunten <br>door middel van inklemming 
	somtekst$n=<p align="left">Bepaal het snijpunt van de volgende functies:\
	<ul><li>$F</li><li>$G</li></ul>\
	<em>$AFRONDING</em></p>
    !else
	antwoord$n=The correct answer is: ($Xs;$Ys)
	nivo_title=Determine the intersection points. 
	somtekst$n=<p align="left">Determine the intersection points of the next funtions:\
	<ul><li>$F</li><li>$G</li></ul>\
	<em>$AFRONDING</em></p>
    !endif	
    !if $wims_user=supervisor and $printbaar=0
        opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">($Xs:$Ys)</textarea>
    !else
	opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
    !endif
!endif

!if $R=2
	letter1=!item $p of $letters
	a=!randitem 1.2,1.3,1.4,1.5,1.6,1.7,1.8,2,2.5,3,4
	b=!randitem 2,3,4,5,6,7,8,9,10,11,12
	c=!randitem 3,4,5,6,7,8,9,10	
	d=!randitem 1,2,3,4,5,6,7,8,9,10
	d=$[$d/2]
	e=$[$b+$c]

	f=!rawmath $b*$a^x
	g=$e-$d*x
	F=<em>f</em>(<em>x</em>)&nbsp;=&nbsp;$b&sdot;($a)<sup><small><em>x</em></small></sup>

	#F=!htmlmath f(x)= $b*($a)^x
	G=!htmlmath g(x)= $e - $d*x	
	#pari bedankt
	TUSSEN=!exec pari P=solve(x=0,7,$g-$f)\
	Q=subst($g,x,P);round($af*Q)\
	round($af*P)
	
	Ys=!line 2 of $TUSSEN
	Ys=$[$Ys/$af]
	
	Xs=!line 3 of $TUSSEN
	Xs=$[$Xs/$af]
	GOED$n=$Xs,$Ys
	!if $taal=nl
	    somtekst$n=<p align="left">Bepaal mbv inklemmen het snijpunt van<br>de volgende functies:<ul><li>$F</li><li>$G</li></ul><em>$AFRONDING</em></p> 
	    nivo_title=Bepaal de snijpunten <br>door middel van inklemming
	    antwoord$n=Het goede antwoord is dus ($Xs;$Ys)
	!else
	    somtekst$n=<p align="left">Deterimine the intersection points of the next functions:<ul><li>$F</li><li>$G</li></ul><em>$AFRONDING</em></p> 
	    nivo_title=Determine the intersection points:
	    antwoord$n=The correct answer is ($Xs;$Ys)
	!endif
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n">($Xs:$Ys)</textarea>
	!else
	    opgave$n=<textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
        !endif
!endif

 
!if $R>2
    !if $PLAATJE=0
	APPLET=0
    !else
	APPLET=1
	PLAATJE=niks
    !endif
    nivo_title=Bepaal de snijpunten.
	a=!randitem 0.25,0.3,0.4,0.5,0.6,0.7,0.75
	b=!randint 5,20
	c=$[floor(abs($b*log($a)))]
	!if $c=1 or $c=0
	    d=0.5
	!else
	    d=!randint 1,$[$c-1]
	!endif
	f=!rawmath $b*$a^x
	g=$b-$d*x
	F=<em>f</em>(<em>x</em>)&nbsp;=&nbsp;$b&sdot;($a)<sup><small><em>x</em></small></sup>
	#F=!htmlmath f(x)= $b*($a)^x
	G=!htmlmath g(x)= $b - $d*x	
	Xmin=-1
	Xmax=10
	Ymin=-1
	Ymax=30
	rechterlimiet=$[ceil($b/$d)+1]
	
	#pari bedankt
	TUSSEN=!exec pari P=solve(x=0.1,$rechterlimiet,$g-$f)\
	Q=subst($g,x,P)
	
	Ys=!line 2 of $TUSSEN
	Ys=$[(round($af*$Ys))/$af]
	Xs=!line 1 of $TUSSEN
	Xs=$[(round($af*$Xs))/$af]
	GOED$n=$Xs,$Ys,0,$b

	keuze=!randitem 1,2
	!if $taal=nl
	    !if $wims_user=supervisor and $printbaar=0
    		opgave$n=de Co&ouml;rdinaten van de snijpunten:\
		<p><textarea cols="30" rows="2" value="" name="ANT$n">($Xs:$Ys) en (0:$b)</textarea>
	    !else
    		opgave$n=de Co&ouml;rdinaten van de snijpunten:\
		<p><textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	    somtekst$n=<p align="left">Bepaal mbv inklemmen <br>\
	    -gebruik hiervoor de applet (inzoomen, uitzoomen)-<br>de snijpunten van de volgende functies:\
	    <ul><li>$F</li><li>$G</li></ul><br><em>$AFRONDING</em></p>
	    antwoord$n=Het goede antwoord is<br>de co&ouml;rdinaten ($Xs;$Ys) en (0;$b)
	!else
	    !if $wims_user=supervisor and $printbaar=0
    		opgave$n=The Co&ouml;rdinates of the intersection points:\
		<p><textarea cols="30" rows="2" value="" name="ANT$n">($Xs:$Ys) and (0:$b)</textarea>
	    !else
    		opgave$n=Thee Co&ouml;rdinates of the intersecton points:\
		<p><textarea cols="30" rows="2" value="" name="ANT$n"></textarea>
	    !endif
	    somtekst$n=<p align="left">determine -graphically, using the applet zoom-  <br>\
	    the intersection points of the next functions:\
	    <ul><li>$F</li><li>$G</li></ul><br><em>$AFRONDING</em></p>
	    antwoord$n=the correct answer is<br>the co&ouml;rdinates are ($Xs;$Ys) and (0;$b)

	    !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="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="$f">\
    	    <param name="Function2" value="$g">\
    	    <param name="GraphColor1" value="black">\
    	    <param name="GraphColor2" value="red">$geenjava</applet>
    !endif
!endif

    
hint=$empty

 
!if $PLAATJE=1  and $APPLET !=1
	XSIZE=300
        YSIZE=300
        XRANGE=-1,6
	YRANGE=-5,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,5,-1,normal,x-axis\
	textup black,-0.3,normal,y-axis\
	linewidth 1\
        vline 0,0,blue\
        hline 0,0,blue\
        linewidth 2\
	curve red,$f\
	curve green,$g\
        linewidth s*14\
        point $Xs,$Ys,green	
!endif	  
