Indem man's einfach eintippt, sagt Kuhsine R. E. Ference
In[1]:= Solve[{dl^2 == dx^2 + dy^2,
dy/dx == (-k^2 +
u^2) (k -
2 x)/(u Sqrt[(k - u) (k + u) (k - u - 2 x) (k + u - 2 x)]),
dl/dx == l2x}, l2x, {dx, dy, dl}]
Out[1]= {{l2x -> -(Sqrt[k^4 - u^4 - 4 k^3 x + 4 k^2 x^2]/(
u Sqrt[k - u - 2 x] Sqrt[k + u - 2 x]))}, {l2x -> Sqrt[
k^4 - u^4 - 4 k^3 x + 4 k^2 x^2]/(
u Sqrt[k - u - 2 x] Sqrt[k + u - 2 x])}}
In[2]:= $Version
Out[2]= "12.1.1 for Microsoft Windows (64-bit) (June 19, 2020)"
Am 25.09.2020 um 18:47 schrieb Peter Klamser via demug:
Was in MMA7 ging
[image: image.png]
geht heute nicht mehr.
Wie macht man das in MMA12.1.1 ohne "copy and paste"?
... fragt Peter und wünscht ein schönes Wochenende...
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html