Development and Application of an Intelligent Evaluation and Control Platform for Tunnel Smooth Blasting

Pseudocode 2

Control function code.

function [a,b,mmin,mmax]=Net(xx,N,n,Pc,Pm,M,DaiNo,Ci,ads).

tic;

if ads==0.

ad='ascend';

else

ad='descend';

end

mm1=zeros(1,n);mm2=ones(1,n);

for z=1:Ci

z

for i=1:N.

while 1==1.

for p=1:n.

bb(p)=unifrnd(mm1(p),mm2(p));

end

….

%step5 end.

v3=[vtemp3;v2];

while 1==1

 MutationNo=0;

 v4=v3;

for i=1:N

  r4=unifrnd(0,1);

if r4<Pm

   MutationNo=MutationNo+1;

vtemp5(MutationNo,:)=v4(i,:);

v4(i,:)=zeros(1,n);

end

….

a=fv(1);

b=vv(1,:);

toc