n=$teller
bewerking=bewerking4.proc
!if $graad=0
    R=$teller
!else
    R=$graad
!endif 
!if $printbaar=0
    white=white
!else
    white=magenta
!endif    
!if $soort=1
    nivo_title=Stel de vergelijking op van de rechte lijn doormiddel van<br>&eacute;&eacute;n Punt en het hellingsgetal
    A=!randitem A,B,C,D,E
    pm=!randitem +,-
    p=!randitem 1,2,3,4
    letter1=!item $p of g,t,t,x
    letter2=!item $p of u,s,h,y
    letter3=!randitem f,g,h,k,m
    m=!randitem 1,2,3,-3,-2,-1
    q=!randint 1,4
    X1=!randitem -6,-5,-4,-3,-2,-1,1,2,3,4,5,6
    Y1=$[$m*$X1 $pm $q]
    somtekst$n=Lijn <em>$letter3</em> gaat door het punt <em>$A</em> met <em>$letter1,$letter2</em>-co&ouml;rdinaten ($X1:$Y1)<br>\
    Lijn <em>$letter3</em> heeft hellingsgetal $m.<br>\
    Geef de formule van de lijn <em>$letter3</em>
    opgave$n=
    
    lijn=$m*x $pm $q
    GOED$n= $letter2=$m*$letter1 $pm $q
    goed$n=$letter3($letter1)=$m*$letter1 $pm $q
    ggg=!htmlmath $(GOED$n)
    antwoord$n=$(somtekst$n)<p>De gevraagde lijn heeft de vergelijking:<br><center> $ggg 
    !if $PLAATJE=1
	y11=$[abs(-8*$m)]
	y22=$[abs(8*$m)]	
	!if $y11 > $y22
	    YRANGE=$[-1*$y11 - 4],$[$y11 + 4]
	    YAS=$y11
	!else
	    YRANGE=$[-1*$y22 - 4],$[$y22 + 4]
	    YAS=$y22
	!endif         
	XSIZE=400
	YSIZE=400
	knipperen=1
	aantal_beeldjes=2
	plaatje$n=$XSIZE,$YSIZE\
	transparent $white\
	xrange -10,10\
	yrange $YRANGE\
	linewidth 1\
	vline 0,0,blue\
	hline 0,0,blue\
	linewidth 3\
	curve red,$lijn\
	linewidth s*20\
	point  $X1,$Y1,green\
	text black,$X1,$Y1,huge,punt $A\
	text black,8,-0.3,huge,$letter1-as\
	textup black,-0.8,$YAS,huge,$letter2-as\
	text black,0.2,-0.2,normal,O	
    !endif
!endif
!if $soort=2
    nivo_title=Stel de vergelijking op van de rechte lijn doormiddel van<br>\
    &eacute;&eacute;n Punt en de Richingsco&euml;fficient
    A=!randitem A,B,C,D,E,F,G,S,W
    B=!randitem H,K,L,M,N,P,R,T,V
    pm=!randitem +,-
    letter1=x
    letter2=y
    letter3=!randitem f,g,h,k,p,t
    !if $teller=1 or $teller=2
        m=!randitem 1,2,3,-3,-2,-1
        q=!randitem 1,2,3,4
        X1=!randitem -6,-5,-4,-3,-2,-1,1,2,3,4,5,6
        Y1=$[$m*$X1 $pm $q]
    !endif
    !if $teller=3 or $teller=4
        m=!randitem 2,1,1/2,1/4,1/8,1/10,3/2,2,-1,-1/2,-1/4,-1/8,-1/10,-3/2,-2
        q=!randitem 1,2,3,4,5,6,7
        X1=!randitem -6,-5,-4,-3,-2,-1,1,2,3,4,5,6
        Y1=$[$m*$X1 $pm $q]
        y1=!exec pari printtex($m*$X1 $pm $q)
    !endif
    !if $teller>4
        T=!randint 1,100
        N=!randint 2,100
        mp=!randitem -1,1
        N=$[$mp*$N]
        m=$T/$N
        q=!randitem 1,2,3,4,5,6,7
        X1=!randitem -6,-5,-4,-3,-2,-1,1,2,3,4,5,6
    !endif    
        rc=!exec pari printtex($m)
        Y1=$[$m*$X1 $pm $q]
        y1=!exec pari printtex($m*$X1 $pm $q)
        somtekst$n=Geef de <em>exacte</em> vergelijking van de lijn <em>$letter3</em> met richtingsco&euml;fficient <em>r.c.</em>=$m<br>\
        en door het punt <em>$A</em> met de <em>x,y</em>-co&ouml;rdinaten: 
        opgave$n=$letter3 :\rightarrow \left\{ \begin{array}{c}$A \left($X1 : $y1\right)\\\\rc = $rc \end{array}\right.

    lijn=!exec pari $m*$letter1 $pm $q
    GOED$n= $letter2=$lijn
    ggg=!htmlmath $(GOED$n)
    antwoord$n=$(somtekst$n)<p>De gevraagde lijn heeft de vergelijking:<br><center> $ggg 
    !if $PLAATJE=1
	y11=$[abs(-8*$m)]
	y22=$[abs(8*$m)]
	
	!if $y11 > $y22
	    YRANGE=$[-1*$y11 - 4],$[$y11 + 4]
	    YAS=$y11
	!else
	    YRANGE=$[-1*$y22 - 4],$[$y22 + 4]
	    YAS=$y22
	!endif         
	XSIZE=400
	YSIZE=400
	knipperen=1
	aantal_beeldjes=2
	plaatje$n=$XSIZE,$YSIZE\
	transparent $white\
	xrange -10,10\
	yrange $YRANGE\
	linewidth 1\
	vline 0,0,blue\
	hline 0,0,blue\
	linewidth 3\
	curve red,$lijn\
	linewidth s*20\
	point  $X1,$Y1,green\
	text black,$X1,$Y1,huge,punt $A\
	text black,8,-0.3,huge,x-as\
	textup black,-0.8,$YAS,huge,y-as\
	text black,0.2,-0.2,normal,O
    !endif
!endif
