function pdemodel
[pde_fig,ax]=pdeinit;
pdetool('appl_cb',3);
set(ax,'DataAspectRatio',[1 0.90000000000000002 1]);
set(ax,'PlotBoxAspectRatio',[5 3.333333333333333 1]);
set(ax,'XLim',[0 10]);
set(ax,'YLim',[0 6]);
set(ax,'XTickMode','auto');
set(ax,'YTickMode','auto');

% Geometry description:
pderect([1 9 5 3],'R1');
pderect([1.3 1.2 0 3],'R2');
set(findobj(get(pde_fig,'Children'),'Tag','PDEEval'),'String','R1+R2')

% Boundary conditions:
pdetool('changemode',0)
pdesetbd(9,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))
pdesetbd(7,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))
pdesetbd(6,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))
pdesetbd(5,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))
pdesetbd(4,...
'dir',...
2,...
str2mat('1','0','0','1'),...
str2mat('0','0'))
pdesetbd(3,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))
pdesetbd(2,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))
pdesetbd(1,...
'neu',...
2,...
str2mat('0','0','0','0'),...
str2mat('0','0'))

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

% PDE coefficients:
pdeseteq(1,...
str2mat('2*((12500E6)./(2*(1+(0.1))))+(2*((12500E6)./(2*(1+(0.1)))).*(0.1)./(1-(0.1)))','0','(12500E6)./(2*(1+(0.1)))','0','(12500E6)./(2*(1+(0.1)))','2*((12500E6)./(2*(1+(0.1)))).*(0.1)./(1-(0.1))','0','(12500E6)./(2*(1+(0.1)))','0','2*((12500E6)./(2*(1+(0.1))))+(2*((12500E6)./(2*(1+(0.1)))).*(0.1)./(1-(0.1)))'),...
str2mat('0.0','0.0','0.0','0.0'),...
str2mat('0','-9.8*710/0.5'),...
str2mat('710','0','0','710'),...
'0:10',...
'0.0',...
'0.0',...
'[0 100]')
setappdata(pde_fig,'currparam',...
['12500E6     ';...
'0.1         ';...
'0           ';...
'-9.8*710/0.5';...
'710         '])

% Solve parameters:
setappdata(pde_fig,'solveparam',...
str2mat('0','1000','10','pdeadworst',...
'0.5','longest','0','1E-4','','fixed','Inf'))

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

% Solve PDE:
pdetool('solve')