mathviewpanel=$module_title:/:+:-:*:^
rounding=0
mathview=0
!readproc $remarkdir/rounding.$taal
image=0
questiontype=7
embed=0
n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif
javascript=js/javainput.js
# produceerd een <tr>
XSIZE=650
smallfont=22
largefont=28
# applettext => letterlijke 
math=1
checkfile=$checkdir/simplify.proc
arglist=$empty
formula$n=$empty
question$n=!record 8 of lang/remarks.$taal
#@ herleid de volgende macht <br><font size=-1>dus schrijf anders</font>
sometext=!record 29 of lang/remarks.$taal
helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/exo4.jpg>')">$sometext</a>
# var1 is used for checking  "literal typing" of question
letters=x,y,a,b,c,d,f,h,k,m,p,z
letters=!shuffle $letters
x=!item 1 of $letters
y=!item 2 of $letters
z=!item 3 of $letters
a=!item 4 of $letters
getallen=!shuffle 2,3,4,5,6,7,8,-2,-3,-4,-5,-6,-7,-8
b=!item 1 of $getallen
c=!item 2 of $getallen
d=!item 3 of $getallen
e=!item 4 of $getallen
pm=!randitem +,-
mytexsize=+2
!if $R=1
    var1=$x^$a/($x^($b*$a)) $pm $x/($x^($b*$a))
    formula=\frac{$x^{$a}}{$x^{$b\cdot $a}} \,\, $pm \,\, \frac{$x}{$x^{$b\cdot $a}} 
    answer$n=!rawmath $x^($[1-$b]*$a) $pm  $x^(1-$b*$a) 
    #answer$n=!exec maxima ratsimp($var1);
    tex=!texmath $(answer$n)
    texanswer$n=$formula =  $tex
    varlist=!varlist $(answer$n)
    wims_rawmath_variables=$varlist
    applettext=$x^$a/($x^($b*$a))$pm$x/($x^($b*$a))=
    !if $wims_user=supervisor
	exotext=<font color=green>correct answer: $(answer$n)
    !endif
 !exit
!endif

!if $R>1
    var1=$c*$x^($a)/($x^($b)) $pm $d*$x^($a)/($x^($b))
    formula=\frac{$c \cdot $x^{$a}}{$x^{$b}} \,\, $pm \,\, \frac{$d \cdot $x^{$a}}{$x^{$b}}
    answer$n=!rawmath $[$c $pm $d]*$x^($a-$b)  
    #answer$n=!exec maxima ratsimp($var1);
    tex=!texmath $(answer$n)
    texanswer$n=$formula =  $tex
    varlist=!varlist $(answer$n)
    wims_rawmath_variables=$varlist
    applettext=$c*$x^($a)/($x^($b))$pm$d*$x^($a)/($x^($b))=
    !if $wims_user=supervisor
	exotext=<font color=green>correct answer: $(answer$n)
    !endif
 !exit
!endif

#!if $R>2
#    var1=$d*$x^($a)/($x^($b)) $pm $c*$x^($a)/($x^($b))
#    answer$n=!exec maxima ratsimp($var1);
#    texanswer$n=!texmath $(answer$n)
#    texanswer$n=\rightarrow $(texanswer$n)
#    formula$n=\frac{$d \cdot $x^{$a}}{$x^{$b}} \,\, $pm \,\, \frac{$c \cdot $x^{$a}}{$x^{$b}}
#    varlist=!varlist $(answer$n)
#    wims_rawmath_variables=$varlist
# !exit
#!endif



