!set n=$teller
bewerking=nivo/bewerking2.proc
nivo_title=!record 13 of lang/remarks.$taal
somtekst$n=!record 15 of lang/remarks.$taal

F=F\left(x\right)\,\,=\,\,
#functie=wisk functie
#som= latex som
#GOED= afgeleide
#goed= latex afgeleide

# LETOP: er komt geen LOG in de goeda antwoorden voor !!!!

R=$graad

!if $graad=0
    R=$teller
!endif    
	
a=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
b=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14    
c=!randitem 2,3,4,5,6
d=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16    
e=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16    
pm=!randitem +,-
mp=!randitem +,-
keuze=!randitem 1,2
s=!randitem -1,1
a=$[$s*$a]
wims_texsize=+2
	
!if $R = 1 
    !if $keuze=1
        opgave$n=$c^x
    !else
	opgave$n=$a*e^x
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    GOED$n=!replace internal log by ln in $(GOED$n)
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R = 2
     !if $keuze=1
	opgave$n=$a*$b^(x $pm $c) $mp $d
    !else
	opgave$n=$a*e^($c $pm x) $mp $d    
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    GOED$n=!replace internal log by ln in $(GOED$n)
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R = 3 
    !if $keuze=1
	opgave$n=$[$n*$c]*$b^($c*x) $pm $d
    !else
	opgave$n=$[$n*$c]*e^($c*x) $pm $d
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    GOED$n=!replace internal log by ln in $(GOED$n)
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R > 3 
    !if $keuze=1
    f=!randitem 1,2,3,4
    c=$[$f*$c]
	opgave$n=$c*$b^($c*x $pm $e) $pm $d
    !else
	opgave$n=$c*e^($e $pm $c*x) $pm $d
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    GOED$n=!replace internal log by ln in $(GOED$n)
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
	
