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

F=f\left(x\right)\,\,=\,\,
#functie=wisk functie
#som= latex som
#GOED= afgeleide
#goed= latex afgeleide
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,15,16,17,18,19,20    
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]
	
!if $R = 1 
    !if $keuze=1
        functie=($a*x $pm $b)*(x^$c $mp $d*x)
        opgave$n=$F \left($a \cdot x $pm $b \right)\cdot \left( x^{$c} $mp $d\cdot x \right)
    !else
        functie=($a*x^$c $pm $b*x)*(x $mp $d)
        opgave$n=$F \left($a \cdot x^{$c} $pm $b\cdot x \right)\cdot \left( x $mp $d \right)
    !endif
!endif
!if $R = 2 
    !if $keuze=1
        functie=($a*x $pm $b)*e^x
        opgave$n=$F \left( $a\cdot x $pm $b \right)\cdot e^{x}
    !else
    functie=($a*x^$c $pm $b)*ln(x)
    opgave$n=$F  \left( $a\cdot x^{$c} $pm $b \right)\cdot \ln\left(x\right)
    !endif
!endif
!if $R = 3 
    !if $keuze=1
	functie=(x^$b)*ln($c*x)
	opgave$n=$F  x^{$b} \cdot \ln\left($c\cdot x\right)
    !else
	functie=($a*x $pm $b)*e^($c*x)
	opgave$n=$F \left( $a\cdot x $pm $b \right)\cdot e^{$c x}
    !endif
!endif
!if $R > 3 
    functie=sqrt(x)*$b^x
    opgave$n=$F $b^{x} \cdot \sqrt x
!endif
	
GOED$n=!exec maxima factor(diff($functie ,x));  
GOED$n=!replace internal log by ln in $(GOED$n)
goed$n=!texmath $(GOED$n)
goed$n=!replace internal log by ln in $(goed$n)
