n=$teller
latex$n=1
bewerking=bewerking4.proc
nivo_title=Exact optellen & aftrekken met wortels	
PLAATJE=0
letterlijk=1
vergelijking=0
varcnt=0
varlist$n=$empty
somtekst$n=Vereenvoudig:<br><em>Bereken dus exact</em><p>	
hint=Geen hints bij deze som.<br>Zie voor syntax de help-pagina
keuze=!randitem 1,2
!if $graad=0
    R=$teller
!else
    R=$graad
!endif    
#som$n=wiskundige som
#opgave$n=latex som
!if $R=1
	getallen=2,3,5,6,7,10,11,13,14,15,17,19
	getallen=!shuffle $getallen
	getal1=!item 1 of $getallen
	a=!randitem -2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12,2,3,4,5,6,7,8,9,10,11,12
	b=!randitem 2,3,4,5,6,7,8,9,10,11,12
	pm=!randitem +,-
	!if $[$a $pm $b]=0
	    a=$[-1*$a]
	!endif
	!if $keuze=1
	    som$n=$a*sqrt($getal1) $pm $b*sqrt($getal1)
	    GOED$n=$[$a $pm $b]*sqrt($getal1)
	!else
	    som$n=$a*sqrt($getal1) $pm $b*sqrt($[$getal1*$getal1])
	    GOED$n=$a*sqrt($getal1)+$[$pm $b*$getal1]
	!endif    
!endif
!if $R=2
    getallen=2,3,5,6,7,10,11,13,14,15,17,19
    getallen=!shuffle $getallen
    getal1=!item 1 of $getallen
    getal2=!item 2 of $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 +,-
    pm=!randitem +,-
    !if $[$a $pm $c]=0
	a=$[-1*$a]
    !endif
    !if $keuze=1
	som$n=$a*sqrt($getal1) $mp $b*sqrt($getal2) $pm $c*sqrt($getal1)
	GOED$n=$[$a $pm  $c]*sqrt($getal1) $mp $b*sqrt($getal2)
    !else
	som$n=$a*sqrt($getal1) $mp $b*sqrt($getal2) $pm $c*sqrt($getal2)
	GOED$n=$a*sqrt($getal1) + $[$mp $b $pm  $c]*sqrt($getal2)
    !endif
!endif
!if $R=3
    getallen=2,3,5,6,7,10,11,13,14,15,17,19
    getallen=!shuffle $getallen
    getal1=!item 1 of $getallen
    getal2=!item 2 of $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
    d=!randitem 2,3,4,5,6,7,8,9
    mp=!randitem +,-
    pm=!randitem +,-
    !if $[$a $pm $c]=0
        a=$[$a + 2]
    !endif
    !if $[$mp $b $mp $d]=0
	b=$[$b + 2]
    !endif    
    !if $keuze=1
        som$n=$a*sqrt($getal1) $mp $b*sqrt($getal2) $pm $c*sqrt($getal1) $mp $d*sqrt($getal2)
        GOED$n=$[$a $pm  $c]*sqrt($getal1)+ $[$mp $b $mp $d]*sqrt($getal2)
    !else
        som$n=$a*sqrt($getal1) $mp $b*sqrt($getal2) $pm $c*sqrt($getal2) $mp $d*sqrt($getal1)
        GOED$n=$[$a $mp $d]*sqrt($getal1) + $[$mp $b $pm  $c]*sqrt($getal2)
    !endif
!endif

#een \cdot is mooier dan \times
goed$n=!texmath $(GOED$n)
goed$n=!replace internal times by cdot in $(goed$n)
opgave$n=!texmath $(som$n)
opgave$n=!replace internal times by cdot in $(opgave$n)

!if $R>3
#bolleboosjes
    letter1=!randitem x,y,z
    getallen=2,3,5,6,7,10,11,13,14,15,17,19
    getallen=!shuffle $getallen
    getal1=!item 1 of $getallen
    getal2=!item 2 of $getallen
    wims_rawmath_variables=$letter1
    varcnt=1
    varlist=$letter1
    vergelijking=0
    a=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
    b=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
    c=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
    mp=!randitem +,-
    pm=!randitem +,-
    !if $keuze=1
	!if $[$a $mp $b $pm $c]=0
	    a=$[$a + 2]
	!endif
	som$n=$a*sqrt($letter1) $mp $b*sqrt($letter1) $pm $c*sqrt($letter1)
	GOED$n=$[$a $mp $b $pm $c]*sqrt($letter1)
    !else
	!if $[$a $pm $c]=0
	    a=$[$a + 2]
	!endif
	som$n=$letter1*$a*sqrt($getal1) $mp $b*sqrt($getal1) $pm $letter1*$c*sqrt($getal1)
	GOED$n=$letter1*$[$a $pm  $c]*sqrt($getal1) $mp  $b*sqrt($getal1)
    !endif
    goed$n=!texmath $(GOED$n)
    opgave$n=!texmath $(som$n)
    #een \cdot is mooier dan \times
    opgave$n=!replace internal times by cdot in $(opgave$n)
    goed$n=!replace internal times by cdot in $(goed$n)
    somtekst$n=$(somtekst$n)<br><em>Dus ook de variabele/letter <font color=$fontcolor3 size="+1">$letter1</font> laten staan...</em>
!endif

som$n=!nospace $(som$n)