#<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=bewerking2.proc
!set n=$teller

!if $graad=0 
    R=$teller
!else
    R=$graad
!endif   
hint=<p align="left">Algemene Hint: Geen hints vandaag<br>
PLAATJE=1
knipperen=1
XRANGE=-2,2
YRANGE=-2,2
plaatje=insert-1.gif
!if $taal=nl
    LINKTEXT=plaatje vernieuwen
    lengte=lengte
    coord=Het co&ouml;rdinaten-paar is:
!else
    LINKTEXT=renew the image
    lengte=length
    coord=The set of co&ouml;rdinates are:
!endif
XSIZE=400
YSIZE=400
aantal_beeldjes=10
K1=red
K2=cyan
K3=blue
K4=green
TRANSPARENT=sdfsdgz
PUNT$n=!randitem P,Q,R,S,T

!if $R=1 or $R=3 
    !if $R=3
	GRADEN$n=!randint 5,355
    !else
	GRADEN$n=!randint 15,170
	!if $(GRADEN$n)=90
	    GRADEN$n=45
	!endif
    !endif
    
    BEGIN$n=0
    rad$n=$[$(GRADEN$n)*pi/180]
    PP= $[sin($(rad$n))]
    PP=$[(round(1000*$PP))/1000]
    #!if $(GRADEN$n)>180
        PP=$[abs($PP)]
    #!endif
    afrondingsfactor=1000
    GOED$n=$PP	

    !readproc $authordir/eenheidscirkel.proc
    !if $taal=nl
	nivo_title=Sinus in de eenheidscirkel
	somtekst$n=<p align="left">Punt $(PUNT$n) beweegt over de eenheidscirkel<br>\
	over een hoek van $(GRADEN$n)<sup>o</sup>.<br>\
	$(PUNT$n)' is de loodrechte projectie van $(PUNT$n) op de <em>x</em>-as.<br>\
	(dus <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;O$(PUNT$n)'$(PUNT$n)&nbsp;=&nbsp;90<sup>o</sup>)<br>\
	br>Bereken de lengte $(PUNT$n)$(PUNT$n)'<br>\
	<font color=$fontcolor3 size="-1">Rond af op drie decimalen nauwkeurig.</font>
    
	antwoord$n=Het goede antwoord is: $PP
    !else
	nivo_title=Sine and the unit circle
	somtekst$n=<p align="left">Punt $(PUNT$n) moves  $(GRADEN$n)<sup>o</sup> counter-clock wise along the unit circle.<br>\
	$(PUNT$n)<b>'</b> is the perpendicular projection of $(PUNT$n) on the <em>x</em>-axis.<br>\
	(thus <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;O$(PUNT$n)'$(PUNT$n)&nbsp;=&nbsp;90<sup>o</sup>)<br>\
	<br>Calculate the lenght of $(PUNT$n)$(PUNT$n)<b>'</b><br>\
	<font color=$fontcolor3 size="-1">Round of at three decimals accurately.</font>
    
	antwoord$n=the correct answer is: $PP
    !endif
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=$lengte <sub>$(PUNT$n)$(PUNT$n)'</sub> = <input size="20" name="ANT$n" value="$(GOED$n)"></p>
    !else
	opgave$n=$lengte <sub>$(PUNT$n)$(PUNT$n)'</sub> = <input size="20" name="ANT$n" value="$(ANT$n)"></p>
    !endif
    plaatje$n=$(eenheidscirkel$n)
 !exit
!endif

