Re: problem with replace all and functions
- To: mathgroup at smc.vnet.net
- Subject: [mg98722] Re: problem with replace all and functions
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 17 Apr 2009 04:26:32 -0400 (EDT)
- References: <gs6pi2$h54$1@smc.vnet.net>
Hi,
it can't work.
Because when you
Subscript[punto, i_][t_]:=
Evaluate[{Subscript[x, i][t],Subscript[y, i][t]}/.sol3[[1]]]
Evaluate[] it, "i" is a symbol and not 1,2,3, ..
so the replacement can't find a pattern and will do nothing
You need
Subscript[punto, i_Integer][t_] :=
Subscript[punto, i][
t] = {Subscript[y, i][t], Subscript[y, i + 1][t]} /. sol3[[1]]
Regards
Jens
wiso wrote:
> 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
>
>