pt?=?‘F:\text100GHz\‘;?????????????????????????????%?換成自己的路徑
et?=?‘.txt‘;???????????????????????????????????????%?文件后綴及擴展名
n?=?99;?????????????????????????????????????????????%?文件數量

r1?=?[];????????????????????????????????????????????%?結果存放矩陣
M=10060;?????????????????????????????????????????????

L1=3;???????????????????????????????????????????????%提取L1-L2列?
L2=3;?
h=waitbar（0‘please?wait‘）;????????????????????????????????????????????
for?H1=9055:M???
???H2=H1;???????????????????????????????%提取H1-H2行????????????????????????????????????????
???R?=?[];????????????????????????????????????????????%?結果存放矩陣??
???str=[‘運行中...‘num2str（（1006-（M-H1+1））/1006*100）‘%‘];
???waitbar（（1006-（M-H1+1））/1006hstr）?
?for?p?=?0:n
??if?p<=9
????ff?=?‘0000‘;???????????????????????????????????%?文件前綴