|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
function p = gfp(beta,deta,n,e)
%Function to generate fractal profile using IFT.
%refer to Gallant,Moore,Hutchinson and Gessler,1994
%Input:
% beta: beta=2H+1
% deta: the sample interval of time series
% n: number of time series
% e:stadard devation
%Writen by Zhang Jinling
%Institute of geology and geophysics china academy of sciences
pi=3.1415926;
f=(1:n)/deta/n;
seta=2*pi*rand(1,n);
amp=e^2*f.^(-1*beta/2);
fp=amp.*exp(sqrt(-1)*seta);
p=real(ifft(fp,n));
figure;plot(p);
end |
|