!set n=$teller
!if $taal=nl
    nivo_title=Bepaal amplitude,frequentie en evenwichtslijn
    xas=x-as
    yas=y-as
!else
    nivo_title=Determine amplitude,frequency and "balance" line
    xas=x-axis
    yas=y-axis
!endif
bewerking=bewerking2.proc
!if $graad=1
    b=!randitem -3,-2.5,-2,-1.5,-1,-0.5,0.5,1,1.5,2,2.5,3
    C=4/3,2/3,1/5,1/4,1/3,1/2,1,3/2,2,5/2,3,7/2,4
    D=3*pi/2,3*pi,10*pi,8*pi,6*pi,4*pi,2*pi,4*pi/3,pi,4*pi/5,2*pi/3,4*pi/7,pi/2
    p=!itemcnt $C
    q=!randint 1,$p
    c=!item $q of $C
    periode$n=!item $q of $D
    factor$n=$c
    SIN$n=!randitem sin,cos
    amplitude$n=$b
    f$n= $b*$(SIN$n)($c*x)
    functie$n=!texmath $(f$n)
    
    plaatje$n=\
    plotsteps 500\
    400,400\
    xrange -4,10\
    yrange -3.5,3.5\
    linewidth 2\
    vline 0,0,blue\
    hline 0,0,blue\
    linewidth 2\
    vline -pi,0,red\
    linewidth 1\
    vline -5*pi/6,0,orange\
    vline -2*pi/3,0,orange\
    vline -pi/2,0,orange\
    vline -pi/3,0,orange\
    vline -pi/6,0,orange\
    vline pi/6,0,orange\
    vline pi/3,0,orange\
    vline pi/2,0,orange\
    vline 2*pi/3,0,orange\
    vline 5*pi/6,0,orange\
    linewidth 2\
    vline pi,0,red\
    linewidth 1\
    vline 7*pi/6,0,orange\
    vline 4*pi/3,0,orange\
    vline 3*pi/2,0,orange\
    vline 5*pi/3,0,orange\
    vline 11*pi/6,0,orange\
    linewidth 2\
    vline 2*pi,0,red\
    linewidth 1\
    vline 13*pi/6,0,orange\
    vline 14*pi/6,0,orange\
    vline 15*pi/6,0,orange\
    vline 16*pi/6,0,orange\
    vline 17*pi/6,0,orange\
    linewidth 2\
    vline 3*pi,0,red\
    linewidth 1\
    hline 0,-3,orange\
    hline 0,-2,orange\
    hline 0,-1,orange\
    hline 0,1,orange\
    hline 0,2,orange\
    hline 0,3,orange\
    text blue,-0.8,-2.9,huge,-3\
    text blue,-0.8,-1.9,huge,-2\
    text blue,-0.8,-0.9,huge,-1\
    text blue,-0.4,1.1,huge,1\
    text blue,-0.4,2.1,huge,2\
    text blue,-0.4,3.1,huge,3\
    text blue,-3.5,-0.2,huge,-pi\
    text blue,3,-0.2,huge,pi\
    text blue,6,-0.2,huge,2pi\
    textup black,0.1,2,normal,$yas\
    text black,7,0,normal,$xas\
    linewidth 2\
    curve green,$(f$n)\
    linewidth 3\
    rect -4,-3.5,10,3.5,black
 !exit
!endif

!if $graad=2
    ###a+bsin(cx)
    a=!randitem -3,-5/2,-2,-3/2,-1,-1/2,0,1/2,1,3/2,2,5/2,3
    b=!randitem 1/2,1,3/2,2,5/2,3
    SIN$n=!randitem sin,cos
    # P=pi
    c=!randitem (P/2),(2*P/3),P,2*P,(2*P/5)
    periode$n=!exec pari (2*P)/($c)
    frequentie$n=!exec pari ($c)/(2*P)
    periode$n=!replace internal  P by pi in $(periode$n)
    frequentie$n=!replace internal P by pi in $(frequentie$n)
    c=!replace internal P by pi in $c
    factor$n=$c
    pm$n=!randitem +,-
    evenwicht$n=$a
    amplitude$n=!exec pari abs($b)
    f$n=$a $(pm$n) $b*$(SIN$n)($c*x)
    functie$n=!texmath $(f$n)
    XRANGE=-4,7
    YRANGE=-6,6
    XSCHAAL=1
    YSCHAAL=1
    !readproc $authordir/ruitjespapier.proc
    plaatje$n=$ruitjespapier\
    linewidth 2\
    plot green,$(f$n)\
    textup black,0.1,4,normal,$yas\
    text black,4.4,0,normal,$xas\
    linewidth 3\
    rect -4,-6,7,6,black
!endif

