MathGroup Archive 1999

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

Search the Archive

Re: Bug in Coefficient[ ]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg16397] Re: Bug in Coefficient[ ]
  • From: trif at ipm.marine.su
  • Date: Thu, 11 Mar 1999 02:16:59 -0500
  • Organization: Deja News - The Leader in Internet Discussion
  • References: <7bt48t$n23@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In article <7bt48t$n23 at smc.vnet.net>,
  shimshim at mse.waseda.ac.jp (Mahoro Shimura) wrote:
> Does anyone know why Coefficient[ ] does not work in
> the follwing case?
>
> In[1]:= Coefficient[x[1]*x[2]^2,x[1]*x[2]^2]
>
> Out[1]= 0
>
> Of course, this value must be 1.
>
> (I use Matematica Ver.3.0 for SPARC.)
>
> Thanks,
> Mahoro Shimura
> e-mail:shimshim at mse.waseda.ac.jp
>
>
This problem was already discussed here: search the conf. archive
by means, f.e., Dejanews.

However, the function below does all things fine:
In[1]:=myCoefficient[expr_,term_]:=
  Module[{c},ReplaceAll[expr,Plus[_.,Times[c_.,term]]:>c] ]
In[2]:=myCoefficient[x[1]*x[2]^2,x[1]*x[2]^2]
Out[2]=1

Cheers,
Evgeni Trifonov
Institute of Applied Mathematics,
Vladivostok, Russia

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


  • Prev by Date: Re: Ploting 2 Lists
  • Next by Date: Re: data structure / object
  • Previous by thread: Re: Bug in Coefficient[ ]
  • Next by thread: Re: Bug in Coefficient[ ]