p = {0,-2};
q ={2, -3};
f[x_]:=((-1)/2)x-2;
Show[
	Plot[
		f[x],
		{x, -6, 6},
		PlotStyle-> Directive[Thickness[0.008]]
	],(*end: Plot*)
	Graphics[{PointSize[0.03],Point[{p, q}]}],
	Ticks-> {Table[i,{i, -6,6}],Table[i,{i, -6,4}]},
	PlotRange-> {{-6, 6}, {-6,2}}
]

ParametricPlot[
	{2t+0, -t-2},
	{t, -3, 3},
	Ticks-> {Table[i,{i, -6,6}],Table[i,{i, -6,4}]},
	PlotRange-> {{-6, 6}, {-6,2}}
](*end: ParametricPlot command*)

o ={0,0};
v={3,4};
(Subscript[r, 0])={-2,2};
Show[
	ParametricPlot[
		{-2+3t, 2+4t},
		{t,-1,2},
		PlotRange->{{-6,6},{-4,10}}
	],(*end: ParametricPlot command*)
	Graphics[{PointSize[0.02],Point[(Subscript[r, 0])]}],
	Graphics[{Red, PointSize[0.02],Arrow[{o,v}]}]
]

r =5;
p = {(5/(Sqrt[2])),(5/(Sqrt[2]))};
Show[
	ParametricPlot[
		{r*Cos[t],r*Sin[t]},
		{t, 0, 2π},
		PlotRange-> {{-6,6},{-6,6}},
		Ticks->{Table[i,{i, -6,6}],Table[i,{i, -6,6}]}
	],(*end: ParametericPlot Command*)
	Graphics[{PointSize[0.02], Point[p]}]
]

h = -2;
k =2;
c ={h,k}
a = 4;
b = 8;
Show[
	ContourPlot[
		((((x-h))^2)/(a^2))+((((y-k))^2)/(b^2))==1,
		{x,-10,10},
		{y, -10,10}
	],(*end: ContourPlot*)
	Graphics[{PointSize[0.02], Point[c]}]
]

h = -3;
k = -1;
a = 2;
b = 4;
c = {h,k};
Show[
	ParametricPlot[
		{h +a*Cos[t], k+b*Sin[t]},
		{t, 0, 2π},
		PlotRange->{{-6,6},{-6,6}},
		Ticks-> {Table[i, {i, -6,6}],Table[i, {i, -6,6}]}
	],(*end: ParametricPlot command*)
	Graphics[{PointSize[0.02], Point[c]}]
]

p0={2,4,-3};
p1={3,-1,1};
r0 = p0;
o = {0,0,0};
v = p1-p0;
Show[
	ParametricPlot3D[
		{2+t, 4-5t, -3+4t},
		{t, -1,3},
		PlotRange->{{-16,16},{-16,16},{-16,16}},
		AxesLabel->{x,y,z},
		AxesOrigin-> {0,0,0},
		PlotStyle->Directive[Red, Thickness[0.01]]
	],
	Graphics3D[{PointSize[0.03], Point[p0]}],
	Graphics3D[{PointSize[0.03], Point[p1]}],
	Graphics3D[{Thickness[0.008], Arrow[{o,v}]}],
	ImageSize-> Large
]