最佳泄洪问题1题的求解

yueyongpeng

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
clc
clear
1 Q; X/ p$ V) Mh=[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
9 @! ~, i! z6 ^' p9 B8 V2 W8 z7 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, I5 c1 O( P* Kk=[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];
( X) n. ]# l7 U: H) t: \; Uj=1;
m=zeros(201,15);
n=zeros(201,15);
o=zeros(1,201);
cost=zeros(201,1);
- ^( e- V3 V1 d3 z) kvalue=zeros(201,1);
for x=0:0.005:1

( c* ]2 O8 B" o3 Uc=0;
# A+ R; p' a/ x
2 c. h, s( S( Y4 U. U8 uq=0;

# d. M( _- _7 O- S6 _+ H  Pfor i=1:15

6 f9 A+ n0 P: w5 B; F8 A6 {7 @. |p=5.0+x-h(i);

m(j,i)=p

if p>=1

- X6 |: L0 U. }! H( tc1=k(i);

" V# S& `( ]! O% d- y; Ic=c1+c;

$ l3 S* k9 X, A9 M' ^2 _  qn(j,i)=c1;

+ G' g4 @$ T+ V6 Delse
  b  T( n/ p3 z! e- ?: G1 A
4 b/ X( w  L# x- V) Z2 hc1=k(i)*p;

c=c1+c;
1 Z/ g: Q$ W4 w  H* ]- T* p
n(j,i)=c1;

, G, K9 ?7 l7 w! Yend
0 \7 i8 Y5 K1 m: z
q1=s(i)*p*1000000;
' A( X" `! S* @, A  I4 W
% k, ^' Z6 L9 t9 Zq=q1+q;
6 ^( [0 ^9 w2 }% Z* \$ [7 Q! m
o(j)=q1;
- M* B0 y* f# h
end

8 c; `: y: Y4 q0 bcost(j)=c;
7 |" g' Q1 d' m" a
  y9 Z# n; s1 Bvalue(j)=q;
2 ^+ ]$ }$ q7 R
# _1 o5 Q& f! e2 U( Fj=j+1;
6 A1 _" A2 p9 a& b- Q+ Pend
x=0:0.005:1;
inval=zeros(201,1);
for i=1:201

/ H/ m# g) E8 E7 }) linval(i)=1/value(i);
end
" r' C+ h( k4 G$ b2 n  l2 R  Fplot(x,inval)
. o; r8 i+ @2 X& B5 G0 ghold on
plot(x,cost)
figure()
# A9 t# F9 i  J9 M, lplot(value,cost)
p=polyfit(value,cost,1);
# ~) Z% ]) {9 `/ Jpoly2str(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取值范围内的具体值