#Construeer met passer&lijn ; Middelloodlijnen en de omgeschreven cirkel [GeoGebra]
n=$counter
inputs=0
questiontype=4
math=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
showToolBar=true
showMenuBar=false                                                                                             
framePossible=false
checkfile=exos/checkfile6.proc
# 6 | 10 | 15 | 2 | 3 | 4 | 16 | 40 "
helptext=$empty
xa=!randitem -2,-3,-4,-5,-6,-7,-8,-9
ya=!randitem 0,1,2,3,4,5
xb=!randitem 5,6,7,8,9,10
r=!randitem 1,2,3,-2,-3,-4
yb=$[$ya+($r)]
xc=!randint $[$xa+1],$[$xb-1]
yc=$[max($ya+1,$yb-1)]
s=!randitem 3,4,5,6
yc=$[$yc+$s]


appletcommand=document.applets[0].evalCommand("Aa_x=$xa");\
document.applets[0].evalCommand("Aa_y=$ya");\
document.applets[0].evalCommand("Bb_x=$xb");\
document.applets[0].evalCommand("Bb_y=$yb");\
document.applets[0].evalCommand("Cc_x=$xc");\
document.applets[0].evalCommand("Cc_y=$yc");\
document.applets[0].evalCommand("A = (Aa_x,Aa_y)");\
document.applets[0].evalCommand("B = (Bb_x,Bb_y)");\
document.applets[0].evalCommand("C = (Cc_x,Cc_y)");\
document.applets[0].evalCommand("p1 = Polygon[A,B,C]");
!if $R=1
    plaatje=Y1.jpg
    list_of_things=['circle','point','line','polygon']; 
    ggb=ggb/nogrid.ggb
    customToolBar=" 0 | 1 | 2 | 10 | 34 | 40 | 6 | 41 | 42 "
    question$n=Gegeven de driehoek ABC.<br>Construeer met je "passer & lineaal" de  middelloodlijn op zijde  AB.<br>\
    Laat al je hulp_onderdelen in de tekening staan...
    answer$n=5,2,1,1,1,$teaching
    # 5 punten,2 cirkel,1 polygon,1 lijn,type=1,check=0
    # M1=midden AB
    M1x=$[($xa+($xb))/2]
    M1y=$[($ya+($yb))/2]
    # rc lijn loodrecht op AB
    rc1=$[-1*($xb-($xa))/($yb-($ya))]
    q1=$[$M1y - ($rc1*($M1x))]
    # M2=midden BC
    M2x=$[($xc+($xb))/2]
    M2y=$[($yc+($yb))/2]
    # rc lijn loodrecht op AB
    rc2=$[-1*($xc-($xb))/($yc-($yb))]
    q2=$[$M2y - ($rc2*($M2x))]
    # L2=$rc2*x + ($q2)
    
    # snijpunt L1 L2 $rc2*x + ($q2)=$rc1*x + ($q1) -> x= ($q1-$q2)/($rc2-$rc1)
    xh=$[($q1-$q2)/($rc2-$rc1)]
    yh=$[$rc2*($xh) + ($q2)]

    var1=$xh
    var2=$yh
    var3=$rc1*x + ($q1)

    #appletcommand=$appletcommand\
    #document.applets[0].evalCommand("M1 = ($M1x,$M1y)");\
    #document.applets[0].evalCommand("M2 = ($M2x,$M2y)");\
    #document.applets[0].evalCommand("L1 = ($xh,$yh)");\
    #document.applets[0].evalCommand("l1 = Function[$L1,-100,100]");\
    #document.applets[0].evalCommand("l2 = Function[$L2,-100,100]");
!endif
!if $R>1
    plaatje=Y2.jpg
    list_of_things=['circle','point','line','polygon'];
    ggb=ggb/nogrid.ggb
    customToolBar=" 0 | 1 | 2 | 10 | 34 | 40 | 6 | 41 | 42 "
    question$n=Gegeven de driehoek ABC.<br>Construeer met je "passer & lineaal" de omschreven cirkel<br>\
    Vergeet niet het gevonden hoogtepunt als een "punt" te tekenen<br>\
    Laat al je hulp_cirkels, hulp_lijnen en hulp_punten gewoon in de tekening staan<br>\
    <font size=-2><em>(maar ik kijk nu in je constructie alleen naar het gevonden hoogtepunt)<br>\
    <font color=green>\
    Tip 1: gebruik je rechtermuisknop $m_rightarrow eigenschappen<br>\
    om de kleur en het lijntype van de hulpcirkels en hulplijnen te veranderen:<br>\
    je ziet anders door de bomen het bos niet meer...<br>\
    Tip 2: denk ook aan de zoom in/zoom uit knop...</em></font>
    answer$n=8,5,1,2,2,$teaching
    # 6 punten,5 cirkel,1 polygon,2 lijn,type=2,check=$teaching
    # M1=midden AB
    M1x=$[($xa+($xb))/2]
    M1y=$[($ya+($yb))/2]
    # rc lijn loodrecht op AB
    rc1=$[-1*($xb-($xa))/($yb-($ya))]
    q1=$[$M1y - ($rc1*($M1x))]
    L1=$rc1*x + ($q1)
    # M2=midden BC
    M2x=$[($xc+($xb))/2]
    M2y=$[($yc+($yb))/2]
    # rc lijn loodrecht op AB
    rc2=$[-1*($xc-($xb))/($yc-($yb))]
    q2=$[$M2y - ($rc2*($M2x))]
     L2=$rc2*x + ($q2)
    
    # snijpunt L1 L2 $rc2*x + ($q2)=$rc1*x + ($q1) -> x= ($q1-$q2)/($rc2-$rc1)
    xh=$[($q1-$q2)/($rc2-$rc1)]
    yh=$[$rc2*($xh) + ($q2)]
    radius=$[sqrt(($xh-$xa)^2+($yh-$ya)^2)]
    var1=$xh
    var2=$yh
    var3=$radius
    # appletcommand=$appletcommand\
    # document.applets[0].evalCommand("M1 = ($M1x,$M1y)");\
    # document.applets[0].evalCommand("M2 = ($M2x,$M2y)");\
    # document.applets[0].evalCommand("L1 = ($xh,$yh)");\
    # document.applets[0].evalCommand("l1 = Function[$L1,-100,100]");\
    # document.applets[0].evalCommand("l2 = Function[$L2,-100,100]");

!endif

textanswer$n=<img src=$module_dir/gifs/$plaatje width="345"> 
!if $teaching=1
    exotext=!record 16 of lang/remarks.$taal
    #@ <font color=blue>klik</font></a> hier voor wat info
    exotext=<a onclick='window.open("$module_dir/gifs/$plaatje"," ","width=345,height=280,left=0,top=0")'>$exotext
!else
    exotext=$empty
!endif    
