bewerking=bewerking2.proc

!if $taal=nl
    nivo_title=Bepaal de symmetrie-as 
    lijn=de lijn 
!else
    nivo_title=Determine the "Sym-axis"
    lijn=the line
!endif
R=$graad


#functie=(Cx -A)(x+B)= Cx^2 +xCB -xA -AB = Cx^2 +x(CB-A) -AB
#a= C
#b= CB-A
#c= AB


    FF=!shuffle f,g,h,k,p,w
    !for n=1 to $aantal_sommen
	F=!item $n of $FF
	!if $graad =0
	    R=$n
	!endif    
	
	!if $R = 1 
	    A=!randitem 1,2,3,-1,-2,-3
	    B=!randitem 1,2,3,-1,-2,-3
	    C=!randitem 1,-1
	!endif
	!if $R = 2  
	    A=!randitem 4,5,6,7,8,-1,-2,-3
	    B=!randitem 1,2,3,-4,-5,-6,-7,-8
	    C=!randitem 1,-1
	!endif
	!if $R = 3
	    A=!randitem -1,-2,-3,-4,-5,-6,-7,-8,1,2,3,4,5,6,7,8
	    B=!randitem -1,-2,-3,-4,-5,-6,-7,-8,1,2,3,4,5,6,7,8
	    C=!randitem -2,-3,-4,2,3,4
	!endif
	!if $R >3 
	    A=!randitem -1,-2,-3,-4,-5,-6,-7,-8,1,2,3,4,5,6,7,8
	    B=!randitem -1,-2,-3,-4,-5,-6,-7,-8,1,2,3,4,5,6,7,8
	    C=!randitem -1,-2,-3,-4,-5,-6,-7,-8,1,2,3,4,5,6,7,8
	!endif
	    a=$C
	    b=$[$C*$B - $A]
	    c=$[$A*$B]
	    som$n=!texmath  $F(x)=( $C*x - $A )*( x + $B)
	    S=-1*($b)/(2*$a)
	    functie$n=(($C)*x - ($A))*(x + ($B))
	    lijn$n=$[$S]
	    sommen=!append line $S to $sommen 
	    sommen=!append line printtex($S) to $sommen
    !next n        
    SOMMEN=!exec pari $sommen
    r=1
    !for n=1 to $aantal_sommen
	GOED$n=!line $r of $SOMMEN
	goed$n=!line $[$r+1] of $SOMMEN
	goed$n= x\,\,=\,\, $(goed$n)
	Goed$n=$lijn x = $(GOED$n)
	r=$[$r + 2]
    !next n

    !if $PLAATJE=1
	!for n=1 to $aantal_sommen
	    plaatje$n=\
	    transparent white\
	    xrange -10,10\
	    yrange -100,100\
	    vline 0,0,blue\
	    hline 0,0,blue\
	    linewidth 2\
	    dvline $(lijn$n),0,red\
	    curve green,$(functie$n)
	!next n
    !endif

