求toimage程序 格式：[E,t,Cenf]=toimage(A,f)

hht123

这是我网上下的源程序
出现错误：
Error using toimage
Too many output arguments.
Error in Untitled4 (line 14)
[E,t,Cenf]=toimage(A,f);

请问谁有[E,t,Cenf]=toimage(A,f)格式的源程序？ 注意是三个输出

N=1000;
n=1:N;
fs=1000;
t=n/fs;
fx=10;
fy=50;
x=cos(2*pi*fx*t);
y=10*cos(2*pi*fy*t);
z=x+y;
data=z;
imf=emd(data);%对输入信号进行EMD分解   
[A,f,t]=hhspectrum(imf);%对IMF分量求取瞬时频率与振幅：A：是每个IMF的振幅向量,f:每个IMF对应的瞬时频率，t：时间序列号
[E,t,Cenf]=toimage(A,f);%将每个IMF信号合成求取Hilbert谱，E：对应的振幅值，Cenf：每个网格对应的中心频率  这里横轴为时间，纵轴为频率        
%即时频图(用颜色表示第三维值的大小)和三维图（三维坐标系：时间，中心频率，振幅）         
cemd_visu(data,1:length(data),imf);%显示每个IMF分量及残余信号--------------------------------------------
disp_hhs(E);%希尔伯特谱----------------------------------------------------------
%画出边际谱
%N=length(Cenf);%设置频率点数   %完全从理论公式出发。网格化后中心频率很重要，大家从连续数据变为离散的角度去思考，相信应该很容易理解
for k=1:size(E,1)
bjp(k)=sum(E(k,:))*1/fs;
end
figure(3);
plot(Cenf(1,:)*fs,bjp);% 作边际谱图   进行求取Hilbert谱时频率已经被抽样成具有一定窗长的离散频率，所以此时的频率轴已经是中心频率
xlabel('频率 / Hz');
ylabel('幅值');

cwb

没有啊，我运行没有错误呢，你的程序toimage函数没有3个输出参数吗？