Tag Info

New answers tagged

2

First of all, your code does not return an error on my machine. Second, using "something similar to what you tried", you might want to do Transpose[{#[[All, 1]], #[[All, 2]] - Min[#[[All, 2]]]}] & /@ list


3

Just based on your text: f[u_] := Module[{a, b}, {a, b} = Transpose@u; Transpose[{a, b - Min@b}]] f/@list yields: {{{0, 0.}, {1, 0.6}, {2, 0.8}, {3, 1.3}, {4, 0.7}, {5, 0.6}, {6, 1.4}}, {{0, 0.}, {1, 0.4}, {2, 0.2}, {3, 0.6}, {4, 0.7}, {5, 1.}, {6, 1.1}}}


1

You almost had it.You were right to use Outer[]; what you missed was to interpret the sum as an appropriate matrix multiplication. Observe: Table[Subscript[m, i], {i, 5}].Outer[f, Table[Subscript[τ, i], {i, 5}], Table[Subscript[γ, j], {j, 4}]]. Table[Subscript[n, j], {j, 4}] == ...



Top 50 recent answers are included