!set n=$counter
mathview=0
XSIZE=700
questiontype=0
image=0
applet=1
cols=20
rows=1
draw=0
plot=0
math=0
inputs=1
checkfile=exos/checkfile13.proc
!if $level=0
    R=$n
!else
    R=$level
!endif

!if $R>0
    d=10
    alfa=!randint 40,60
    beta=!randint 20,80
    gamma=$[180-($alfa + $beta)]
    ar=$[$alfa*pi/180]
    br=$[$beta*pi/180]
    X1=-10
    X3=!randint $[$X1+$d]
    Y1=0
    Y2=0
    Y3=$[($X3-$X1)*(tan($ar))]
    X2=$[$Y3/(tan($br))+$X3]
!endif
################ NIEUWE HOEKEN MAKEN MET !filewrite ##############################
# Driehoeken maken voor CaR met filewrite

a=$[sqrt(($X2-$X1)^2 + ($Y2-$Y1)^2)]
b=$[sqrt(($X3-$X2)^2 + ($Y3-$Y2)^2)]
c=$[sqrt(($X3-$X1)^2 + ($Y3-$Y1)^2)]
h1=$[acos(($a^2+$c^2-$b^2)/(2*$a*$c))]
h2=$[acos(($a^2+$b^2-$c^2)/(2*$a*$b))]
h3=$[acos(($b^2+$c^2-$a^2)/(2*$b*$c))]
h1=$[(round(18000*$h1/pi))/100]
h2=$[(round(18000*$h2/pi))/100]
h3=$[(round(18000*$h3/pi))/100]


x1=$[abs($X1)]
x2=$[abs($X2)]
x3=$[abs($X3)]
y1=$[abs($Y1)]
y2=$[abs($Y2)]
y3=$[abs($Y3)]

xmax=$[max($x1,max($x2,$x3))]
ymax=$[max($y1,max($y2,$y3))]
xmin=$[min($x1,min($x2,$x3))]
ymin=$[min($y1,min($y2,$y3))]

grootte=$[max($xmax,$ymax)]
grootte=$[$grootte+4]
data=<?xml version="1.0" encoding="utf-8"?><CaR><Construction>\
<Window x="$xmin" y="$ymin" w="$grootte" showgrid="false"/><Objects>\
<Point name="A" showname="true" x="$X1" y="$Y1" shape="dot" fixed="true" ></Point>\
<Point name="B" showname="true" x="$X2" y="$Y2" shape="dot" fixed="true" ></Point>\
<Point name="C" color="5" showname="true" x="$X3" y="$Y3" shape="dot" fixed="true" ></Point>\
<Segment name="s1" color="3" from="A" to="B"></Segment>\
<Segment name="s2" color="3" from="A" to="C"></Segment>\
<Segment name="s3" color="3" from="C" to="B"></Segment>\
<Angle name="w1" color="1" showvalue="true" first="B" root="A" second="C" xcoffset="0.3" ycoffset="-0.3" filled="true" ></Angle>\
<Angle name="w2" color="2" showvalue="true" first="C" root="B" second="A" xcoffset="0.3" ycoffset="-0.3" filled="true"></Angle>\
</Objects>\
</Construction></CaR>

myname=$wims_nowseconds.zir

!filewrite getfile/$myname $data
# WE MISSEN HOEK C $h3
answer$n=$h3
#,$[$h3*pi/180],$[$h3/180]*pi

xsize=320
ysize=320
myfile=$wims_ref_name?session=$session&cmd=getfile&special_parm=$myname

object$n=<applet codebase="$appletdir" archive="zirkel.jar" code="rene.zirkel.ZirkelApplet.class" WIDTH="$xsize" HEIGHT="$ysize" ALIGN="CENTER"><param name="file" value="$myfile"><param name="style" value="breaks"><param name="tools" value="line ray segment circle circle3 fixedcircle parallel plumb move"><param name="options" value="back delete undo showname macro qchoice indicate draw rename"><param name="color" value="255,255,255"><param name="displaydigits" value="2"><param name="angledigits" value="2">$onjava</applet>

ss=!record 90 of lang/remarks.$taal
#@Bereken de hoek in punt <tt><b>C</b></tt><br>van de driehoek $m_bigtriangleup <b><tt>ABC</tt></b><br><ol><li>de hoek in punt <tt>A</tt> is $h1<sup>o</sup><li>en de hoek in punt <tt>B</tt> is $h2<sup>o</sup></ol>
question$n=$ss
rr=!record 91 of lang/remarks.$taal
#@Het goede antwoord is dus:<br>Alle hoeken van een driehoek bij elkaar opgeteld is 180<sup>o</sup><br>180<sup>o</sup> - $h1<sup>o</sup> - $h2<sup>o</sup> = $(answer$n) <sup>o</sup><br><a onmouseover="return escape('<center><img src=$module_dir/gifs/16/1.jpg alt=geen_plaatje>');"><font color=blue>zie plaatje<font></a>
textanswer$n=$rr

intext=!record 92 of lang/remarks.$taal
#@De hoek in <b>A</b> is dus: , De hoek in <b>B</b> is dus: , De hoek in <b>C</b> is dus:
inputtext1=!item 3 of $intext


exotext=!record 93 of lang/remarks.$taal
#@<em>Zie ook plaatje/applet.<br><font size=-1>Met je rechter-muisknop kun je de driehoek verschuiven</font></em><br>




#<Text name="Text1" n="16" background="true" unit="" x="$X1" y="$grootte">\
#Bereken de hoek in punt C\
#van de driehoek ABC\
#De hoek in punt A is \
#$$$$ $h1^{o} $$$$ \
#en de hoek in punt B is \
#$$$$ $h2^{o} $$$$\
#</Text>
