title=Re  Im

cc=!line $level of 1,1\
    1,1\
    1,1\
    1,2\
    1,2\
    1,2,3\
    1,2,3\
    1,2,3,5\
    2,3,5,7\
    3,5,7,8,11

cc=!shuffle $cc
!distribute items $cc into c1,c2

tt=!randitem 1,2
f1=!item $tt of Re,Im
f2=!item $tt of Im,Re
fn1=!item $tt of real,imag
fn2=!item $tt of imag,real

!if $b1!=0
 w2=!rawmath $w2 + $b1
!endif

gtype=line
calc=!exec pari z=x+i*y; w=$w; w2=$w2; f=$c1*$fn1(w)-$c2*$fn2(w2);\
 print(polcoeff(f,1,x),",",polcoeff(f,1,y),",",subst(subst(-f,x,0),y,0));

!distribute items $calc into cx,cy,cc

fname=$c1*$f1($w)=$c2*$f2($w2)
