应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 1stopt求最小值
382/4返回列表上一页1234下一页
查看: 2246  |  回复: 37
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

xizi19880211

新虫 (初入文坛)
引用回帖:
10楼: Originally posted by dingd at 2013-12-30 21:56:16
Eb(k)=Eb(k-1)-Pb(k)*k*0.8;
Ec(k)=Ec(k-1)-Pc(k)*k*0.98;

Pb，Pc又各是什么？没见给出啊！

哦，功率Pb(k)=Eb(k)/k;Pc(k)=Ec(k)/k;
赞一下 回复此楼
11楼2013-12-30 21:58:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

如果：Pb(k)=Eb(k)/k

公式中： Eb(k)=Eb(k-1)+Pb(k)*k*0.7; =》Eb(k)=Eb(k-1)+Eb(k)*0.7; =》Eb(k)=Eb(k-1)*10/3

确信对吗？Pb(k)=Eb(k)/k应该是：Pb(k)=Eb(k-1)/k吧？
赞一下 回复此楼
12楼2013-12-30 22:13:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xizi19880211

新虫 (初入文坛)
引用回帖:
12楼: Originally posted by dingd at 2013-12-30 22:13:01
如果：Pb(k)=Eb(k)/k

公式中： Eb(k)=Eb(k-1)+Pb(k)*k*0.7; =》Eb(k)=Eb(k-1)+Eb(k)*0.7; =》Eb(k)=Eb(k-1)*10/3

确信对吗？Pb(k)=Eb(k)/k应该是：Pb(k)=Eb(k-1)/k吧？

对的呀，Pb(k)在k时的功率呀
赞一下 回复此楼
13楼2013-12-30 22:31:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xizi19880211

新虫 (初入文坛)
引用回帖:
12楼: Originally posted by dingd at 2013-12-30 22:13:01
如果：Pb(k)=Eb(k)/k

公式中： Eb(k)=Eb(k-1)+Pb(k)*k*0.7; =》Eb(k)=Eb(k-1)+Eb(k)*0.7; =》Eb(k)=Eb(k-1)*10/3

确信对吗？Pb(k)=Eb(k)/k应该是：Pb(k)=Eb(k-1)/k吧？

请问，我这个可以用1stopt来实现么？我还是没弄懂。
赞一下 回复此楼
14楼2014-01-01 14:17:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xizi19880211

新虫 (初入文坛)
引用回帖:
6楼: Originally posted by feixiaolin at 2013-12-30 20:16:48
用 LoopConstant 指令。...

我看了一下，LoopConstant指令就是个自动循环指令，但是怎么用呢？请问可以给个例子么？
赞一下 回复此楼
15楼2014-01-01 14:19:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

feixiaolin

荣誉版主 (文坛精英)

优秀版主
引用回帖:
15楼: Originally posted by xizi19880211 at 2014-01-01 14:19:42
我看了一下，LoopConstant指令就是个自动循环指令，但是怎么用呢？请问可以给个例子么？...

那个要高版本才能用，不知你是否正版高版本？
当一个1stOpt Manual下来，那个很详细。
赞一下 回复此楼
16楼2014-01-01 15:00:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xizi19880211

新虫 (初入文坛)
引用回帖:
16楼: Originally posted by feixiaolin at 2014-01-01 15:00:51
那个要高版本才能用，不知你是否正版高版本？
当一个1stOpt Manual下来，那个很详细。...

好吧，谢谢了，我的是低版本，估计就1.5的，看来用不了了，低版本可以实现么？
赞一下 回复此楼
17楼2014-01-01 15:09:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

feixiaolin

荣誉版主 (文坛精英)

优秀版主
引用回帖:
17楼: Originally posted by xizi19880211 at 2014-01-01 15:09:28
好吧，谢谢了，我的是低版本，估计就1.5的，看来用不了了，低版本可以实现么？...

定义一个Constant ，跑上N次, 可以凑合。
赞一下 回复此楼
18楼2014-01-01 15:19:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xizi19880211

新虫 (初入文坛)
引用回帖:
18楼: Originally posted by feixiaolin at 2014-01-01 15:19:06
定义一个Constant ，跑上N次, 可以凑合。...

是这个意思不？
Constant Pw=[25.33 25.33 25.67 25.67 33.33 34.67 38.33 33 28 21 14.67 14.33 4.43 5.32 10.33 9.88 8.53 4.43 3.33 3.33 5.03 8.01 5 9.03 10.99 10.53 12.52 20 23.98 30.99 30 28.33 27.53 21.56 27.01 30.32 46.98 46.07 55.65 51.55 59.88 53.66 52.03 47.55 40 53.09 54.99 53.22 50.02];
         Pl=[15 15 15 15 15 15 28.99 28.99 28.99 28.99 28.99 28.99 16.55 16.55 16.55 16.55 9.59 9.59 9.59 9.59 9.59 9.59 9.59 9.59 9.59 23.33 23.33 23.33 23.33 23.33 23.33 23.33 23.33 45.88 45.88 45.88 45.88 45.88 45.88 45.88 45.88 45.88 49.55 49.55 49.55 49.55 30.89 30.89 30.89];
