Re: Coeffizienten isolieren

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Hallo Christian und Robert,

nur zum Sagen, diese Lösung funktioniert nicht, wenn Koeffizienten 1 sind

In[23]:=
a Sin[b x] + c Cos[(d1 + d2) x] + e Cos[f x] + g + Sin[x] //
List@@#&// (#/.a_ (Sin|Cos)[b_ x]:>{a,b})&/@#&

Out[24]= {g,{c,d1+d2},{e,f},Sin[x],{a,b}}

daher

In[29]:=
(List @@ (a Sin[b x] + c Cos[(d1 + d2) x] + e Cos[f x] + g + Sin[x])) 
//. a_. _[b_. x] :> {a, b}

Out[29]=
{g,{c,d1+d2},{e,f},{1,1},{a,b}}

die Referenz auf die Heads Sin[] und Cos[] braucht man nur, sofern noch 
andere Heads auftreten, deren Koffezienten man nicht isolieren will.

Gruss
Udo.



Nowak Robert wrote:

> hi christian,
>
> In[1]:=
> a Sin[b x]+c Cos[d x]+e Cos[f x]+g //
> List@@#&//
> (#/.a_ (Sin|Cos)[b_ x]:>{a,b})&/@#&
>
> Out[1]=
> {g,{c,d},{e,f},{a,b}}