!set n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif
mathviewpanel=$module_title:and:z_1=:z_2=:sqrt():i
cols=15
rows=4
image=0
arglist=z
# z=whatever
varlist=i
# z=5i -> varlist=i
varcnt=0
wordmax=40
helptext=$empty
complex=1
question$n=!record 1 of lang/remarks.$taal
sometext=!record 70 of lang/remarks.$taal
extratext=!record 71 of lang/remarks.$taal
exotext=<a onmouseover="return escape('$sometext')">$extratext</a>  
checkfile=$checkdir/variable.proc
keuze=!randitem 1,0
!if $R=1
    !if $keuze=1
	b=!randitem 2,3,4,5,6,7,8,9
    	a=$[$b*$b]
	answer$n=$b*i,-1*$b*i
	texanswer$n= z\,\,=\, \pm $b \cdot i
    !else
	a=!randitem 2,3,5,6,7,10,11,13,14,15,17,19
	answer$n=sqrt($a)*i,-1*sqrt($a)*i
	texanswer$n= z\,\,=\, \pm \sqrt{$a}\cdot i
    !endif
    formula$n= z^{2}\,\,=\,\, - $a
 !exit
!endif

!if $R=2
    a=!randitem 2,3,4,5,6,7,8,9
    b=$[$a*$a]
    k=!randitem 2,3,4,5,6,7	
    c=$[$b*$k]
    !if $k=4
	answer$n=$[2*$a]*i,$[-2*$a]*i
	texanswer$n=\left[ \begin{array}{l} z=$[2*$a] \cdot i \\ z= $[-2*$a] \cdot i  
    !else
	answer$n=$a*sqrt($k)*i,$[-1*$a]*sqrt($k)*i
	texanswer$n=\left[ \begin{array}{l}$c = $b \cdot $k = $a \cdot $a \cdot $k \rightarrow \sqrt{$c} = $a \cdot \sqrt{$k} \\ \\ z= \pm $a\cdot \sqrt{$k}\cdot i 
    !endif
    formula$n=z^{2}\,\,=\,\,$[-1*$c]
 !exit
!endif

!if $R>2
    tot=!recordcnt exos/data1
    rec=!randint 1,$tot
    rec=!record $rec of exos/data1
    a=!item 1 of $rec
    b=!item 2 of $rec
    c=!item 2 of $rec
    answer$n=$b,-1*$b
    texanswer$n=!texmath $c
    texanswer$n=z\,\,=\,\pm $(texanswer$n)
    a=!texmath $a
    formula$n=z^{2}\,\,=\,- $a     	
 !exit
!endif
