最佳泄洪问题1题的求解

yueyongpeng

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
; S8 v! o& W0 k7 E) Yclc
% h/ }: \% {) F' ^8 D8 ?clear
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];
' Z; `$ N. S: T3 qs=[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];
. ^! m" y- U) I$ ^+ Zk=[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];
  y5 e9 Y4 g; ~! `j=1;
m=zeros(201,15);
n=zeros(201,15);
0 j$ |$ Z* f8 ?9 `( l& J; @o=zeros(1,201);
6 L( u. S, {8 ccost=zeros(201,1);
7 s# e. A7 p* t2 Bvalue=zeros(201,1);
! m- H6 c' o( w$ V2 b5 G5 Jfor x=0:0.005:1
" V( G- |5 }8 b0 s9 E
+ |% I1 M- t) a1 ^c=0;
) P6 n8 ?4 y# B/ c
q=0;
& c/ @  L" u8 _7 u" Q6 P& y3 j0 s7 ^
for i=1:15

+ N3 f2 H6 K7 m; t0 e. vp=5.0+x-h(i);

m(j,i)=p

if p>=1

& r) n8 }1 a+ b2 }c1=k(i);
% B  n8 n; C, `" H# Q
c=c1+c;
% ^9 x- Q0 B: e" m. Z
n(j,i)=c1;
4 M$ {1 Y7 @- c3 D3 u2 V
- j: r1 T% D5 g+ t( {3 H8 S! felse
# M! x- S0 W$ L( b( [# a2 `
c1=k(i)*p;

c=c1+c;
, t  L$ o$ m& |: O4 P
n(j,i)=c1;

end
: K4 o" n) H+ \/ L# r: z
1 z* l! \* H4 J+ c9 Sq1=s(i)*p*1000000;
, T- ^" _8 v  {% J9 u& ~! X
q=q1+q;

o(j)=q1;

% }/ B. p* }6 A# V3 `& Zend

cost(j)=c;
1 B5 y5 f3 X  u! f( K
0 I& {9 k9 S* E! K5 _) Y  Evalue(j)=q;
% O5 V3 s' F$ x- k; x
j=j+1;
# |2 i6 a! ]1 f  i$ n. [end
x=0:0.005:1;
inval=zeros(201,1);
for i=1:201
' \3 h, j( f' w9 {0 @3 ]
  R6 K9 J6 c* |% v, C9 G. minval(i)=1/value(i);
end
& c/ g1 R# m! W" N( c' L3 wplot(x,inval)
hold on
plot(x,cost)
7 \1 b) u. G. M; e8 rfigure()
plot(value,cost)
p=polyfit(value,cost,1);
( }+ ]' Q- a  l9 npoly2str(p,'value')

yueyongpeng

东方明珠-WDZYQ

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

ddpbhxz

哈哈，很好啊！！！！

yueyongpeng

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

8 v$ r  r3 C3 q8 g* F" f  y计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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