/* Plot a sequence */

/* Step 1: Define the sequence */
f[n]:=(2*n+(-1)^n)/(3*n-(-1)^n);

/* Step 2: Compute the list of points to plot */
lst:makelist([n,f[n]],n,0,100);

/* Plot the points */
plot2d([discrete,lst],[style,points]);