最佳泄洪问题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;
0 d5 W" w5 o& Z. bm=zeros(201,15);
) F. F# }$ b( ~# ]2 i' i( _n=zeros(201,15);
o=zeros(1,201);
cost=zeros(201,1);
5 l3 r0 z  R, m* Vvalue=zeros(201,1);
for x=0:0.005:1
# ?* w: R9 K, J; T0 T
c=0;

q=0;

for i=1:15
9 J' ~! K0 l. L) `2 Y) `* T: H2 P
0 I, y! l- K$ C: D! b2 op=5.0+x-h(i);
  c) M0 g) B( [  W3 k, x9 p
3 P) n. F" y8 s( a7 E# Km(j,i)=p
  Z( I2 B& S  J
' J; b0 V; G9 \9 }! z  L! [4 q$ rif p>=1

c1=k(i);
+ @6 k6 d0 Y4 t- C  I( U7 u
c=c1+c;

/ i+ O4 {: @; H* U) O8 hn(j,i)=c1;

2 P( i7 _- U6 H8 r; s/ lelse
* t( ]' o' t! w" ~
& J- t+ l' f, x+ i+ E) Ec1=k(i)*p;
9 d- j1 X; A! K0 \; _6 h
* f" \) c  F  _5 k: ^& @% E0 ^c=c1+c;
1 W7 T. E- |8 t7 r/ d8 N5 s1 y
n(j,i)=c1;
' R# V" J# J8 V" K5 Y, @. a! z& i9 j
end

q1=s(i)*p*1000000;

. M) \3 a+ r6 w" P: Eq=q1+q;

o(j)=q1;

end
4 R6 @2 t' H9 q0 U, L( I
cost(j)=c;
, L6 u- f5 x# y4 I
" `3 t" R; J( gvalue(j)=q;
, V2 b3 |! w' E! i0 Y
* y+ O: J6 d8 D* gj=j+1;
) d% z. Q5 F4 _' l" I: g- Z- ^end
x=0:0.005:1;
/ O% m0 K# N! ?* j6 [inval=zeros(201,1);
for i=1:201
. `4 |  \8 ]# u: h+ @
inval(i)=1/value(i);
2 i, Z" H- t8 N# L9 I8 Wend
$ U  @' w. w1 U7 ~# L# B2 S. Oplot(x,inval)
hold on
% U9 F6 k% M' D* \7 L+ Tplot(x,cost)
' V+ t1 w( k5 g9 }. L( ]9 D- kfigure()
( c( Y4 U0 `) U+ _3 t# H. eplot(value,cost)
p=polyfit(value,cost,1);
poly2str(p,'value')

yueyongpeng

东方明珠-WDZYQ

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

ddpbhxz

哈哈，很好啊！！！！

yueyongpeng

O(∩_∩)O哈哈~，hoax啊                     
6 D5 O# @- J% L2 f
计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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