{TABLE.PDE}
{
This problem employs a data table named 'table.tbl' to input a non-analytic
function
}
title 'Table Input Test'
select
errlim = 0.0005
variables
u
definitions
alpha = table('table.tbl')
k = 1/alpha
equations
div(k*grad(u)) + alpha = 0
boundaries
region 1
start(0,10)
value(u) = 0
line to (0,0) to (10,0) to (10,10) to close
monitors
contour(u)
plots
grid(x,y)
contour(u)
contour(k)
surface(u)
contour(alpha) as 'table'
vector(grad(alpha)) as 'grad(table)'
surface(table('table.tbl')) as 'table'
end