Re: arguments of the function

• To: mathgroup at smc.vnet.net
• Subject: [mg35416] Re: arguments of the function
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 12 Jul 2002 04:28:26 -0400 (EDT)
• Organization: Universitaet Leipzig
• References: <agjj6h\$255\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

expr = y[t + 3] == a1*Cos[Sin[u[t + 2]]]/Tan[u[t + 1]] - Cot[u[t + 3]] +
a2;
ucalls = Cases[expr, u[_], Infinity];
ucalls -> Table[ToExpression["x" <> ToString[i]], {i, 1,
Length[ucalls]}]]

?

Regards
Jens

fee eerr wrote:
>
> Hi.
> I am using Mathematica 4.0
> I can't find a function that would find arguments of the function.
> For example I have an equation:
> y[t+3]=a1* Cos[Sin[u[t+2]]]/Tan[u[t+1]]-Cot[u[t+3]]+a2
>
> and I would like to get those argumets u[t+3], u[t+2], u[t+1]
> and give them new values
> for example:
>
> x1=u[t+3]
> x2=u[t+2]
> x3=u[t+1]
>
> and then print that equation with new values:
> y[t+3]=a1* Cos[Sin[x2]]/Tan[x3]-Cot[x1]+a2
>
> Can you tell me how to do that?
> Thank you.
>
> -----------------------------------------
> Hot Mobiil - helinad, logod ja piltsõnumid!
> http://www.hot.ee

```

• Prev by Date: RE: Simple Recursive Map
• Next by Date: RE: Simple Recursive Map
• Previous by thread: Re: arguments of the function
• Next by thread: Re: arguments of the function