Hi All,
A novice question, how one can place comments in functions?
Recently I had to developed some maxima routine like below.
I couldn't see any nice way of writing comments when
saving the function as a lisp code via save().
Greetings,
Mehmet Suzen
load(ellipt);
g(x,y,z):=(
x: realpart(x),
y: realpart(y),
z: realpart(z),
a1: 2.0*x*(x**2-y**2+z**2),
a2: y*((x-y)**2+z**2)*sqrt((x+y)**2+z**2),
if a2 < 10**-7 then c1: 0.0 else c1: a1/a2,
d1: 2.0*x,
e1: y*sqrt((x+y)**2+z**2),
beta: sqrt((x*y)/((x+y)**2+z**2)),
beta:realpart(beta),
ekc: elliptic_kc(2.0*beta),
r: c1*elliptic_ec(beta/2.0)-(d1/e1)*ekc,
float(r)
);