mathematica解决填符号使等式成立问题
题目
mathematica解决填符号使等式成立问题
在网上曾经看到过一个高手用列举法解决一个
(34口5口6口8口9口1)口2=2008
在口中填入加减乘使等式成立
程序如下,但是如果题目要求填入加减乘除和括号,程序要怎么改进啊
比如(5+5+5)÷5+5=8,即5 5 5 5 5=8填入相应符号
info = expr[{"+"},{"-"},{"*"}];
For [a = 1,a < 4,a++,
For [b = 1,b < 4,b++,
For [c = 1,c < 4,c++,
For [d = 1,d < 4,d++,
For [e = 1,e < 4,e++,
For [f = 1,f < 4,f++,
temp =
StringJoin["(34",Part[info,a],"5",Part[info,b],"6",
Part[info,c],"8",Part[info,d],"9",Part[info,e],"1)",
Part
[info,f],"2"]; If [ToExpression[temp] == 2008,Print[temp]]
]]]]]]
答案
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 数学中“群”的概念是什么?是由谁提出的?
- How about a cup of tea
- 几题比例项的题目
- ,写一两句,或几句优美的话,或抒情或评论或哲理
- 一件新鲜事作文400
- he looked for the lost dog,at last he ______(tried to find,tried finding,managed to find) it in
- 把一个长120厘米,宽54厘米的长方形铁板建成边长都是整厘米、面积都相等的小正方形铁片,恰好没有剩余,求至少可以剪多少块
- 5,7,8,8.算出24点
- 》戊戌)这两字怎么读啊.
- 过量二氧化硫通入氯化钡的离子方程式
热门考点