initial commit

.gitignore

@@ -0,0 +1 @@
+*.asv

BLOCHUS/BLOCHUS.m

@@ -0,0 +1,95 @@
+function BLOCHUS
+%BLOCHUS is a graphical user interface (GUI) to simulate NMR spin dynamics
+%based on the Bloch equations
+%
+% Syntax:
+%       BLOCHUS
+%
+% Inputs:
+%       none
+%
+% Outputs:
+%       none
+%
+% Example:
+%       BLOCHUS
+%
+% Other m-files required:
+%       BLOCHUS_createGUI.m
+%       BLOCHUS_loadDefaults.m
+%       calculateGuiOnMonitorPosition.m
+%
+% Subfunctions:
+%       none
+%
+% MAT-files required:
+%       none
+%
+% See also BLOCHUS
+% Author: Thomas Hiller
+% email: thomas.hiller[at]leibniz-liag.de
+% License: GNU GPLv3 (at end)
+
+%------------- BEGIN CODE --------------
+
+%% GUI 'header' info and default GUI settings
+myui.version = '0.1.0';
+myui.date = '15.05.2020';
+myui.author = 'Thomas Hiller';
+myui.email = 'thomas.hiller[at]leibniz-liag.de';
+
+myui.fontsize = 9;
+myui.axfontsize = 11;
+myui.linewidth = 2;
+myui.color.basic = [143 188 143]./255;
+myui.color.prepol = [222 184 135]./255;
+myui.color.prepolB = [0.635 0.078 0.184];
+myui.color.wait = [240 128 128]./255;
+myui.color.pulse = [100 149 237]./255;
+
+%% Default data settings
+data = BLOCHUS_loadDefaults;
+
+%% GUI initialization
+gui.figh = figure('Name','BLOCHUS - BLOCHUniversalSimulator',...
+    'NumberTitle','off','Tag','BLOCHUS','ToolBar','none','MenuBar','none',...
+    'SizeChangedFcn',@onFigureSizeChange);
+
+% position on screen
+pos = BLOCHUS_setPositionOnScreen;
+set(gui.figh,'Position',pos);
+
+%% GUI data
+gui.myui = myui;
+
+% save the data struct within the GUI
+setappdata(gui.figh,'data',data);
+setappdata(gui.figh,'gui',gui);
+
+%% Create GUI elements
+BLOCHUS_createGUI(gui.figh,true);
+% update status bar
+updateStatusInformation(gui.figh);
+
+end
+
+%------------- END OF CODE --------------
+
+%% License:
+% GNU GPLv3
+%
+% BLOCHUS
+% Copyright (C) 2019 Thomas Hiller
+%
+% This program is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program.  If not, see <https://www.gnu.org/licenses/>.

BLOCHUS/BLOCHUS_createGUI.m

