y=0 u!VAAX
declare X, double, 1,10 W{!GL
B5Y
3GWhrx
X(1)=(5) Dtw1q-
X(2)=(-6) 5VG[FY6Pl
X(3)=(98) &hb:~>
X(4)=(-1) %8a886;2
X(5)=(3) {q-<1|xj/J
X(6)=(-8) |nFg"W
X(7)=(1) P:gN"f6
X(8)=(-5) %@jL?u
X(9)=(4) }t^N|I
X(10)=(-3) \Gk4J<
@GpM4>:
VaIFE~>E&
for a,1,10,1 "/&_B
if X(a)<y then y=X(a) I*Q^$YnM
else y=y XJG"Zr9
endif X <<hb
print X(a)," ",y SXW8p>1Jw
next c[~LI<>ic
print "last result:", y }Ra'`;D$
8 N5ga
一个小例子,应该可以解决你的问题