Re: Plot a function on Time Scales
- To: mathgroup at smc.vnet.net
- Subject: [mg63583] Re: [mg63568] Plot a function on Time Scales
- From: <bsyehuda at gmail.com>
- Date: Fri, 6 Jan 2006 05:24:25 -0500 (EST)
- References: <200601051102.GAA24336@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
use the following code (it is working ok). The only warning is when you need
two discrete points, then duplicate one of them so the length of the list
will be at least three
<< Graphics`;
f[x_] := x^2;
genPoint =
Function[{func, points}, {Red, PointSize[0.01],
Point /@ ({#, func[#]} & /@ points)}];
CreateMixedGraph[func_, range_] :=
DisplayTogether[
If[Length[#] == 2, Plot[f[x], {x, #[[1]], #[[2]]}],
Graphics[genPoint[func, #]]] & /@ range];
CreateMixedGraph[f, {{-1, 1}, {2, 5, 8, 11}, {12, 20}}];
Enjoy
yehuda
On 1/5/06, Unal Ufuktepe <unalufuktepe at iyte.edu.tr> wrote:
>
> Let f(x)=x^2 and I want to draw the graph of f on
> T=[-1,1]U{2,5,8,11}U[12,20]
> How can I plot this function on T with
> Mathematica without spliting the graph?
> Any idea? (I tried the PiecewisePlot but did not work with 5.2)
> Thanks
> nal
> Ufuktepe,PhD
> Izmir Institute of Technology
> Department of Mathematics,
> G=FClbahce-Urla, Izmir 35435
> Phone:(232)-7507614
>
>
- References:
- Plot a function on Time Scales
- From: "Unal Ufuktepe" <unalufuktepe@iyte.edu.tr>
- Plot a function on Time Scales