plaatje=0
n=$teller
bewerking=nivo/bewerking2.proc
somtekst$n=!record 4 of lang/remarks.$taal
nivo_title=!record 15 of lang/remarks.$taal
F=f(x)\,\,=\,\,
wims_texsize=+2
#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
b=!randitem 2,3,4,5,6,7,8,9,10    
c=!randitem 3,4,5
d=!randitem 2,3,4,5,6  
e=!randitem 2,3,4,5,6
f=!randitem 2,3,4,5
pm=!randitem +,-
mp=!randitem +,-
s=!randitem 1,-1
f=$[$f*$s]
keuze=!randitem 1,2

!if $R = 1 
    !if $keuze=1
        functie=($a*x^$e $pm $b*x)^($f)
        opgave$n=$F  \left( $a \cdot x^{$e} $pm $b\cdot x\right)^{$f}
    !else
        functie=log($a*x^$e $pm $b*x)
        opgave$n=$F  \ln \left( $a \cdot x^{$e} $pm $b\cdot x \right)
    !endif
!endif
!if $R = 2
    !if $keuze=1 
        functie=sqrt($a*x^($d) $pm $b)
        opgave$n=$F \sqrt \left($a\cdot x^{$d} $pm $b \right)
    !else
        functie=($a*x^($d) $pm $b)^(1/$c)
        opgave$n=$F \root $c\of {\left($a\cdot x^{$d} $pm $b\right)}
    !endif
!endif
!if $R = 3
    !if $keuze=1 
        functie=(x^$a)*(e^($b*x^($d)))
        opgave$n=$F  x^{$a} \cdot e^{($b\cdot x^{$d})}
    !else
        functie=(x^$a)*(log($b*x^($d)))
        opgave$n=$F  x^{$a} \cdot \ln \left($b\cdot x^{$d}\right)
    !endif
!endif
!if $R > 3 
    !if $keuze=1 
        functie=(e^($b*x^($d)))/(x^$a)
        opgave$n=$F  \frac {e^{($b\cdot x^{$d})}}{ x^{$a}}
    !else
        functie=($b^x)/(sqrt($a*x))
        opgave$n=$F \frac{$b^{x}}{\sqrt{$a\cdot x}}
    !endif
!endif

sommen=!exec maxima factor(diff($functie ,x)); 
GOED$n=!line 1 of $sommen	
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)
