#<select name="graad" size="1">
#<option value="0">de moeilijkheidsgraad mag gewoon oplopen</option>
#<option value="1">ik wil de gemakkelijkste sommetjes</option>
#<option value="2">ik wil de makkelijke sommetjes</option>
#<option value="3">ik wil de gewone sommetjes</option>
#<option value="4">ik wil de moeilijke sommetjes</option>
#<option value="5">ik wil de moeilijkste sommetjes</option>
#</select>
#voor alle tellers
bewerking=bewerking1.proc
!set n=$teller

!if $graad=0 
    R=$teller
!else
    R=$graad
!endif   
#voor alle tellers
    
#een willekeurig punt $A 
X1=!randitem -7,-6,-5,-4,-3,-2
Y1=!randitem 2,3,4,5,6,7
dx=!randitem 3,4,5,6,7,8,9,10
dy=!randitem -10,-9,-8,-7,-6,-5,-4,-3
    
#nog een willekeurig net punt
X2=$[$X1+($dx)]
Y2=$[$Y1+($dy)]
    
#de lijn door X1Y1 X2Y2 y=m1x+q
m1=$[$dy/$dx]
q1=$[$Y1-($m1)*$X1]
    
#de lijn loodrecht hierop is dus in X1Y1
m2=$[-1*$dx/$dy]
q2=$[$Y1-($m2)*$X1]

#eem mooie Y3
Y3=!randitem -7,-6,-5,-4,-3,-2,-1,0

#bijpassende X3-waarde
X3=$[($Y3-($q2))/($m2)]

#het maximum en minimun voor het plaatje
MIN=!exec pari min($X1,min($X3,min($Y1,min($Y2,$Y3))))
MAX=!exec pari max($X2,max($X3,max($Y1,max($Y2,$Y3))))

#lengte AB is dus (X1:Y1) -- (X2:Y2)
#lengte AC is dus (X1:Y1) -- (X3:Y3)
#lengte BC is dus (X2:Y3) -- (X3:Y3)

tussen=!exec pari round(sqrt(($X1-$X2)^2 + ($Y1-$Y2)^2))\
round(sqrt(($X1-$X3)^2 + ($Y1-$Y3)^2))\
round(sqrt(($X2-$X3)^2 + ($Y2-$Y3)^2))

AC=!line 1 of $tussen
AB=!line 2 of $tussen
BC=!line 3 of $tussen
     
PI=3.141592654
hoek=!exec pari round(100*(asin($AB/$BC))*180/$PI)
hoek=$[$hoek/100]
    
########PLAATJE############
keuze=!randitem 1,2,3,4
A=!item $keuze of  A,D,K,P
B=!item $keuze of  B,E,L,Q
C=!item $keuze of  C,F,M,R
    
!if $R=1
    afrondingsfactor=100
    GOED$n=!exec pari $AB/$BC
    G=$[(round(100*$(GOED$n)))/100]	
    !if $taal=nl
	nivo_title=Bereken de Sinus van een hoek
	somtekst$n=<p align="left">Gegeven is:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp; <em>$A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A</em>=90<sup>o</sup><br>\
	<li> <em>$A$B=$AB</em> en <em>$B$C=$BC</em>\
	</ul><p>\
	Bepaal de Sinus van <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em><br>\
	<font size="-1" color=$fontcolor3>ik heb het liefst een exact antwoord;<br>\
	Maar ik keur een antwoord afgerond op minimaal twee decimalen echter niet af...<br></font>
	
	antwoord$n=Het goede antwoord is: <table><th>$AB</th><tr><th><hr>$BC</th></table> of $(GOED$n) = $G
    !else
	nivo_title=Calculate the Sine of an angle
	somtekst$n=<p align="left">Given:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp; <em>$A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A</em>=90<sup>o</sup><br>\
	<li> <em>$A$B=$AB</em> and <em>$B$C=$BC</em>\
	</ul><p>\
	Calculate the Sine of <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em><br>\
	<font size="-1" color=$fontcolor3>I prefer <em>precise</em> answers.<br>\
	However an answer rounded off at two decimals will be accepted...<br></font>

	antwoord$n=the correct answer is: <table><th>$AB</th><tr><th><hr>$BC</th></table> or $(GOED$n) = $G    
    !endif
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=sin <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em> = <input size="20" name="ANT$n" value="$(GOED$n)"></p>
    !else
	opgave$n=sin <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em> = <input size="20" name="ANT$n" value="$(ANT$n)"></p>    
    !endif
!endif

!if $R=2
    GOED$n=$hoek	
    afrondingsfactor=100
    !if $taal=nl
	nivo_title=Bereken de grootte van een hoek met behulp van de Sinus
	somtekst$n=<p align="left">Gegeven is:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp;<em> $A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A=90</em><sup>o</sup><br>\
	<li> <em>$A$B=$AB</em> en <em>$B$C=$BC</em>\
	</ul><p>\
	Bepaal de grootte van <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em><br>\
	<font color=$fontcolor3 size="-1">in twee decimalen nauwkeurig</font> 

	antwoord$n=Het goede antwoord is:  $hoek<sup>o</sup>
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=<img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em> = <input size="20" name="ANT$n" value="$(GOED$n)"> graden</p>
	!else
	    opgave$n=<img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em> = <input size="20" name="ANT$n" value="$(ANT$n)"> graden</p>
	!endif
    !else
	nivo_title=Calculate the size of an angle<br>using the Sine
	somtekst$n=<p align="left">Given:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp;<em> $A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A=90</em><sup>o</sup><br>\
	<li> <em>$A$B=$AB</em> and <em>$B$C=$BC</em>\
	</ul><p>\
	Calculate the size of <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em><br>\
	<font color=$fontcolor3 size="-1">at two decimals accurately</font> 

	antwoord$n=the correct answer is:  $hoek<sup>o</sup>    
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=<img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em> = <input size="20" name="ANT$n" value="$(GOED$n)"> degrees</p>
	!else
	    opgave$n=<img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em> = <input size="20" name="ANT$n" value="$(ANT$n)"> degrees</p>
	!endif
    !endif
