You can just define them as
s[1](x,y,z) := ...
s[2](x,y,z) := ...
________________________________
From: Jianrong Li <lijr07 at gmail.com>
To: maxima-request at math.utexas.edu; maxima at math.utexas.edu
Sent: Wed, November 21, 2012 9:29:53 PM
Subject: define a set of functions
Dear all,
I want to define a set of functions as follows. But it is not convenient. How
can I define s1(x, y, z), s2(x, y, z), ... as s[1](x, y, z), ...
such that I can use program flow for (for i from 0 to 48 do: s[i](x, y, z)...).
Thank you very much.
Best wishes,
Jianrong.
s1(x, y, z):=ee(x, y, z);
s2(x,y,z):=apply(ee, (apply(a, apply(b, apply(a, apply(b, apply(c, apply(b,
apply(a, b(x, y, z))))))))));
s3(x,y,z):=apply(ee, c(x, y, z));
s4(x,y,z):=apply(ee, apply(c, b(x, y, z)));
s5(x,y,z):=apply(ee, apply(a, apply(b, apply(a, b(x, y, z)))));
s6(x,y,z):=apply(ee, apply(b, apply(a, apply(b, apply(c, apply(b, apply(a,
apply(b, c(x, y, z)))))))));
s7(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(b, apply(c, apply(b,
apply(a, apply(b, c(x, y, z))))))))));
s8(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(c, apply(b, apply(a,
apply(b, c(x, y, z)))))))));
s9(x,y,z):=apply(ee, apply(b, apply(a, apply(b, c(x, y, z)))));
s10(x,y,z):=apply(ee, apply(a, c(x, y, z)));
s11(x,y,z):=apply(ee, b(x, y, z));
s12(x,y,z):=apply(ee, apply(a, apply(c, apply(b, apply(a, b(x, y, z))))));
s13(x,y,z):=apply(ee, apply(b, apply(a, apply(b, apply(c, apply(b, apply(a, b(x,
y, z))))))));
s14(x,y,z):=apply(ee, apply(b, apply(c(x, y, z))));
s15(x,y,z):=apply(ee, apply(a, apply(c, apply(b, a(x, y, z)))));
s16(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(b, apply(c, b(x, y,
z)))))));
s17(x,y,z):=apply(ee, apply(a, apply(c, apply(b, apply(a, apply(b, c(x, y,
z)))))));
s18(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(b, apply(c, apply(b, a(x,
y, z))))))));
s19(x,y,z):=apply(ee, apply(c, apply(b, apply(a, apply(b, c(x, y, z))))));
s20(x,y,z):=apply(ee, a(x, y, z));
s21(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(c, apply(b, a(x, y,
z)))))));
s22(x,y,z):=apply(ee, apply(b, apply(c, apply(b, apply(a, apply(b, c(x, y,
z)))))));
s23(x,y,z):=apply(ee, apply(b, a(x, y, z)));
s24(x,y,z):=apply(ee, apply(c, apply(b, apply(a, b(x, y, z)))));
s25(x,y,z):=apply(ee, apply(b, apply(c, b(x, y, z))));
s26(x,y,z):=apply(ee, apply(a, apply(b, a(x, y, z))));
s27(x,y,z):=apply(ee, apply(a, apply(b, apply(c, apply(b, apply(a, apply(b, c(x,
y, z))))))));
s28(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(b, c(x, y, z))))));
s29(x,y,z):=apply(ee, apply(b, apply(a, apply(c, apply(b, apply(a, b(x, y,
z)))))));
s30(x,y,z):=apply(ee, apply(a, apply(b, apply(c, apply(b, apply(a, b(x, y,
z)))))));
s31(x,y,z):=apply(ee, apply(b, apply(a, apply(b, apply(c, apply(b, a(x, y,
z)))))));
s32(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(c, apply(b, apply(a, b(x,
y, z))))))));
s33(x,y,z):=apply(ee, apply(b, apply(a, apply(b, apply(c, b(x, y, z))))));
s34(x,y,z):=apply(ee, apply(c, apply(b, a(x, y, z))));
s35(x,y,z):=apply(ee, apply(b, apply(a, b(x, y, z))));
s36(x,y,z):=apply(ee, apply(a, apply(b, apply(c, b(x, y, z)))));
s37(x,y,z):=apply(ee, apply(b, apply(c, apply(b, a(x, y, z)))));
s38(x,y,z):=apply(ee, apply(a, b(x, y, z)));
s39(x,y,z):=apply(ee, apply(b, apply(a, apply(c, apply(b, a(x, y, z))))));
s40(x,y,z):=apply(ee, apply(a, apply(b, apply(a, apply(c, b(x, y, z))))));
s41(x,y,z):=apply(ee, apply(b, apply(a, apply(c, apply(b, apply(a, apply(b, c(x,
y, z))))))));
s42(x,y,z):=apply(ee, apply(a, apply(b, apply(a, c(x, y, z)))));
s43(x,y,z):=apply(ee, apply(a, apply(b, c(x, y, z))));
s44(x,y,z):=apply(ee, apply(b, apply(a, c(x, y, z))));
s45(x,y,z):=apply(ee, apply(a, apply(c, b(x, y, z))));
s46(x,y,z):=apply(ee, apply(b, apply(a, apply(c, b(x, y, z)))));
s47(x,y,z):=apply(ee, apply(a, apply(b, apply(c, apply(b, a(x, y, z))))));
s48(x,y,z):=apply(ee, apply(b, apply(c, apply(b, apply(a, b(x, y, z))))));