bewerking=nivo/bewerking11.proc
!set n=$teller
!if $graad =0
    R=$teller
!else
    R=$graad
!endif        
afrondingsfactor=100
!readproc $authordir/afronding.$taal
woordmax=150
charmax=300
nivo_title=!record 23 of lang/remarks.$taal
keuze=!randitem 1,0
pm=!randitem -1,1
bereik=-1.5:1.5


!if $R=1
    a=!randitem 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9
    a=$[$pm*$a]
    k1=0
    k2=!htmlmath 4*pi
    domein=0:4*pi
    !if $keuze=1
	functie=sin(x)
	X=$[asin($a)]
	!if $pm=-1
	    GOED$n=pi-$X,2*pi-$X,3*pi-$X,4*pi-$X	
	!else
	    GOED$n=$X,pi-$X,$X+2*pi,3*pi-$X
	!endif
	gi=4
    !else    
	functie=cos(x)
	X=$[acos($a)]
	GOED$n=$X,2*pi-$X,2*pi+$X,4*pi-$X
	gi=4
    !endif
    opgave$n=!texmath $functie = $a
!endif 

!if $R>1
    tot=!randitem 2@2*pi@4,3@2*pi@6,4@pi@4,6@pi@6
    a=!randitem 0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9
    a=$[$pm*$a]
    k1=0
    tot=!replace internal @ by , in $tot
    b=!item 1 of $tot
    k=!item 2 of $tot
    gi=!item 3 of $tot
    domein=0:$k
    k2=!htmlmath $k
    !if $keuze=1
	functie=sin($b*x)
	X=$[asin($a)]
	!if $gi=4
	    !if $pm=1
		GOED$n=$X/$b,(pi-$X)/$b,$X/$b+2*pi/$b,(pi-$X)/$b+2*pi/$b	
	    !else
		GOED$n=(pi-$X)/$b,(2*pi-$X)/$b,(pi-$X)/$b+2*pi/$b,(2*pi-$X)/$b+2*pi/$b			
	    !endif
	!else
	    # DUS 6 SNIJPUNTEN
	    !if $pm=1
		GOED$n=$X/$b,(pi-$X)/$b,$X/$b+2*pi/$b,(pi-$X)/$b+2*pi/$b,$X/$b+4*pi/$b,(pi-$X)/$b+4*pi/$b	
	    !else
		GOED$n=(pi-$X)/$b,(2*pi-$X)/$b,(pi-$X)/$b+2*pi/$b,(2*pi-$X)/$b+2*pi/$b,(pi-$X)/$b+4*pi/$b,(2*pi-$X)/$b+4*pi/$b			
	    !endif
	!endif
    !else    
	functie=cos($b*x)
	X=$[acos($a)]
	!if $gi=4
	    GOED$n=$X/$b,(2*pi-$X)/$b,$X/$b+2*pi/$b,(2*pi-$X)/$b+2*pi/$b
	!else
	    # DUS 6 SNIJPUNTEN
	    GOED$n=$X/$b,(2*pi-$X)/$b,$X/$b+2*pi/$b,(2*pi-$X)/$b+2*pi/$b,$X/$b+4*pi/$b,(2*pi-$X)/$b+4*pi/$b
	!endif
    !endif
    opgave$n=!texmath $functie = $a
!endif 


tekst=!record 64 of lang/remarks.$taal
somtekst$n=$tekst
#Los op in het Domein <b>[ $k1 : $k2 ]</b><br>
L=$empty
latex=$empty
!for p=1 to $gi
    L=!append word l to $L
    G=!item $p of $(GOED$n)
    Gc=$[(round(100*$G))/100]
    G=!texmath $G
    latex=!append line x_{$p} \simeq $G \simeq $Gc\\ to $latex
!next p

goed$n=\left\{ \begin{array}{$L} $latex \end{array}\right.
        
insplot_set=size 1,0.5; noborder ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid xtics ytics mxtics
plaatje$n=[$domein] [$bereik] $functie,$a
