%ÀîÈÊÃñclc;clearall;closeallmax_j=193;max_i=81;d11=0.005;d13=0.005;d14=0.001;d12=0.001;d15=0.0001;d16=0.0001;d17=0.0001;d18=0.0001;n=0.7;%¿×϶¶Ècdd=0.001;%Pcd¹ÌÏàÉú³¤ºË¸ÅÂÊnumtotal_need=(1-n)*max_i*max_j;numsoild=0;arrgrid=zeros(max_i,max_j);whilenumsoild2+1i=index_i;j=index_j-1;ifarrgrid(i,j)==0&&rand()2+1i=index_i-1;j=index_j;ifarrgrid(i,j)==0&&rand()2+1i=index_i+1;j=index_j-1;%ÓÒ1ifarrgrid(i,j)==0&&rand()2+1&&index_i>2+1i=index_i-1;j=index_j-1;%ÓÒ1ifarrgrid(i,j)==0&&rand()2+1i=index_i-1;j=index_j+1;%ÓÒ1ifarrgrid(i,j)==0&&rand()