yueyongpeng 发表于 2009-8-25 00:25

最佳泄洪问题1题的求解

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
clc
clear
h=;
s=[6.1
8.4
7 9.3 4.8 3.6 0.9 8.5 1.8 9.1 4.6 1.5 2.3 8.8 1.3];
k=;
j=1;
m=zeros(201,15);
n=zeros(201,15);
o=zeros(1,201);
cost=zeros(201,1);
value=zeros(201,1);
for x=0:0.005:1

c=0;

q=0;

for i=1:15

p=5.0+x-h(i);

m(j,i)=p

if p>=1

c1=k(i);

c=c1+c;

n(j,i)=c1;

else

c1=k(i)*p;

c=c1+c;

n(j,i)=c1;

end

q1=s(i)*p*1000000;

q=q1+q;

o(j)=q1;

end

cost(j)=c;

value(j)=q;

j=j+1;
end
x=0:0.005:1;
inval=zeros(201,1);
for i=1:201

inval(i)=1/value(i);
end
plot(x,inval)
hold on
plot(x,cost)
figure()
plot(value,cost)
p=polyfit(value,cost,1);
poly2str(p,'value')

yueyongpeng 发表于 2009-8-25 00:42

http://www.madio.cn/home/attachment/200908/24/169907_12511317734wz6.jpg http://www.madio.cn/home/attachment/200908/24/169907_12511317618Iuo.jpg

东方明珠-WDZYQ 发表于 2009-8-25 08:13

O(∩_∩)O哈哈~，hoax啊

ddpbhxz 发表于 2009-8-25 09:06

哈哈，很好啊！！！！

yueyongpeng 发表于 2010-5-25 17:23

O(∩_∩)O哈哈~，hoax啊                     

计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng 发表于 2010-5-25 17:24

计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng 发表于 2010-5-25 17:25

计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng 发表于 2010-5-25 17:26

计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

alair009 发表于 2012-1-26 13:22

页: [1]
查看完整版本: 最佳泄洪问题1题的求解