bewerking=bewerking1.proc
n=$teller
extratekst=$empty

!if $negatief=0
    som=$empty
    aantal_vragen=2
    machten=!shuffle 2,3,4,5,6,7,8,9
    !if $teller < 5
	getal=$[$teller+1]
    !else
	getal=10
    !endif
    macht=!item $teller of $machten
    GOED1=$getal^$macht
    GOED2=$getal*$macht

    !for p=1 to $macht
	som=!append word $getal* to $som
    !next p
    
    som=!char 1 to -2 of $som
    som1=!replace internal * by &nbsp;&times; in $som
    som2=$getal<sup><small>$macht</small></sup> 
    som3=!replace internal * by &nbsp;+  in $som
    som4=$macht&times;$getal	 

    !if $taal=nl
	nivo_title=Het begrip "Macht"
	hint=Zie de help-pagina
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=Bereken nu de volgende sommetjes:\
	    <table><td>$som2 = $som1 &nbsp; = </td><td>\
	    <input size="12" name="ant1" value="$[$GOED1]"></td><tr>\
	    <td>$som4 = $som3 &nbsp; =</td><td><input size="12" name="ant2" value="$[$GOED2]">\
	    </td></table>
	    extratekst=<small><em>supervisor, <br>\
	    Je kunt deze "enorme hoeveelheid tekst" uitzetten<br>\
	    door "extra ondersteuning" in de intro op "nee" te zetten.</em></small>
	!else
	    opgave$n=Bereken nu de volgende sommetjes:\
	    <table><td>$som2 = $som1 &nbsp; =</td>\
	    <td><input size="12" name="ant1" value="">\
	    </td><tr><td>$som4 = $som3 &nbsp; =</td><td>\
	    <input size="12" name="ant2" value=""></td></table>    
	!endif
	antwoord$n=De antwoorden van de volgende sommetjes zijn:<table><td>\
	$som2 = $som1 &nbsp; =</td><td><input size="12" name="" value="$[$GOED1]"></td><tr><td>\
	$som4 = $som3 &nbsp; =</td><td><input size="12" name="" value="$[$GOED2]"></td></table>
	
	!if $bijles=1
	    somtekst$n=Het <em>produkt</em> $som1 wordt in de wiskunde vaak geschreven als $som2 .<br>\
	    We noemen dit dan <em>machtsverheffen</em>.<br>\
	    Spreek dit uit als : <em>$getal tot de macht $macht</em>. <br>\
	    In dit geval is $getal het grondtal en <sup>$macht</sup> de exponent.<br>\
	    Bekende machten zijn de machten <sup>2</sup> en <sup>3</sup>.<br><small>\
	    We kennen deze bijvoorbeeld uit <em>vierkante meter</em> ofwel m<sup><small>2</small></sup> en betekent dus: meter &times; meter <br>\
	    of in't algemeen "oppervlakte eenheid" (twee dimensionaal of 2D).<br>\
	    <em>Kubieke meter</em> m<sup><small>3</small></sup> en dit betekent dus: meter &times; meter &times; meter<br>\
	    of in't algemeen "een volume maat" (drie dimensionaal ofwel 3D).<p>\
	    <small>Let op: $getal&times;$macht is dus wat anders dan $som2 .</small><p>$extratekst</small>
	!else
	    somtekst$n=<p>
	!endif
    !else
	#taal != nl
	nivo_title=Introduction to "powers"
	hint=Look into the help-pages
	!if $wims_user=supervisor and $printbaar=0
	    opgave$n=Fill in the blanks:\
	    <table><td>$som2 = $som1 &nbsp; = </td><td>\
	    <input size="12" name="ant1" value="$[$GOED1]"></td><tr>\
	    <td>$som4 = $som3 &nbsp; =</td><td><input size="12" name="ant2" value="$[$GOED2]">\
	    </td></table>
	    extratekst=<small><em>supervisor, <br>\
	    you can disable this large amount of text by <br>\
	    setting "extra support" on "no" in the intro file.</em></small> 
	!else
	    opgave$n=Fill in the blanks:\
	    <table><td>$som2 = $som1 &nbsp; =</td>\
	    <td><input size="12" name="ant1" value="">\
	    </td><tr><td>$som4 = $som3 &nbsp; =</td><td>\
	    <input size="12" name="ant2" value=""></td></table>    
	!endif
	antwoord$n=The correct answers are:<table><td>\
	$som2 = $som1 &nbsp; =</td><td><input size="12" name="" value="$[$GOED1]"></td><tr><td>\
	$som4 = $som3 &nbsp; =</td><td><input size="12" name="" value="$[$GOED2]"></td></table>
	
	!if $bijles=1
	    somtekst$n=The <em>multiplication</em> $som1 can also be written as $som2<br>\
	    We call the "raising the <em>power</em>".<br>\
	    pronounce this like : <em>$getal to the power of $macht</em> or $getal to the $macht .<br>\
	    In this case $getal is the base and $macht is the exponent.<br>\
	    A few  well known powers are <sup>2</sup> en <sup>3</sup><br><small>\
	    We come across these powers for instance in <em>square metre</em> or m<sup><small>2</small></sup> and \
	    that is infact : metre &times; metre <br>\
	    or it's generally known as "surface unit" (two dimensional or 2D).<br>\
	    <em>Cubic metre</em> or m<sup><small>3</small></sup> and this is infact : metre &times; metre &times; metre<br>\
	    or generally known as "volume unit" (three dimensional or 3D).<p>\
	    <small>pay attention: $getal&times;$macht is really different from $som2 .</small><p>$extratekst</small>
	!else
	    somtekst$n=<p>
	!endif
    !endif
  !exit    
!endif

!if $negatief=1
    aantal_vragen=4
    machten=!shuffle -1,-2,-3,-4,-5,-6,-7,-8,-9,-10
    macht=!item $teller of $machten    
    M=$[-1*$macht]
    !if $teller < 5
	getal=$[$teller + 1]
    !else
	getal=10
    !endif
    GOED1=$getal^$macht
    GOED2=($[-1*$getal])^$M
    GOED3=-1*$getal^$M
    GOED4=-1*$getal^$macht
    GOED5=$getal^$M
    S1= $getal^{$macht}
    S2= \left($[-1*$getal]\left)^{$M}
    S3= -$getal^{$M} 
    S4= -$getal^{$macht}
    S5= $getal^{$M}
    
    !if $taal=nl
	nivo_title=Het begrip Macht <br>Met een Negatieve exponent
	hint=Zie de help-pagina
	antwoord$n=De antwoorden van de volgende sommetjes zijn:<br><font size="+1">\
	$getal<sup>$macht</sup> = $[$GOED1] <br>\
	($[-1*$getal])<sup>$M</sup> = $[$GOED2] <br>\
	-$getal<sup>$M</sup> = $[$GOED3] <br>\
	-$getal<sup>$macht</sup> = $[$GOED4] <br>\
	$getal<sup>$M</sup> = $[$GOED5] </font>
    !else
	nivo_title=Introduction to negative "powers"
	hint=Look into the help-pages
	antwoord$n=The correct answers are:<br><font size="+1">\
	$getal<sup>$macht</sup> = $[$GOED1] <br>\
	($[-1*$getal])<sup>$M</sup> = $[$GOED2] <br>\
	-$getal<sup>$M</sup> = $[$GOED3] <br>\
	-$getal<sup>$macht</sup> = $[$GOED4] <br>\
	$getal<sup>$M</sup> = $[$GOED5] </font>
    !endif
!endif
!exit