加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
PTsaveFig.m 2.02 KB
一键复制 编辑 原始数据 按行查看 历史
Brian White 提交于 2019-08-27 10:54 . Add files via upload
%% PTplotBreakout - script to save main Figs without UI control panel in new window
% ----------------------------------------------------------------------------------
% "THE BEER-WARE LICENSE" (Revision 42):
% <brian.white@queensu.ca> wrote this file. As long as you retain this notice you
% can do whatever you want with this stuff. If we meet some day, and you think
% this stuff is worth it, you can buy me a beer in return. -Brian White
% ----------------------------------------------------------------------------------
%% create saveDirectory
if ~isempty(filenameA) && ~isempty(filenameB)
saveDirectory=[filenameA(1:end-4) '-' filenameB(1:end-4)];
end
if ~isempty(filenameA) && isempty(filenameB)
saveDirectory=[filenameA(1:end-4)];
end
if ~isempty(filenameB) && isempty(filenameA)
saveDirectory=[filenameB(1:end-4)];
end
if ~exist(saveDirectory,'dir')
if ~isempty(strfind(saveDirectory,'.bbl'))
s=strfind(saveDirectory,'.bbl');
for i=length(s):-1:1
saveDirectory(s(i):s(i)+3)=[];
end
end
if ~isempty(strfind(saveDirectory,'.bfl'))
s=strfind(saveDirectory,'.bfl');
for i=length(s):-1:1
saveDirectory(s(i):s(i)+3)=[];
end
end
if ~isempty(strfind(saveDirectory,'.BBL'))
s=strfind(saveDirectory,'.BBL');
for i=length(s):-1:1
saveDirectory(s(i):s(i)+3)=[];
end
end
if ~isempty(strfind(saveDirectory,'.BFL'))
s=strfind(saveDirectory,'.BFL');
for i=length(s):-1:1
saveDirectory(s(i):s(i)+3)=[];
end
end
mkdir(saveDirectory)
end
%%
set(gcf, 'pointer', 'watch')
cd(filepath)
cd(saveDirectory)
FigDoesNotExist=1;
n=0;
while FigDoesNotExist,
n=n+1;
FigDoesNotExist=isfile([saveDirectory '-' int2str(n) '.png']);
end
figname=[saveDirectory '-' int2str(n)];
saveas(gcf, [figname '.png'] );
print(figname,'-dpng','-r200')
set(gcf, 'pointer', 'arrow')
cd(filepath)
Loading...
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化