Dear Dhaneshwar,
I believe this may be what you are looking for:
avec = Array[a, 3]
bvec = Array[b, 3]
ctens = Array[c, {3, 3, 3, 3}]
ab[j_, k_] :=
Sum[avec[[i]] ctens[[i, j, k, m]] bvec[[m]], {i, 1, 3}, {m, 1, 3}]
This may be enough to get you started, but there is also documentation for tensors (type tensor into the help browser) in the documentation.
Kind Regards,
W Craig Carter
On Oct 28, 13, at 20:22 PM, Dhaneshwar Mishra wrote:
> Hi
>
> I am Dhaneshwar Mishra, new to the Mathematica.
>
> I would like to write
>
> [ab]_(jk) = a_i [C_(ijkm)] b_m
>
> in the matrix form, where I,j,k, m varies from 1 to 3. Being a new user, I find
>
> little difficult to find proper help from the Mathematica documentations.
>
> Please suggest me appropriate reading materials so that I can take help of that as well.
>
> Thanks in advance.
>
> With regards
>
> Dhaneshwar
>