Dear friends:
I have built the following expressions
A[n_] := Module[{A}, A = DiagonalMatrix[Table[-Sum[k[i, j], {j, 0,
n}], {i, 1, n}]] + Table[k[j, i], {i, 1, n}, {j, 1, n}]];
k[i_,j_,a_:h]:=k[i,j]= Block[{h=0},a];
(This matrix is usually called Coefficients Matrix)
With these functions I obtain the solution that I was looking for. For
instance:
k[1,2,2] ;k[2,1,1];k[1,0,0.7];k[1,3,0.3] ;k[3,0,1];k[3,1,1];
A[3]//MatrixForm
But need to apply the above functions in only one sentence to make a
package. I mean, I wish build a function like this (of course it doesn't
work)
A[n_, k[i_,j_,a_:h]]:=
Module[{k,A},A=DiagonalMatrix[Table[-Sum[k[i,j],{j,0,n}],{i,1,n}]]+Table[k[j,i],{i,1,n},{j,1,n}]; k=k[i,j]=Block[{h=0},a];A]
In the way that it was applied obtaining the same solution that before
A[3,k[1,2,2];k[2,1,1];k[1,0,0.7];k[1,3,0.3];k[3,0,1];k[3,1,1]];
Any suggestion?