!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
helptext=$empty
complex=1
sometext=!record 70 of lang/remarks.$taal
extratext=!record 71 of lang/remarks.$taal
exotext=<a onmouseover="return escape('$sometext')">$extratext</a>
image=0
varlist=i
arglist=z
# dus z1=123i en z2=-123i als antwoord verwachten we
varcnt=1
rounding=0
wordmax=40
question$n=!record 1 of lang/remarks.$taal
checkfile=$checkdir/variable.proc

!if $R=1
    a=!randitem 2,3,4,5,6,7
    b=$[$a^2]
    formula$n=z^{2}+$b=0
    answer$n=$a*i,$[-1*$a]*i
    !if $a=1
	texanswer$n=z^{2} = -$b \rightarrow z^{2}= $b\cdot -1 \rightarrow z=\pm \sqr{$b \cdot -1} \rightarrow z=\pm \sqr{-1} = $a\cdot i \vee - i
    !else
	texanswer$n=z^{2} = -$b \rightarrow z^{2}= $b\cdot -1 \rightarrow z=\pm \sqr{$b \cdot -1} \rightarrow z=\pm $a \cdot \sqr{-1} = $a\cdot i \vee -$a\cdot i
    !endif
    !exit
!endif

!if $R=2
    a=!randitem 1,2,3,4,5,6
    b=$[$a^2]
    c=!randitem 1,2,3,4,5,6,7,8,9,-1,-2,-3,-4,-5,-6,-7,-8,-9
    formula$n=!rawmath (z + $c)^2+$b=0
    formula$n=!replace internal ^2 by ^{2} in $(formula$n)
    answer$n= $[(-1*$c)] + $a*i,$[(-1*$c)]-$a*i
    !if $a=1
	texanswer$n= z= $[(-1*$c)] + i \vee z= $[(-1*$c)] - i
    !else
	texanswer$n= z= $[(-1*$c)] + $a \cdot i \vee z= $[(-1*$c)]-$a \cdot i
    !endif
    !exit
!endif

!if $R=3
    a=1
    b=!randitem 2,4,6,8,10
    d=$[floor(0.25*$b^2)]
    c=!randint $[$d+1],$[$d+6]	
    formula$n=z^{2 }+ $b\cdot z + $c =0
    t=$[sqrt($c - 0.25*$b^2)]
    !if . notin $t
	w=$t
	W=$t
    !else
	w=sqrt($[$c - 0.25*$b^2])
	W=\sqrt{$[$c - 0.25*$b^2]}
    !endif	
    answer$n=$[-0.5*$b] + $w*i,$[-0.5*$b] - $w*i
    texanswer$n=z= $[-0.5*$b] + $W\cdot i \vee z= $[-0.5*$b] - $W\cdot i
    !exit
!endif    

!if $R>3
    g=!randitem 1,4,9,16
    h=!randitem 1,4,9,16
    a=!randitem 1,2,3,4
    b=!randitem 1,2,3,4
    !if $[sqrt($g)]=$a
	a=$[$a+1]
    !endif	
    !if $[sqrt($h)]=$b
	b=$[$b+1]
    !endif
    c=$[2*$a]
    d=$[2*$b]
    e=$[-1*$a*$a+$b*$b+$g-$h]
    f=$[2*$a*$b+2*sqrt($g*$h)]
    formula$n=z^{2} + ( $c-$d \cdot i) \cdot z - $e - $f \cdot i = 0
    answer$n=$[sqrt($g)-$a] + $[(sqrt($h) + $b)]*i,$[-1*sqrt($g)-$a] + $[(-1*sqrt($h) + $b)]*i
    texanswer$n=z= $[sqrt($g)-$a] + $[(sqrt($h) + $b)]\cdot i \vee z= $[-1*sqrt($g)-$a] + $[(-1*sqrt($h) + $b)]\cdot i
    !exit
!endif

# R>3 :

#    tussen=!exec pari ($f - 2*$a*$b)/(2*sqrt($g)) + $b\
#    (2*$a*$b - $f)/(2*sqrt($g)) + $b
#    t1=!line 1 of $tussen
#    t2=!line 2 of $tussen

#
#  z^2+(c -di)z -e-fi=0
#  (z + a - bi)^2 - (a - bi)^2 -e - fi=0
#  (z + a - bi)^2 - (a^2 -b^2 -2abi) -e -fi=0
#  (z + a - bi)^2 = a^2 - b^2 + e + ( -2ab + f)i
#  
#  (x+iy)^2 = a^2 - b^2 + e + ( -2ab + f)i
#  x^2 - y^2 + 2xyi = a^2 - b^2 + e + ( -2ab + f)i
#  
#  x^2-y^2 = a^2 - b^2 + e
#  2xy =-2ab + f
#  
#  DUS: y= (-2ab + f)/(2x) 
#  DUS: x^2 -(4a^2b^2 -4abf + f^2)/(4x^2) = a^2 - b^2 + e
#  x^4 + ( -a^2 + b^2 - e)*x^2 - ( a^2b^2 -abf + f^2/4) = 0
#  
#  (x^2 + h)(x^2 - g) =0
#  x^4 + ( h - g)x^2 - gh = 0
#  
#  DUS: h - g = -a^2 + b^2 - e
#  gh = a^2b^2 - abf + f^2/4
#  
#  DUS: e vastleggen
#  e = -a^2 + b^2 + g - h
#  f^2 -4abf + 4a^2b^2 - 4gh = 0
#  Discriminant: 4*sqrt(gh)
#  
#  DUS: f = 2ab + 2*sqrt(gh) 
#  OF: >> en deze vervalt <<  f = 2ab - 2*sqrt(gh)
