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

% Geometry description:
pderect([0 1 1 0],'SQ1');
set(findobj(get(pde_fig,'Children'),'Tag','PDEEval'),'String','SQ1')

% Boundary conditions:
pdetool('changemode',0)
pdesetbd(4,...
'dir',...
1,...
'1',...
'0')
pdesetbd(3,...
'dir',...
1,...
'1',...
'0')
pdesetbd(2,...
'dir',...
1,...
'1',...
'0')
pdesetbd(1,...
'dir',...
1,...
'1',...
'0')

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

% PDE coefficients:
pdeseteq(1,...
'1.0',...
'0.0',...
'32*y.*(1-y).*(1.0/2.0-atan(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)/0.3141593E1)+32*(1-x).*y.*(1-y).*(400*x-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*y.*(1-y).*(400*x-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1+12800*x.*(1-x).*y.*(1-y)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*(1-x).*y.*(1-y).*(400*x-200).^2/(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2).^2/0.3141593E1*(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)+32*x.*(1-x).*(1.0/2.0-atan(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)/0.3141593E1)+32*x.*(1-x).*(1-y).*(400*y-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*(1-x).*y.*(400*y-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*(1-x).*y.*(1-y).*(400*y-200).^2/(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2).^2/0.3141593E1*(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)',...
'1.0',...
'0:10',...
'0.0',...
'0.0',...
'[0 100]')
setuprop(pde_fig,'currparam',...
['1.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ';...
'0.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ';...
'32*y.*(1-y).*(1.0/2.0-atan(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)/0.3141593E1)+32*(1-x).*y.*(1-y).*(400*x-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*y.*(1-y).*(400*x-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1+12800*x.*(1-x).*y.*(1-y)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*(1-x).*y.*(1-y).*(400*x-200).^2/(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2).^2/0.3141593E1*(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)+32*x.*(1-x).*(1.0/2.0-atan(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)/0.3141593E1)+32*x.*(1-x).*(1-y).*(400*y-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*(1-x).*y.*(400*y-200)./(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2)/0.3141593E1-32*x.*(1-x).*y.*(1-y).*(400*y-200).^2/(1+(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2).^2).^2/0.3141593E1*(-25.0/2.0+200*(x-1.0/2.0).^2+200*(y-1.0/2.0).^2)';...
'1.0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             '])

% Solve parameters:
setuprop(pde_fig,'solveparam',...
str2mat('1','2648','10','pdeadgsc',...
'1e-5','longest','0','1e-4','','fixed','inf'))

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

% Solve PDE:
pdetool('solve')
