title=Re ou Im

cs=!line $level of 0\
	0\
	2,3\
	2,3,5\
	2,3,5,6\
	2,3,5,6,7\
	2,3,5,6,7,8\
	2,3,5,6,7,8\
	2,3,5,6,8,10,11,12\
	2,3,5,6,8,10,11,12,13

cn=!line $level of 1,2,1\
	1,2,0.5\
	1,2,0.3\
	1,2,0.2\
	1,2,0.1\
	1,3,0.2\
	0.5,3,0.1\
	0.5,3,0.1\
	0.4,3.5,0.1\
	0.4,3.5,0.1

ce=!line $level of 1\
	1\
	1\
	1\
	e\
	e,pi/2\
	e/2,e,pi/2\
	e/2,e,pi/2,sqrt(e),sqrt(pi)\
	e/2,e,pi/2,sqrt(e),sqrt(pi),pi-1,e-1\
	e/2,e,pi/2,sqrt(e),sqrt(pi),pi-1,e-1,pi-2,e-2

cs=!randitem $cs
ce=!randitem $ce
!distribute items $cn into a_,b_,c_
cn=$[randint(($b_-$a_)/$c_+1)*$c_+$a_]
c=!line $level of $cn\
	$cn\
	sqrt($cs),$cn,$cn\
	sqrt($cs),$cn\
	sqrt($cs),sqrt($cs),$cn,$ce\
	sqrt($cs),$cn,$cn,$ce\
	sqrt($cs),$cn,$ce\
	sqrt($cs),$cn,$ce\
	sqrt($cs),$cn,$ce\
	sqrt($cs),sqrt($cs),$cn,$ce,$ce

c=!randitem $c
!ifval $c!=0
 c=!randitem $c,-($c)
!endif

tt=!randitem 1,2
fn=!item $tt of Re,Im
fn2=!item $tt of real,imag

fname=$fn($w)=$c
gtype=line
calc=!exec pari z=x+i*y; f=$fn2($w); print(polcoeff(f,1,x),",",polcoeff(f,1,y),",",subst(subst(f,x,0),y,0));
!distribute items $calc into cx,cy,ct
cc=$[$c-($ct)]

