!set n=$teller
R=$graad
!if $graad=0
    R=$teller
!endif    

bewerking=nivo/bewerking4.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
    opgave$n=!line 2 of $tot
    opgave$n=\left($(opgave$n)\right)
    !if $plaatje=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)
	opgave$n=(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)
	opgave$n=-(x+$a)(x-$b)
	Xmax=$[(-1*$a+$b)/2]
	Xmin=$X1
    !endif 
    !if $plaatje=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)
        opgave$n=$c\cdot \sqrt(x+$b)
	!if $plaatje=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)
        opgave$n=$c\cdot \sqrt(-x+$b)
	!if $plaatje=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
        opgave$n=\frac{$c}{x^$b}
	!if $plaatje=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
        opgave$n=\frac{$c}{x}
	!if $plaatje=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 $plaatje=1	
    plaatje$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
!endif


opgave$n= \int_{$X1}^{$X2} $(opgave$n) dx \rightarrow
totaal=!exec maxima integrate($(functie$n) ,x,$X1,$X2);\
integrate($(functie$n),x); 
GOED$n=!line 1 of $totaal
goed$n=!line 2 of $totaal

!if log isin $(GOED$n)
    GOED$n=!replace internal log by ln in $(GOED$n)
    goed$n=!replace internal log by ln in $(goed$n)
!endif

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