bewerking=bewerking1.proc
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        
kleur=red@green@orange@rode@groene@oranje,\
blue@green@red@blauwe@groene@rooie,\
orange@green@blue@oranje@groene@blauwe,\
orange@red@blue@oranje@rooie@blauw,\
orange@green@red@oranje@groen@rood,\
red@blue@green@rooie@blauwe@groen,\
blue@red@orange@blauwe@rode@oranje

kleur=!randitem $kleur
kleur=!replace internal @ by , in $kleur
kleur1$n=!item 1 of $kleur
kleur2$n=!item 2 of $kleur
kleur3$n=!item 3 of $kleur
KLEUR1$n=!item 4 of $kleur
KLEUR2$n=!item 5 of $kleur
KLEUR3$n=!item 6 of $kleur
letters=f,g,h,k,p,s,w
letters=!shuffle $letters 
ff=!item 1 of $letters
gg=!item 2 of $letters
hh=!item 3 of $letters
pm=!randitem +,-


!if $R=1
    a=!randitem -5,-4,-3,-2,2,3,4,5	
    b=!randitem 2,3,4,5
    c=!randitem 3/2,5/3,7/4,7/5,5/3,5/2,2,3,4,5,9/5,9/4
    k=!randitem 1,3/2,2,5/2,3,7/2,4,9/2,7/4,5/4
    d=!randitem -5/2,-4/5,-3/2,-2,-1,1,2,3,4,5
    functies= $a*sin($d*x)@$a*sin($d*x$pm$k)@$a*sin(x),\
    $a*sin(x)@$a*sin($k+x)@$a*cos(x),\
    $a*cos($d*x)@$a*cos($d*x$pm$k)@$a*cos(x),\
    $a*sin(x$pm$b)@$a*sin(x$pm$k)@$a*sin($k*x),\
    $a*cos(x)@$a*cos(x$pm$k)@$a*cos($a*x)
!endif
!if $R=2
    a=!randitem -5,-4,-3,-2,2,3,4,5
    b=!randitem 2,3,4,5
    c=!randitem 3/2,5/3,7/4,7/5,5/3,5/2,2,3,4,5,9/5,9/4
    k=!randitem 1,3/2,2,5/2,3,7/2,4,9/2,7/4,5/4
    d=!randitem -5/2,-4/5,-3/2,-2,-1,1,2,3,4,5
    functies= $a*sin($d*x)@$a*sin($d*x$pm$k)@$a*cos($b*x),\
    $a*cos($d*x)@$a*cos($d*x$pm$k)@$a*sin(x+$d),\
    $a*cos(x$pm$b)@$a*sin(x$pm$k)@$a*sin($b*x+$a),\
    $a*cos(x)@$a*cos(x$pm$k)@$a*sin(x$pm$k)
!endif
!if $R>2
    a=!randitem -5,-4,-7/2,-3,-5/2,-2,-3/2,3/2,2,5/2,3,7/2,4,9/2,5
    b=!randint 2,3,4,5
    c=!randitem 3/2,5/3,7/4,7/5,5/3,5/2,2,3,4,5,9/5,9/4
    d=!randitem -3/4,-4/5,-3/5,-2/5,-5/6,-1/5,-5/4,-2/3,-1/2,1/2,2/3,5/4,3/4,4/5,2/5,5/6,6/5
    e=!randitem -2,-3/2,-3/4,-3/5,-2/5,-1/5,-5/4,-2/3,-1/2,1/2,2/3,5/4,3/4,4/5,2/5,6/5,3/2,2
    functies=($a)*sin(($d)*x)@($a)*sin(($d)*x$pm$b)@($c)*cos(($d)*x),\
    ($a)*cos(($d)*x)@($a)*cos(($d)*x$pm$b)@($a)*sin(($a)*x-$b),\
    ($b)*cos(($a)*x)@($a)*cos(($a)*x$pm$b)@($b)*sin(($a)*x),\
    ($c)*sin(($d)*x)@($a)*cos(($d)*x$pm$b)@($c)*cos(($d)*x),\
    $b*sin(($d)*x)@($e)*sin(($a)*x$pm$c)@$b*cos(($d)*x),\
    $e*cos(($d)*x)@$e*sin(($d)*x)@($e)*sin(($a)*x$pm$c)
!endif


functie=!randitem $functies
functie=!replace internal @ by , in $functie
functie=!shuffle $functie

functie1$n=!item 1 of $functie
functie2$n=!item 2 of $functie
functie3$n=!item 3 of $functie

g=!randitem 1,2,3
GOED$n=$g
goed$n=!texmath $(functie$g$n)
F1$n=!texmath $ff(x)=$(functie1$n)
F2$n=!texmath $gg(x)=$(functie2$n)
F3$n=!texmath $hh(x)=$(functie3$n)

!readproc nivo/plaatje1.proc

plaatje1$n=$plaatje\
linewidth 2\
curve $(kleur1$n),$(functie1$n)

plaatje2$n=$plaatje\
linewidth 2\
curve $(kleur2$n),$(functie2$n)

plaatje3$n=$plaatje\
linewidth 2\
curve $(kleur3$n),$(functie3$n)
