function pdemodel
[pde_fig,ax]=pdeinit;
pdetool('appl_cb',5);
pdetool('snapon','on');
set(ax,'DataAspectRatio',[4.917934614870811 3.7995555555555565 1]);
set(ax,'PlotBoxAspectRatio',[1 1 1]);
set(ax,'XLim',[0.093558684926965396 9.9294279146685867]);
set(ax,'YLim',[1.322044444444443 8.9211555555555559]);
set(ax,'XTickMode','auto');
set(ax,'YTickMode','auto');
pdetool('gridon','on');

% Geometry description:
pderect([-5 15 15 -5],'SQ1');
pderect([1 1.1000000000000001 6 4],'R1');
pderect([3 3.0999999999999996 6 4],'R2');
pderect([5 5.0999999999999996 6 4],'R3');
pderect([7 7.0999999999999996 6 4],'R4');
pderect([9 9.0999999999999996 6 4],'R5');
set(findobj(get(pde_fig,'Children'),'Tag','PDEEval'),'String','SQ1-R1-R2-R3-R4-R5')

% Boundary conditions:
pdetool('changemode',0)
pdesetbd(24,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(23,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(22,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(21,...
'dir',...
1,...
'1',...
'100')
pdesetbd(20,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(19,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(18,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(17,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(16,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(15,...
'dir',...
1,...
'1',...
'100')
pdesetbd(14,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(13,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(12,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(11,...
'dir',...
1,...
'1',...
'100')
pdesetbd(10,...
'dir',...
1,...
'1',...
'100')
pdesetbd(9,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(8,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(7,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(6,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(5,...
'dir',...
1,...
'0',...
'0')
pdesetbd(4,...
'dir',...
1,...
'0',...
'0')
pdesetbd(3,...
'dir',...
1,...
'1',...
'-50')
pdesetbd(2,...
'dir',...
1,...
'0',...
'0')
pdesetbd(1,...
'dir',...
1,...
'0',...
'0')

% Mesh generation:
setappdata(pde_fig,'Hgrad',1.3);
setappdata(pde_fig,'refinemethod','regular');
pdetool('initmesh')

% PDE coefficients:
pdeseteq(1,...
'1.0',...
'0.0',...
'0.1',...
'1.0',...
'0:10',...
'0.0',...
'0.0',...
'[0 100]')
setappdata(pde_fig,'currparam',...
['1.0';...
'0.1'])

% Solve parameters:
setappdata(pde_fig,'solveparam',...
str2mat('1','5096','10','pdeadworst',...
'0.5','longest','1','1e-4','','fixed','inf'))

% Plotflags and user data strings:
setappdata(pde_fig,'plotflags',[2 1 1 1 1 2 7 1 0 0 0 1 1 0 0 1 0 1]);
setappdata(pde_fig,'colstring','');
setappdata(pde_fig,'arrowstring','');
setappdata(pde_fig,'deformstring','');
setappdata(pde_fig,'heightstring','');

% Solve PDE:
pdetool('solve')
