function pdemodel
[pde_fig,ax]=pdeinit;
pdetool('appl_cb',1);
set(ax,'DataAspectRatio',[1 1 1]);
set(ax,'PlotBoxAspectRatio',[1.5 1 1]);
set(ax,'XLim',[-1.5 1.5]);
set(ax,'YLim',[-1 1]);
set(ax,'XTickMode','auto');
set(ax,'YTickMode','auto');
pdetool('gridon','on');

% Geometry description:
pdeellip(0.0045801526717557106,-0.0068649885583523806,0.99389312977099231,0.99313501144164762,...
0,'E1');
set(findobj(get(pde_fig,'Children'),'Tag','PDEEval'),'String','E1')

% Boundary conditions:
pdetool('changemode',0)
pdesetbd(4,...
'dir',...
1,...
'1',...
'2+.5*y-.1*x+y.^2+(x.^2-y.^2).^2-4*y.^2.*x.^2')
pdesetbd(3,...
'dir',...
1,...
'1',...
'2+.5*y-.1*x+y.^2+(x.^2-y.^2).^2-4*y.^2.*x.^2')
pdesetbd(2,...
'dir',...
1,...
'1',...
'2+.5*y-.1*x+y.^2+(x.^2-y.^2).^2-4*y.^2.*x.^2')
pdesetbd(1,...
'dir',...
1,...
'1',...
'2+.5*y-.1*x+y.^2+(x.^2-y.^2).^2-4*y.^2.*x.^2')

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

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

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

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