
RADIALEN=$empty
totaal=!shuffle 1/12,1/6,1/4,1/3,5/12,1/2,7/12,2/3,3/4,5/6,11/12,1,13/12,7/6,5/4,4/3,17/12,3/2,19/12,5/3,7/4,11/6,23/12,2,25/12,13/6,9/4,7/3,29/12,5/2,31/12,8/3,11/4,17/6,35/12,3,37/12,19/6,13/4,10/3,41/12,7/2,43/12,11/3,15/4,23/6,47/12,4,49/12,25/6,17/4,13/3,53/12,9/2,55/12,14/3,19/4,29/6,59/12,5,61/12,31/6,21/4,16/3,65/12,11/2,67/12,17/3,23/4,35/6,71/12,6
#R=$empty
#!for q=1 to 72
#   R=!append line $q/12 to $R
#!next q
#totaal=!exec pari $R    

!for q=1 to 36
    R=!item $q of $totaal
    RAD=$R*pi
    RADIALEN=!append item $q to $RADIALEN
    RADIALEN=!append item $RAD to $RADIALEN
    RADIALEN=!shuffle $RADIALEN
!next

!for n=1 to $aantal_sommen
    radialen$n=!item $n of $RADIALEN
    GRADEN$n=$[$(radialen$n)*180/pi]
    GOED$n=!exec pari round($(GRADEN$n))
    RR$n=$(radialen$n)
    RR$n=!replace internal pi by &nbsp;pi in $(RR$n)
    som$n=$(RR$n) rad 
    mijn_antwoord$n=$(GOED$n)<sup>o</sup>
!next

bewerking=bewerking1.proc
!if $taal=nl
    hint=helaas ook hier nog geen hint bij gemaakt...<br>komt nog hoop ik...
    somtekst1=Zet de volgende hoeken om van radialen naar graden.<br>\
    De hoeken <b>moet</b> je afronden op <b>hele graden</b>.<br>
    nivo_title=Van radialen naar graden.
!else
    hint=No hints today.
    somtekst1=Convert the next angles from radians to degrees.<br>\
    You <b>must</b> round of to the <b>nearest degree</b> (integer).<br>
    nivo_title=From radians to degrees.
!endif    