| 查看: 2115 | 回复: 11 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
theday0323木虫 (小有名气)
|
[求助]
急：求助求解不等式方程组 已有1人参与
|
|
|
N1，N2，N3，N4，N5，N6都是正整数 N1+N3+N5=N2+N4+N6; N1-N2>=0; N1-N2+N3-N4>=0; N1<=N; N1-N2+N3<=N; N1-N2+N3-N4+N5<=N; 求（N1+N2+N3+N4+N5+N6）/2的值分别在N到3N时解的个数，防止计算量太大，假定N为100. 求程序啊，急 |
回复此楼» 猜你喜欢
梦想
已经有4人回复
-
中青基了要发朋友圈吗？
已经有6人回复
-
基金不中，共勉
已经有12人回复
-
能否申诉？
已经有7人回复
-
有多少人是今天查系统知道结果的？
已经有19人回复
-
面上意见出来了
已经有19人回复
-
国社科又开始会评了，不知道这次命运如何
已经有9人回复
-
为什么到现在没收到通知？
已经有5人回复
-
有没有仍没收到信息的
已经有8人回复
-
找导师
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助——求解三元二次多项式方程组
已经有9人回复
- matlab解方程遇到的
已经有7人回复
- 一个简单的运算，求助数学大神啊
已经有7人回复
- 求教一个关于不等式的问题!
已经有5人回复
- 求助，帮忙求解下面方程组，谢谢！
已经有13人回复
- mathematica求和为什么不出结果？
已经有7人回复
- 1stopt解方程组
已经有12人回复
- matlab解方程组求助攻
已经有4人回复
- 用Matlab的LMI工具计算线性不等式组
已经有6人回复
- 请教函数求解问题
已经有11人回复
- 半年了，还是解不了这个matlab..... 总是出错！！！
已经有18人回复
- 求教matlab线性优化求最小值的问题
已经有7人回复
- 请教MATLAB中的LMI求解问题，急！！！
已经有7人回复
- 求解一组四元一次方程
已经有4人回复
- 【求助】非线性方程组的求解问题
已经有6人回复
- 大神进，数学问题。。求解。
已经有7人回复
- matlab解不等式组
已经有6人回复
- mathematica 解方程组 有什么命令可以实现解集中没有复数解
已经有3人回复
- 求助解一道高中数学方程题
已经有8人回复
- 【求助】多元方程组求解及拟合
已经有9人回复
- 【求助】求助mathematica软件解方程，见图片
已经有5人回复
- 【求助】求解一元三次不等式
已经有4人回复
- 【求助】求教matlab解非线性方程组
已经有9人回复
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4677.7
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
theday03235楼2014-06-09 11:10:12
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4677.7
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
★
jjdg: 金币+1, 感谢参与 2014-06-11 12:25:16
jjdg: 金币+1, 感谢参与 2014-06-11 12:25:16
|
这是考试题目还是实际碰到的问题呀？ 把约束条件重新排列一下 直接做个循环应该就可以 |
» 本帖已获得的红花（最新10朵）
2楼2014-06-08 16:54:12
theday0323
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2560
- 帖子: 149
- 在线: 214.3小时
- 虫号: 1075164
- 注册: 2010-08-15
- 性别: GG
- 专业: 光学和光电子材料
3楼2014-06-08 21:38:29
walk1997
金虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 4677.7
- 红花: 22
- 帖子: 1066
- 在线: 798.1小时
- 虫号: 416039
- 注册: 2007-06-29
- 性别: GG
- 专业: 粒子物理学和场论
★ ★
theday0323(jjdg代发): 金币+2, 辛苦了 2014-06-11 12:25:31
theday0323(jjdg代发): 金币+2, 辛苦了 2014-06-11 12:25:31
|
比较死的循环代码，花了5000s的时间才算完....另外个代码可以用并行，不知道速度能提高多少,或者你编译成C算算 Clear["Global`*"]; n = 100; n6 = n1 + n2 + n3 - n4 - n5; j = 0; t1 = AbsoluteTime[]; Do[If[n <= (n1 + n2 + n2 + n3 + n4 + n5 + n6)/2 <= 3 n && n6 >= 1, j = j + 1], {n1, 1, n}, {n2, 1, n1}, {n3, 1, n - n1 + n2}, {n4, 1, n1 - n2 + n3}, {n5, 1, n - n1 + n2 - n3 + n4}]; t2 = AbsoluteTime[]; t2 - t1 Print[j] 5038.6471942 1022862022 |
4楼2014-06-09 11:08:06
