Tips for Mathematica users

v = 18;row[k_] := PadLeft[IntegerDigits[Floor[k/(v + 1)*10^v]], v];mat = row /@ Range[v];Total@matTotal@Transpose@mat

Its a great posting. Thank you for sharing with us.Mathematica

Its a great posting. Thank you for sharing with us.

ReplyDeleteMathematica