最佳泄洪问题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];
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=[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);
. t% U* T" ~/ A& un=zeros(201,15);
o=zeros(1,201);
2 p* {$ a0 W; x$ }cost=zeros(201,1);
value=zeros(201,1);
for x=0:0.005:1

c=0;

2 u. L3 O# p9 R+ h& Z# p, oq=0;

: D) C- [) F9 \for i=1:15

9 q! U. s' u5 T$ Fp=5.0+x-h(i);

! @) d5 ?" X* r0 `7 _; W# um(j,i)=p

9 J, t' `- t' n* Q$ qif p>=1
4 S2 O2 I9 e+ }/ p  y- n: ~5 `
c1=k(i);

, {4 T* q! s: ~- d$ {! r% Y5 w' tc=c1+c;
! e* T/ {, K9 j2 z0 y3 }  I
: L( g( {& G6 l4 |n(j,i)=c1;

else

c1=k(i)*p;

- q( {3 s5 M' E% vc=c1+c;
+ C9 ^( \! O( r) s4 {
$ j0 m9 d* x& C/ sn(j,i)=c1;

1 [* ]& A3 d' b1 }" {! o2 lend
+ {' ~' U+ t# A7 f6 Y) |
: d& h8 M, X; b  b2 R- P: q( Hq1=s(i)*p*1000000;

2 [8 Q# Z& B& s1 k& zq=q1+q;
( `0 t$ T, \5 }
o(j)=q1;
- o" j3 u" }& E( ]7 A! f  y/ c
end

2 Z% M* A! ^: |, Qcost(j)=c;

' C& C2 T- o9 r1 u  T, z: E& u. m: I0 Rvalue(j)=q;

j=j+1;
; p3 S0 }5 C9 \* K0 Lend
- m: N% F2 D, F8 x! ?5 Cx=0:0.005:1;
inval=zeros(201,1);
for i=1:201
! w7 G& T7 i& v2 {$ z
5 R4 r4 {( ~( `. ~5 ?0 Qinval(i)=1/value(i);
9 Z/ x5 p6 s( }/ lend
  W* }; y7 p, D$ J" }$ o+ @plot(x,inval)
/ l5 X  P* n! D6 @1 Uhold on
$ P+ j4 C- P5 t! o4 Nplot(x,cost)
% M6 q1 |$ `/ H' ufigure()
plot(value,cost)
p=polyfit(value,cost,1);
7 W% C# {! o1 e3 ]/ @poly2str(p,'value')

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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

+ X* j5 \" C) M8 H% d& c. _8 G% b计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

ddpbhxz

哈哈，很好啊！！！！

东方明珠-WDZYQ

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

yueyongpeng