figtit.m

来自「Univ. of Calgary CREWS的免费地震研究软件」· M 代码 · 共 8 行

function figtit(str,figno)

if(nargin<2)
figno=gcf;
end

set(figno,'name',str)