n=$teller
latex$n=1
nivo_title=Exact vereenvoudigen van wortels	
PLAATJE=0
bewerking=bewerking4.proc
somtekst$n=vereenvoudig exact <br><small><em>en haal een zo groot mogelijk getal buiten de wortel</em></small><p>	
hint=Zie voor syntax (schrijfwijze) de help-pagina
keuze=!randitem 1,2
!if $graad=0
    R=$teller
!else
    R=$graad
!endif    
# som$n=wiskundige som
# opgave$n=latex som$n
!if $R=1
    getal1=!randitem 2,3,5,6,7
    a=!randitem 2,3,4,5
    b=$[$a*$a*$getal1]
    som$n=sqrt($b)
    GOED$n=$a*sqrt($getal1)
!endif
!if $R=2
    getal1=!randitem 6,7,10,11,13,14
    a=!randitem 4,5,6,7,8,9,10
    b=$[$a*$a*$getal1]
    som$n=sqrt($b)
    GOED$n=$a*sqrt($getal1)
!endif
!if $R=3
    getal1=!randitem 6,7,10,11,13,14
    a=!randitem 4,5,6,7,8,9,10
    b=!randitem 2,3,4,5
    pm=!randitem +,-
    !if $a=$b
	a=$[$b+1]
    !endif
    c=$[$a*$a*$getal1]
    d=$[$b*$b*$getal1]
    som$n=sqrt($c) $pm sqrt($d)
    GOED$n=$[$a $pm $b]*sqrt($getal1)
!endif
varcnt=0
letterlijk=1
vergelijking=0
maxima=0

#\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
#bolleboosjes
    keuze=!randitem 1,2,3
    letter1=!randitem x,y,z
    a=!randitem 4,5,6,7,8,9,10,11,12,13,15,16,17,18,19,20
    b=!randitem 2,3,4,5,6,7,8,9,10
    d=$[$a*$a]
    e=$[$d-$b]
    !if $keuze=1
        som$n=sqrt($d*$letter1)
        GOED$n=$a*sqrt($letter1)
    !endif
    !if $keuze=2
        a=!randitem 4,5,6,7,8
        d=$[$a*$a]
        e=$[$d - $b]
        som$n=sqrt($e*$letter1 + $b*$letter1)
        GOED$n=$a*sqrt($letter1)
    !endif
    !if $keuze=3
        a=!randitem 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
        d=$[$a*$a]
        e=$[$d + $b]
        som$n=sqrt($e*$letter1 - $b*$letter1)
        GOED$n=$a*sqrt($letter1)
    !endif

    wims_rawmath_variables=$letter1
    varcnt=1
    maxima=1
    letterlijk=1
    varlist=$letter1
    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=$(somtekst$n) <br><em>Dus ook de letter <font color=$fontcolor3 size="+1">$letter1</font> laten staan</em>
!endif


