!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 
sin=!randitem sin,cos   
pm=!randitem +,-
mp=!randitem +,-
keuze=!randitem 1,2
s=!randitem -1,1
a=$[$s*$a]

!if $R = 1 
    !if $keuze=1
        opgave$n=$a*$sin(x)
    !else
	opgave$n=$a*$sin(x) $pm $b
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R = 2
     !if $keuze=1
	opgave$n=$a*$sin(x $pm $b)
    !else
	opgave$n=$a*$sin($b $pm x)   
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R = 3 
f=!randitem 1,1/3,1/4,1/5,1/6,2/3
    !if $keuze=1
	opgave$n=$a*$sin($c*x)
    !else
	opgave$n=$a*$sin($f*pi $pm $c*x)
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R > 3 
    b=!randitem 2,3,4
    a=!randitem 2,4,6,8
    !if $keuze=1
	som=$a*($sin($b*x))^2 $pm $c
	opgave$n=f(x)= $a$sin^{2}($b x) $pm $c
    !else
	som=$a*($sin(x))^2 $pm $c
	opgave$n=f(x)= $a$sin^{2}(x) $pm $c
    !endif
    GOED$n=!exec maxima integrate($som,x);  
 !exit
!endif
	
