       Re: arguments of the function

• To: mathgroup at smc.vnet.net
• Subject: [mg35435] Re: [mg35402] arguments of the function
• From: Tomas Garza <tgarza01 at prodigy.net.mx>
• Date: Fri, 12 Jul 2002 04:28:55 -0400 (EDT)
• References: <200207110924.FAA02143@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```It is possible to find the arguments in your expression but, since you
already know what things you wish to assign new values, perhaps you may
simply use a ReplaceAll with these new values:

In:=
expr = y[t + 3] == a1*(Cos[Sin[u[t + 2]]]/
Tan[u[t + 1]]) - Cot[u[t + 3]] + a2
Out=
y[3+t]==a2+a1 Cos[Sin[u[2+t]]] Cot[u[1+t]]-Cot[u[3+t]]

In:=
expr /. {u[t + 3] -> x1, u[t + 2] -> x2, u[t + 1] -> x3}
Out=
y[3+t]==a2-Cot[x1]+a1 Cos[Sin[x2]] Cot[x3]

Tomas Garza
Mexico City

----- Original Message -----
From: "fee eerr" <eleri111 at hot.ee>
To: mathgroup at smc.vnet.net
Subject: [mg35435] [mg35402] arguments of the function

> 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: Exporting \[Micro] character tp EPS
• Previous by thread: arguments of the function
• Next by thread: Re: arguments of the function