Re: Problem with funktion with four variables
- To: mathgroup at smc.vnet.net
- Subject: [mg31637] Re: [mg31618] Problem with funktion with four variables
- From: Anton Antonov <antonov at wolfram.com>
- Date: Mon, 19 Nov 2001 03:11:20 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
The problem is in the way the first argument is defined.
If you enter in Mathematica
In[1]:=?test
You will get
Global`test
test[_*Subscript[v, 0], \[Gamma]_, H_, m_] :=
(((-m)*H)/\[Gamma]^2)*Cosh[ArcSinh[Subscript[v, 0]*
(\[Gamma]/H)]] - (m/\[Gamma])*ArcSinh[Subscript[v, 0]*
(\[Gamma]/H)]*Subscript[v, 0]
-- the first argument is the blank pattern multiplied by
Subscript[v, 0].
So if we modify the definition as
Clear[test];
test[v0_, \[Gamma]_, H_, m_] :=
(((-m)*H)/\[Gamma]^2)*Cosh[ArcSinh[v0*(\[Gamma]/H)]] -
(m/\[Gamma])*ArcSinh[v0*(\[Gamma]/H)]*v0;
for test[14, 500, 100, 80] we get
\!\(\(-\(\(52\ \@29\)\/125\)\) - \(56\ ArcSinh[70]\)\/25\)
Best,
Anton
==============================================================
Anton Antonov Antonov, PhD ***** Wolfram Research Inc.
http://www.imm.dtu.dk/~uniaaa *** tel +1 217 398 0700 #782
==============================================================
Give me wings and I will crawl faster!
--------------------------------------------------------------
On Sun, 18 Nov 2001, Manuel Prinz wrote:
> Hello Guys
>
> If I define this
>
> \!\(test[\(v\_0\) _, \ \[Gamma]_, \ H_, \
> m_] :=
> \((\(\(-m\)*H\)\/\[Gamma]\^2*Cosh[ArcSinh[v\_0*\[Gamma]\/H]] -
> m\/\[Gamma]*ArcSinh[v\_0*\[Gamma]\/H]*v\_0)\)\)
>
> and then try to calculate test[14,500,100,80] nothing happens!
>
> What could be the problem?
>
>
> Thanks!
>
>
> Manuel (Mathematica 4.0)
>