Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: Why doesn't this work ?

Andreas Keese wrote:

> Look at this:
> This works:
>   Clear[S1];
>   S1=Sin[x];
>   Plot[S1, {x, 0, 3}]
> But why doesn't it work with more than one functions ?
>   Clear[S2];
>   S2={Sin[x],Cos[x]};
>   Plot[S2, {x, 0, Pi}]
> gives an error - Mathematica complains that S2 is not a machine-size
> number.
> BTW: I don't want S2 to be pattern cause I want to use this as follows:
>   Clear[S,dx,S3,x];
>   S[x_]:={Sin[x/dx], Cos[x/dx], Sin[2*x/dx]};
>   S3=Evaluate[S[x] /. dx -> 2];
>   Plot[S3, {x, 0, Pi}];

  Plot[S2, {x, 0, Pi}]
does not work because Mathematica does not evaluated S3 and so find out
that it must allow for a list of functions *before* it feeds in values.

  Plot[Evaluate[S2], {x, 0, Pi}]

works becaues the first thing that is done is to evaluate S2 to
{Sin[x],Cos[x]} so that Mathematica gets the clue.

Your last example can be reorgnised so as to work:

     S[x_]:={Sin[x/dx], Cos[x/dx], Sin[2*x/dx]};
     S3=S[x] /. dx -> 2;   (*Evaluate not needed*)
     Plot[Evaluate[S3], {x, 0, Pi}];

Allan Hayes
Training and Consulting
Leicester, UK
voice: +44 (0)116 271 4198
fax: +44 (0)116 271 8642

  • Prev by Date: Re: HELP: How to increase the resolution of .GIF images when importing to HTML ?
  • Next by Date: Re: How to draw full text in graphics
  • Prev by thread: Re: Why doesn't this work ?
  • Next by thread: Re: Why doesn't this work ?