%
% smesh: 関数・偏導関数表示の下請けスクリプト
%
function smesh(x, y, z, ftitle, ret)
if (nargin < 5)
    ret = 0;
end;
mesh(x, y, z);                  % 関数の表示
title(ftitle, 'fontsize', 14);
xlabel('x'); ylabel('y'); zlabel('z');
axis square;
shg;
if (ret ~= 0)
    input('（リターンキーで次へ）');                % リターンキーで次に進む
end;