%% Specify Crystal and Specimen Symmetries
addpath /Users/sureshk/Documents/mtex-4.4.beta.1
startup_mtex;
% crystal symmetry
CS = crystalSymmetry('m-3m', [1 1 1]);
% specimen symmetry
SS = specimenSymmetry('orthorhombic');
%%
addpath '/Users/sureshk/Documents/NewP812/res'
load odfD1or;
export_VPSC(odfD1or,'odfD1TEX.txt','points',1200);
pname = '/Users/sureshk/Documents/NewP812/artno1/Chk-1';
A1 = [pname '/odfD1TEX.txt'];
%% Import the Data
% specify kernel
psi = deLaValeePoussinKernel('halfwidth',10*degree);
%% Import the VPSC-Simulation data - Sample A
% create an EBSD variable containing the data
odfD1ret = loadODF(A1,CS,SS,'density','kernel',psi,'resolution',5*degree,...
'interface','generic',...
'ColumnNames', { 'phi1' 'Phi' 'phi2' 'Weight'}, 'Bunge');
save odfD1ret odfD1ret;
figure(1); plotSection(odfD1or, 'phi2', [0, 30, 45]*degree); mtexColorbar;
saveFigure('OdfBefore-VPSC-Conversion');
figure(2); plotSection(odfD1ret, 'phi2', [0, 30, 45]*degree);mtexColorbar;
saveFigure('OdfAfter-VPSC-Conversion');
export_VPSC(odfD1or.components{1}.center,'odfD1TEX.txt','weights',odfD1or.components{1}.weights);psi = odfD1or.components{1}.psi;odfD1ret = loadODF(A1,CS,SS,'density','kernel',psi,'interface','generic','ColumnNames', {'phi1' 'Phi' 'phi2' 'weights'}, 'Bunge');%load all weights with a value greater than 0.0001 into a new variableweights= pf_rot.components{1}.weights (pf_rot.components{1}.weights>0.0001) %do the same for the center values that correspondcenters= pf_rot.components{1}.center (pf_rot.components{1}.weights>0.0001) export_VPSC(centers,'odfAZ80-5D.txt','weights', weights);