Skip to main content
Mathematica

Return to Answer

Reformatted
Source Link
Sektor
Sektor
  • 3.3k
  • 7
  • 27
  • 36

p0 = Array[Subscript[p, #] &, 7]
l0 = Table[1 + Mod[i, 3], {i, 7}]
Table[q, Evaluate[Sequence @@ Transpose[{p0, l0}]]]

p0 = Array[Subscript[p, #] &, 7]  
l0 = Table[1 + Mod[i, 3], {i, 7}]  
Table[q, Evaluate[Sequence @@ Transpose[{p0, l0}]]]

p0 = Array[Subscript[p, #] &, 7]
l0 = Table[1 + Mod[i, 3], {i, 7}]
Table[q, Evaluate[Sequence @@ Transpose[{p0, l0}]]]

p0 = Array[Subscript[p, #] &, 7]  
l0 = Table[1 + Mod[i, 3], {i, 7}]  
Table[q, Evaluate[Sequence @@ Transpose[{p0, l0}]]]
Source Link
Wouter
Wouter
  • 1.3k
  • 8
  • 12

p0 = Array[Subscript[p, #] &, 7]
l0 = Table[1 + Mod[i, 3], {i, 7}]
Table[q, Evaluate[Sequence @@ Transpose[{p0, l0}]]]