include(`../prg/complexnum.txt'):

func(cderiv,{
  (([x]([y][c+][z]))[c-]
   ([x]([y][c-][z])))[c/]
     (<2,0>[c*][z])}):

func(clinapx,{
  [y] [c-] (([x]([y])) [c/]
    cderiv([x],[y],[z]))}):

func(cnewton,{
  iff(
  (greater(0.000001,
    abs(cmag([x]([y])))))
  |(greater(abs(cmag([x]([y]))),
    1000000)),
  {[y]},
  {cnewton([x],
    clinapx([x],[y],<0.001,0>))})}):

print_`complexfunc.txt',: