Re: Integrate und Plus

[Peter Pein <petsie@XXXXXXX.de>]

Werner Hoelzl schrieb:
> Hallo,
>
> Zu Integrate haette ich 2 Fragen:
>
> Wie kann ich
> Integrate[f[x], {x, a, b}] + Integrate[-f[x],{x, a, b}]
> zu 0 vereinfachen ?
>
> Wie kann ich zwischen den Formen
> Integrate[f[x], {x, a, b}] + Integrate[g[x],{x, a, b}]
> und
> Integrate[f[x]+g[x], {x, a, b}]
> wechseln ?
>
> Liebe Gruesse
>
> Werner Hoelzl
>
>
>
>   
Hallo,

so auf die Schnelle würde ich

In[1]:=
intsumrule = Integrate[f1_, {x1_, a1_, b1_}] + Integrate[f2_, {x2_, a2_, 
b2_}] + (r_.) :>
   Block[{x},
       Integrate[f1 /. x1 -> x, {x, a1, a2}] +
       Integrate[f1 + f2 /. x1 | x2 -> x, {x, a2, b1}] +
       Integrate[f2 /. x2 -> x, {x, b1, b2}] + r];
In[2]:=
Integrate[f[x], {x, a, b}] + sonstnichtwas + Integrate[-f[x], {x, a, b}] 
/. intsumrule
Out[2]=
sonstnichtwas
In[3]:=
Integrate[f[x], {x, a, b}] + Integrate[g[x], {x, a, b}] /. intsumrule
Out[3]=
Integrate[f[x] + g[x], {x, a, b}]
In[4]:=
Distribute[%]
Out[4]=
Integrate[f[x], {x, a, b}] + Integrate[g[x], {x, a, b}]

probieren :-)

Grüße,
 Peter Pein