24小时热门版块排行榜    

查看: 478  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

123-smiling

新虫 (初入文坛)

[求助] 非线性优化 已有1人参与

请各位大神帮忙求解一下以上问题,matlab,mathematica,1stopt都可以,谢谢!
非线性优化
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

123-smiling

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by onesupeng at 2013-12-23 08:36:53
很多软件可以做这个问题,但是你要给代码这就为难大家了。因为你这个没有本质的困难,软件找来研究一下就能做到了

是麻烦大家了,我是新手,不是很会这些软件,我用mathematica和1stopt解决不了,可能递归函数里面出了问题,这是我的程序,麻烦大家纠正。
1.
Mathematica程序:

Maximize[{w*S[12]*(1 - P[12]) + (1-w)*S[16]*(1 - P[16]),
  S[1] == 10 && R == 100 && k == 0.6 &&
   S[2] == S[1]*E^-(S[1]/(R*(r[1]))) &&
   S[3] == S[2]*E^-(S[2]/(R*(r[2]))) &&
   S[4] == S[3]*E^-(S[3]/(R*(r[3]))) &&
   S[5] == S[4]*E^-(S[4]/(R*(r[4]))) &&
   S[6] == S[5]*E^-(S[5]/(R*(r[5]))) &&
   S[7] == S[6]*E^-(S[6]/(R*(r[6]))) &&
   S[8] == S[7]*E^-(S[7]/(R*(r[7]))) &&
   S[9] == S[8]*E^-(S[8]/(R*(r[8]))) &&
   S[10] == S[9]*E^-(S[9]/(R*(r[9]))) &&
   S[11] == S[10]*E^-(S[10]/(R*(r[10]))) &&
   S[12] == S[11]*E^-(S[11]/(R*(r[11]))) &&
   S[13] == k*S[12]*E^-(S[12]/(R*(r[12]))) &&
   S[14] == S[13]*E^-(S[13]/(R*(r[13]))) &&
   S[15] == S[14]*E^-(S[14]/(R*(r[14]))) &&
   S[16] == S[15]*E^-(S[15]/(R*(r[15]))) &&
   P[1] == 1 - E^-(S[1]/(R*(r[1]))) &&
   P[2] == 1 - E^-(S[2]/(R*(r[2]))) &&
   P[3] == 1 - E^-(S[3]/(R*(r[3]))) &&
   P[4] == 1 - E^-(S[4]/(R*(r[4]))) &&
   P[5] == 1 - E^-(S[5]/(R*(r[5]))) &&
   P[6] == 1 - E^-(S[6]/(R*(r[6]))) &&
   P[7] == 1 - E^-(S[7]/(R*(r[7]))) &&
   P[8] == 1 - E^-(S[8]/(R*(r[8]))) &&
   P[9] == 1 - E^-(S[9]/(R*(r[9]))) &&
   P[10] == 1 - E^-(S[10]/(R*(r[10]))) &&
   P[11] == 1 - E^-(S[11]/(R*(r[11]))) &&
   P[12] == 1 - E^-(S[12]/(R*(r[12]))) &&
   P[13] == 1 - E^-(S[13]/(R*(r[13]))) &&
   P[14] == 1 - E^-(S[14]/(R*(r[14]))) &&
   P[15] == 1 - E^-(S[15]/(R*(r[15]))) &&
   P[16] == 1 - E^-(S[16]/(R*(r[16]))) &&
   r[1] + r[2] + r[3] + r[4] + r[5] + r[6] + r[7] + r[8] + r[9] +
     r[10] + r[11] + r[12] + r[13] + r[14] + r[15] + r[16] == 1 &&
   0 <= r[1] <= 1 && 0 <= r[2] <= 1 && 0 <= r[3] <= 1 &&
   0 <= r[4] <= 1 && 0 <= r[5] <= 1 && 0 <= r[6] <= 1 &&
   0 <= r[7] <= 1 && 0 <= r[8] <= 1 && 0 <= r[9] <= 1 &&
   0 <= r[10] <= 1 && 0 <= r[11] <= 1 && 0 <= r[12] <= 1 &&
   0 <= r[13] <= 1 && 0 <= r[14] <= 1 && 0 <= r[15] <= 1 &&
   0 <= r[16] <= 1}, {r[1], r[2], r[3], r[4], r[5], r[6], r[7], r[8],
  r[9], r[10], r[11], r[12], r[13], r[14], r[15], r[16]}]

