n=$teller
nivo_title=Schrijf als &eacute;&eacute;n macht
letters=a,b,c,f,g,h,y,z,s,t,r
# nee geen x
A=!randitem $letters
wims_rawmath_variables=$A
varlist=$A
letterlijk=1
latex$n=1
woordmax=10
bewerking=bewerking6.proc
hint=zie voor de computerwiskunde schrijfwijze de "help-pagina's"
keuze=!randitem 1,2
#som$n checked op letterlijk overtypen
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
!if $R isin 1,2    
    !if $keuze=1
	bewerking=bewerking6.proc
	nivo_title=Schrijf als &eacute;&eacute;n macht
	p=!randint 3,13
	!for q=1 to $p
	    som=!append item $A to $som
	    opgave$n=!append word $A\cdot to $(opgave$n)
	!next q 
	
        som$n=!replace internal , by  in $som
        somtekst$n=Schrijf de serie producten als als &eacute;&eacute;n enkele macht<p>
        GOED$n=$A^$p
        opgave$n=!char 1 to -6 of $(opgave$n)
        goed$n=!texmath $(GOED$n)
	macht=1
        latex$n=1
    !else
        nivo_title=Schrijf de macht als een serie producten
	bewerking=bewerking6.proc
        p=!randint 3,13
	f=$empty
        !for q=1 to $p
	    GOED=!append item $A to $GOED
	    g=!append word $A\cdot to $g
        !next q 
    
        GOED$n=!replace internal , by * in $GOED
        somtekst$n=Schrijf de macht uit als een serie producten<p><small><em>gebruik een * als vermenigvuldigings-teken</em></small>
        opgave$n=$A^{$p}
	som$n=$A^$p
        goed$n=!char 1 to -5 of $g	
	latex$n=1
	macht=0
    !endif
!else
    nivo_title=Schrijf als &eacute;&eacute;n macht
    p=!randint 3,13
    !for q=1 to $p
	som=!append item $A to $som
	opgave$n=!append word $A\cdot to $(opgave$n)
    !next q 
    macht=1
    somtekst$n=Schrijf de serie producten als als &eacute;&eacute;n enkele macht<p>
    opgave$n=!char 1 to -6 of $(opgave$n)
    !if $keuze=1    
	GOED$n=2*$A^$p
	opgave$n=$(opgave$n) + $(opgave$n)
	som$n=$A^$p+$A^$p
    !else
	GOED$n=3*$A^$p
	opgave$n=$(opgave$n) + $(opgave$n) + $(opgave$n)
	som$n=$A^$p+$A^$p+$A^$p
    !endif
    goed$n=!texmath $(GOED$n)
    latex$n=1
!endif