writespider.m

来自「matlab处理图像的一些基本方法。其中有一部分mex程序需要安装编译」· M 代码 · 共 24 行

function writeSPIDER
%WRITESPIDER Write the image in a spider file format

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% [e-mail],    [e-mail]
%


global H I savepath

[name, path] = uiputfile([savepath '*.DAT']);

if name ~= 0 & ~isempty(name)
  f=watchon;
  statusbar('Writing SPIDER file...');
  fname = [path name];
  spiwrite(fname, I, H);
  watchoff(f);
  clearstatusbar;
end
return;