MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: Re: How to View Mathematica and Hardcopy Books
  • Next by Date: MatrixForm
  • Previous by thread: Re: rt.jar file
  • Next by thread: Re: Filled Plot