Re: Wurzel x²

[Peter Klamser <klamser@XXXXXXX.com>]

Vielen Dank für den Tipp.

schön wäre es, wenn ohne die Tippel Tappel Tour man definieren könnte:

Assuming[Element[x_,Reals],Refine[(Sqrt[2] Sqrt[a] Sqrt[e])/(Sqrt[b]
Sqrt[c] Sqrt[d])]]

oder

(Sqrt[2] Sqrt[a] Sqrt[e])/(Sqrt[b] Sqrt[c] Sqrt[d])/.Times[x__^n_]->Times[x]^n

um etwas äquivalentes zu

Sqrt[((Sqrt[2] Sqrt[a] Sqrt[e])/(Sqrt[b] Sqrt[c] Sqrt[d]))^2]

zu erhalten.

Einen schönen Sonntag wünsct

Peter

Am 24. Juli 2011 09:15 schrieb Patrick Scheibe <patrick@XXXXXXX.de>:
> Moin,
>
> das liegt daran, dass diese Identitaet nicht gilt.
>
> In[8]:= Sqrt[y^2] /. y -> -2
>
> Out[8]= 2
>
> Anders verhaelt es sich hier
>
> In[9]:= $Assumptions = x >= 0;
> Sqrt[x^2]
> FullSimplify[%]
>
> Out[10]= Sqrt[x^2]
>
> Out[11]= x
>
> Cheers
> Patrick
>
> On Sat, 2011-07-23 at 23:22 +0200, Peter Klamser wrote:
>> Hallo,
>>
>> Sqrt[x^2]//FullSimplify
>>
>> hilft nicht weiter,
>>
>> Sqrt[x^2]/.Sqrt[y_^2]->y
>>
>> ist mühsam.
>>
>> Aber bei dem folgenden Problem habe ich noch keine Lösung:
>>
>> (Sqrt[2] Sqrt[Filtergesamtpreis] Sqrt[\[Eta]])/(Sqrt[dp$Punkt]
>> Sqrt[Energiepreis] Sqrt[VPunkt])/.Sqrt[x_] Sqrt[y_]->Sqrt[x y]
>>
>> Einen schönen Sonntag wünscht
>>
>> Peter
>>
>>
>>
>
>
>