;;; Loading #P"/usr/lib/ecl-21.2.1/sb-bsd-sockets.fas"
;;; Loading #P"/usr/lib/ecl-21.2.1/sockets.fas"
Maxima 5.46.0 https://maxima.sourceforge.io
using Lisp ECL 21.2.1
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) batch("jym02.maxima")

read and interpret /home/docky/newtexts/kogi2023_1/LAII/jym02.maxima
(%i2) inner(a,b):=block([],integrate(a*b,x,0,2))
(%o2)          inner(a, b) := block([], integrate(a b, x, 0, 2))
(%i3) inner(v2,v3)
(%o3)                               2 v2 v3
(%i4) v(i):=x^(i-1)
                                         i - 1
(%o4)                           v(i) := x
(%i5) h[i,j]:=inner(v(i),v(j))
(%o5)                     h     := inner(v(i), v(j))
                           i, j
(%i6) A:genmatrix(h,3,3)
                                 [       8  ]
                                 [ 2  2  -  ]
                                 [       3  ]
                                 [          ]
                                 [    8     ]
(%o6)                            [ 2  -  4  ]
                                 [    3     ]
                                 [          ]
                                 [ 8     32 ]
                                 [ -  4  -- ]
                                 [ 3     5  ]
(%i7) solve(matrix([1,0,0]) . A . matrix([s],[1],[0]) = 0,[s])
(%o7)                              [s = - 1]
(%i8) solve([matrix([1,0,0]) . A . matrix([t],[u],[1]) = 0,
             matrix([0,1,0]) . A . matrix([t],[u],[1]) = 0],[t,u])
                                    2
(%o8)                         [[t = -, u = - 2]]
                                    3
(%o9)          /home/docky/newtexts/kogi2023_1/LAII/jym02.maxima