# maak een staafdiagram : DHTML
total_exos=1
# rare problemen met data als er meerdere sommetjes zijn..
n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif
javascript=js/exo11.js
checkfile=exos/checkfile11.proc
mathview=0
math=0
questiontype=7
helptext=$empty
image=1
draw=0
plot=1
delta=0
vline=$empty
hline=$empty
vtext=$empty
R=1
kleur=!randitem orange,red,green,blue,cyan,darkgreen,purple
exotext=$empty
!if $R=1
    num=!randitem 5,6,7,8
    htabel=<th>x</th>
    vtabel=<th>y</th>
    xmin=!randint 0,15
    xmax=$[$xmin+$num]
    ymin=0
    ymax=!randint 1,12
    ymax=$[$ymax*10]
    m=$[10*(floor($ymax/100))]
    options=0
    #xmin=0
    #ymin=0
    !for p=$[$xmin+1] to $[$xmax-1]
	!increase options
	b=!randint $[$ymin+1],$[$ymax-1]
	htabel=!append line <th>$p</th> to $htabel
	vtabel=!append line <th>$b</th> to $vtabel
	answer$n=!append item $p,$b to $(answer$n)
    !next p
    
    ss=!record 59 of lang/remarks.$taal
    #@Maak een Staafdiagram van de onderstaande gegevens:<table cellpadding="8" $paperbg border="1">$htabel<tr>$vtabel</table>De horizontale-as is voor de x-waarden. De verticale-as is voor de y-waarden. 
    question$n=$ss
    vv=!record 60 of lang/remarks.$taal
    exotext=$vv
    #@Hier staan de $options 'staven' voor het staafdiagram...<br>Je kunt ze &eacute;&eacute;n voor &eacute;&eacute;n meeslepen met je linker muisknop.<br>Gebruik <em>shift</em> en je <em>linkermuisknop</em> om ze naar onderen en naar rechts passend te maken...<form name="myform"><table cellpadding="10" border=1 $paperbg><th><img name="S1" src="$module_dir/gifs/staafdiagram/$kleur.gif"></th></table></form>
    
    dhtml=<script type="text/javascript">SET_DHTML( CURSOR_MOVE , RESIZABLE , "S1" + COPY + $[$options-1] );</script>

    var1=$xmin
    var2=$xmax
    var3=$ymin
    var4=$ymax
    # onder deze condities GEMETEN: size 1,1 ; lmargin 0 ; tmargin 0 ; bmargin 2; rmargin 5;
    #xsize=465
    #ysize=373

    # ysize is bovenkant grafiek naar x-as !!!!
    # onder deze condities GEMETEN: size 0.8,0.7;border ; zeroaxis linetype 3 ; lmargin 0 ; tmargin 0 ; bmargin 2; rmargin 5; grid xtics y2tics  linetype 1 ; $tics ;y2label "y-as";xlabel "x-as"
    xsize=370
    ysize=257
    
    #forceerd een <tr>
    XSIZE=650
    tics=xtics $xmin,1,$xmax linetype 2 ;y2tics $ymin,$m,$ymax;mxtics 2 ;my2tics 5;
    insplot_set=size 0.8,0.7;border ; zeroaxis linetype 3 ; lmargin 0 ; tmargin 0 ; bmargin 2; rmargin 5; grid xtics y2tics my2tics linetype 1 , linetype 0 ;$tics ;y2label "y-as";xlabel "x-as"
    image_settings$n=$insplot_set
    image$n=[$var1:$var2] [$var3:$var4] 0 notitle
!endif
