%%
while 1 == 1
choice = menu（ 'Texture Analysis'、...
'Select Directory'、...
'Select Measure File'、...
'Co-comatrix'、...
'Exit'）;
if choice == 1
disp（ 'Read from Directory'）;
inputdirectory_name = uigetdir
allfiles = dir（inputdirectory_name）; 選択== 2の場合は%%を
終了し ますdisp（ 'メジャーファイルに書き込む'）; [FileName、PathName] = uiputfile（ '*。mes'）; outputfilename = [PathName、FileName];
file = fopen（outputfilename、 'w +'）;
fprintf（file、 'Texture Measture File \ t \ n'）;
offset = [0 1; -1 1; -1 0; -1 -1];
fprintf（file、 '統計の順序は0°45°90°135°\ n'）;
count = 1;
fileindex = 1：length（allfiles）の場合
tmpfile = allfiles（fileindex）;
tmpfile.isdirが
続行する場合。
終了
％画像名の検索
tempfile = strcat（inputdirectory_name、 '\'）;
ファイル名= strcat（tempfile、tmpfile.name）;
画像= imread（ファイル名）;
％co-comatrixを計算します
glcms = Graycomatrix （Image、 'Offset'、offset）;
％共行列のシャテラティクスを計算します
stats = graycoprops（glcms、{'contrast'、 'Correlation'、 'Energy'、 'Homogeneity'}）;
％統計をファイルに入れます。
fprintf（file、 '％s \ n'、filename）;
fprintf（file、 '％f \ t％f \ t％f \ t％f \ t \ n'、stats.Contrast、stats.Correlation、stats.Energy、stats.Homogeneity）;
disp（count）; disp（ 'is OK'）; count = count + 1;
end
disp（ 'all is OK！'）;
fclose（ファイル）; 選択== 4の場合は
終了 テクスチャ構造を保存します。 すべてクリア; clc; すべて閉じる; 戻る; エンドエンド
D00007