function?[M]?=?Arnold（ImageFrequencycrypt）
%圖像數值矩陣Arnold轉換函數
%輸入參數
%???Image:????待加密（待解密）圖像文件名（注意寫格式后綴），只能為二維
%???Frequency:???圖像需要變換迭的次數
%???????crypt???????????0～加密;1～解密

%輸出參數
%???M:?????轉換后圖像數據矩陣
%????????????輸出由M對應的圖像文件
if?nargin<3
????disp（‘請按程序的輸入參數格式輸入參數！??！‘）;
????return;
end

if?crypt~=0?&?crypt~=1
????disp（‘encrypt?必須為0或1！‘）;
end

%將Q賦值給M，計算Q的大小
Q=imread（Image）;
%Q?=?Image;
M?=?Q?;
Size_Q???=?size（Q）;

%如果不是二維或三維數組，則不處理，返回
if?（length（Size_Q）?<=?2）?
???if?Size_Q（1）?~=?Size_Q（2）?
??????disp（‘不是方陣，不能Arnold轉換‘）;
??????return
???end
else
???disp（‘不是二維數組，不進行Arnold變換‘）;
???return?
end

????%------------------------------------------
???%Arnold轉換
???n?=?0;
???K?=?Size_Q（1）;
???
???M1_t?=?Q;
???M2_t?=?Q;
???
???if?crypt==1???%解密
???????Frequency=ArnoldPeriod（?Size_Q（1）?）-Frequency;
???end
???????
???for?s?=?1:Frequency
???????n?=?n?+?1;
???????if?mod（n2）?==?0
?