Problem plotting a piecewise function

• To: mathgroup at smc.vnet.net
• Subject: [mg14502] Problem plotting a piecewise function
• From: sergio at scisun.sci.ccny.cuny.edu
• Date: Fri, 23 Oct 1998 20:59:20 -0400
• Organization: Deja News - The Leader in Internet Discussion
• Sender: owner-wri-mathgroup at wolfram.com

```(*--
Hello guys,

Could somebody explain why in the following plot nothing is
drawn between x =(0,0.5)?
How can I have the complete plot of this function?
Notice that f[0] = 1.0 and the y-axis tick mark gets up to
---*)
Clear[f,Xa,Xb];
f[x_] := Which[x >= 0. && x <= 1.5, 0.888889 (-1.5 + x) (-0.75 + x),
True, 0]; Xa=0.0; Xb=3.0;
Plot[Evaluate[f[x]], {x,Xa,Xb}]

(*------
I am using:
In[39]:= \$Version
Out[39]= Solaris 3.0 (November 22, 1996)

In[2]:= \$Version
Out[2]= SPARC 2.2 (February 5, 1994)

Using the option PlotPoints does not improve too much the plot. Try
for instance:
Plot[Evaluate[f[x]], {x,Xa,Xb}, PlotPoints -> 100]

Regards,
Sergio
E-mail: sergio at scisun.sci.ccny.cuny.edu ------*)

-----------== Posted via Deja News, The Discussion Network ==----------