Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Re: function of a function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg62667] Re: [mg62650] Re: function of a function
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Wed, 30 Nov 2005 05:40:40 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

On 30 Nov 2005, at 14:07, Narasimham wrote:

> Jens-Peer Kuska wrote:
>
>> it can't work because f [0] ==1 given in your differential equation
>> f ' [0]==f [1] and NDSolve[] can't find the value for
>> f[1] until it has integrated the equation.
>
> ???
>
>> The nested dependence is equivalent to an infinite
>> system of ordinary differential equations and it seems to be
>> hard to do this by a finte computer.
>
> I cannot understand this. In the following two examples the first one
> works, not the second.
>
> Clear[x,f,EQ];
> EQ={f'[x] == f[Cos[x]],f[0]== 1};
> NDSolve[EQ,f,{x,0,4}];
> f[x_]=f[x]/.First[%];
> Plot[f[x],{x,0,4}];
>
> Clear[x,f,EQ];
> EQ={f'[x] == Cos[f[x]],f[0]== 1};
> NDSolve[EQ,f,{x,0,4}];
> f[x_]=f[x]/.First[%];
> Plot[f[x],{x,0,4}];


Surely, you mean the second one works, the first one does not!? Also,  
I think I agree with Jens. These cases are quite different and the  
problem he mentione does not arise in the second case. Ine the second  
case the derivative at a point x is defined only in terms of the  
value of the function at x. Thus values of the function, it's  
derivative, function etc, can be computed sequentially. In the first  
case, however, in order to compute the derivative at x you need to  
know the value of the function at Cos[x], which in general will not  
be known yet. This is, I think, what Jens meant and it seems to me  
clearly right.

>
> It appears (to me) the power of programming with functions in
> Mathematica has not been used to the full.
>
>

What do you mean? Can you suggest an approximation scheme for this  
sort of problem?

Andrzej Kozlowski



> Jens-Peer Kuska wrote:
>> Hi,
>>
>> it can't work because f[0]==1 give in your
>> differential equation
>> f'[0]==f[1] and NDSolve[] can't find the value for
>> f[1] until it
>> has integrated the equation.
>> The neted dependence is equvalent to a infinite
>> system of
>> ordinary differential equations and it seems to be
>> hard to do
>> this by a finte computer.
>>
>> Regards
>>   Jens
>>
>> "Narasimham" <mathma18 at hotmail.com> schrieb im
>> Newsbeitrag news:dmha20$932$1 at smc.vnet.net...
>> | Tried to solve numerically:
>> |
>> |
>> http://groups.google.com/group/sci.math/browse_frm/thread/ 
>> 248f76d024c1ac57/0bba983777a07bc9#0bba983777a07bc9
>> |
>> | thus:
>> |
>> | EQ= { f'[x] == f[f[x]], f[0]== 1} ;
>> NDSolve[EQ,f,{x,0,2}];
>> |
>> | But gives an error.  NDSolve::ndnum:
>> Differential equation does not
>> | evaluate to a number at x = 0.
>> |
>> | Also does not work even with other f[0] values.
>> Any way to do that?
>> |
>


  • Prev by Date: Re: function of a function
  • Next by Date: how can i draw somethinglike ...
  • Previous by thread: Re: function of a function
  • Next by thread: Importing tab-delimited data files?