plotting modulus of complex function



Try:

  load("bartfile.mac")$

  load(hypergeometric)$

  abs(rationalize(Ge(s)))$

  larry(x) := float(nfloat(''%,[s=x],10))$

  plot2d([abs(Ge(x)), '(larry(x))], [x, 1e-8, 1e1], [logx],[logy]);


--Barton