Re: Wurzel x²

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

Hallo Peter,

> Sqrt[x^2]//FullSimplify
>
> hilft nicht weiter,
>
> Sqrt[x^2]/.Sqrt[y_^2]->y
>
> ist mÃŒhsam.

Schon, oder? Mathematica ist ein Mathematikprogramm, man arbeitet
mit Bedingungen: Das Programm liefert sie ohne jede MÃŒhe,

In[10]:= Sqrt[x^2] // PowerExpand[#, Assumptions -> True] &
Out[10]= E^(I \[Pi] Floor[1/2 - Arg[x]/\[Pi]]) x

der coole Ignorant (Just do what I mean!) tippt

In[11]:= Sqrt[x^2] // PowerExpand
Out[11]= x

Weitere Möglichkeiten sind:

In[15]:= Sqrt[x^2] // Simplify[#, x > 0] &
Out[15]= x

In[76]:= Sqrt[x^2] // FullSimplify[#, x > 0] &
Out[76]= x

In[75]:= Sqrt[x^2] // Refine[#, x > 0] &
Out[75]= x

In[133]:= Sqrt[x^2] // Refine[#, x < 0] &
Out[133]= -x

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

Es liegt an der 2 dort, die wird immer wieder ausgeklammert, also

In[132]:= ((Sqrt[u] Sqrt[Filtergesamtpreis] Sqrt[\[Eta]])/(Sqrt[
      dp$Punkt] Sqrt[Energiepreis] Sqrt[VPunkt])) //.  {Power[x_,
     q_Rational] Power[y_ , q_Rational] -> Power[x y, q], u -> 2}

Out[132]= (Sqrt[2] Sqrt[
 Filtergesamtpreis \[Eta]])/Sqrt[dp$Punkt Energiepreis VPunkt]

oder was ist das Problem?

Gruss
Udo.