n=$teller
woordmax$n=10
bewerking=bewerking7.proc
Y_MAX=!randint 10,50
stap=!randitem 2,3,4
stap=$[2*$stap]
punten=!randitem 4,5,6
X_MAX=$[$stap*$punten]
    
lengte=!randitem millimeters,centimeters,decimeters,meters
tijd=!randitem uren,dagen,weken,maanden,jaren


!for q=0 to $[$X_MAX+3] step $stap
    getal=!randint 0,$Y_MAX
    tussen=!append item $getal to $tussen
!next q

getallen=!sort numeric item of $tussen
y_teller=0    
tabel=$empty
!for q=1 to $X_MAX step $stap
    !increase y_teller
    y=!item $y_teller of $getallen
    x=$[$q-1]
    goed$n=!append item ($x:$y) to $(goed$n)
    X$n=!append item $x to $(X$n)
    Y$n=!append item $y to $(Y$n)
    tabel=!append line <td>meting $y_teller</td><td>$x</td><td>$y</td><tr> to $tabel	
!next q
opgave$n=<table cellpadding="3" border="1" background="$module_dir/gifs/papier.jpg"><th>meting nummer</th><th>$tijd</th><th>$lengte</th><tr>$tabel</table>
somtekst$n=In een laboratorium wordt het <tt>groeigedrag</tt> van een plant geregistreerd<br>\
De resultaten van dit "onderzoek" staan in de tabel hiernaast<br>\
Neem de getallenparen zo nauwkeurig mogelijk over in de grafiek <em>(java applet)</em></b>\
<font color=$fontcolor4><br><small>de vertikale-as geeft de lengte in $lengte<br>\
de horizontale-as geeft de tijd in $tijd</small></font>

hint$n=
lijntype=points
XSCHAAL=$[5*(ceil($X_MAX/50))]
!if $Y_MAX >40
    YSCHAAL=$[5*(ceil($Y_MAX/50))]
!else
    !if $Y_MAX >15
	YSCHAAL=$[5*(ceil($Y_MAX/100))]
    !else
	YSCHAAL=1
    !endif		
!endif  
XRANGE=0:$X_MAX
YRANGE=0:$Y_MAX
tics=xtics 0,$XSCHAAL,$X_MAX;ytics 0,$YSCHAAL,$Y_MAX ; mxtics 5 ; mytics 5
insplot_set=size 0.8,1; noborder ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid xtics ytics mxtics mytics linetype 1 , linetype 2  ; xlabel "$tijd" ; ylabel "$lengte" ; $tics
plotsettings$n=$insplot_set
plaatje$n=[$XRANGE] [$YRANGE] 0 notitle
!insplot $(plaatje$n)
 