/PROGRAMsystemPOLYMLT
" ":1,1,"Highest poly' der":?A
" ":1,4,"Enter all coeffs"
" ":1,5,"in der from highest"
" ":1,6,"to lowest power..."
{3,A1}F@A
0IA
" ":1,7,"Coeff, der":14,7,AI:?@A[1,I1]
" ":1,1,"Second poly' der":?B
" ":1,4,"Enter all coeffs"
" ":1,5,"in der from highest"
" ":1,6,"to lowest power..."
ABIA
" ":1,7,"Coeff, der":14,7,AI:?@A[2,I1]
"Multiplying...."
F@A:Q[2]A:B0,A,3
0J:
:1JJ:@A[2,J]=0
AJB:A1A:AB1N
{0,0,0}Q6:1JB:JQ6):I@,@A)@A:
NAIN
NBJN
IJNK
@A[1,I]@A[2,J]@A[3,K]@A[3,K]
:
1,2,"Coeff matrix rows:"
1,3,"1: 1st polynomial"
1,4,"2: 2nd polynomial"
1,5,"3: Product"@A