function pdemodel
[pde_fig,ax]=pdeinit;
pdetool('appl_cb',1);
set(ax,'DataAspectRatio',[1 0.8738794332163683 1]);
set(ax,'PlotBoxAspectRatio',[13.271604938271608 8.8477366255144059 1]);
set(ax,'XLimMode','auto');
set(ax,'YLimMode','auto');
set(ax,'XTick',[ -30,...
 -29,...
 -28,...
 -27,...
 -26,...
 -25,...
 -24,...
 -23,...
 -22,...
 -21,...
 -20,...
 -19,...
 -18,...
 -17,...
 -16,...
 -15,...
 -14,...
 -13,...
 -12,...
 -11,...
 -10,...
 -9,...
 -8,...
 -7,...
 -6,...
 -5,...
 -4,...
 -3,...
 -2,...
 -1,...
 0,...
 1,...
 2,...
 3,...
 4,...
 5,...
 6,...
 7,...
 8,...
 9,...
 10,...
 11,...
 12,...
 13,...
 14,...
 15,...
 16,...
 17,...
 18,...
 19,...
 20,...
 21,...
 22,...
 23,...
 24,...
 25,...
 26,...
 27,...
 28,...
 29,...
 30,...
]);
set(ax,'YTick',[ -10,...
 -9,...
 -8,...
 -7,...
 -6,...
 -5,...
 -4,...
 -3,...
 -2,...
 -1,...
 0,...
]);

% Geometry description:
pdepoly([ -40,...
 -40,...
 40,...
 40,...
 5,...
 5,...
 4,...
 4,...
 -3,...
 -3,...
 -4,...
 -4,...
],...
[ 0,...
 -10,...
 -10,...
 0,...
 0,...
 -2,...
 -2,...
 -1,...
 -1,...
 -4,...
 -4,...
 0,...
],...
 'P1');
set(findobj(get(pde_fig,'Children'),'Tag','PDEEval'),'String','P1')

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

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

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

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

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

% Solve PDE:
pdetool('solve')
