n=$teller
latex$n=1
nivo_title=Exact vermenigvuldigen met wortels	
PLAATJE=0
bewerking=bewerking4.proc
somtekst$n=Bereken exact:<p><font size="-1">Schrijf zo kort mogelijk en laat de wortel staan</font><p>	
hint=Zie voor syntax (schrijfwijze) de help-pagina
keuze=!randitem 1,2
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
varcnt=0
letterlijk=1
vergelijking=0    
# som$n=wiskundige som
# opgave$n=latex som$n
!if $R=1
    getallen=2,3,5,6,7,10,11,13,14,15,17,19
    getal1=!randitem $getallen
    a=!randitem -2,-3,-4,-5,-6,-7,-8,-9,2,3,4,5,6,7,8,9
    b=!randitem 2,3,4,5,6,7,8,9
    pm=!randitem +,-
    !if $keuze=1
	som$n=$a*sqrt($getal1)*$b
    !else
	som$n=$a*$b*sqrt($getal1)
    !endif
    GOED$n=$[$a*$b]*sqrt($getal1)
!endif
!if $R=2
    getal1=2,2,2,3,3,5,5,6,7,10,11,13,14,15,17,19
    getal2=3,5,7,2,5,2,3,5,2,3,2,2,2,2,2,2
    p=!randitem 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
    getal1=!item $p of $getal1
    getal2=!item $p of $getal2
    a=!randitem 2,3,4,5,6,7,8,9
    b=!randitem 2,3,4,5,6,7,8,9
    c=!randitem 2,3,4,5,6,7,8,9
    mp=!randitem +,-
    pm=!randitem +,-
    !if $keuze=1
	som$n=$a*sqrt($getal1)*$b*sqrt($getal2) 
	GOED$n=$[$a*$b]*sqrt($[$getal1*$getal2]) 
    !else
	som$n=$a*sqrt($getal2) $mp $b*sqrt($getal1)*$c*sqrt($getal2)
	GOED$n=$a*sqrt($getal2) $mp $[$b*$c]*sqrt($[$getal1*$getal2])
	letterlijk=0
    !endif
!endif
!if $R=3
    getal1=2,2,2,3,3,5,5,6,7,10,11,13,14,15,17,19
    getal2=3,5,7,2,5,2,3,5,2,3,2,2,2,2,2,2
    p=!randitem 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
    getal1=!item $p of $getal1
    getal2=!item $p of $getal2
    a=!randitem -2,-3,2,3
    b=!randitem 2,3,4,5,6,7,8,9
    mp=!randitem +,-
    pm=!randitem +,-
    !if $keuze=1
	c=!randitem 2,4
	som$n=($a*sqrt($getal2))^$c*$b*sqrt($getal1) 
	GOED$n=$[($a)^$c*$b*$getal2^$[(0.5*$c)]]*sqrt($getal1)
    !else
	c=!randitem 3,5
	d=$[$c-1]
	som$n=($a*sqrt($getal2))^$c*$b*sqrt($getal1)
	GOED$n=$[$b*($a)^$c*$getal2^$[0.5*$d]]*sqrt($[$getal1*$getal2])
    !endif
!endif
#\cdot mooier dan \times
opgave$n=!texmath $(som$n) 
opgave$n=!replace internal times by cdot in $(opgave$n)
goed$n=!texmath $(GOED$n)
goed$n=!replace internal times by cdot in $(goed$n)

!if $R>3
    bewerking=bewerking2.proc
#bolleboosjes
    letter1=!randitem x,y,z
    getallen=2,3,5,6,7,10,11,13,14,15,17,19,23
    getallen=!shuffle $getallen
    a=!randitem 2,3,4,5,6,7,8,9
    b=!randitem 2,3,4,5,6,7,8,9
    c=!randitem 2,3,4,5,6,7,8,9
    mp=!randitem +,-
    getal1=!item 1 of $getallen
    getal2=!item 2 of $getallen
    !if $[$b $mp $c]=0
	b=$[-1*$b]
    !endif    
    som$n=$a*sqrt($letter1)*($b*sqrt($letter1) $mp $c*sqrt($letter1))
    GOED$n=$[($a*$b $mp $a*$c)]*$letter1
    wims_rawmath_variables=$letter1
    varcnt=1
    letterlijk=1
    varlist=$letter1
    maxima=1
    opgave$n=!texmath $(som$n) 
    opgave$n=!replace internal times by cdot in $(opgave$n)
    goed$n=!texmath $(GOED$n)
    goed$n=!replace internal times by cdot in $(goed$n)
    somtekst$n=Schrijf zo kort mogelijk<br><small><em>Dus ook de letter <font color=$fontcolor3 size="+1">$letter1</font> laten staan</em></small>
!endif


