how to keep multiplication sign "*" ( Please)

[Volkan]

How can I keep the multiplication sign in a symbolic calculation
output such as:

Sum[A[i][j] *B[i][j], {i, 1, 2}, {j, 1, 2}]

gives
A[1][1] B[1][1] + A[1][2] B[1][2] + A[2][1] B[2][1] + A[2][2] B[2][2]

but what I want is it should seem like

A[1][1] *B[1][1] + A[1][2] *B[1][2] + A[2][1] *B[2][1] + A[2][2] *B[2]
[2]

Is this possible? Please help about this...

thanks

[Raffy]

Sum[A[i][j]*B[i][j], {i, 1, 2}, {j, 1, 2}] // InputForm

[Sjoerd C. de Vries]

Unprotect[Times];
Times /: MakeBoxes[Times[x_, y_], StandardForm] :=
RowBox[{MakeBoxes[x, StandardForm], MakeBoxes["*", StandardForm],
MakeBoxes[y, StandardForm]}]
Protect[Times];

Cheers -- Sjoerd

[Bob Hanlon]

The multiplication sign is visible in InputForm

Sum[A[i][j]*B[i][j], {i, 1, 2}, {j, 1, 2}] // InputForm

A[1][1]*B[1][1] + A[1][2]*B[1][2] + A[2][1]*B[2][1] + A[2][2]*B[2][2]

Bob Hanlon

---- Volkan <vis...@gmail.com> wrote:

=============