n=$counter
image=0
cols=15
rows=3
questiontype=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
checkfile=$checkdir/simplify.proc
arglist=$empty
question$n=Vereenvoudig en schrijf als 1 macht:<br>
sometext=!record 29 of lang/remarks.$taal
helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/exo7.jpg>')">$sometext</a>
a=!randitem 2,3,4,5,6,-2,-3,-4,-5
b=!randitem -4,-3,-2,-1,2,3,4
c=!randitem -4,-3,-2,-1,2,3,4
d=!randitem -4,-3,-2,-1,2,3,4
e=!randitem 2,3,4,5

keuze=!randitem 1,2
!if $R=1
    !if $keuze=1 
	!if  $[$b+$c-$d]=0
	    d=$[$d -1]
	!endif  
	var1=$[$e*$a]*x^$b*x^$c/($a*x^$d)
	formula$n=\frac{$[$e*$a] \cdot x^{$b} \cdot x^{$c}}{$a \cdot x^{$d}}
	answer$n=$e*x^$[$b+$c-$d]
	texanswer$n=\rightarrow $e \cdot x^{$b+$c-$d}=$e \cdot x^{$[$b+$c-$d]}
    !else
        !if $[$b-$c-$d]=0
	    d=$[$d -1]
	!endif
	var1=$a*x^$b/($[$e*$a]*x^$c*x^$d)
	formula$n=\frac{$a \cdot x^{$b}}{$[$e*$a] \cdot x^{$c} \cdot x^{$d}}
	answer$n=x^$[$b-$c-$d]/$e
	texanswer$n=\rightarrow \frac{x^{$b-$c-$d}}{$e}=\frac{x^{$[$b-$c-$d]}}{$e}
    !endif
    varlist=!varlist $(answer$n)
    wims_rawmath_variables=$varlist
 !exit
!endif
!if $R=2
    !if $keuze=1
	var1=$a*sqrt(x)*x^$e/($[$e*$a]x^$c)
	formula$n=\frac{$a \cdot \sqrt{x} \cdot x^{$e}}{$[$e*$a] \cdot x^{$c}}
	answer$n=x^$[0.5+$e-$c]/$e
	texanswer$n=\rightarrow \frac{x^{0.5+$e-$c}}{$e}=\frac{x^{$[0.5+$e-$c]}}{$e}
    !else
	var1=$[$e*$a]*x^$b * x^$c/($a * x^$e * sqrt(x))
        formula$n=\frac{$[$e*$a] \cdot x^{$b} \cdot x^{$c}}{$a \cdot x^$e \cdot \sqrt{x}}
	answer$n=$e*x^$[$b+$c-$e-0.5]
	texanswer$n=\rightarrow $e*x^{$b+$c-$e-0.5}=$e*x^{$[$b+$c-$e-0.5]}
    !endif
    varlist=!varlist $(answer$n)
    wims_rawmath_variables=$varlist
 !exit
!endif    
!if $R>2
    mytexsize=+5
    q=!randitem 3,4,5,6
    r=!randint 2,$[$q -1]
    f=!randitem -1,-2,-3,-4
    !if $r=$[-1*$f]
	f=$[$f-1]
    !endif
    !if $keuze=1
	tot=!exec pari A=($r-1+$c*$q)/$q\
	printtex(A)
	exp=!line 1 of $tot
	lexp=!line 2 of $tot
        var1=x^($r/$q)*x^$c/x^(1/$q)
        formula$n=\frac{\root $q \of{x^{$r}}\cdot x^{$c}}{\root $q \of {x}}
	texanswer$n=\rightarrow \frac{x^{\frac{$r}{$q}} \cdot x^{$c}}{x^{\frac{1}{$q}}}=x^{$lexp}
	answer$n=x^($exp)
    !else
        var1=x^($r/$q)*x^$c*x^($f/$q)
        formula$n=\root $q \of{x^{$r}} \cdot x^{$c} \cdot \root $q \of {x^{$f}}
	tot=!exec pari A=($r+$c*$q+$f)/$q\
	printtex(A)
	exp=!line 1 of $tot
	lexp=!line 2 of $tot
	answer$n=x^($exp)
	texanswer$n=\rightarrow x^{\frac{$r}{$q}} \cdot x^{$c} \cdot \frac{1}{\root $q \of {x^{$[-1*$f]}}}=\frac{x^{\frac{$r}{$q}+$c}}{x^{\frac{$[-1*$f]}{$q}}}=x^{$lexp}
    !endif
    varlist=!varlist $(answer$n)
    wims_rawmath_variables=$varlist
 !exit
!endif    