Parameter  x(1)[50,],x(2)[100,];
MinFunction y=0.288*x(1)+0.000735*x(2);
StartProgram;
var i: Integer;
Eb(0)=0.0012*x(1);
Ec(0)=0.0000030375*x(2);
Pb(1)=0.0012*x(1);
Pc(1)=0.0000030375*x(2);
for i:=1 to 49 do begin
    if Pw(i)-Pl(i)>0;
        Eb(i)=Eb(k-1)+Pb(i)*i*0.7;
        Ec(i)=Ec(i-1)+Pc(i)*i*0.98;
    else
        Eb(i)=Eb(i-1)-Pb(i)*i*0.8;
        Ec(i)=Ec(i-1)-Pc(i)*i*0.98;
    end
     Pb(i)=Eb(i)/i;   Pc(i)=Ec(i)/i;
end
for i=1:49
    if dp=Pw(i)*0.95-Pl(i)>0;
        Elsp(i)=0;
    else
        Elsp(i)=[Pl(i)-Pw(i)]*0.95*i;
    end
    LPSP++=Elsp(k)/Pl(k);
end;
Eb(k)*1000/1.2<=x(1)<=Eb(k)*1000/0.72;
Ec(k)*100000/0.3037<=x(2)<=Ec(k)*1000000/0.267;
x(1)<=0.7*[Pb(k)+Pc(k)]*1000/1.2;
EndProgram;
赞一下 回复此楼
19楼2014-01-01 15:44:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xizi19880211

新虫 (初入文坛)
引用回帖:
18楼: Originally posted by feixiaolin at 2014-01-01 15:19:06
定义一个Constant ，跑上N次, 可以凑合。...

不好意思，刚才有些地方有问题，这样要改哪里？
Constant Pw=[25.33 25.33 25.67 25.67 33.33 34.67 38.33 33 28 21 14.67 14.33 4.43 5.32 10.33 9.88 8.53 4.43 3.33 3.33 5.03 8.01 5 9.03 10.99 10.53 12.52 20 23.98 30.99 30 28.33 27.53 21.56 27.01 30.32 46.98 46.07 55.65 51.55 59.88 53.66 52.03 47.55 40 53.09 54.99 53.22 50.02];
         Pl=[15 15 15 15 15 15 28.99 28.99 28.99 28.99 28.99 28.99 16.55 16.55 16.55 16.55 9.59 9.59 9.59 9.59 9.59 9.59 9.59 9.59 9.59 23.33 23.33 23.33 23.33 23.33 23.33 23.33 23.33 45.88 45.88 45.88 45.88 45.88 45.88 45.88 45.88 45.88 49.55 49.55 49.55 49.55 30.89 30.89 30.89];
Parameter  x(1)[50,],x(2)[100,];
MinFunction y=0.288*x(1)+0.000735*x(2);
StartProgram;
var i: Integer;
Eb(0)=0.0012*x(1);
Ec(0)=0.0000030375*x(2);
Pb(1)=0.0012*x(1);
Pc(1)=0.0000030375*x(2);
for i:=1 to 49 do begin
    if Pw(i)-Pl(i)>0;
        Eb(i)=Eb(k-1)+Pb(i)*i*0.7;
        Ec(i)=Ec(i-1)+Pc(i)*i*0.98;
    else
        Eb(i)=Eb(i-1)-Pb(i)*i*0.8;
        Ec(i)=Ec(i-1)-Pc(i)*i*0.98;
    end
     Pb(i)=Eb(i)/i;   Pc(i)=Ec(i)/i;
end
for i=1:49
    if dp=Pw(i)*0.95-Pl(i)>0;
        Elsp(i)=0;
    else
        Elsp(i)=[Pl(i)-Pw(i)]*0.95*i;
    end
    LPSP++=Elsp(i)/Pl(i);
end;
Eb(i)*1000/1.2<=x(1)<=Eb(i)*1000/0.72;
Ec(i)*100000/0.3037<=x(2)<=Ec(i)*1000000/0.267;
x(1)<=0.7*[Pb(i)+Pc(i)]*1000/1.2;
EndProgram;
赞一下 回复此楼
20楼2014-01-01 15:52:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xizi19880211 的主题更新
382/4返回列表上一页1234下一页
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