problem with replace all and functions
- To: mathgroup at smc.vnet.net
- Subject: [mg98699] problem with replace all and functions
- From: wiso <gtu2003 at alice.it>
- Date: Thu, 16 Apr 2009 04:17:24 -0400 (EDT)
I've a lot of rules created by NDSolve: {{Subscript[x, 1][t]->InterpolatingFunction[{{0.`,213.43887344465708`}}, "<>"][t], Subscript[y, 1][t]->InterpolatingFunction[{{0.`,213.43887344465708`}}, "<>"] [t], Subscript[x, 2][t]->InterpolatingFunction[{{0.`,213.43887344465708`}}, "<>"] [t], Subscript[y, 2][t]->InterpolatingFunction[{{0.`,213.43887344465708`}}, "<>"] [t], ... }} I have defined: Subscript[punto, 1][t_]:= Evaluate[{Subscript[x, 1][t],Subscript[y, 1][t]}/.sol3[[1]]] Subscript[punto, 2][t_]:= Evaluate[{Subscript[x, 2][t],Subscript[y, 2][t]}/.sol3[[1]]] Subscript[punto, 3][t_]:= Evaluate[{Subscript[x, 3][t],Subscript[y, 3][t]}/.sol3[[1]]] it works, but it's not very good, I've want something like this: Subscript[punto, i_][t_]:= Evaluate[{Subscript[x, i][t],Subscript[y, i][t]}/.sol3[[1]]] but it doesn't work