%-------------------------------------------------------------------------------
% INITIATE DATA FIGURE
%-------------------------------------------------------------------------------
global initx;
hFig = findobj( allchild(0), 'Name', 'HSP Data Center' );
% If GUI already exists, bring it to front and escape
if ~isempty(hFig),
set(0,'CurrentFigure',hFig);
return
end
% Time to make a new figure
% Warn user of possible delay
disp('Building HSP Data Interface...')
HspSaveCmd = ['save hsp_data ',...
'Csa Csp Cep Csv Cev Cpa Cpp Cpv Rsa Rsv Rev Rpa Rpp Rpv ',...
'Vusa Vusp Vuep Vupa Vupp Vupv Lsa Lpa ',...
'Cla Vula Rla P0lv KElv Vulv KRlv ',...
'Cra Vura Rra P0rv KErv Vurv KRrv Vt Tsys0 ksys'];
%------------------------------------------------------------------------------
% Load Hsp data -- if not available, Define default parameters
%------------------------------------------------------------------------------
if exist('hsp_data.mat') == 2;
load hsp_data.mat;
else
%display info message
fprintf('\nDefault settings being saved as ''hsp_data.mat...'' \n');
% Initialize variables
%Compliance (ml/mmHg)
Csa=0.28;
Csp=2.05;
Cep=1.67;
Csv=61.11;
Cev=50.0;
Cpa=0.76;
Cpp=5.80;
Cpv=25.37;
%Hydraulic Resistance (mmHg*s/ml)
Rsa=0.06;
% Rsp=3.307;
% Rep=1.407;
Rsv=0.038;
Rev=0.016;
Rpa=0.023;
Rpp=0.0894;
Rpv=0.0056;
%Unstressed Volumn (ml)
Vusa=0;
Vusp=274.4;
Vuep=336.6;
% Vusv=1121;
% Vuev=1375;
Vupa=0;
Vupp=123;
Vupv=120;
%Inertance (mmHg*ml*s^(-2))
Lsa=0.22e-3;
Lpa=0.18e-3;
%Left Heart
Cla=19.23;
Vula=25;
Vulv=16.77;
Rla=25e-3;
KElv=0.014;
%Emaxlv=2.95;
KRlv=3.75e-4;
P0lv=1.5;
%Right Heart
Cra=31.25;
Vura=25;
Vurv=40.8;
Rra=2.5e-3;
KErv=0.011;
% Emaxrv=1.75;
KRrv=1.4e-3;
P0rv=1.5;
%Heart Beat
Tsys0=0.5;
ksys=0.075;
%Total Amount of Blood
Vt=5300;
% Save Data
save hsp_data Csa Csp Cep Csv Cev Cpa Cpp Cpv Rsa Rsv Rev Rpa Rpp Rpv ...
Vusa Vusp Vuep Vupa Vupp Vupv Lsa Lpa ...
Cla Vula Rla P0lv KElv Vulv KRlv ...
Cra Vura Rra P0rv KErv Vurv KRrv Vt Tsys0 ksys
end
load HspInit
%Main Window
h0 = figure('Units','points', ...
'Color',[0.7529411764705882 0.7529411764705882 0.7529411764705882], ...
'Colormap',mat0, ...
'Name','HSP Data Center', ...
'NumberTitle','off', ...
'PaperPosition',[18 180 576.0000000000001 432.0000000000002], ...
'PaperUnits','points', ...
'Position',[0 0 496.5517241379312 342.6206896551725], ...
'Tag','Hsp', ...
'ToolBar','none', ...
'UserData',HspSaveCmd);
%Title Label
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'FontName','Geneva', ...
'FontSize',24, ...
'FontWeight','bold', ...
'ListboxTop',0, ...
'Position',[55.24137931034484 291.7241379310345 394.7586206896552 29.79310344827587], ...
'String','HSP Data Center', ...
'Style','text', ...
'Tag','TitleBar');
%Save Button
h1 = uicontrol('Parent',h0, ...
'Style' , 'pushbutton' , ...
'String' , 'Save' , ...
'Units' , 'points' , ...
'Position',[422.0689655172415 63.31034482758622 45.31034482758621 19.86206896551725], ...
'Callback' , HspSaveCmd , ...
'Tag' , 'SaveBtn' );
%Reset Button
h1 = uicontrol('Parent',h0, ...
'Style' , 'pushbutton' , ...
'String' , 'Reset' , ...
'Units' , 'points' , ...
'Position',[423.3103448275863 33.51724137931035 45.31034482758621 19.86206896551725], ...
'Callback' , 'delete(gcf); HspInit;' , ... , ...
'Tag' , 'ResetBtn' );
%Compliance
%Csa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat3, ...
'String','Csa', ...
'Style','text', ...
'Tag','Csa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 258.2758620689656 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Csa)'), ...
'Callback','Csa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Csa');
%Csp
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat8, ...
'String','Csp', ...
'Style','text', ...
'Tag','Csp');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 235.8620689655173 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Csp)'), ...
'Callback', 'Csp=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Csp');
%Cep
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat9, ...
'String','Cep', ...
'Style','text', ...
'Tag','Cep');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 213.448275862069 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cep)'), ...
'Callback','Cep=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Cep');
%Csv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat10, ...
'String','Csv', ...
'Style','text', ...
'Tag','Csv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat4, ...
'String',eval('num2str(Csv)'), ...
'Callback','Csv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Csv');
%Cev
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat11, ...
'String','Cev', ...
'Style','text', ...
'Tag','Cev');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 168.6206896551725 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cev)'), ...
'Callback','Cev=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Cev');
%Cpa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat12, ...
'String','Cpa', ...
'Style','text', ...
'Tag','Cpa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 146.2068965517242 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cpa)'), ...
'Callback','Cpa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Cpa');
%Cpp
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat13, ...
'String','Cpp', ...
'Style','text', ...
'Tag','Cpp');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 123.7931034482759 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cpp)'), ...
'Style','edit', ...
'Callback','Cpp=str2num(get(gcbo, ''String''));',...
'Tag','Cpp');
%Cpv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[47.79310344827587 101.3793103448276 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cpv)'), ...
'Style','edit', ...
'Callback','Cpv=str2num(get(gcbo, ''String''));',...
'Tag','Cpv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat14, ...
'String','Cpv', ...
'Style','text', ...
'Tag','Cpv');
%Vusa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat22, ...
'String','Vusa', ...
'Style','text', ...
'Tag','Vusa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 259.448275862069 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vusa)'), ...
'Callback','Vusa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vusa');
%Vusp
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat21, ...
'String','Vusp', ...
'Style','text', ...
'Tag','Vusp');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 237.1034482758621 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vusp)'), ...
'Callback','Vusp=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vusp');
%Vuep
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat20, ...
'String','Vuep', ...
'Style','text', ...
'Tag','Vuep');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 214.7586206896552 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vuep)'), ...
'Callback','Vuep=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vuep');
%Vusv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat19, ...
'String','Vusv', ...
'Style','text', ...
'Tag','Vusv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 192.4137931034483 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(initx(5))'), ...
'Callback','initx(5)=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vusv');
%Vuev
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat18, ...
'String','Vuev', ...
'Style','text', ...
'Tag','Vuev');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 170.0689655172414 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(initx(6))'), ...
'Callback','initx(6)=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vuev');
%Vupa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat17, ...
'String','Vupa', ...
'Style','text', ...
'Tag','Vupa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 147.7241379310345 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vupa)'), ...
'Callback','Vupa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vupa');
%Vupp
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat16, ...
'String','Vupp', ...
'Style','text', ...
'Tag','Vupp');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 124.7586206896552 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vupp)'), ...
'Callback','Vupp=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vupp');
%Vupv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat15, ...
'String','Vupv', ...
'Style','text', ...
'Tag','Vupv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[147.1034482758621 102.4137931034483 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vupv)'), ...
'Callback','Vupv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vupv');
%Rsa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[209.7931034482759 258.2068965517242 24.20689655172414 12.41379310344828], ...
'String','Rsa', ...
'Style','text', ...
'Tag','Rsa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 258.8275862068966 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rsa)'), ...
'Callback','Rsa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rsa');
%Rsp
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[209.7931034482759 235.8620689655173 24.20689655172414 12.41379310344828], ...
'String','Rsp', ...
'Style','text', ...
'Tag','Rsp');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 236.4827586206897 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(initx(3))'), ...
'Callback','initx(3)=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rsp');
%Rep
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[209.7931034482759 213.5172413793104 24.20689655172414 12.41379310344828], ...
'String','Rep', ...
'Style','text', ...
'Tag','Rep');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 214.1379310344828 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(initx(4))'), ...
'Callback','initx(4)=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rep');
%Rsv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[209.7931034482759 191.1724137931035 24.20689655172414 12.41379310344828], ...
'String','Rsv', ...
'Style','text', ...
'Tag','Rsv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 191.7931034482759 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rsv)'), ...
'Callback','Rsv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rsv');
%Rev
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[209.7931034482759 168.8275862068966 24.20689655172414 12.41379310344828], ...
'String','Rev', ...
'Style','text', ...
'Tag','Rev');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 169.448275862069 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rev)'), ...
'Callback','Rev=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rev');
%Rpa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[209.7931034482759 146.4827586206897 24.20689655172414 12.41379310344828], ...
'String','Rpa', ...
'Style','text', ...
'Tag','Rpa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 147.1034482758621 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rpa)'), ...
'Callback','Rpa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rpa');
%Rpp
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat23, ...
'String','Rpp', ...
'Style','text', ...
'Tag','Rpp');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 124.1379310344828 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rpp)'), ...
'Callback','Rpp=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rpp');
%Rpv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat24, ...
'String','Rpv', ...
'Style','text', ...
'Tag','Rpv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[243.9310344827587 101.7931034482759 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rpv)'), ...
'Callback','Rsa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rpv');
%Cla
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 258.8275862068966 24.20689655172414 12.41379310344828], ...
'String','Cla', ...
'Style','text', ...
'Tag','Cla');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 259.448275862069 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cla)'), ...
'Callback','Cla=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Cla');
%Vula
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 236.4827586206897 24.20689655172414 12.41379310344828], ...
'String','Vula', ...
'Style','text', ...
'Tag','Vula');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 237.1034482758621 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vula)'), ...
'Callback','Vula=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vula');
%Rla
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 214.1379310344828 24.20689655172414 12.41379310344828], ...
'String','Rla', ...
'Style','text', ...
'Tag','Rla');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 214.7586206896552 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Rla)'), ...
'Callback','Rla=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rla');
%P0lv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 191.7931034482759 24.20689655172414 12.41379310344828], ...
'String','P0lv', ...
'Style','text', ...
'Tag','P0lv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 192.4137931034483 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(P0lv)'), ...
'Callback','P0lv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','P0lv');
%KElv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 169.448275862069 24.20689655172414 12.41379310344828], ...
'String','KElv', ...
'Style','text', ...
'Tag','KElv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 170.0689655172414 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(KElv)'), ...
'Callback','KElv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','KElv');
%Vulv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 147.1034482758621 24.20689655172414 12.41379310344828], ...
'String','Vulv', ...
'Style','text', ...
'Tag','Vulv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 147.7241379310345 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vulv)'), ...
'Callback','Vulv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vulv');
%Emaxlv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 124.1379310344828 24.20689655172414 12.41379310344828], ...
'String','Emlv', ...
'Style','text', ...
'Tag','Emaxlv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 124.7586206896552 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(initx(1))'), ...
'Callback','initx(1)=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Emaxlv');
%KRlv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[307.8620689655173 101.7931034482759 24.20689655172414 12.41379310344828], ...
'String','KRlv', ...
'Style','text', ...
'Tag','KRlv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[342.0000000000001 102.4137931034483 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(KRlv)'), ...
'Callback','KRlv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','KRlv');
%Cra
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 260.0689655172415 24.20689655172414 12.41379310344828], ...
'String','Cra', ...
'Style','text', ...
'Tag','Cra');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[433.8620689655173 260.6896551724138 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Cra)'), ...
'Callback','Cra=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Cra');
%Vura
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 237.7241379310345 24.20689655172414 12.41379310344828], ...
'String','Vura', ...
'Style','text', ...
'Tag','Vura');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat25, ...
'String',eval('num2str(Vura)'), ...
'Callback','Vura=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vura');
%Rra
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',mat30, ...
'String','Rra', ...
'Style','text', ...
'Tag','Rra');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat26, ...
'String',eval('num2str(Rra)'), ...
'Callback','Rra=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Rra');
%P0rv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 193.0344827586207 24.20689655172414 12.41379310344828], ...
'String','P0rv', ...
'Style','text', ...
'Tag','P0rv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[433.8620689655173 193.6551724137931 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(P0rv)'), ...
'Callback','P0rv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','P0rv');
%KErv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 170.6896551724138 24.20689655172414 12.41379310344828], ...
'String','KErv', ...
'Style','text', ...
'Tag','KErv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat27, ...
'String',eval('num2str(KErv)'), ...
'Callback','KErv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','KErv');
%Vurv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 148.3448275862069 24.20689655172414 12.41379310344828], ...
'String','Vurv', ...
'Style','text', ...
'Tag','Vurv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',[433.8620689655173 148.9655172413793 37.24137931034483 12.41379310344828], ...
'String',eval('num2str(Vurv)'), ...
'Callback','Vurv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Vurv');
%Emaxrv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 125.3793103448276 24.20689655172414 12.41379310344828], ...
'String','Emrv', ...
'Style','text', ...
'Tag','Emaxrv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat28, ...
'String',eval('num2str(initx(2))'), ...
'Callback','initx(2)=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Emaxrv');
%KRrv
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[399.7241379310346 103.0344827586207 24.20689655172414 12.41379310344828], ...
'String','KRrv', ...
'Style','text', ...
'Tag','KRrv');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat29, ...
'String',eval('num2str(KRrv)'), ...
'Callback','KRrv=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','KRrv');
%Lsa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[74.48275862068967 71.3793103448276 24.20689655172414 12.41379310344828], ...
'String','Lsa', ...
'Style','text', ...
'Tag','Lsa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat5, ...
'String',eval('num2str(Lsa)'), ...
'Callback','Lsa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Lsa');
%Lpa
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
'ListboxTop',0, ...
'Position',[74.48275862068967 49.0344827586207 24.20689655172414 12.41379310344828], ...
'String','Lpa', ...
'Style','text', ...
'Tag','Lpa');
h1 = uicontrol('Parent',h0, ...
'Units','points', ...
'BackgroundColor',[1 1 1], ...
'ListboxTop',0, ...
'Position',mat6, ...
'String',eval('num2str(Lpa)'), ...
'Callback','Lpa=str2num(get(gcbo, ''String''));',...
'Style','edit', ...
'Tag','Lpa');
