Hi,

if you DecretePlot, you can use the option Filling->None to get rid of the vertical lines.

DiscretePlot[Sin[t], {t, 0.1, 0.9, 0.1}, Filling -> None]

Cheers,

Marco

Hi,

this is one way:

ListPlot[{#, Sin[#]} & /@ Range[0.1, 0.9, 0.1]]

If you really want, you can do it with Plot, too, but it is really artificial:

Plot[Sin[t], {t, 0.0, 1}, Mesh -> {Range[0., 1, 0.1]}, MeshStyle -> Directive[Red, PointSize -> Large], PlotStyle -> None]

Cheers,

Marco

You can also use PlotPoints to set the number of initial points and MaxRecursion to prevent refinement. Of course the plot quality will suffer. (Mesh->Full just shows the points.)

Plot[Sin[x], {x, 0, 2 Pi}, PlotPoints -> 10, MaxRecursion -> 0, 
 Mesh -> Full]