function saveFigPDF(filename)
% -------------------------------------------------------------------------
% 作成したfigureのサイズに合わせてPDF出力します．
% 出力したいfigureのウィンドウを選択した状態でこの関数を実行してください．
% -------------------------------------------------------------------------
% Format:
%   saveFigPDF('sample.pdf')
% -------------------------------------------------------------------------
% Input:
%   filename - 出力するPDFファイルのファイル名(char型，string型)
% -------------------------------------------------------------------------

if ischar(filename) || isstring(filename)
    filename = char(filename);
else
    error('引数はchar型かstring型で指定してください．')
end

% active figureを取得
f = gcf;

% 出力サイズをfigureサイズに合わせる
f.Units = 'centimeters';
f.PaperUnits = f.Units;
f.PaperPosition = [0, 0, f.Position(3:4)];
f.PaperSize = f.Position(3:4);

% figureをPDFで出力
print(filename, '-dpdf')