Update vectorgeometry_test.mac

Adding more test cases to reflect the changes to vector_parametric_display

Author: LukeLongworth

stack/maxima/contrib/vectorgeometry_test.mac

@@ -59,6 +59,10 @@ s_test_case(vector_parametric_parts(matrix([1],[2],[3]) + t*matrix([1],[1],[1])
 make_multsgn("dot");
 s_test_case(vector_parametric_display([matrix([1],[2],[3]),[matrix([1],[0],[1]),matrix([1],[1],[1])],[s,t]]),"\\left[\\begin{array}{c} 1 \\\\ 2 \\\\ 3 \\end{array}\\right]+s\\cdot \\left[\\begin{array}{c} 1 \\\\ 0 \\\\ 1 \\end{array}\\right]+t\\cdot \\left[\\begin{array}{c} 1 \\\\ 1 \\\\ 1 \\end{array}\\right]");
 s_test_case(vector_parametric_display(vector_parametric_parts(matrix([1+t+s],[2+t],[3+t+s]))),"\\left[\\begin{array}{c} 1 \\\\ 2 \\\\ 3 \\end{array}\\right]+s\\cdot \\left[\\begin{array}{c} 1 \\\\ 0 \\\\ 1 \\end{array}\\right]+t\\cdot \\left[\\begin{array}{c} 1 \\\\ 1 \\\\ 1 \\end{array}\\right]");
+s_test_case(vector_parametric_display(vector_parametric_parts(c(1,2,3))),"\\left[\\begin{array}{c} 1 \\\\ 2 \\\\ 3 \\end{array}\\right]");
+s_test_case(vector_parametric_display(vector_parametric_parts(c(1,2,3) + t*c(2,3,4))),"\\left[\\begin{array}{c} 1 \\\\ 2 \\\\ 3 \\end{array}\\right]+t\\cdot \\left[\\begin{array}{c} 2 \\\\ 3 \\\\ 4 \\end{array}\\right]");
+s_test_case(vector_parametric_display(vector_parametric_parts(t*c(2,3,4))),"t\\cdot \\left[\\begin{array}{c} 2 \\\\ 3 \\\\ 4 \\end{array}\\right]");
+s_test_case(vector_parametric_display(vector_parametric_parts(t*c(2,3,4) + s*c(3,4,5))),"s\\cdot \\left[\\begin{array}{c} 3 \\\\ 4 \\\\ 5 \\end{array}\\right]+t\\cdot \\left[\\begin{array}{c} 2 \\\\ 3 \\\\ 4 \\end{array}\\right]");
 
 s_test_case(point_in_affine_spacep(matrix([1],[1]),[matrix([0],[1]),[matrix([1],[-1])]]),false);
 s_test_case(point_in_affine_spacep(matrix([1],[1]),[matrix([0],[1]),[matrix([1],[-1])],[t]]),false);