function tunnelliner

% Creator: Violeta Ivanova, Office of Educational Innovation and Technology.
% TUNNELLINER opens a GUI for analysis of circular tunnels.
% Developed to support course material in 1.383 Underground Construction.
% Faculty: Prof. Herbert H. Einstein, Civil & Environmental Engineering.

fig1 = openfig('TunnellinerGUI.fig', 'reuse');
figure(fig1)

set(fig1, 'DoubleBuffer',       'on')
set(fig1, 'HandleVisibility',   'on')

E_ground          = findobj( fig1, 'Tag', 'E_ground');
nu_ground         = findobj( fig1, 'Tag', 'nu_ground');
K_ground          = findobj( fig1, 'Tag', 'K_ground');
gamma_ground      = findobj( fig1, 'Tag', 'gamma_ground');
h_ground          = findobj( fig1, 'Tag', 'h_ground');
E_liner           = findobj( fig1, 'Tag', 'E_liner');
nu_liner          = findobj( fig1, 'Tag', 'nu_liner');
R_liner           = findobj( fig1, 'Tag', 'R_liner');
theta_liner       = findobj( fig1, 'Tag', 'theta_liner');
tmin_liner        = findobj( fig1, 'Tag', 'tmin_liner');
tmax_liner        = findobj( fig1, 'Tag', 'tmax_liner');
t_result          = findobj( fig1, 'Tag', 't_result');
T_result          = findobj( fig1, 'Tag', 'T_result');
M_result          = findobj( fig1, 'Tag', 'M_result');
P_result          = findobj( fig1, 'Tag', 'P_result');
sT_result         = findobj( fig1, 'Tag', 'sT_result');
sM_result         = findobj( fig1, 'Tag', 'sM_result');
slip_popup        = findobj( fig1, 'Tag', 'slip_popup');
compute_button    = findobj( fig1, 'Tag', 'compute_button');

set( slip_popup,    'String', {'slip', 'no slip'});
set( slip_popup,    'Value' ,  1);
set( E_ground,      'String', '750');
set( nu_ground,     'String', '0.3');
set( K_ground,      'String', '0.5');
set( gamma_ground,  'String', '21');
set( h_ground,      'String', '20');
set( E_liner,       'String', '25000');
set( nu_liner,      'String', '0.15');
set( R_liner,       'String', '3');
set( theta_liner,   'String', '10');
set( tmin_liner,    'String', '0.1');
set( tmax_liner,    'String', '0.2');
set( t_result,      'String', '0.1');
set( T_result,      'String', '?');
set( M_result,      'String', '?');
set( P_result,      'String', '?');
set( sT_result,     'String', '?');
set( sM_result,     'String', '?');

set(compute_button,         'Callback', 'tunnellinercallback');

return