４．インタラクティブなソフトを作る（ファイル選択ウィンドウ、画面入力）
--------------- ファイル選択ウィンドウを出す(uigetfile関数) ------------------------------
%% ADCPデータ(*.CID)のファイル選択 および ファイルサイズ確認
[fname, dpath] = uigetfile('*.CID'); % <---- ウィンドウの表示
if ~isequal(fname,0) & ~isequal(dpath,0)
fpath = fullfile(dpath, fname);
fid = fopen(fname,'r');
hd = textscan(fid,'%s',3); hdtmp = hd{1};
dattmp = textscan(fid,'%s') ; dattmp2 = dattmp{1};
[hlin, dum] = size(hdtmp) ; [dlin,dum] = size(dattmp2);
fclose(fid);
clear dattmp* hd* dum
else
disp('ファイルがありません。');
end;
[pathstr,name,ext,versn]=fileparts(fname);
--------------- 画面で数値を入力する（input関数） ------------------------------
nav = input('航海名を入力してください\n','s');
dfl = input('深度指定 ----> [1]5m [2]10m [3]15m \n');