# enkel logpapier: y-as logarithmisch
!if $level=0
    R=$counter
!else
    R=$level
!endif
mathview=0
applet=1
image=0
plot=1
math=0
questiontype=0
inputs=0
XSIZE=650
erase=!record 67 of $remarkdir/commonremarks.$taal
n=$counter
wordmax=10
checkfile=exos/checkfile4.proc

# var5 -> grondtal
!if $R=1
    var5=10
    a1=1
    a2=1
!endif
!if $R=2
    var5=!randitem 4,5,6,7,8,9,11,12,13,14
    a1=1
    a2=1
!endif
!if $R>2
    var5=!randitem 4,5,6,7,8,9,10,11,12,13,14,15
    a=1
    a1=1/$var5
    a2=\frac{1}{$var5}
!endif
# pas op dat de lijn wel binnen beeld blijft
pm=!randitem +,-
c=!randitem 1,2,3,4,5
var6=x $pm $c
### $pm $b
answer$n=$a1*$var5^($var6)
ans=$a1*$var5**($var6)
textanswer$n=$empty
question$n=!record 58 of lang/remarks.$taal
formula$n= f(x)\,=\,$a2 \cdot $var5^{$var6}
# X_MAX- >var1
# X_MIN- >var2
# Y_MAX- >var3
# Y_MIN- >var4
var1=!randitem 3,4,6
var2=0
var3=!evalsubst x=$[$var1+1] in $(answer$n)
var3=$[1000*(ceil($var3/1000))]
var4=1
lijntype=line
setting=logscale y $var5 ; border ; tmargin 1 ; rmargin 1 ; xtics 0,0.5,$var1 ;  ytics 1,$var5,$var3 ; mytics $var5  ; mxtics 2 ;grid xtics ytics mxtics mytics linetype 2 , linetype 2 ; xlabel "x-axis" ; ylabel "y-axis" ;  zeroaxis linetype 1 
insplot_set=size 1.2,1.4 ;$setting
!insplot [$var2 : $var1] [$var4 : $var3] 0 notitle
image_settings$n=size 0.5,0.5;$setting
image$n=[$var2 : $var1] [$var4 : $var3] $(answer$n) title "$(answer$n)"  

object$n=<applet codebase="java" archive="input.jar" code="input.class" width="640" height="640">\
<param name="background" value="$ins_url">\
<param name=retry value="$erase">\
<param name=prompt value="$send">\
<param name="type" value="$lijntype">\
<param name=replyurl value=$wims_ref_name?module=$module&+session=$session&cmd=reply&reply$n=$java_reply>\
$nojava</applet>

 
