Graphics3D[{{{Thickness[0.01], Line[{{0., 0., 0.}, {5., 0., 0.}}], Text[StyleForm["x", FontSize -> 20.], {6., 0., 0.}]}, {Thickness[0.01], Line[{{0., 0., 0.}, {0., 5., 0.}}], Text[StyleForm["y", FontSize -> 20.], {0., 6., 0.}]}, {Thickness[0.01], Line[{{0., 0., 0.}, {0., 0., 5.}}], Text[StyleForm["z", FontSize -> 20.], {0., 0., 6.}]}, {Thickness[0.005], Dashing[{0.02, 0.02}], Line[{{0., 0., 0.}, {-5., 0., 0.}}]}, {Thickness[0.005], Dashing[{0.02, 0.02}], Line[{{0., 0., 0.}, {0., -5., 0.}}]}, {Thickness[0.005], Dashing[{0.02, 0.02}], Line[{{0., 0., 0.}, {0., 0., -5.}}]}}, {PointSize[0.04], RGBColor[1., 0., 0.], Point[{ax, ay, az}]}, {PointSize[0.04], RGBColor[0., 1., 0.], Point[{bx, by, bz}]}, {Thickness[0.02], RGBColor[0., 1., 0.], Line[{{ax, ay, az}, {bx, by, bz}}]}, {Thickness[0.015], Line[{{ax - (20.*(-1.*ax + bx))/Sqrt[Abs[-1.*ax + bx]^2 + Abs[-1.*ay + by]^2 + Abs[-1.*az + bz]^2], ay - (20.*(-1.*ay + by))/Sqrt[Abs[-1.*ax + bx]^2 + Abs[-1.*ay + by]^2 + Abs[-1.*az + bz]^2], az - (20.*(-1.*az + bz))/Sqrt[Abs[-1.*ax + bx]^2 + Abs[-1.*ay + by]^2 + Abs[-1.*az + bz]^2]}, {ax + (20.*(-1.*ax + bx))/Sqrt[Abs[-1.*ax + bx]^2 + Abs[-1.*ay + by]^2 + Abs[-1.*az + bz]^2], ay + (20.*(-1.*ay + by))/Sqrt[Abs[-1.*ax + bx]^2 + Abs[-1.*ay + by]^2 + Abs[-1.*az + bz]^2], az + (20.*(-1.*az + bz))/Sqrt[Abs[-1.*ax + bx]^2 + Abs[-1.*ay + by]^2 + Abs[-1.*az + bz]^2]}}]}, {PointSize[0.04], RGBColor[1., 0.5, 0.], Point[{5., t, -5.}]}, {Thickness[0.01], RGBColor[1., 0., 1.], Line[{{5., -5., -5.}, {5., 5., -5.}}]}, Text[StyleForm["t", FontSize -> 20.], {5., t, -4.}], {Text[StyleForm["-5", FontSize -> 15.], {5., -5., -6.}], Text[StyleForm["-4", FontSize -> 15.], {5., -4., -6.}], Text[StyleForm["-3", FontSize -> 15.], {5., -3., -6.}], Text[StyleForm["-2", FontSize -> 15.], {5., -2., -6.}], Text[StyleForm["-1", FontSize -> 15.], {5., -1., -6.}], Text[StyleForm["0", FontSize -> 15.], {5., 0., -6.}], Text[StyleForm["1", FontSize -> 15.], {5., 1., -6.}], Text[StyleForm["2", FontSize -> 15.], {5., 2., -6.}], Text[StyleForm["3", FontSize -> 15.], {5., 3., -6.}], Text[StyleForm["4", FontSize -> 15.], {5., 4., -6.}], Text[StyleForm["5", FontSize -> 15.], {5., 5., -6.}]}, {PointSize[0.04], RGBColor[0., 0., 1.], Point[{ax + (-1.*ax + bx)*t, ay + (-1.*ay + by)*t, az + (-1.*az + bz)*t}]}}, Boxed -> False, PlotRange -> {{-5., 5.}, {-5., 5.}, {-5., 5.}}, ViewPoint -> {40., 10., 20.}]