title=Modulus III

c=!line $level of 1 2\
	1 2,2 3\
	1 2,1 3\
	1 3,2 5,3 7\
	1 3,2 5,3 7\
	1 3,2 5,3 7,3 8\
	1 3,2 5,3 7,3 8,4 9\
	1 3,2 5,3 7,3 8,4 9,4 11\
	1 3,2 5,3 7,3 8,4 9,4 11\
	1 3,2 5,3 7,3 8,4 9,4 11

c=!randitem $c
c=!words2items $c
c=!shuffle $c
!distribute items $c into c1,c2

!if randint(100)<50
 c2=$c1
!endif

calc=!exec pari b2=$b2; print(b2,","); z=x+i*y; w=$w; w2=$w2+b2;\
 f=$c1^2*w*conj(w)-$c2^2*w2*conj(w2);\
 print(polcoeff(f,2,x),",",polcoeff(f,1,x),",",polcoeff(f,1,y),",",subst(subst(-f,x,0),y,0));

!distribute items $calc into b2,cs,cx,cy,cc

!if $b2!=0
 b2=!lower $b2
 w2=!rawmath $w2 + $b2
!endif
fname=$c1*abs($w)=$c2*abs($w2)

!ifval $cs=0
 gtype=line
!else
 gtype=circle
 cx=$[-($cx)/($cs*2)]
 cy=$[-($cy)/($cs*2)]
 cc=$[$cc/($cs)+($cx)^2+($cy)^2]
 radius=$[sqrt($cc)*$size/(2*$xrange)]
!endif

