ファイル名:Startup.m

function startup
% Startup Program made by Koji MIYAKAWA. (96chars)
% ----------------------------------------------------------------------------------------------
% ▼ [2001/05/16] Matlabの起動ディレクトリをこのファイルのあるディレクトリにすると、そのディレク
% トリがMatlabPathに登録されていなくても起動時に自動的にロードしてくれる。
% ▼ [2001/05/16] PCの判別は環境変数COMPUERNAMEで行っているのでWindows95/98の時はautoexec.bat上
% で設定しておく事。
% ▼ [2001/05/16] 関数なら実行後に変数がメモリに残らないので1行目にfunction startupを置いた。
% ----------------------------------------------------------------------------------------------

% Characterization of PC
PCchar  = { 'fruche',   [1 380 1280 590],   'D:\ACROSS\matlab';...      % FRUCHE    1280x1024
            'darkbeer', [1 350 1275 590],   'D:\ACROSS\matlab';...      % DARKBEER  1280x1024
            'thinkpad', [1 215  800 345],   'D:\ACROSS\matlab';...      % THINKPAD   800x 600
            'takanogw', [1 350 1280 635],   'V:\miyakawa\matlab';...    % TAKANOGW  1280x1024
            'gamma',    [1 300 1020 395],   'V:\miyakawa\matlab'        };
PCnum   = find(strcmpi(getenv('computername'), PCchar(:,1)));
if ~isempty(PCnum)
    set(0,'DefaultFigurePosition',PCchar{PCnum,2});
    eval(['addpath ',PCchar{PCnum,3},'\startup ',PCchar{PCnum,3},'\tss -end;']);
else
    set(0,'DefaultFigurePosition',[1 380 1280 590]);        % FOR 1280x1024 (GateWay, DELL)
%   set(0,'DefaultFigurePosition',[1 370 1280 570]);        % タスクバーが隠れない時
%   set(0,'DefaultFigurePosition',[1 400 1280 580]);        % タスクバーが隠れる時
%   set(0,'DefaultFigurePosition',[1 340 1280 630]);        % 西端末GateWayに入っていた設定
end
% ----------------------------------------------------------------------------------------------
set(0,'DefaultFigureColor',[1 1 1]);
set(0,'DefaultFigurePaperType','a4');
% set(0,'DefaultFigurePaperPositionMode','auto');
% set(0,'DefaultTextFontName','MS Pゴシック');           % 'MS UI Gothic'で良しとする
% set(0,'DefaultAxesFontName','MS Pゴシック');
% set(0,'DefaultUicontrolFontName','MS Pゴシック');
set(0,'DefaultTextFontSize',15);
set(0,'DefaultAxesFontSize',12);
set(0,'DefaultTextFontWeight','bold');
set(0,'DefaultAxesFontWeight','bold');
% ----------------------------------------------------------------------------------------------
% format compact                                            % Matlab6(R12)ではGUIで設定できる
more on
figure
cd ..