Services & ResourcesWolfram ForumsMathGroup Archive

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

Plotting symbolic representation of numerica function

• To: mathgroup at smc.vnet.net
• Subject: [mg54360] Plotting symbolic representation of numerica function
• From: "mbekkali" <mbekkali at gmail.com>
• Date: Sat, 19 Feb 2005 02:32:07 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

Hello.  I need to plot solutions to system of equations solved using
numerical functions.  I tried:

{f1[(x_)?NumericQ],f2[(x_)?NumericQ]}:={f1,f2}/.FindRoot[{g1[f1,f2,x]==0,g2[f1,f2,x]==0},{f1,0},{f2,0}][[1]]
Plot[Evaluate[{f1[x],f2[x]},{x,x0,x1}]

where g1,g2 are some functions and x0,x1 some starting variables.  I
get an error message SetDelayed::shape : Lists
{f1[x_?NumericQ],f2[x_?NumericQ]} and {f1,f2} are not the same shape.
I suspect that there is something wrong with SetDelayed because using
Set and Solve plots functions, yet SetDelayed and Solve generates the
same message as SetDelayed and FindRoot.

I do not understand what is wrong and help file is not useful as it
does not contain examples with SetDelayed for several variables.

Mukhtar Bekkali

• Follow-Ups:
  • Re: Plotting symbolic representation of numerica function
    • From: Chris Chiasson <chris.chiasson@gmail.com>
  • Re: Plotting symbolic representation of numerica function
    • From: DrBob <drbob@bigfoot.com>