最佳泄洪问题1题的求解

yueyongpeng

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
clc
  Q% M; a, {+ Zclear
h=[3.6 4 4.7 4.4 3.8 3.3 3.2 2.5 5 4.4 3.0 3.5 2.4 3.8 3.8];
1 N  J- V* a/ s% S8 g, C, ^- As=[6.1
8.4
0 g( w( _% m; s- M4 E& i7 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=[1.4 7.0 5.8 3.3 2.0 9.4 0.9 6.0 7.2 1.6 3.0 4.1 4.1 5.3 4.4];
j=1;
m=zeros(201,15);
n=zeros(201,15);
o=zeros(1,201);
+ B' O5 U6 L6 M1 [/ _cost=zeros(201,1);
value=zeros(201,1);
* }# D# v( s1 t3 o% f& lfor x=0:0.005:1

9 c% C* K9 e0 h* Pc=0;
0 ?& P, z( n! X( `7 E4 |1 I
6 [9 G2 @5 m; s3 E0 Q) E* `q=0;

for i=1:15

2 Z0 c9 J. b4 c) V0 W5 o& xp=5.0+x-h(i);
; Y% I# y( {1 B$ l& Q) o
m(j,i)=p
3 |8 |6 D$ T/ O
if p>=1

c1=k(i);
2 _3 S/ t' K7 [# x' e
8 ~  B2 h) W5 X+ ~9 t1 i2 cc=c1+c;

$ W3 U8 p' Y: z( r- Y2 M1 on(j,i)=c1;

else
7 W7 |: @7 q2 i, ^' o( C) c6 C
c1=k(i)*p;

c=c1+c;

n(j,i)=c1;

end

* {' B, B( {2 I6 s5 K; c0 \q1=s(i)*p*1000000;
$ }+ _1 A' V' h9 }6 z
q=q1+q;
& E4 R. ~; z: t# ?9 C+ E
o(j)=q1;

end
3 w: L9 z, v; d; m* k& e
cost(j)=c;

value(j)=q;
5 Y2 [- x4 ~6 Z
j=j+1;
end
8 a# k2 _- F5 N6 [1 {2 x  Px=0:0.005:1;
inval=zeros(201,1);
2 U6 P# e! Q  z0 O" a- k7 G: bfor i=1:201

  n) E4 B% }2 t( g8 Pinval(i)=1/value(i);
end
" R8 d9 C% d6 r  K6 O/ X! _plot(x,inval)
hold on
2 U8 S8 z; [" ^! y8 u& cplot(x,cost)
figure()
plot(value,cost)
p=polyfit(value,cost,1);
poly2str(p,'value')

yueyongpeng

东方明珠-WDZYQ

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

ddpbhxz

哈哈，很好啊！！！！

yueyongpeng

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

% I$ |; e/ l* b' P" u" B计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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