# lees een staafdiagram : DHTML
n=$counter
total_exos=1
# something is wrong with the calling of "insplot_data", atleast it can't be preserved
!if $level=0
    R=$counter
!else
    R=$level
!endif
mathview=0
math=0
helptext=$empty
image=1
draw=0
plot=1
XSIZE=100
vline=$empty
hline=$empty
vtext=$empty
kleur=!randitem orange,red,green,blue,cyan,darkgreen,purple
exotext=$empty
num=!randitem 5,6,7,8
xmin=1
xmax=7
omzet=!randitem 0,1,2,3,4,5
omzet=$[10*$omzet]
d=$[round(($xmax-$xmin)/2)]
options=0
ymax=0
totaal=0
options=7
r=$[4+$counter]
var$r=$empty
data=$empty
vraag=$empty
antwoord=$empty
basis_salaris=!randitem 50,60,70
dagen=!record 82 of $remarkdir/commonremarks.$taal
labels=!record 58 of lang/remarks.$taal
#@<th>Tijd in dagen</th>,<th>Omzet in Euro</th>

htabel=!item 1 of $labels
vlabel=!item 2 of $labels

!for p=1 to 7
    omzet=!randitem 1,2,2,3,3,3,4,4,4,5,5,5,6,7,8,9,10
    omzet=$[40*$omzet+$basis_salaris]
    !if $p=7
	omzet=0
    !endif
    totaal=$[$totaal+$omzet]
    day=!item $p of $dagen
    # $days :nodig voor gnuplot
    days=!append item ' $day ' $p to $days
    !if $omzet > $ymax
	ymax=$omzet
    !endif
    var$r=!append item $p,$omzet to $(var$r)
    data=!append line $p $omzet to $data
    vraag=!append line <td><input name="$p" id="$p" size="6" style=$textareastyle></td><td><input name="$day" id="$day"  size="10" style=$textareastyle></td><tr> to $vraag
    antwoord=!append line <td><input size="6" style=$textareastyle value="$day" readonly></td><td><input size="10" style=$textareastyle value="$omzet &euro;" readonly></td><tr> to $antwoord
!next p    
ymin=0
ymax=$[$ymax+20]

# var[1-9] geven we door aan proc-files/js-files
var1=$xmin
var2=$xmax
var3=$ymin
var4=$ymax

!if $R=1
    checkfile=exos/checkfile11.proc
    questiontype=7
    javascript=js/exo10.js
    question$n=!record 50 of lang/remarks.$taal
    #@Vul de tabel in aan de hand<br>van het onderstaande staafdiagram:
    exotext=<form name="myform1"><table $paperbg border="1" cellpadding="4">$labels <tr>$vraag</table></form>
    textanswer$n=<table $paperbg border="1" cellpadding="4">$head<tr>$antwoord</table>
    answer$n=$(var$r)
    tics=$empty
    textanswer$n=<table $paperbg border="1" cellpadding="4">$antwoord</table>
!else
    questiontype=0
    checkfile=exos/checkfile12.proc
    inputs=1
    rows=1
    XSIZE=500
    tics=xtics ( $days );
    !if $R=2
	answer$n=$totaal
	question$n=!record 51 of lang/remarks.$taal
	#@Gegeven het onderstaande staafdiagram.<br>In dit diagram staat de omzet van een marktkoopman weergegeven.<br>Hij werkt van maandag tot en met zaterdag.<br>Bereken de totale omzet voor deze week. 
	inputtext1=!record 52 of lang/remarks.$taal
	#@De totale omzet:

	rr=!record 53 of lang/remarks.$taal
	#@De totale omzet is alle 'dag_omzetten' bijelkaar opgeteld:<table $paperbg>$antwoord<td></table><hr width=10%>$totaal &euro;
	textanswer$n=$rr
    !else
	answer$n=$[round($totaal/6)]
	inputtext1=!record 54 of lang/remarks.$taal
	#@De gemiddelde omzet per werkdag:
	question$n=!record 55 of lang/remarks.$taal
	#@Gegeven het onderstaande staafdiafgram.<br>In dit diagram staat de omzet van een marktkoopman weergegeven.<br>Hij werkt van maandag tot en met zaterdag.<br>Bereken de gemiddelde omzet per werkdag.<br><em><small>(rond je antwoord af op hele euro's)</small></em>
	rr=!record 56 of lang/remarks.$taal
	textanswer$n=$rr
	#@De totale omzet is alle 'dag_omzetten' bijelkaar opgeteld:<table $paperbg>$antwoord<td></table><hr>$totaal &euro; $m_rightarrow per werkdag: $totaal &divide; 6 = $[$totaal/6] = $(answer$n) &euro;
    !endif
!endif
gnuplot_desc=!record 57 of lang/remarks.$taal
#@  y2label "Omzet in Euro";ylabel "Omzet in Euro";xlabel "Tijd in dagen"
insplot_data=$data
image_settings$n=size 1.4,1;border ; lmargin 10 ; tmargin 1 ; bmargin 3; rmargin 10; grid xtics ytics mytics linetype 5 , linetype 0;ytics 0,20,$ymax; $tics  $gnuplot_desc

image$n=[0:8] [$ymin:$ymax] "insplot_data" notitle  with boxes ;linetype 1  

# gnuplot >4.0
# with boxes fs solid 0.7 
# gives solid bars !!!
