数学建模社区-数学中国

标题: Mathematica 24点程序！ [打印本页]

---

作者: cjilyy    时间: 2011-10-14 09:45
标题: Mathematica 24点程序！
f[x1_, s1_, x2_, s2_, x3_, s3_, x4_] :=
Module[{result, i},
6 O! \2 _, d4 r, |" g  result = {HoldForm[(x1~s1~x2)~s2~(x3~s3~x4)],
+ A; C8 s* v0 n+ G5 Z5 T    HoldForm[x1~s1~(x2~s2~x3~s3~x4)],
/ G! R1 C0 {7 j4 W    HoldForm[x1~s1~x2~s2~(x3~s3~x4)],
% r+ u2 ?2 l$ ?% N, y    HoldForm[(x1~s1~x2~s2~x3)~s3~x4],
: W: V! M  z6 T1 V/ l- M* ]" C    HoldForm[x1~s1~(x2~s2~x3)~s3~x4],
    HoldForm[(x1~s1~(x2~s2~x3))~s3~x4],
3 {: ^. M+ |; s2 f7 m" L, u    HoldForm[x1~s1~(x2~s2~(x3~s3~x4))]};
  result = Union[result];
: G4 C1 l' ]4 {. T4 ^( H  W  For[i = 1, i <= Length[result], i++,
   If[ReleaseHold[result[[i]]] == 24, Print[result[[i]], "=24"];
- P7 Q" h$ h9 ^* Z# s( Z     (*Print[TreeForm[result[[i]],DirectedEdges->True]]*);];];]

fs[x1_, x2_, x3_, x4_] :=
Module[{result, s, sym, num, i, j}, Off[Divide::infy];
( B/ v! j( Y# e' m0 f/ L. B) L  Off[Part::partw];
  Off[Divide::indet];
  s = {Plus, Subtract, Times, Divide};
  sym = Flatten[
    Table[{s[[i]], s[[j]], s[[k]]}, {i, 4}, {j, 4}, {k, 4}], 2];
5 d5 y* P3 ~& ^9 M  sym = Union[sym];
+ p$ h! @" S# e' I, c8 h  num = Permutations[{x1, x2, x3, x4}];
& J/ _* x) S% O; k. }( \$ H+ V  Do[f[num[[i, 1]], sym[[j, 1]], num[[i, 2]], sym[[j, 2]],
% k6 c' s: }: g% o" ^3 k    num[[i, 3]], sym[[j, 3]], num[[i, 4]]], {i, Length[num]}, {j,
    Length[sym]}]]

fs[3, 3, 8, 8]

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5