Filled Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg62563] Filled Plot
- From: Pratik Desai <pdesai1 at umbc.edu>
- Date: Mon, 28 Nov 2005 00:57:48 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hi folks,
I have been having problems with using Filled Plot. Essentially I am
trying to code up a one dimensional FEM code using linear interpolating
functions, but I would like to fill my plots where each element
interacts and FilledPlot does not seem to do its job. Any help or work
arounds??
<< Graphics`FilledPlot`
n = 4
h = N[1/n]
phi1[x_] = Table[Piecewise[{{1/h*(x - (i - 1)*h), h*(i - 1) < x <
h*i}, {-1/h*(x - (i + 1)*h), h*
i < x < h*(i + 1)}, {1, x == i*h}}], {i, 0, 1/
h, 1}] // PiecewiseExpand // Simplify
Plot[{phi1[x][[1]], phi1[x][[2]], phi1[x][[3]]}, {x, 0, 1}]
FilledPlot[{phi1[x][[1]], phi1[x][[2]], phi1[x][[3]]}, {x, 0, 1}]
Thanks
Pratik
--
Pratik Desai
Graduate Student
UMBC
Department of Mechanical Engineering
Phone: 410 455 8134