checkfile=exos/checkfile2.proc
n=$counter
!if $rounding=-1
    rounding=0
    !readproc $remarkdir/rounding.$taal
!endif
!if $level =0
    R=$counter
!else
    R=$level
!endif        
math=0
questiontype=0
exotitle=!record 11 of lang/remarks.$taal
#@ Bepaal het snijpunt van twee log-functies
var1=0
afrondingsfactor=-1
var2=0
# var2 -> breuk
var3=1
# var3 -> varlist
mytexsize=+2
keuze=0
kans=1

!if $R>0
    # niet meer materiaal : MOET NOG WEL !!!!
    g=!randitem 2,3,4,5,6,7,8,9
    a=!randitem 1,2,3,4,5
    b=!randitem 1,20
    ff=^{$g}\log \left( x \right) + $a
    gg=^{$g}\log \left( $b - x \right) 
    tot=!exec pari A=$b/(1+$g^$a)\
    printtex(A)
    answer$n=!line 1 of $tot
    texanswer$n=!line 2 of $tot
    texanswer$n= x\,\,=\,\, $(texanswer$n)
    formula$n= \left\{ \begin{array}{cc} f\left( x \right) = & $ff  \\ \\  g\left( x \right) = & $gg \end{array}\right. 
    question$n=!record 56 of lang/remarks.$taal
    #@ Gegeven zijn de twee functies <em>f</em> en <em>g</em><p><font size=+1>Los de vergelijking <font size=+1>f(<em>x</em>) = g(<em>x</em>)</font> exact op. 
	
    F=$a + log10(x)/(log10($g))
    G=log10($b -x)/(log10($g))
    	
    !if $image=1
	plot=1
	draw=0
	image_settings$n=size 0.6,0.6 ;border ; autoscale ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "x-axis" ; ylabel "y-axis"
	image$n= $F notitle , $G  notitle
    !else
	!if $teaching=1
	    insplot_set=size 0.8,0.8 ;border ; autoscale ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "x-axis" ; ylabel "y-axis"
	    helptext=!record 63 of $remarkdir/commonremarks.$taal
	    #@ kijk hier</a> voor een illustratie
	    helptext=<a href="javascript:showimage();">$helptext
	    !insplot  $F notitle , $G  notitle
	!endif
    !endif
 !exit
!endif