!endif
 
!if $R=3 or $optie=1
    GOED$n=$AB
    afrondingsfactor=1
    !if $taal=nl
	nivo_title=Bereken de lengte van een zijde m.b.v. de Sinus
	somtekst$n=<p align="left">Gegeven is:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp; <em>$A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A</em>=90<sup>o</sup><br>\
	<li> <em>$B$C=$BC</em> en <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em>=$hoek<sup>o</sup>\
	</ul><p>\
	Bepaal de lengte van zijde <em>$A$B</em> m.b.v. de Sinus<br>\
	<font color=$fontcolor3 size="-1">Rond af op een geheel getal.</font>
	
	antwoord$n=Het goede antwoord is:  $AB
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=lengte<sub><em>$A$B</em></sub> = <input size="20" name="ANT$n" value="$(GOED$n)"></p>
	!else
	    opgave$n=lengte<sub><em>$A$B</em></sub> = <input size="20" name="ANT$n" value="$(ANT$n)"></p>
	!endif
    !else
	nivo_title=Calculate the length of a side<br>using the Sine
	somtekst$n=<p align="left">Given:<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp; <em>$A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A</em>=90<sup>o</sup><br>\
	<li> <em>$B$C=$BC</em> and <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em>=$hoek<sup>o</sup>\
	</ul><p>\
	Calculate the length of size <em>$A$B</em> using the Sine<br>\
	<font color=$fontcolor3 size="-1">Round off at the nearest integer.</font>
	
	antwoord$n=the correct answer is:  $AB
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=length<sub><em>$A$B</em></sub> = <input size="20" name="ANT$n" value="$(GOED$n)"></p>
	!else
	    opgave$n=length<sub><em>$A$B</em></sub> = <input size="20" name="ANT$n" value="$(ANT$n)"></p>
	!endif
    !endif
!endif

!if $R>3 
    afrondingsfactor=1
    GOED$n=$BC
    !if $taal=nl
	nivo_title=Bereken de lengte van een m.b.v. de Sinus
	somtekst$n=<p align="left">Gegeven is:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp; <em>$A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A</em>=90<sup>o</sup><br>\
	<li> <em>$A$B=$AB</em> en <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em>=$hoek<sup>o</sup>\
	</ul><p>\
	Bepaal de lengte van zijde <em>$B$C</em> m.b.v. de Sinus<br>\
	<font color=$fontcolor3 size="-1">Rond af op een geheel getal.</font>
	antwoord$n=Het goede antwoord is:  $BC
	!if $wims_user=supervisor and $printbaar=0
    	    opgave$n=lengte<sub><em>$B$C</em></sub>=<input size="20" name="ANT$n" value="$(GOED$n)"></p>
	!else
	    opgave$n=lengte<sub><em>$B$C</em></sub>=<input size="20" name="ANT$n" value="$(ANT$n)"></p>
	!endif
    !else
	nivo_title=Calculate the length of a side<br>using the Sine
	somtekst$n=<p align="left">Given:\
	<ul>\
	<li> <img src="$module_dir/gifs/Delta.gif" alt="&delta;">&nbsp; <em>$A$B$C</em>\
	<li> <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$A</em>=90<sup>o</sup><br>\
	<li> <em>$A$B=$AB</em> and <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;<em>$C</em>=$hoek<sup>o</sup>\
	</ul><p>\
	Calculate the length of side <em>$B$C</em> using thee Sine<br>\
	<font color=$fontcolor3 size="-1">Round off at the nearest integer.</font>
	antwoord$n=the correct answer is:  $BC
	!if $wims_user=supervisor and $printbaar=0
    	    opgave$n=length<sub><em>$B$C</em></sub>=<input size="20" name="ANT$n" value="$(GOED$n)"></p>
	!else
	    opgave$n=length<sub><em>$B$C</em></sub>=<input size="20" name="ANT$n" value="$(ANT$n)"></p>
	!endif
    !endif
!endif

    
hint=<p align="left">Algemene Hint:<br>


!if $PLAATJE=1    
    !if $R=1 or $R=2 or $R=4
    	text1=text black,$[($X1+$X3)/2],$[($Y1+$Y3)/2+0.8],normal,$AB
    !endif
    !if $R=1 or $R=2 or $R=3
	text2=text black,$[($X2+$X3)/2-0.5],$[($Y2+$Y3)/2+0.5],normal,$BC
    !endif
    !if $R=3 or $R=4 
	text3=text black,$[$X2-2.9],$[$Y2+0.8],normal,$hoek
    !endif

    XSIZE=260
    YSIZE=260
    aantal_beeldjes=2
    knipperen=1

    plaatje$n=300,300\
    xrange $[$MIN-2],$[$MAX+2]\
    yrange $[$MIN-2],$[$MAX+2]\
    transparent white\
    linewidth 2 \
    triangle $X1,$Y1,$X2,$Y2,$X3,$Y3,red\
    linewidth 8\
    points green,$X1,$Y1,$X3,$Y3\
    text black,$[$X1-1],$[$Y1+1.8],huge,$A\
    text black,$[$X2+0.5]+s,$[$Y2+1]+s,huge,$C\
    text black,$[$X3+0.5],$[$Y3+0.5],huge,$B\
    linewidth s*15\
    point $X2,$Y2,red\
    $text1\
    $text2\
    $text3
!endif