spec file reader: engwave - 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.

engwave

function engwave
% ENGWAVE GUI to convert between energy and wavelength (X-ray)
%
% Copyright 2004 Zhang Jiang
% $Reversion: 2.0 $ $Date: 2004/06/18 21:22:17 $

h1 = findall(0,'Tag','figureEngwav');
if isempty(h1)
    initFigure;
else
    figure(h1);
end


%===================================================
% initialize figure layout
%===================================================
function initFigure
screenSize = get(0,'screensize');
figureWidth = 260;
figureHeight = 180;
figureSize = [screenSize(3)/2-figureWidth/2,screenSize(4)/2-figureHeight/2,figureWidth,figureHeight];
h1 = figure(...
    'Units','pixels',...
    'MenuBar','none',...
    'Name','Convert Energy/Wavelength',...
    'NumberTitle','off',...
    'Position',figureSize,...
    'HandleVisibility','callback',...
    'Tag','figureEngwav',...
    'Resize','off',...
    'UserData',[]);
panelSize = [10 figureHeight-90 figureWidth-20 80];
h2 = uipanel(...
    'Parent',h1,...
    'BackgroundColor',get(h1,'Color'),...
    'Title','Select X-ray Energy <===> Wavelength',...
    'Units','pixels',...
    'Position',panelSize);
radiobutton1Size = [20 panelSize(4)-45 panelSize(3)-30 30];
h3 = uicontrol(...
    'Parent',h2,...
    'Units','pixels',...
    'Callback',@radiobuttonEng2Wav_Callback,...    
    'Style','radiobutton',...
    'BackgroundColor',get(h1,'Color'),...
    'Position',radiobutton1Size,...
    'String',{'Energy to Wavelength'},...
    'Tag','radiobuttonEng2Wav',...
    'Value',1);
radiobutton2Size = [20 panelSize(4)-70 panelSize(3)-30 30];
h4 = uicontrol(...
    'Parent',h2,...
    'Units','pixels',...
    'Callback',@radiobuttonWav2Eng_Callback,...    
    'Style','radiobutton',...
    'BackgroundColor',get(h1,'Color'),...
    'Position',radiobutton2Size,...
    'String',{'Wavelength to Energy'},...
    'Tag','radiobuttonWav2Eng',...
    'Value',0);
edit1Size = [10 panelSize(2)-40 110 23];
h5 = uicontrol(...
    'Parent',h1,...
    'Units','pixels',...
    'Style','edit',...
    'Position',edit1Size,...
    'BackgroundColor',[1 1 1],...
    'Tag','edit1',...
    'HorizontalAlignment','right');
edit2Size = [10 edit1Size(2)-35 110 23];
h6 = uicontrol(...
    'Parent',h1,...
    'Units','pixels',...
    'Style','edit',...
    'Position',edit2Size,...
    'BackgroundColor',[1 1 1],...
    'Tag','edit2',...
    'HorizontalAlignment','right');
text1Size = [edit1Size(1)+edit1Size(3)+5 edit1Size(2)-10 30 30];
h7 = uicontrol(...
    'Parent',h1,...
    'Units','pixels',...
    'Style','text',...
    'Position',text1Size,...
    'BackgroundColor',get(h1,'Color'),...
    'Tag','textUnit1',...
    'HorizontalAlignment','left',...
    'String','KeV');
OKSize = [text1Size(1)+text1Size(3) edit1Size(2) figureWidth-text1Size(1)-text1Size(3)-10 25];
h8 = uicontrol(...
    'Parent',h1,...
    'Units','pixels',...
    'Callback',@pushbuttonConvert_Callback,...
    'Style','pushbutton',...
    'String','Convert',...
    'Tag','pushbuttonConvert',...
    'Position',OKSize);
text2Size = [edit2Size(1)+edit2Size(3)+5 edit2Size(2)-10 30 30];
h9 = uicontrol(...
    'Parent',h1,...
    'Units','pixels',...
    'Style','text',...
    'Position',text2Size,...
    'BackgroundColor',get(h1,'Color'),...
    'Tag','textUnit2',...
    'HorizontalAlignment','left',...
    'String','Ang');
cancelSize = [text2Size(1)+text2Size(3) edit2Size(2) figureWidth-text2Size(1)-text2Size(3)-10 25];
h10 = uicontrol(...
    'Parent',h1,...
    'Units','pixels',...
    'Callback','close(findall(0,''Tag'',''figureEngwav''))',...
    'Style','pushbutton',...
    'String','Close',...
    'Tag','pushbuttonClose',...
    'Position',cancelSize);    


function radiobuttonEng2Wav_Callback(obj,eventdata)
set(findobj(gcf,'Tag','radiobuttonEng2Wav'),'Value',1);
set(findobj(gcf,'Tag','radiobuttonWav2Eng'),'Value',0);
set(findobj(gcf,'Tag','textUnit1'),'String','KeV');
set(findobj(gcf,'Tag','textUnit2'),'String','Ang');
set(findobj(gcf,'Style','edit'),'String','');


function radiobuttonWav2Eng_Callback(obj,eventdata)
set(findobj(gcf,'Tag','radiobuttonEng2Wav'),'Value',0);
set(findobj(gcf,'Tag','radiobuttonWav2Eng'),'Value',1);
set(findobj(gcf,'Tag','textUnit1'),'String','Ang');
set(findobj(gcf,'Tag','textUnit2'),'String','KeV');
set(findobj(gcf,'Style','edit'),'String','');


function pushbuttonConvert_Callback(obj,eventdata)
edit1 = get(findobj(gcf,'Tag','edit1'),'String');
edit1 = str2double(edit1);
if isnan(edit1)
    return;
end
h = 6.626068E-34 ;
c = 299792458;
e = 1.60217646E-19;
warning off Matlab:divideByZero;
if get(findobj(gcf,'Tag','radiobuttonEng2Wav'),'Value')
    wavelength = double(h*c/(edit1*1000.0*e)*1e10);
    set(findobj(gcf,'Tag','edit2'),'String',sprintf('%12.12f',wavelength));
else
    energy = double(h*c/(edit1*1E-10)/e/1000.0);
    set(findobj(gcf,'Tag','edit2'),'String',sprintf('%12.12f',energy));
end
warning on Matlab:divideByZero;

Highlights from spec file reader

Highlights from
spec file reader