?%%?S矩陣轉(zhuǎn)化成T矩陣
?clc;clear?all;close?all;
tic;
%%?讀入數(shù)據(jù)
S_dir=‘S2_OriginalData‘;%存放補償之后數(shù)據(jù)的文件名
T3_dir=‘T3_OriginalData‘;%存放分解結(jié)果的文件名
%%
W=1;
[S11pt]=freadenvi（strcat（‘.\‘S_dir‘\S11‘））;%.\表示當前目錄..\表示上個目錄
[S12pt]=freadenvi（strcat（‘.\‘S_dir‘\S12‘））;
[S21pt]=freadenvi（strcat（‘.\‘S_dir‘\S21‘））;
[S22pt]=freadenvi（strcat（‘.\‘S_dir‘\S22‘））;

[T11T12T13T21T22T23T31T32T33]=scattermt3（S11S12S21S22）;
T12_imag=real（T12）;
T12_real=real（T12）;
T13_imag=real（T13）;
T13_real=real（T13）;
T23_imag=real（T23）;
T23_real=real（T23）;

%%?新建文件夾
%dirname=[strcat（‘.\‘Asym_PTD_basedOn_OA_dir）];%新的文件夾名?.\表示這個目錄?..\表示上個目錄
dirname=[strcat（‘.\‘T3_dir‘_W_‘num2str（W））];%新的文件夾名?.\表示這個目錄?..\表示上個目錄

a=[‘mkdir‘dirname];%?創(chuàng)建命令
system（a）;%創(chuàng)建文件夾
cd（dirname）;%進入新的文件夾

?fid1?=?fopen（‘T11.bin‘‘w‘）;
?fwrite（fid1T11‘float‘）;
?fid1?=?fopen（‘T22.bin‘‘w‘）;
?fwrite（fid1T22‘float‘）;
??fid1?=?fopen（‘T33.bin‘‘w‘）;
?fwrite（fid1T33‘float‘）;

?fid1?=?fopen（‘T12_imag.bin‘‘w‘）;
?fwrite（fid1T12_imag‘float‘）;
?fid1?=?fopen（‘T13_imag.bin‘‘w‘）;
?fwrite（fid1T13_imag‘float‘）;
??fid1?=?fopen（‘T23_imag.bin‘‘w‘）;
?fwrite（fid1T23_imag‘float‘）;
?
??fid1?=?fopen（‘T12_real.bin‘‘w‘）;
?fwrite（fid1T12_real‘float‘）;
?fid1?=?fopen（‘T13_real.bin‘‘w‘）;
?fwrite（fid1T13_real‘float‘）;
??fid1?=?fopen（‘T23_real.bin‘‘w‘）;
?fwrite（fid1T23_real‘float‘）;


%%?復制頭文件

copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T11.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T22.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T33.hdr‘）;%*為通配符?復制頭文件

copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T12_real.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T12_imag.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T13_real.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T13_imag.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T23_real.hdr‘）;%*為通配符?復制頭文件
copyfile（strcat（‘..\‘S_dir‘\T11.hdr‘）‘.\T23_imag.hdr‘）;%*為通配符?復制頭文件


%copyfile（strcat（‘..\‘T3_dir‘\T11.hdr‘）‘.\Freeman分解結(jié)果.txt‘）;%*為通配符?復制頭文件
%?copyfile（strcat（‘..\‘T3_OA_dir‘\config.txt‘）‘.\‘）;%復制config文件

cd（‘..\‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-09-25?09:27??convert\
?????文件????????2412??2017-04-30?20:23??convert\main.m
?????文件????????1181??2017-04-30?19:41??convert\scattermt3.m