最佳泄洪问题1题的求解

yueyongpeng

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
clc
5 B  {( V$ _5 Z. 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];
s=[6.1
8.4
' r) u: X. o- D& Y7 9.3 4.8 3.6 0.9 8.5 1.8 9.1 4.6 1.5 2.3 8.8 1.3];
1 ^/ R! ~% n( gk=[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;
1 z# }" n2 B7 rm=zeros(201,15);
n=zeros(201,15);
% l- ?. ?/ K8 n7 d6 c+ G( x% l) do=zeros(1,201);
cost=zeros(201,1);
0 m0 `6 d1 i9 Bvalue=zeros(201,1);
/ w3 w( D3 _& e6 \4 D" C7 X, Tfor x=0:0.005:1
; b! C# A7 j7 H1 ^( W! G( `
4 N2 Y& O/ }( K1 a+ |; l/ gc=0;

8 }) ~, T* D2 e1 Iq=0;

$ r& X0 p' Q- G  Mfor i=1:15

0 [0 z1 A5 D. W  k' u, A+ Fp=5.0+x-h(i);
& O" L1 Z! k) Y
m(j,i)=p

- a/ a0 T' ]* U5 X+ Rif p>=1
& Z) w. [( `. L) ^9 e% ]0 f) [* T
/ E4 c! O$ t; N* [1 r+ Lc1=k(i);
* H) ^( p, d2 F1 v* G& U9 C/ [
6 ^: Z  i6 ?% Y% m0 ^c=c1+c;

2 n3 Z$ B" n5 a, un(j,i)=c1;

else

c1=k(i)*p;
( ]6 o8 m$ q; {
9 Y1 e) A6 G6 K% yc=c1+c;

$ P; w* o* R* t2 I# _8 y4 dn(j,i)=c1;
5 O) c' K  B+ `
$ }* A  i' Q  w  G7 rend

q1=s(i)*p*1000000;

q=q1+q;

o(j)=q1;
) A0 U, Z$ Y  L) O8 y' T0 P
/ K3 l0 p# d5 X! w$ @% rend
: m3 S+ k# F% Q
cost(j)=c;

) W! A& ^0 I  y( a+ d8 Zvalue(j)=q;

' o2 @& P6 B1 `7 N  N. c# _j=j+1;
( Q: U! i! B* e- J; Jend
1 A6 f/ u! x# {x=0:0.005:1;
inval=zeros(201,1);
' ?( Z7 l& b0 Q: _9 Vfor i=1:201
0 c* `% z. v9 U
inval(i)=1/value(i);
end
4 f9 U# u# m  F, uplot(x,inval)
hold on
( N/ ?  }5 \+ I$ H& |9 }+ M: l( Tplot(x,cost)
figure()
# a' `8 d6 c$ ]0 ^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取值范围内的具体值