!if $R=2 or $R=4
    !if $R=4
	GRADEN$n=!randint 5,355
    !else
	GRADEN$n=!randint 15,170
	!if $(GRADEN$n)=90
	    GRADEN$n=45
	!endif
    !endif
    
    BEGIN$n=0
    rad$n=$[$(GRADEN$n)*pi/180]
    #!if 90<$(GRADEN$n)<270
	#OP=$[-1*cos($(rad$n))]
    #!else
	OP= $[abs(cos($(rad$n)))]
    
    #!endif

    OP=$[(round(1000*$OP))/1000]
    afrondingsfactor=1000
    GOED$n=$OP	
    
    !readproc $authordir/eenheidscirkel.proc
    !if $taal=nl
	nivo_title=Cosinus in de eenheidscirkel
	somtekst$n=<p align="left">Punt $(PUNT$n) beweegt over de eenheidscirkel<br>\
	over een hoek van $(GRADEN$n)<sup>o</sup>.<br>\
	$(PUNT$n)' is de loodrechte projectie van $(PUNT$n) op de <em>x</em>-as.<br>\
	(dus <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;O$(PUNT$n)'$(PUNT$n)&nbsp;=&nbsp;90<sup>o</sup>)<br>\
	br>Bereken de lengte $(PUNT$n)$(PUNT$n)'<br>\
	<font color=$fontcolor3 size="-1">Rond af op drie decimalen nauwkeurig.</font><br>Bereken de lengte O$(PUNT$n)'<br>\
	<font color=$fontcolor3 size="-1">Rond af op drie decimalen nauwkeurig.</font>

	antwoord$n=Het goede antwoord is: $OP
    !else
	nivo_title=Cosine and the unit circle
	somtekst$n=<p align="left">Punt $(PUNT$n) moves  $(GRADEN$n)<sup>o</sup> counter-clock wise along the unit circle<br>.\
	$(PUNT$n)<b>'</b> is the perpendicular projection of $(PUNT$n) on the <em>x</em>-axis.<br>\
	(thus <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;O$(PUNT$n)'$(PUNT$n)&nbsp;=&nbsp;90<sup>o</sup>)<br>
	<br> Calculate the lenght of O$(PUNT$n)<b>'</b><br>\
	<font color=$fontcolor3 size="-1">Round of at three decimals accurately.</font>
    
	antwoord$n=the correct answer is: $OP
    !endif
    
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=$lengte <sub>O$(PUNT$n)'</sub> = <input size="20" name="ANT$n" value="$(GOED$n)"></p>
    !else
	opgave$n=$lengte <sub>O$(PUNT$n)'</sub> = <input size="20" name="ANT$n" value="$(ANT$n)"></p>
    !endif
    plaatje$n=$(eenheidscirkel$n)
 !exit
!endif

!if $R>4
    special=1
    GRADEN$n=!randint 0,360
    BEGIN$n=0
    rad$n=$[$(GRADEN$n)*pi/180]
    y= $[sin($(rad$n))]
    x= $[cos($(rad$n))]    
    y=$[(round(1000*$y))/1000]
    x=$[(round(1000*$x))/1000]
    afrondingsfactor=1000
    GOED$n=$x,$y	

    !readproc $authordir/eenheidscirkel.proc
    !if $taal=nl
	nivo_title=Co&ouml;rdinaten op de eenheidscirkel
	somtekst$n=<p align="left">Punt $(PUNT$n) beweegt over de eenheidscirkel<br>\
	over een hoek van $(GRADEN$n)<sup>o</sup>.<br>\
	$(PUNT$n)' is de loodrechte projectie van $(PUNT$n) op de <em>x</em>-as.<br>\
	(dus <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;O$(PUNT$n)'$(PUNT$n)&nbsp;=&nbsp;90<sup>o</sup>)<br>\
	<br>Bereken de lengte $(PUNT$n)$(PUNT$n)'<br>\
	<font color=$fontcolor3 size="-1">Rond af op drie decimalen nauwkeurig.</font><br>Bereken de co&ouml;rdinaten van punt $(PUNT$n) .<br>\
	<font color=$fontcolor3 size="-1">Rond de co&ouml;rdinaten af op drie decimalen nauwkeurig.<br>\
	Geef de co&ouml;rdinaten gescheiden door een puntkomma<br>\
	Zoals bijv (0.453:0.892)</font>
    
	antwoord$n=Het goede antwoord is: ($x:$y)
    !else
	nivo_title=Co&ouml;rdinates and the unit circle
	somtekst$n=<p align="left">Punt $(PUNT$n) moves  $(GRADEN$n)<sup>o</sup> counter-clock wise along the unit circle<br>.\
	$(PUNT$n)<b>'</b> is the perpendicular projection of $(PUNT$n) on the <em>x</em>-axis.<br>\
	(thus <img src="$module_dir/gifs/hoek.gif" alt="&ang;">&nbsp;O$(PUNT$n)'$(PUNT$n)&nbsp;=&nbsp;90<sup>o</sup>)<br>\
	Calculate the co&ouml;rdinates of point $(PUNT$n) .<br>\
	<font color=$fontcolor3 size="-1">Round of at three decimals accurately.<br>\
	Separate the co&ouml;rdinates by a colon<br>\
	something like (0.453:0.892)</font>
    
	antwoord$n=the correct answer is: ($x:$y)
    !endif	
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=$coord <input size="20" name="ANT$n" value="$(GOED$n)"></p>
    !else
	opgave$n=$coord <input size="20" name="ANT$n" value="$(ANT$n)"></p>
    !endif
    plaatje$n=$(eenheidscirkel$n)
 !exit
!endif
    



