!set n=$teller
latex$n=1
varcnt=0
woordmax=10
wims_rawmath_variables=$empty
hint=zie voor de computerwiskunde schrijfwijze de "help-pagina's"
keuze=!randitem 1,2
bewerking=bewerking0.proc
#som$n checked op letterlijk overtypen
!if $graad=0
    R=$teller
!else
    R=$graad
!endif    

!if $R=1
    bewerking=bewerking6.proc
    vergelijking=0
    letterlijk=1
    A=!randitem 2,3,4,5,6,7,8,9,10,100,1000
    p=!randint 3,9
    !if $keuze=1
	nivo_title=Schrijf als &eacute;&eacute;n Macht <br>
	!for q=1 to $p
	    som=!append item $A to $som
	!next 
	som$n=!replace internal , by  in $som
	som=!replace internal , by \star in $som
	somtekst$n=Schrijf als een enkele macht
	GOED$n=$A^$p
	opgave$n=$som
	goed$n=!texmath $(GOED$n)
	latex$n=1
	macht=1
    !else
	nivo_title=Schrijf als een serie producten
	!for q=1 to $p
    	    GOED=!append item $A to $GOED
	!next 
	GOED$n=!replace internal , by * in $GOED
	somtekst$n=Schrijf 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=!texmath $(GOED$n)
	latex$n=1
	macht=0
    !endif
!endif
!if $R=2
    bewerking=bewerking6.proc
    vergelijking=0
    letterlijk=1
    varcnt=0
    a=!randitem 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
    b=!randitem 1,2,3,4,5,6,7,8,9
    A=$a.$b
    p=!randint 2,6
    !if $keuze=1
	nivo_title=Schrijf als &eacute;&eacute;n Macht <br>
	!for q=1 to $p
	    som=!append item $A to $som
	!next 
	som$n=!replace internal , by  in $som
	som=!replace internal , by \star in $som
	somtekst$n=Schrijf als een enkele macht
	GOED$n=$A^$p
	opgave$n=$som
	goed$n=!texmath $(GOED$n)
	latex$n=1
	macht=1
    !else
	nivo_title=Schrijf als een serie producten
	!for q=1 to $p
    	    GOED=!append item $A to $GOED
	!next 
	GOED$n=!replace internal , by * in $GOED
	somtekst$n=Schrijf als 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=!texmath $(GOED$n)
	latex$n=1
	macht=0
    !endif
!endif
!if $R=3
    bewerking=bewerking0.proc
    a=!randitem 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
    b=!randitem 1,2,3,4,5,6,7,8,9
    c=!randitem 1,2,3,4,5,6,7,8,9
    A=$a.$b$c
    p=!randint 2,6
    nivo_title=Schrijf als &eacute;&eacute;n Macht <br>En reken uit.<p>
    !for q=1 to $p
	som=!append item $A to $som
    !next 
    som$n=!replace internal , by  in $som
    som=!replace internal , by \star in $som
    somtekst$n=Schrijf als een enkele macht<br>En reken deze macht op tenminste 3 decimalen nauwkeeurig uit !<br> <small><em>Gebruik je eigen rekenmachine.</em></small> 
    GOED$n=$A^$p,$[($A)^$p]
    opgave$n=$som
    goed$n=\left\{ \begin{array}{c} $A^{$p}\\$[($A)^$p] \end{array}\right.
    latex$n=1
    macht=1
!endif

!if $R>3
    bewerking=bewerking0.proc
#bolleboosjes niet klaar
    a=!randitem 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
    b=!randitem 1,2,3,4,5,6,7,8,9
    c=!randitem 1,2,3,4,5,6,7,8,9
    d=!randitem 1,2,3,4,5,6,7,8,9
    keuze=!randitem 1,2
    !if $keuze=1
	A=$a.$b$c
    !else
	A=$a.$b$c$d
    !endif	
    p=!randint 2,6
    nivo_title=Schrijf als &eacute;&eacute;n Macht <br>En reken uit.<p>
    !for q=1 to $p
	som=!append item $A to $som
    !next 
    som$n=!replace internal , by  in $som
    som=!replace internal , by \star in $som
    somtekst$n=Schrijf als een enkele macht<br>En reken deze macht op tenminste 3 decimalen nauwkeurig uit !<br> <small><em>Gebruik je eigen rekenmachine.</em></small> 
    GOED$n=$A^$p,$[($A)^$p]
    opgave$n=$som
    goed$n=\left\{ \begin{array}{c} $A^{$p}\\$[($A)^$p] \end{array}\right.
    latex$n=1
    macht=1
!endif

