> s := proc (x, y) local i, x0, y0, f, fm; option remember; x0 := 0; y0 := 0; fm := 0; f := proc (k) options operator, arrow; 0 end proc; for i from 0 to x+y do if 0 <= fm and 0 <= x and 0 <= y then x0 := x0+1, fm := fm-y, f := f+ii(k-x0) elif 0 <= fm and 0 <= x and y < 0 then x0 := x0+1, fm := fm-y, f := f+ii(k-x0) elif 0 <= fm and x < 0 and 0 <= y then x0 := x0-1, fm := fm-y, f := f+ii(k-x0) elif 0 <= fm and x < 0 and y < 0 then x0 := x0-1, fm := fm-y, f := f+ii(k-x0) elif fm < 0 and 0 <= x and 0 <= y then y0 := y0+1, fm := fm+x, f := f+ii(k-y0) elif fm < 0 and 0 <= x and y < 0 then y0 := y0-1, fm := fm+x, f := f+ii(k-y0) elif fm < 0 and x < 0 and 0 <= y then y0 := y0+1, fm := fm+x, f := f+ii(k-y0) else y0 := y0-1, fm := fm+x end if end do; return f end proc;- c5 l% d+ w; I( P4 r5 _& l7 t% A) {
%;1 f) @ A% d3 H
Error, `:=` unexpected' ]/ k6 X# C; G/ x
请问哪里有错啊,刚学这个软件,还不太熟。 $ \0 r/ c( g& `& D& C( q