最佳泄洪问题1题的求解

yueyongpeng

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
clc
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];
; d2 \( W, K; H" I& m" h& f% T( p+ [s=[6.1
9 M: c; j! N% d9 @" ]% X8.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=[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;
" K, o) p( F$ P( U+ S+ j1 |: `9 ~m=zeros(201,15);
! d: u( o- w' H! d  cn=zeros(201,15);
o=zeros(1,201);
2 ~% e: a2 ^- l0 pcost=zeros(201,1);
9 _; ?1 q  c3 E, H7 G0 ~value=zeros(201,1);
1 F- @! A) G) L" x0 @- Y$ |3 ?for x=0:0.005:1

c=0;
. d1 X) X! r& b0 C3 y0 g" T
# M3 V# \8 I4 p( d" ~3 Mq=0;

for i=1:15
( N6 d" M4 e9 H1 X5 [8 l+ U6 z
p=5.0+x-h(i);
3 B) L  b  \& g$ J
m(j,i)=p
9 h! `2 @3 \" D4 I( O& V. s
if p>=1

c1=k(i);
3 }) u+ X) X# f3 |2 E
  e: I2 _* U* C- F+ _c=c1+c;

n(j,i)=c1;
- V# Z6 ?/ U% C3 Q0 V3 T9 M
& _, ]& ^$ F- [( xelse
, V9 y5 m2 s3 Q
7 O/ ?2 x" C" j  V2 M) Y* y" Bc1=k(i)*p;
) l$ N* e# [  m' c
c=c1+c;
$ c4 ^$ b) B3 w
( y0 v& `: o# D( Wn(j,i)=c1;
/ j7 y* s$ I* q0 K9 `4 m# a
4 W( U1 n8 A8 r! f) Qend

q1=s(i)*p*1000000;

8 {& r+ ]: Q* Q' E9 pq=q1+q;

o(j)=q1;

7 O- k) ?0 @- r& Q4 ^3 {8 `end

cost(j)=c;

4 E, }3 F+ ?7 s# Z7 _( e% j) Uvalue(j)=q;

0 v" u! x" l- R4 ?j=j+1;
end
x=0:0.005:1;
inval=zeros(201,1);
for i=1:201

1 ^8 S: T6 n3 C9 o" f7 Jinval(i)=1/value(i);
end
) X+ R' n" @& \: J/ {; z: i5 Eplot(x,inval)
hold on
& w' A) m& s, lplot(x,cost)
+ Y- Z" |6 W8 {  p! ?* G! e) K6 tfigure()
plot(value,cost)
p=polyfit(value,cost,1);
poly2str(p,'value')

yueyongpeng

东方明珠-WDZYQ

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

ddpbhxz

哈哈，很好啊！！！！

yueyongpeng

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

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

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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