I copied the following as input text. Without attaching the notebook, how do I copy and post WL input like this to our community group so it is more readable and also easy for readers to copy and execute in a notebook?
GraphicsGrid[Table[
DiscretePlot[((2/3)^(n/2) Subscript[\[ConstantC], 1] + (-1)^
n (2/3)^(n/2) Subscript[\[ConstantC], 2]) UnitStep[n], {n, -5,
20}, PlotRange -> {-2, 2}, PlotStyle -> PointSize[0.02`],
AxesLabel -> {n, y}, ImageSize -> {400, 400},
PlotLabel -> ("\!\(\*SubscriptBox[\(\[ConstantC]\), \(1\)]\) = " <>
ToString[N[Subscript[\[ConstantC], 1], 2]] <>
", \!\(\*SubscriptBox[\(\[ConstantC]\), \(2\)]\) = " <>
ToString[
N[Subscript[\[ConstantC], 2], 2]])], {Subscript[\[ConstantC],
1], {-1, 1/2, 3/2}}, {Subscript[\[ConstantC],
2], {-1, 1/3, -3/2}}]]