questiontype=0
cols=25
rows=1
inputs=1
n=$counter
checkfile=exos/checkfile4.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
keuze=!randitem 1,2
mytexsize=+2
!if $R<3
    b=!randitem 1,2,3
    a=!randitem 2,3
    g=!randitem 2,3
    d=$[$g^($a*$b)]
    !if $R=1
	c=!randitem 10,20,30,40,50,60
    !else
	c=!randitem b,k,m,p
    !endif
    !if $keuze=2
	formula$n=\left[ \begin{array}{l} f(x)\,=\,$d\cdot $g^{$a \cdot x} \\  g(x)\,=\, $g^{$a \cdot x} \\ y\,=\,$c \end{array}
    !else
    	formula$n=\left[ \begin{array}{l} f(x)\,=\,$d\cdot $g^{$a \cdot x} \\  g(x)\,=\, $[$g^$a]^{x} \\ y\,=\,$c \end{array}
    !endif
    texanswer$n=\left[ \begin{array}{l} f(x)=$g^{$[$a*$b]} \cdot $g^{$a\cdot x} = $g^{$a($b+x)} \\ g(x)=$g^{$a\cdot x} \end{array} \rightarrow D_{AB}\,=\,$b
    ss=!record 69 of lang/remarks.$taal
    #@Gegeven zijn de twee onderstaande functies <em>f</em> en <em>g</em><br>De lijn <em>y&nbsp;=&nbsp;$c</em> doorsnijdt de functie <em>f</em> in punt A en de functie <em>g</em> in B.<br>Bereken de lengte AB.
    question$n=$ss
!else
    b=!randitem 1/2,1/3,1/4
    d=!randitem 1,2,3
    a=$[$d/($b)]
    g=!randitem 2,3
    !if $keuze=2
	formula$n=\left[ \begin{array}{l} f(x)\,=\,$d\cdot $g^{$a \cdot x} \\  g(x)\,=\, $g^{$a \cdot x} \end{array}
    !else
    	formula$n=\left[ \begin{array}{l} f(x)\,=\,$d\cdot $g^{$a \cdot x} \\  g(x)\,=\, $[$g^$a]^{x} \end{array}
    !endif
    
    texanswer$n=\left[ \begin{array}{l} f(x)=$g^{$[$a*$b]} \cdot $g^{$a\cdot x} = $g^{$a($b+x)} \\ g(x)=$g^{$a\cdot x} \end{array} \rightarrow D_{AB}\,=\,$b
    question$n=!record 70 of lang/remarks.$taal
    #@Gegeven zijn de twee onderstaande functies <em>f</em> en <em>g</em><br>Bepaal de horizontale afstand tussen de twee functies.
!endif
answer$n=$b
mathviewpanel=$module_title:d(AB)=:
!if $teaching=1 or $image=1
    xmax=4
    ymax=100
    functie1=$d*$g^($a*x)    
    functie2=$g^($a*x)
    # zet de lijn op y=40 ...
    insplot_set=size 0.6,0.6;grid ;pointsize 1;xzeroaxis;yzeroaxis;xlabel "<x-axis>";ylabel"<y-axis>" ;border
    !if $printexo=1
	plot=1
	draw=0
	image_settings$n=$insplot_set
	image$n=[-2:$xmax][-3:$ymax] $functie1 notitle lt 1,$functie2 notitle lt 2,40 notitle lt 3 
    !else
	plot=0
	draw=0
	#insplot_data=$xa $ya \
	#$xb $yb
	helptext=!record 68 of lang/remarks.$taal
	#@ Hier staat een klein grafiekje van de functie</a>
	helptext=<a onmouseover="this.T_OPACITY=85;this.T_PADDING=10;this.T_WIDTH=220;return escape('<img src=$wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif>')"><font color=blue>$helptext</font></a>
	#!insplot [-2:$xmax][-3:$ymax] $functie1 notitle lt 1,$functie2 notitle lt 2,$c notitle lt 3 ,"insplot_data" notitle pointtype 4 using 1:2 with points
	!insplot [-2:$xmax][-3:$ymax] $functie1 notitle lt 1,$functie2 notitle lt 2,40 notitle lt 3 
    !endif
!endif 