@@ -0,0 +1,177 @@
+function BLOCHUS_createGUI(h,wbon)
+%BLOCHUS_createGUI controls the creation of all GUI elements
+%
+% Syntax:
+%       BLOCHUS_createGUI(h)
+%
+% Inputs:
+%       h - figure handle
+%       wbon - show waitbar (yes=true, no=false)
+%
+% Outputs:
+%       none
+%
+% Example:
+%       BLOCHUS_createGUI(h,true)
+%
+% Other m-files required:
+%
+% Subfunctions:
+%       none
+%
+% MAT-files required:
+%       none
+%
+% See also: BLOCHUS
+% Author: Thomas Hiller
+% email: thomas.hiller[at]leibniz-liag.de
+% License: GNU GPLv3 (at end)
+
+%------------- BEGIN CODE --------------
+
+%% get GUI data
+data = getappdata(h,'data');
+gui = getappdata(h,'gui');
+myui = gui.myui;
+
+%% initialize wait bar
+if wbon
+    hwb = waitbar(0,'loading ...','Name','BLOCHUS initialization','Visible','off');
+    steps = 6;
+    if ~isempty(h)
+        posf = get(h,'Position');
+        set(hwb,'Units','Pixel')
+        posw = get(hwb,'Position');
+        set(hwb,'Position',[posf(1)+posf(3)/2-posw(3)/2 posf(2)+posf(4)/2-posw(4)/2 posw(3:4)]);
+    end
+    set(hwb,'Visible','on');
+end
+
+
+
+%% uimenus
+if wbon
+    waitbar(1/steps,hwb,'loading GUI elements - menus');
+end
+gui = BLOCHUS_createMenus(gui);
+
+%% MAIN GUI "BOX"
+gui.main = uix.VBox('Parent',gui.figh,'Visible','off');
+
+% top part for settings and plots
+gui.top = uix.HBox('Parent',gui.main);
+% bottom part for the status bar
+gui.bottom = uix.HBox('Parent',gui.main);
+set(gui.main,'Heights',[-1 20]);
+
+% top left contains the three main panels plus the control panel
+gui.leftTop = uix.VBox('Parent',gui.top);
+% all plots in a flexible grid on the right side
+gui.right = uix.GridFlex('Parent',gui.top,'Spacing',7);
+set(gui.top,'Widths',[330 -1]);
+set(gui.top,'MinimumWidths',[330 200]);
+
+% the three main panels are inside a vertically scrollable panel
+gui.left = uix.ScrollingPanel('Parent',gui.leftTop);
+% but the control panel is fixed to the bottom
+gui.panels.Control.main = uix.BoxPanel('Parent',gui.leftTop,'Title','Control',...
+    'TitleColor',[164 164 164]./255,'ForegroundColor','k');
+set(gui.leftTop,'Heights',[-1 53]);
+
+%% A. settings column
+gui.panels.main = uix.VBox('Parent',gui.left);
+gui.panels.Basic.main = uix.BoxPanel('Parent',gui.panels.main,'Title','Basics',...
+    'TitleColor',myui.color.basic,'ForegroundColor','k','MinimizeFcn',@minimizePanel);
+gui.panels.PrePol.main = uix.BoxPanel('Parent',gui.panels.main,'Title','Pre-polarization switch-off',...
+    'TitleColor',myui.color.prepol,'ForegroundColor','k','MinimizeFcn',@minimizePanel);
+gui.panels.Pulse.main = uix.BoxPanel('Parent',gui.panels.main,'Title','Pulse',...
+    'TitleColor',myui.color.pulse,'ForegroundColor','k','MinimizeFcn',@minimizePanel);
+uix.Empty('Parent',gui.panels.main);
+
+% adjust the heights of all left-column-panels
+% edit and popup elements are 24
+edith = 24;
+% panel header is always 22 high
+headerh = 22;
+% spacing is set to 3
+spacing = 3;
+% maximal height of each panel
+basic_max = 7*edith+8*spacing+headerh;
+prepol_max = 9*edith+10*spacing+headerh;
+pulse_max = 13*edith+14*spacing+headerh;
+% save the heights information (needed for minimizing the panels)
+myui.heights = [22 22 22 -1; basic_max prepol_max pulse_max -1];
+set(gui.panels.main,'Heights',myui.heights(2,:),...
+    'MinimumHeights',[22 22 22 0]);
+% the 'MinimumHeights' guarantees that the three panels fit into the
+% ScrollingPanel when the GUI becomes smaller
+set(gui.left,'Heights',-1,'MinimumHeights',basic_max+prepol_max+pulse_max);
+
+if wbon
+    waitbar(2/steps,hwb,'loading GUI elements - Basic panel');
+end
+[gui,myui] = BLOCHUS_createPanelBasic(data,gui,myui);
+
+if wbon
+    waitbar(2/steps,hwb,'loading GUI elements - PrePol panel');
+end
+[gui,myui] = BLOCHUS_createPanelPrePol(data,gui,myui);
+
+if wbon
+    waitbar(3/steps,hwb,'loading GUI elements - Pulse panel');
+end
+[gui,myui] = BLOCHUS_createPanelPulse(data,gui,myui);
+
+if wbon
+    waitbar(5/steps,hwb,'loading GUI elements - Control panel');
+end
+[gui,myui] = BLOCHUS_createPanelControl(gui,myui);
+
+if wbon
+    waitbar(6/steps,hwb,'loading GUI elements - Plot panel');
+end
+[gui,myui] = BLOCHUS_createGridPlots(gui,myui);
+
+% delete wait bar
+if wbon
+    delete(hwb);
+end
+
+[gui,myui] = BLOCHUS_createStatusbar(gui,myui);
+
+% make the main GUI visible
+set(gui.main,'Visible','on');
+
+%% enable all menus
+set(gui.menu.file,'Enable','on');
+set(gui.menu.view,'Enable','on');
+set(gui.menu.help,'Enable','on');
+
+%% update the GUI data
+gui.myui = myui;
+setappdata(gui.figh,'gui',gui);
+setappdata(gui.figh,'data',data);
+set(gui.text_handles.Status,'String','BLOCHUS successfully started');
+
+end
+
+%------------- END OF CODE --------------
+
+%% License:
+% GNU GPLv3
+%
+% BLOCHUS
+% Copyright (C) 2019 Thomas Hiller
+%
+% This program is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program.  If not, see <https://www.gnu.org/licenses/>.