Re: How to plot...
- To: mathgroup at smc.vnet.net
- Subject: [mg46043] Re: How to plot...
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Tue, 3 Feb 2004 18:20:48 -0500 (EST)
- References: <bvnmkr$hai$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
It is not clear how you want f3 handled for x<0
Needs["Graphics`"];
f3[x_ /; x==0] = 1;
f3[x_] := Abs[Sin[x]/x];
Plot[f3[x], {x, 0, 3Pi},
PlotStyle -> Blue,
Ticks -> {PiScale, Automatic},
PlotRange -> All,
Epilog ->
{AbsolutePointSize[6], Red,
Point[{0, f3[0]}]}];
Bob Hanlon
In article <bvnmkr$hai$1 at smc.vnet.net>, Oliver Kowalke
<oliver.kowalke at t-online.de> wrote:
<< I want to plot sin(x)/x on x=0.
f3 := Which[x==0,1,0<x,Abs[Sin[x]/x]];
F3 ist defined on x=0 (analytische Fortsetzung).
How can I force mathematica to plot the graph on x=0?