Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*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 2002

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

Search the Archive

Re: Problem with user defined functions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg37379] Re: [mg37340] Problem with user defined functions
  • From: Tomas Garza <tgarza01 at prodigy.net.mx>
  • Date: Fri, 25 Oct 2002 02:48:42 -0400 (EDT)
  • References: <200210240655.CAA05087@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I would use Solve instead of FindRoot, and Part[[1,1,2]] instead of
Part[[1]]. Try this:

In[1]:=
test[x_] := Solve[Sin[p] == x, p]

In[2]:=
data[x_] := D[test[x][[1,1,2]], x]

In[3]:=
Plot[Evaluate[data[x]], {x, 0, 1}];

Tomas Garza
Mexico City
----- Original Message -----
From: "Farhat Habib" <farhat at pacific.mps.ohio-state.edu>
To: mathgroup at smc.vnet.net
Subject: [mg37379] [mg37340] Problem with user defined functions


> Hello all,
>
> I am trying to evalute a function which looks like this. This is an
> analogous problem not the actual problem.
>
> test[x_] := p /. FindRoot[Sin[p] == x, {p, 1}][[1]]
> data[x_] := D[test[x], x]
> Plot[data[x], {x, 0, 1}]
>
> Now, when trying to evaluate the derivative mathematica replaces both the
> x's with the number at which it is trying to calculate the datapoint. This
> gives an error of 'xxxx is not a valid variable'. Replacing D[test[x]]
> with test'[x] doesn't help either though it results in a different set of
> errors. Is there any of way of getting around this problem?
>
> Thanks in advance,
>
> Farhat
>
>
>




  • Prev by Date: Re: To plot solutions, FindRoot as a function
  • Next by Date: Re: To plot solutions, FindRoot as a function
  • Previous by thread: Problem with user defined functions
  • Next by thread: Re: Problem with user defined functions