n=$teller
bewerking=bewerking2.proc
nivo_title=Stel een formule op van de rechte lijn tussen een punt en de Oorsprong.
!if $graad=0
    R=$teller
!else
    R=$graad
!endif 
!if $printbaar=0
    white=white
!else
    white=magenta
!endif
###

nivo_title=Determine the formula of a straight line through a point and  the Origin <b>O</b>.
    mp=!randitem 1,-1
    m=!randint 1,10
    m=$[$mp*$m]
    X1=!randint 3,15
    pm=!randitem 1,-1
    X1=$[$pm*$X1] 
    Y1=!exec pari $m*$X1

    !if $R=2 or $R>3
	A=!randitem A,C,D,E,F,G,H,X,Y,Z
        letter1=!randitem l,k,j,h,f,p,t,r,w,x
	letter2=!randitem z,a,s,v,b,c,q,u,d,y
	wims_rawmath_variables=$letter1
	GOED$n= $letter2=$m*$letter1
	lijn=$m*x
	somtekst$n=Given is point $A with<ul><li>$letter1-co&ouml;rdinate : $X1<li>\
	$letter2-co&ouml;rdinate :$Y1<li>so point ($X1:$Y1)</ul>\
	Determine the formula of the line through point $A and <b>O</b><br>  e.g. the origin ; point (0:0)\
	in the <font size=+1>$letter1,$letter2 -plane</font>
    !else
	letter1=x
	letter2=y
	wims_rawmath_variables=$letter1
	GOED$n= $letter2=$m*$letter1
	lijn=$m*x
        somtekst$n=Given is point $A<em> with the <em>x,y</em>-co&ouml;rdinates ($X1:$Y1).</em><br>\
	Determine the formula of the line through point $A and <b>O</b><br>  e.g. the origin ; point (0:0)
    !endif

    !if $PLAATJE=1
	XSIZE=500
	YSIZE=300
	XRANGE=-60,80
	!if $Y1>0
	    YRANGE=$[-1.5*$Y1],$[1.5*$Y1]
	!else
	    YRANGE=$[1.5*$Y1],$[-1.5*$Y1]
	!endif
	knipperen=1
	aantal_beeldjes=2
        plaatje$n=300,300\
	transparent $white\
	xrange $XRANGE\
	yrange $YRANGE\
	linewidth 1\
	vline 0,0,blue\
	hline 0,0,blue\
	linewidth 2\
	curve red,$lijn\
	linewidth s*18\
	points green,0,0,$X1,$Y1\
	text black,0,0,normal,the origin (O)\
	text black,$X1,$Y1,normal,point $A ($X1:$Y1)\
	text black,70,$[0.1*$Y1],huge,$letter1 -axis\
	textup black,-3,$Y1,huge,$letter2-axis
    !endif    
    
    ggg=!htmlmath $(GOED$n)
    antwoord$n=$(somtekst$n)<p>The equation of the line through $A and the Origin is:<br><center> $ggg 
