也看"一道初级数学题"

maplelab

详见:
http://forum.simwe.com/thread-913182-1-1.html

解:
a)
和=1:
代码:

1. restart; f := unapply(x1/(10*x2+x3)+x4/(10*x5+x6)+x7/(10*x8+x9), [seq(x || i, i = 1 .. 9)]):
   
2. compute:= proc (f,a) local i, A; A := combinat[permute]([seq(i, i = 1 .. 9)], 9); for i to nops(A) do if f(op(A)) =a then print([i, A, 'f' = f(op(A))]) end if end do end proc:
   
3. compute(f,1);

复制代码

结果:


b)
和=1/4:
代码:

1. compute(f, 1/4)

复制代码

结果:

lin2009

1# maplelab
看到了用maple来算组合问题的实例（穷举法，楼主代码有误），有启示，学习啦。
楼主算算另一道例子：
http://forum.simwe.com/thread-913619-1-1.html

maplelab

代码要自己稍微调整一下,复制有点问题.