MathGroup Archive 2005

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

Search the Archive

Re: Filled Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg62580] Re: Filled Plot
  • From: Peter Pein <petsie at dordos.net>
  • Date: Tue, 29 Nov 2005 04:44:11 -0500 (EST)
  • References: <dme6o2$i64$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Pratik Desai schrieb:
> 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
> 

Hi Pratik,

enter SetAttributes[FilledPlot, HoldAll]; before using FilledPlot. This 
still throws warnings, but at least it plots.

Peter


  • Prev by Date: FW: 3D plot question
  • Next by Date: Re: function of a function
  • Previous by thread: Filled Plot
  • Next by thread: Re: Filled Plot