Mathematica 24点程序！

[复制链接]

字体大小: 正常放大

cjilyy

3 主题	4 听众	61 积分

升级 58.95%

TA的每日心情

	开心 2013-5-10 11:50

签到天数: 1 天

[LV.1]初来乍到

自我介绍: 数学建模

群组: 苏北建模群

电梯直达

1^#

发表于 2011-10-14 09:45 |只看该作者 |正序浏览

|招呼Ta 关注Ta |邮箱已经成功绑定

f[x1_, s1_, x2_, s2_, x3_, s3_, x4_] :=
Module[{result, i},
  result = {HoldForm[(x1~s1~x2)~s2~(x3~s3~x4)],
HoldForm[x1~s1~(x2~s2~x3~s3~x4)],
HoldForm[x1~s1~x2~s2~(x3~s3~x4)],
HoldForm[(x1~s1~x2~s2~x3)~s3~x4],
HoldForm[x1~s1~(x2~s2~x3)~s3~x4],
HoldForm[(x1~s1~(x2~s2~x3))~s3~x4],
HoldForm[x1~s1~(x2~s2~(x3~s3~x4))]};
  result = Union[result];
  For[i = 1, i <= Length[result], i++,
If[ReleaseHold[result[[i]]] == 24, Print[result[[i]], "=24"];
   (*Print[TreeForm[result[[i]],DirectedEdges->True]]*);];];]

fs[x1_, x2_, x3_, x4_] :=
Module[{result, s, sym, num, i, j}, Off[Divide::infy];
  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];
  sym = Union[sym];
  num = Permutations[{x1, x2, x3, x4}];
  Do[f[num[[i, 1]], sym[[j, 1]], num[[i, 2]], sym[[j, 2]],
num[[i, 3]], sym[[j, 3]], num[[i, 4]]], {i, Length[num]}, {j,
Length[sym]}]]

fs[3, 3, 8, 8]

zan

程序