yanzheng.m

数模中的钻井问题的matlab源码

function Y=yanzheng(A,x,y,chidu)
Y=[];
[m n]=size(A);
for m=1:n
    B=A(:,m);
    xita=B(1);
    max0=B(2);
    chuli=chuli(x,y,xita);
    juleijieguo=julei(chuli,chidu);
    find=find(juleijieguo(2,:)==max0);
    [p q]=size(find);
    juleijieguo=juleijieguo(1,find);
    sousuojieguo=[];
    for p=1:q
        s=sousuo(juleijieguo(p),chuli,chidu);
        
        sousuojieguo=[sousuojieguo s];
    end
    sjieguo=max(sousuojieguo);
    Y=[Y [xita;sjieguo]];
end