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[1]:=
expr = y[t + 3] == a1*(Cos[Sin[u[t + 2]]]/
Tan[u[t + 1]]) - Cot[u[t + 3]] + a2
Out[1]=
y[3+t]==a2+a1 Cos[Sin[u[2+t]]] Cot[u[1+t]]-Cot[u[3+t]]

In[2]:=
expr /. {u[t + 3] -> x1, u[t + 2] -> x2, u[t + 1] -> x3}
Out[2]=
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