2.1stopt程序
Constant n=16,RR=4000,k=0.6;
ConstStr S[1]=200,for i := 1 to n do P=1-exp(-S/RR/r);
Parameter r(1:n)[0,1], S(2:16)[0,],w;
MaxFunction w*S12*(1-P12)+(1-w)*S16*(1-P16);
            Sum(i=1:n)(r)=1;
            S[2]=S[1]*(1-P[1]);
            S[3]=S[2]*(1-P[2]);
            S[4]=S[3]*(1-P[3]);
            S[5]=S[4]*(1-P[4]);
            S[6]=S[5]*(1-P[5]);
            S[7]=S[6]*(1-P[6]);
            S[8]=S[7]*(1-P[7]);
            S[9]=S[8]*(1-P[8]);
            S[10]=S[9]*(1-P[9]);
            S[11]=S[10]*(1-P[10]);
            S[12]=S[11]*(1-P[11]);
            S[13]=S[12]*k*(1-P[12]);
            S[14]=S[13]*(1-P[13]);
            S[15]=S[14]*(1-P[14]);
            S[16]=S[15]*(1-P[15]);
3楼2013-12-23 10:40:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

onesupeng

金虫 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
很多软件可以做这个问题,但是你要给代码这就为难大家了。因为你这个没有本质的困难,软件找来研究一下就能做到了
长期招收博士生,参见http://fsl-unsw.com
2楼2013-12-23 08:36:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上项目filecode邪修 +4 西山十月 2026-08-09 6/300 2026-08-10 00:16 by liufeng0619
[基金申请] 2026国自然放榜时间 +4 布布和一二 2026-08-08 4/200 2026-08-09 22:24 by otj2008
[基金申请] 关于代码变化问题,想知道的进来 +15 且听虎啸 2026-08-07 22/1100 2026-08-09 22:13 by 布布和一二
[基金申请] 这样的filecode谁见过 +10 布布和一二 2026-08-08 21/1050 2026-08-09 17:21 by 天神眷顾
[基金申请] filecode与中标关系的预测 +5 布布和一二 2026-08-07 5/250 2026-08-09 16:15 by 袁向阳007
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于filecode,很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 5/250 2026-08-08 21:54 by 13586093586
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 好奇怪的filecode +3 布布和一二 2026-08-08 4/200 2026-08-08 17:46 by zhanghaozhu
[基金申请] 基金中了 +14 laoda193707 2026-08-06 14/700 2026-08-08 00:23 by 实验小白ha
[基金申请] 娱乐 +6 Tide man 2026-08-03 6/300 2026-08-07 22:40 by 铁帽子农民
[基金申请] 化学口download_prp&amp;fileCode的固定段好像这几天一直没变,有变的大神么? +3 Tide man 2026-08-07 4/200 2026-08-07 22:39 by Tide man
[基金申请] 固定端突然变了,今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] 大家散了吧,后缀研究没有意义,别浪费时间了,过好目前的每一天,不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
[基金申请] 8月时间戳变的,举个手。玩一下,释放压力 +9 archvillain 2026-08-04 11/550 2026-08-05 20:06 by wlwhappy
[基金申请] 好消息?这个有何含义??? +8 Tide man 2026-08-05 10/500 2026-08-05 16:14 by xmuxiaoyu
[基金申请] 有没有H口的?有收到消息的吗? +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
信息提示
请填处理意见