questiontype=0
!set n=$counter
checkfile=exos/checkfile2.proc
question$n=!record 5 of lang/remarks.$taal
exotext=!record 31 of lang/remarks.$taal
sometext=!record 32 of lang/remarks.$taal
exotext=<p><a onmouseover="return escape('$sometext')">$exotext
helptext=$empty
image=0

R=$level
!if $level=0
    R=$counter
!endif    
	
a=!randitem 1,2,3,4,5,6,7,8,9,10,11,12
b=!randitem 2,3,4,5   
c=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
d=!randitem 2,3,4,5,6
e=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
f=!randitem 2,3,4,5,6  
keuze=!randitem 1,2 
!if $b=$d
    b=$[$b+1]
!endif	

pm=!randitem +,-
mp=!randitem +,-
	
!if $R = 1 
    s=!randitem -1,1
    a=$[$s*$a]
    !if $keuze=1 
	answer$n=$a/x
	texanswer$n= \rightarrow F(x)= \frac{$a}{x} \,+\, C 	
    !else
	answer$n=$a/x^$b
	texanswer$n= \rightarrow F(x)= \frac{$a}{x^{$b}} \,+\, C 	
    !endif
    formula$n=!exec pari printtex(deriv($(answer$n),x))
    formula$n= f(x) = $(formula$n)
 !exit
!endif
!if $R = 2 
	s=!randitem -1,1
	a=$[$s*$a]
    !if $keuze=1	
	answer$n=$a*ln(abs(x))
	# let op met |x| syntax !!! zie syntax2.proc
	texanswer$n= \rightarrow F(x)= $a \cdot \ln \left( | x | \right) \,+\, C 
	formula$n=$a/x
	formula$n=!texmath  f(x) = $(formula$n)
    !else
	answer$n=$a/x^$b $pm $d*x
	texanswer$n= \rightarrow F(x) = \frac{$a}{x^{$b}} $pm $d \cdot x \,+\, C 
	formula$n=!exec pari printtex(deriv($(answer$n),x))
	formula$n= f(x) = $(formula$n)
    !endif
 !exit
!endif
!if $R = 3
    s=!randitem -1,1
    e=$[$s*$e]
    !if $keuze=1 
	answer$n=$e*ln(abs(x $pm $c))
	# let op met |x| syntax !!! zie syntax2.proc
	texanswer$n= \rightarrow F(x)= $e \cdot \ln \left( | x $pm $c |\right) \,+\, C 
	formula$n=$e/(x$pm $c)
	formula$n=!texmath  f(x) = $(formula$n)
    !else
	answer$n=$a*x^$d $pm $c/x^$b
	texanswer$n= \rightarrow F(x) = $a \cdot x^{$d} $pm \frac{$c}{x^{$b}} \,+\, C 
        formula$n=!exec pari printtex(deriv($(answer$n),x))
        formula$n= f(x) = $(formula$n)
    !endif
 !exit
!endif
!if $R > 3 
    s=!randitem -1,1
    e=$[$s*$e]
    !if $c=$d
	c=$[$c+1]
    !endif
    !if $keuze=1
	answer$n=$e*ln(abs($b*x $pm $c))
	# let op met |x| syntax !!! zie syntax2.proc
	texanswer$n= \rightarrow F(x)= $e \cdot \ln \left( | $b \cdot x  $pm $c | \right) \,+\, C 
	formula$n=$[$b*$e]/($b*x$pm $c)
	formula$n=!texmath  f(x) = $(formula$n)
    !else
        answer$n=$e*x^$d $pm $c*x^$b $mp $a/x^$f
	texanswer$n= \rightarrow F(x)= $e \cdot x^{$d} $pm  $c \cdot x^{$b} $mp \frac{$a}{x^{$f} \,+\, C 
        formula$n=!exec pari printtex(deriv($(answer$n),x))
        formula$n= f(x) = $(formula$n)
    !endif
 !exit
!endif

