این که بیشتر شبیه داستان نویسی بود تا برنامه نویسی...:D
برای یک مرحله ای میشه از این استفاده کرد.
%function mcdist
load mcsim001
L=length(J);
mF=mF(J);
mD=mD(J,:)-ones(L,1)*[10 5 40 25];
mX=mX(J,:);
%inter=60;
inter=300;
%inter=120;
dynsim=10;
dynsim2=100;
t=0:inter:(L-1)*inter...