MathGroup Archive 1998

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

Search the Archive

RE: Why doesn't this work ?



Have a look at section 2.2.5 of "The Mathematica Book": non standard
evaluation.

Then use:

Plot[Evaluate@s2,{x,0,Pi}]

s[x_]:={Sin[x/dx],Cos[x/dx],Sin[2 x/dx]} s3=s[x]/.dx->2
Plot[Evaluate@s3,{x,0,Pi}]

Hope this helps,

-----------------------------------------------

Jean-Marie THOMAS
Conseil et Audit en Ingenierie de Calcul jmthomas@cybercable.tm.fr
+33 (0)3 88 32 93 64
www.cybercable.tm.fr/~jmthomas
=======================


-----Message d'origine-----
De:	Andreas Keese [SMTP:A.Keese@tu-bs.de] Date:	lundi 12 janvier 1998
10:10
A:	mathgroup@smc.vnet.net
Objet:	[mg10381] Why doesn't this work ?

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}];


Bye, 
Andreas




  • Prev by Date: Re: debugging MathLink executables
  • Next by Date: Re: ``flattening" systems of equations
  • Prev by thread: RE: Why doesn't this work ?
  • Next by thread: Re: Why doesn't this work ?