SetDirectory[$HomeDirectory<>"/Documents/handouts/math467/DiscreteDerivatives"]

Graphics[{PointSize[Medium],Point[Flatten[Table[{i,j},{i,-5,5},{j,0,5}],1]],Table[Text["h",{i,3/4}],{i,-5+1/2,5-1/2}],Table[Text["k",{5/4,j}],{j,1/2,5-1/2}],Arrowheads[{-1,1}/40],Table[Arrow[{{i+1/10,1},{i+9/10,1}}],{i,-5,4}],Table[Arrow[{{1,i+1/10},{1,i+9/10}}],{i,0,4}]},Axes->True,AxesLabel->{"x","t"},Ticks->None]

Export["grid.pdf",%,"PDF"]

Export["grid.eps",%%,"EPS"]