questiontype=0
!set n=$counter
R=$level
!if $level=0
    R=$counter
!endif    
checkfile=exos/checkfile4.proc
	
a=!randitem 2,3,4,5,6
b=!randitem 2,3,4,5,6
!if $a=$b
    b=$[$a+1]
!endif
c=!randitem 3,6,9
d=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16    
e=!randitem 2,3,4,5 
!if $b=$d
    b=$[$b+1]
!endif	

pm=!randitem +,-
mp=!randitem +,-
keuze=!randitem 2,1
	
!if $R = 1
    !if $keuze=1
        BEREIK=!randint 5,20	
        X1=!randint $b,$[$b+3]
        X2=$[$X1+$BEREIK]
        f=(x+$a)*(x-$b)
	Xmin=$[(-1*$a+$b)/2]
	Xmax=$X2
    !else
        BEREIK=!randint $[$a+1],$b	
        X1=$[-1*$a]
        X2=$[$X1+$BEREIK]
        f=-1*(x+$a)*(x-$b) 
	Xmax=$[(-1*$a+$b)/2]
	Xmin=$X1
    !endif
    tot=!exec pari $f\
    printtex($f)
    functie$n=!line 1 of $tot
    uitleg=!line 2 of $tot
    uitleg=\left( $uitleg \right)
    !if $image=1 or $teaching=1
	y1=!evalsubst x=$Xmin in $(functie$n)
	y2=!evalsubst x=$Xmax in $(functie$n)
	!if $y1 > $y2
    	    Y1=$y2
	    Y2=$y1
	!else
	    Y1=$y1
	    Y2=$y2
	!endif		 
	!if $Y1>0
	    Y1=-5
	!endif
	!if $Y2<0
	    Y2=5
	!endif
	xrange=$[-1*$a - 5],$[$X2+5]
	yrange=$[$Y1-5],$[$Y2+5]
        rect=rect $[-1*$a-5],$[$Y1-5],$[$X2+5],$[$Y2+5],black
    !endif
!endif

!if $R = 2 	
    !if $keuze=1
        BEREIK=!randint 5,20	
        X1=!randint $b,$[$b+3]
        X2=$[$X1+$BEREIK]
        functie$n=(x+$a)*(x-$b)
	uitleg=(x+$a)(x-$b)
	Xmin=$[(-1*$a+$b)/2]
	Xmax=$X2
    !else
        BEREIK=!randint $[$a+1],$b	
        X1=$[-1*$a]
        X2=$[$X1+$BEREIK]
        functie$n=(-1*x-$a)*(x-$b)
	uitleg=-(x+$a)(x-$b)
	Xmax=$[(-1*$a+$b)/2]
	Xmin=$X1
    !endif 
    !if $image=1 or $teaching=1
	y1=!evalsubst x=$Xmin in $(functie$n)
	y2=!evalsubst x=$Xmax in $(functie$n)
	!if $y1 > $y2
    	    Y1=$y2
	    Y2=$y1
	!else
	    Y1=$y1
	    Y2=$y2
	!endif		 
	!if $Y1>0
	    Y1=-5
	!endif
	!if $Y2<0
	    Y2=5
	!endif
	xrange=$[-1*$a - 5],$[$X2+5]
	yrange=$[$Y1-5],$[$Y2+5]
        rect=rect $[-1*$a-5],$[$Y1-5],$[$X2+5],$[$Y2+5],black
    !endif
!endif

!if $R=3
    !if $keuze=1
        BEREIK=!randint 3,10	
        X1=!randint $[-1*$b],1
        X2=$[$X1+$BEREIK]
        functie$n=$c*sqrt(x+$b)
        uitleg=$c\cdot \sqrt(x+$b)
	!if $image=1 or $teaching=1
	    Y2=!evalsubst x=$X2 in $(functie$n)
	    xrange=$[-1*$b - 3],$[$X2+5]
	    yrange=-3,$[$Y2+3]
	    rect=rect $[-1*$b-3],-3,$[$X2+5],$[$Y2+3],black
	!endif
    !else
        BEREIK=!randint 3,10	
        X2=!randint $[$b-3],$b
        X1=$[$X2-$BEREIK]
        functie$n=$c*sqrt(-x+$b)
        uitleg=$c\cdot \sqrt(-x+$b)
	!if $image=1 or $teaching=1
	    Y2=!evalsubst x=$X1 in $(functie$n)
	    xrange=$[$X1 - 5],$[$b+5]
	    yrange=-3,$[$Y2+3]
    	    rect=rect $[$X1-5],-3,$[$b+5],$[$Y2+3],black
	!endif
    !endif
!endif
!if $R>3
    !if $keuze=1
        BEREIK=!randint 3,10	
        X1=!randitem 1,2,3
        X2=$[$X1+$BEREIK]
        functie$n=$c/x^$b
        uitleg=\frac{$c}{x^$b}
	!if $image=1 or $teaching=1
	    Y2=!evalsubst x=$X1 in $(functie$n)
	    xrange=-2,$[$X2+3]
	    yrange=-3,$[$Y2+5]
	    rect=rect -2,-3,$[$X2+3],$[$Y2+5],black
	!endif
    !else
        BEREIK=!randint 3,10	
        X1=!randitem 1,2,3
        X2=$[$X1+$BEREIK]
        functie$n=$c/x
        uitleg=\frac{$c}{x}
	!if $image=1 or $teaching=1
	    Y2=!evalsubst x=$X1 in $(functie$n)
	    xrange=-2,$[$X2+5]
	    yrange=-1,$[$Y2+5]
	    rect=rect -2,-1,$[$X2+5],$[$Y2+5],black
	!endif
    !endif
!endif

!if $image=1	
    draw=1
    plot=0
    XSIZE=200
    YSIZE=200
    image$n=\
    xrange $xrange\
    yrange $yrange\
    hline 0,0,blue\
    vline 0,0,blue\
    linewidth 2\
    curve red,$(functie$n)\
    dvline $X1,0,green\
    dvline $X2,0,green\
    $rect
!else
    !if $teaching=1
	helptext=!record 63 of $remarkdir/commonremarks.$taal
	helptext=<a href="javascript:showimage();">$helptext
	insdraw_size=200,200
	!insdraw 200,200\
	transparent white\
	xrange $xrange\
	yrange $yrange\
	hline 0,0,blue\
	vline 0,0,blue\
	linewidth 2\
	curve red,$(functie$n)\
	dvline $X1,0,green\
	dvline $X2,0,green\
	$rect
    !endif
!endif


uitleg=\int_{$X1}^{$X2} $uitleg dx \rightarrow

totaal=!exec maxima integrate($(functie$n) ,x,$X1,$X2);\
integrate($(functie$n),x); 

answer$n=!line 1 of $totaal
texanswer$n=!line 2 of $totaal

!if log isin $(answer$n)
    answer$n=!replace internal log by ln in $(answer$n)
    texanswer$n=!replace internal log by ln in $(texanswer$n)
!endif

texanswer$n=!texmath $(texanswer$n)
texanswer$n=$uitleg \rightarrow  \left [ $(texanswer$n) \right ]_{$X1}^{$X2}
F=!htmlmath f(x) = $(functie$n)
F=!replace internal sqrt by <font size="+1">&radic;</font> in $F
test=!record 8 of lang/remarks.$taal
question$n=$test
