#ins_attr=alt="e^$C"
!set n=$counter
!if $level=0
    R=$counter
!else
    R=$level
!endif        
cols=45
rows=2
XSIZE=650
mytexsize=+4
varlist=i
arglist=$empty
varcnt=0
wordmax=40
complex=1
image=0
checkfile=exos/checkfile5.proc
question$n=!record 9 of lang/remarks.$taal
!if $teaching=1
    helptext=$empty
    sometext=!record 71 of lang/remarks.$taal
    exotext=</p><a onmouseover="return escape('<img src=$module_dir/gifs/exo$subject.jpg>')">$sometext</a>
!else
    exotext=$empty
!endif
!if $R=1
    k=0
    num=!randint 2,16
    lijst=!record $num of exos/data4
    lijst=!replace internal @ by , in $lijst
    C=!item 2 of $lijst
    !if $[1*$C]=1
        C= \pi \cdot i
    !else    
        C=!exec pari printtex($C)
        C=$C \cdot \pi \cdot i
    !endif
    formula$n=e^{ $C}\,\,
    answer$n=!item 1 of $lijst
    texanswer$n=!texmath $(answer$n)
 !exit
!endif

!if $R=2
    k=!randitem 1,2,3,4
    num=!randint 1,16
    lijst=!record $num of exos/data4
    lijst=!replace internal @ by , in $lijst
    C=!item 2 of $lijst
    !if $[1*$C]=1
        C= \pi \cdot i
    !else    
        C=!exec pari printtex($C)
        C=$C \cdot \pi \cdot i
    !endif
    formula$n=e^{$C}\,\,
    answer$n=!item 1 of $lijst
    texanswer$n=!texmath $(answer$n)
 !exit
!endif

!if $R=3
    k=!randitem 0,1,2
    a=!randitem 1/6,1/3,1/4,1/5,1/2,2/3,5/6,3/4,4/5,3/5,1,2,3/2,-1/6,-1/3,-1/4,-1/5,-1/2,-2/3,-5/6,-3/4,-4/5,-3/5,-1
    num=!randint 1,16
    lijst=!record $num of exos/data4
    lijst=!replace internal @ by , in $lijst
    C=!item 2 of $lijst
    b=!exec pari printtex($C-$a)
    a=!exec pari printtex($a)
    b=$b \cdot \pi \cdot i
    a=$a \cdot \pi \cdot i
    formula$n=e^{$b}\cdot e^{$a}
    answer$n=!item 1 of $lijst
    texanswer$n=!texmath $(answer$n)
 !exit
!endif    

!if $R>3
    k=!randitem 0,1
    a=!randitem 1/6,1/3,1/4,1/5,1/2,2/3,5/6,3/4,4/5,3/5,1,2,3/2,-1/6,-1/3,-1/4,-1/5,-1/2,-2/3,-5/6,-3/4,-4/5,-3/5,-1
    num=!randint 1,16
    lijst=!record $num of exos/data4
    lijst=!replace internal @ by , in $lijst
    C=!item 2 of $lijst
    check=$[$C+$a]
    !ifval $check=0
	a=1/5
    !endif    
    tot=!exec pari printtex($C+$a)\
    printtex($a)
    
    b=!line 1 of $tot
    a=!line 2 of $tot
    
    !if $b=1
	b= \pi \cdot i
    !else
	!if $b=-1
	    b=-\pi \cdot i
	!else
	    b=$b \cdot \pi \cdot i
	!endif
    !endif	
    !if $a=1
	a= \pi \cdot i
    !else
	!if $a=-1
	    a=-\pi \cdot i
	!else
	    a=$a \cdot \pi \cdot i
	!endif
    !endif	
    formula$n=e^{$b} \div e^{$a}
    #..$a=a..$b=b..$C=C
    answer$n=!item 1 of $lijst
    texanswer$n=!texmath $(answer$n)
 !exit
!endif

