最佳泄洪问题1题的求解

yueyongpeng

程序1：计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值
clc
5 a! Q! b$ }* h$ ]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];
  M" d8 w6 i, V/ r( I1 ms=[6.1
2 q" _, L$ l2 ?# I0 O8.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];
  C! I* |5 r& M2 l3 d7 Ij=1;
! @; y' V* `! `m=zeros(201,15);
. Y7 [9 r* f- y& k4 H1 Y9 ln=zeros(201,15);
9 F* q( q8 @* x" L! D# X' q( X# ko=zeros(1,201);
cost=zeros(201,1);
* C1 [4 `; _5 J7 Z+ i5 Lvalue=zeros(201,1);
- S5 T9 c; b! z, i+ Nfor x=0:0.005:1

; A( @) h! X3 Dc=0;
* r( q+ g+ z5 T: C: D
7 @  T8 Y4 t9 R8 rq=0;
  X4 H, \* ]) Y$ l
for i=1:15

" J8 Q- K* }: C) ap=5.0+x-h(i);

m(j,i)=p
, Y$ r* q& q" G) P
% Y7 P5 W; A5 ~- ~if p>=1

; V& n$ T" A. cc1=k(i);

- U/ A: i; y* _" Y" x4 Gc=c1+c;

7 H$ D7 z. X& ?+ S& x* L3 t- ~3 w6 C- f$ _n(j,i)=c1;

else

c1=k(i)*p;
' X$ p; a+ z8 {# T7 T
, C. p8 m5 ?5 l3 Uc=c1+c;

n(j,i)=c1;

9 y/ u" |; l) D' j: Jend

1 e" W  V1 u& f& nq1=s(i)*p*1000000;
& X' @6 P3 N' K, v: q* Q% `
5 S5 [) Q5 v! }5 r: ~) U4 A% Qq=q1+q;

" ~9 @& [0 e, `$ {3 t6 _o(j)=q1;
- T4 ~/ h6 j  h! ^# u7 A; r5 y
) U% s; E8 x; C$ I. c4 Z% s# Q$ Xend
4 r: v6 s# V1 K6 @9 f
; ~! v. ?% F& fcost(j)=c;

value(j)=q;

j=j+1;
end
) L6 i! C. g4 P, \9 q- l5 u4 gx=0:0.005:1;
! D+ f/ \. f* a, xinval=zeros(201,1);
for i=1:201

1 |, b/ b( P3 Rinval(i)=1/value(i);
end
' G2 A& x  ]$ j  E" R* g7 lplot(x,inval)
hold on
plot(x,cost)
figure()
plot(value,cost)
p=polyfit(value,cost,1);
: t1 D' H5 J! ]  [- rpoly2str(p,'value')

yueyongpeng

东方明珠-WDZYQ

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

ddpbhxz

哈哈，很好啊！！！！

yueyongpeng

O(∩_∩)O哈哈~，hoax啊                     
6 `2 z$ b7 J8 M! X, ^7 ~$ `8 s
! y% H% |) N0 \* C计算机寻找解，在0~1的范围内 求出了最高点5到6取值范围内的具体值

yueyongpeng

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

yueyongpeng

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

yueyongpeng

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