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

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
b=!randitem 3,6,9,12,15  
c=!randitem 1,2,3,4
d=!randitem 2,3,4,5,6,7,8,9,10,11,12   
e=!randitem 2,3,4,5 
f=!randitem 2,3,4,5

pm=!randitem +,-
mp=!randitem +,-
keuze=!randitem 1,2
	
!if $R = 1 
    !if $keuze=1
        opgave$n=$b*sqrt(x)
    !else
	s=!randitem 1,-1
	a=$[$s*$a]  
	opgave$n=$a/sqrt(x)
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R = 2
    !if $keuze=1
	s=!randitem 1,-1
	c=$[$s*5*$c]
	opgave$n=$c*x*sqrt(x) $pm $d
    !else
	opgave$n=$a*x^$f $pm $[$c*(2*($e+1)+1)]*x^$e*sqrt(x)
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R = 3 
    !if $keuze=1
	s=!randitem 1,-1
	opgave$n=$a*x^$f $pm sqrt(x)/x^$e
    !else
	opgave$n=x^$e/sqrt(x) $pm $a*x^$f 
    !endif
    GOED$n=!exec maxima integrate($(opgave$n),x);  
    opgave$n=!texmath f(x)=$(opgave$n)
 !exit
!endif
!if $R > 3 
    f=!randitem 3,5,7,9,11,13
    e=!randitem 2,3,4,5
    !if $e=$f
	e=$[$e-1]
    !endif
    !if $[3*$e]=$f
	e=$[$e-1]
    !endif
    c=$[$c+1]
    wims_texsize=+2    
     !if $keuze=1
	som=$e*x^(1/$f) $pm $d/sqrt(x)
	opgave$n=f(x)=$e\cdot  \begin{\Large} \root $f \of {x} \end{Large} $pm \frac{$d}{\sqrt{x}
    !else
	som=$a*x^($e/$f) $pm $d*x^$c*sqrt(x)
	opgave$n=  f(x)=$a\cdot  \begin{\Large} \root $f \of {x^{$e}} \end{Large} $pm $d \cdot x^{$c} \cdot \sqrt{x}
    !endif
    GOED$n=!exec maxima integrate($som,x);  
!exit
!endif



	
	
