spec file reader: truerefplot(varargin) - File Exchange

Code covered by the BSD License

Highlights from
spec file reader

curvesave(varargin) CURVESAVE Called by specr and trueref to save current curves to files.
engwave ENGWAVE GUI to convert between energy and wavelength (X-ray)
foldxaxis FOLDXAXIS Fold the x axis along a user-defined center line. Called by
georocking Perform geometric correction for rocking scans. Called by specr
print2figure(varargin) PRINT2FIGURE Called by specr and trueref to print current plot to another
showmotorposition SHOWMOTORPOSITION Called by specr to show the current motor positions
showscan SHOWSCAN Called by specr to show the current scan data.
specr(varargin) SPECR Program to read spec files
specrsetting(varargin) GUI for specr settings
timebar(message,name,update_r... TIMEBAR Progress bar with estimated time remaining
truerefimport(varargin) TRUEREFIMPORT Called by trueref to import data.
ColorSet=varycolor(NumberOfPl... VARYCOLOR Produces colors with maximum variation on plots with multiple
convert2theta2qz(varargin)
curvederivative CURVEDERIVATIVE Called by specr to calculate curve gradient
curvelegend(hCurrentFig) CURVELENGEND Called by specr and trueref
curvenormalize(varargin) CURVENORMALIZE Called by specr and trueref
curvesmooth(varargin) CURVESMOOTH Called by specr to smooth current scans
footprint(varargin) FOOTPRINTGUI Called by specr and trueref.
invertxaxis(varargin)
litcount(filename, literal) Search for number of string matches per line.
mergescan(varargin) MERGESCAN Merge and plot scans from the same spec file.
monitorscan OPENSPEC Called by specr to load fids of scans in a selected spec file
mrgker(varargin) MRGKER Merge kernel function.
norm2maxi(varargin) NORM2MAXI Normalize reflectivity to maximum intensity
openspec(varargin) OPENSPEC Called by specr to load fids of scans in a selected spec file
params(scan) PARAMS Calculate peak,COM and FWHM of a scan
plotstyle(varargin)
rdspec(varargin) RDSPEC Non-interactive function to load a single scan from spec file.
refreshscanplot(varargin) REFRESHSCANPLOT Called by specr to reload scan(s) and plot.
resetfigspecr(varargin) Reset all the plots in specr
resettoolbar(hCurrentFig)
resettrueref(varargin)
save2workspace(varargin) SAVE2WORKSPACE Called by specr and trueref to save current plot data to
scanmerge(varargin) SCANMERGE Called by specr to read scans from current plot to call mrgker
scanplot(varargin) SCANPLOT Called by specr to plot scans.
selectscan(varargin) SELECTSCAN Called by specr to open scan listbox and load scans to plot.
smooth(varargin) SMOOTH Smooth data.
subtractbkg(varargin) SUBTRACTBKG GUI to subtract constant background; called by specr.
titlestr(a) TITLESTR Convert a string with underscores to a string that can be
trueref(varargin) TRUEREF GUI to calculate true reflectivity by subtracting longitudinal
truerefcal(varargin) TRUEREFCAL Called by trueref to calculate true reflectivity.
truerefmerge(varargin) TRUEREFMERGE Called by trueref to load current plots and call mrgker to
truerefplot(varargin) TRUEREFPLOT Called by trueref to plot data
View all files

from spec file reader by Zhang Jiang
Monitor, read, save scans from SPEC files and calculate true reflectivity.

truerefplot(varargin)

function truerefplot(varargin)
% TRUEREFPLOT Called by trueref to plot data
%
% Copyright 2004, Zhang Jiang

hFigTrueref = findall(0,'Tag','trueref_Fig');
hAxes = findall(hFigTrueref,'Tag','trueref_Axes');
if isappdata(hFigTrueref,'data')
    data = getappdata(hFigTrueref,'data');
else
    return;
end
% --- determine which curve to plot: all, ref, pos or neg
if nargin == 0
    plot_str = 'All';
else
    plot_str = varargin{1};
end
cla(hAxes);
% --- plot
switch plot_str
    case 'All'
        % --- plot reflecitivity
        if ~isempty(data.ref)
            hLineRef = [];
            for iLine = 1:length(data.ref)
                hLineRef(iLine) = line('Parent',hAxes,...
                    'XData',data.ref{iLine}(:,1),...
                    'YData',data.ref{iLine}(:,2),...
                    'Tag',['reflectivity',num2str(iLine)]);
                setappdata(hLineRef(iLine),'ydataError',data.ref{iLine}(:,3));
            end
            set(hLineRef,...
                'Color','k',...
                'LineStyle','-',...
                'Marker','o',...
                'MarkerSize',3,...
                'MarkerFaceColor','m');
        end
        % --- plot positive longitudinal diffuse
        if ~isempty(data.pos)
            hLinePos = [];
            for iLine = 1:length(data.pos)
                hLinePos(iLine) = line('Parent',hAxes,...
                    'XData',data.pos{iLine}(:,1),...
                    'YData',data.pos{iLine}(:,2),...
                    'Tag',['positiveLongDiffuse',num2str(iLine)]);
                setappdata(hLinePos(iLine),'ydataError',data.pos{iLine}(:,3));
            end
            set(hLinePos,...
                'Color','b',...
                'LineStyle','-',...
                'Marker','o',...
                'MarkerSize',3,...
                'MarkerFaceColor','m');
        end
        % --- plot negative longitudinal diffuse
        if ~isempty(data.neg)
            hLineNeg = [];
            for iLine = 1:length(data.neg)
                hLineNeg(iLine) = line('Parent',hAxes,...
                    'XData',data.neg{iLine}(:,1),...
                    'YData',data.neg{iLine}(:,2),...
                    'Tag',['negativeLongDiffuse',num2str(iLine)]);
                setappdata(hLineNeg(iLine),'ydataError',data.neg{iLine}(:,3));
            end
            set(hLineNeg,...
                'Color','g',...
                'LineStyle','-',...
                'Marker','o',...
                'MarkerSize',3,...
                'MarkerFaceColor','m');
        end
    case 'Ref'
        % --- plot reflecitivity
        if ~isempty(data.ref)
            hLineRef = [];
            for iLine = 1:length(data.ref)
                hLineRef(iLine) = line('Parent',hAxes,...
                    'XData',data.ref{iLine}(:,1),...
                    'YData',data.ref{iLine}(:,2),...
                    'Tag',['reflectivity',num2str(iLine)]);
                setappdata(hLineRef(iLine),'ydataError',data.ref{iLine}(:,3));
            end
            set(hLineRef,...
                'Color','k',...
                'LineStyle','-',...
                'Marker','o',...
                'MarkerSize',3,...
                'MarkerFaceColor','m');
        end
    case 'Pos'
        % --- plot positive longitudinal diffuse
        if ~isempty(data.pos)
            hLinePos = [];
            for iLine = 1:length(data.pos)
                hLinePos(iLine) = line('Parent',hAxes,...
                    'XData',data.pos{iLine}(:,1),...
                    'YData',data.pos{iLine}(:,2),...
                    'Tag',['positiveLongDiffuse',num2str(iLine)]);
                setappdata(hLinePos(iLine),'ydataError',data.pos{iLine}(:,3));
            end
            set(hLinePos,...
                'Color','b',...
                'LineStyle','-',...
                'Marker','o',...
                'MarkerSize',3,...
                'MarkerFaceColor','m');
        end
    case 'Neg'
        % --- plot negative longitudinal diffuse
        if ~isempty(data.neg)
            hLineNeg = [];
            for iLine = 1:length(data.neg)
                hLineNeg(iLine) = line('Parent',hAxes,...
                    'XData',data.neg{iLine}(:,1),...
                    'YData',data.neg{iLine}(:,2),...
                    'Tag',['negativeLongDiffuse',num2str(iLine)]);
                setappdata(hLineNeg(iLine),'ydataError',data.neg{iLine}(:,3));
            end
            set(hLineNeg,...
                'Color','g',...
                'LineStyle','-',...
                'Marker','o',...
                'MarkerSize',3,...
                'MarkerFaceColor','m');
        end
end
resettoolbar(hFigTrueref);
curvelegend(hFigTrueref);

Highlights from spec file reader

Highlights from
spec file reader