%?[newX?snr1?M]?=?adjustCorr1s（X?Cx?MODE?p）?
%
%?Linearly?adjust?variables?in?X?to?have?correlation?Cx.
%?Rows?of?X?and?newX?are?samples?of?a?（random）?row-vector?such?that:
%????1:??newX?=?X?*?M????
%????2:??newX‘?*?newX?=?Cx?
%
%?MODE?is?optional:
%???0?=>?choose?randomly?from?the?space?of?linear?solutions
%???1?=>?simplest?soln
%???2?=>?minimize?angle?change?（DEFAULT）?
%???3?=>?SVD?minimal?vector?change?soln
%
%?p?is?optional:
%???Imposes?an?intermediate?value?of?correlation?between?the?current?one
%???C?and?Cx:
%	Cx‘?=?（1-p）*C?+?p*Cx;
%???DEFAULT?is?p=1.

%??EPS?11/23/97.

function?[newX?snr1?M]?=?adjustCorr1s（XComodep）

if?（exist（‘mode‘）?~=?1）
??mode?=?2;
end

if?（exist（‘p‘）?~=?1）
??p?=?1;
end

C?=?innerProd（X）?/?size（X1）;
[E?D]?=?eig（C）;
D?=?diag（D）;
[junkInd]?=?sort（D）;
D?=?diag（sqrt（D（Ind（size（Ind1）:-1:1））））;
E?=?E（:Ind（size（Ind1）:-1:1））;

Co0?=?Co;
Co?=?（1-p）*C?+?p*Co;

[EoDo]?=?eig（Co）;
Do?=?diag（Do）;
[junkInd]?=?sort（Do）;
Do?=?diag（sqrt（Do（Ind（size（Ind1）:-1:1））））;
Eo?=?Eo（:Ind（size（Ind1）:-1:1））;

if?（mode?==?0）
??Orth?=?orth（rand（size（C）））;
elseif?（mode?==?1）?%?eye
??Orth?=?eye（size（C））;
elseif?（mode?==?2）?%?simple
??Orth?=?E‘?*?Eo;
else?????%?SVD
??[USV]?=?svd（D?*?E‘?*?Eo?*?inv（Do））;
??Orth?=?U?*?V‘;
end

M?=??E?*?inv（D）?*?Orth?*?Do?*?Eo‘;

newX?=?X?*?M;

snr1=10*log10（sum（sum（Co0.^2））/sum（sum（（Co0-C）.^2）））;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????目錄??????????0??2008-12-21?21:37??紋理合成Matlab源代碼

?????文件???????1366??2001-02-15?19:04??紋理合成Matlab源代碼\adjustCorr1s.m

?????文件???????2442??2001-02-15?19:04??紋理合成Matlab源代碼\adjustCorr2s.m

?????文件???????3326??2001-02-15?19:04??紋理合成Matlab源代碼\buildSCFpyr.m

?????文件???????2082??2001-02-15?19:05??紋理合成Matlab源代碼\buildSCFpyrLevs.m

?????文件????????241??2001-03-28?00:29??紋理合成Matlab源代碼\ChangeLog

?????文件??????65593??2001-02-15?19:09??紋理合成Matlab源代碼\checkerboard.pgm

?????文件???????1827??2001-03-28?23:38??紋理合成Matlab源代碼\Contents.m

?????文件???????1023??2001-03-28?00:34??紋理合成Matlab源代碼\example1.m

?????文件???????1659??2001-03-30?00:38??紋理合成Matlab源代碼\example2.m

?????文件????????737??2001-02-15?19:05??紋理合成Matlab源代碼\expand.m

?????文件????????404??2001-03-29?00:48??紋理合成Matlab源代碼\innerProd.m

?????文件??????65593??2001-02-15?19:09??紋理合成Matlab源代碼\metal.pgm

?????文件???????3104??2001-02-15?19:06??紋理合成Matlab源代碼\modacor22.m

?????文件???????3780??2001-02-15?19:06??紋理合成Matlab源代碼\modkurt.m

?????文件???????3866??2001-02-15?19:06??紋理合成Matlab源代碼\modskew.m

?????文件??????65593??2001-02-15?19:10??紋理合成Matlab源代碼\nuts.pgm

?????文件???????3463??2001-03-28?23:20??紋理合成Matlab源代碼\Readme.txt

?????文件??????65593??2001-02-15?19:10??紋理合成Matlab源代碼\reptil_skin.pgm

?????文件??????65593??2001-02-15?19:10??紋理合成Matlab源代碼\sawtooth.pgm

?????文件????????613??2001-02-15?19:06??紋理合成Matlab源代碼\shrink.m

?????文件????????194??2001-02-15?19:06??紋理合成Matlab源代碼\snr.m

?????文件??????65593??2001-02-15?19:11??紋理合成Matlab源代碼\text.pgm

?????文件???????7253??2001-03-28?00:35??紋理合成Matlab源代碼\textureAnalysis.m

?????文件??????13462??2001-03-28?23:16??紋理合成Matlab源代碼\textureSynthesis.m

?????文件????????135??2001-02-15?19:06??紋理合成Matlab源代碼\vector.m

????..AD...?????????0??2008-12-21?21:37??紋理合成Matlab源代碼\MEX

?????文件???????1416??2001-02-15?19:07??紋理合成Matlab源代碼\MEX\innerProd.c

?????文件??????41984??2001-02-15?19:08??紋理合成Matlab源代碼\MEX\innerProd.dll

?????文件???????6751??2001-02-15?19:12??紋理合成Matlab源代碼\MEX\innerProd.mexglx

............此處省略5個文件信息