Het blijkt dat ik xtreem slecht in Mathematica ben. Ik heb nu:
Code: Selecteer alles
A1 = FullSimplify[((x/7)^2*
Sqrt[Abs[Abs[x] - 3]/(Abs[x] - 3)] + (y/3)^2*
Sqrt[Abs[y + 3*Sqrt[33]/7]/(y + 3*Sqrt[33]/7)] - 1)]
A2 = FullSimplify[((Abs[x/2] - (3*Sqrt[33] - 7)/112*x^2 - 3 +
Sqrt[1 - (Abs[Abs[x] - 2] - 1)^2] - y))]
A3 = FullSimplify[(9*
Sqrt[Abs[(Abs[x] - 1)*(Abs[x] - 0.75)]/((1 - Abs[x])*(Abs[x] -
0.75))] - 8*Abs[x] - y)]
A4 = FullSimplify[(3*Abs[x] +
0.75*Sqrt[
Abs[(Abs[x] - 0.75)*(Abs[x] - 5)]/((0.75 - Abs[x])*(Abs[x] -
5))] - y)]
A5 = FullSimplify[(2.25*
Sqrt[Abs[(x - 0.5)*(x + 0.5)]/((0.5 - x)*(0.5 + x))] - y)]
A6 = FullSimplify[((6*Sqrt[10]/7 + (1.5 - 0.5*Abs[x])*
Sqrt[Abs[Abs[x] - 1]/(Abs[x] - 1)] -
6*Sqrt[10]/14*Sqrt[4 - (Abs[x] - 1)^2]) - y)]
Factoren A1 en A2 komen normaal uit, factoren A3 an A4 ook wel, maar opgesplitst (bijvoorbeeld A3):
Code: Selecteer alles
9. -y-8 Abs[x]
0.75<Abs[x]<1.
(0. +9. i)-y-8 Abs[x] True
Factor A5 heeft een vreemde punt in de output dit ik niet begrijp:
Code: Selecteer alles
-1. y + 2.25 Sqrt[1/(0.25 - 1. x^2)] Sqrt[Abs[-0.25 + x^2]]
En in A6 gaat het fout:
Code: Selecteer alles
2.71052 - 1. y - 1.35526 Sqrt[3 + 2 Abs[x] - x Conjugate[x]] +
1.5 Sqrt[1/Sign[-1 + Abs[x]]] - 0.5 Abs[x] Sqrt[1/Sign[-1 + Abs[x]]]
Hij splitst die laatste namelijk op in twee termen, die elkaar cancellen in plaats van deling door 0 zouden moeten opleveren. Weet iemand hoe ik dit Mathematica duidelijk moet maken?
EDIT: ik zie nu dat A1 al een fout geeft:
Code: Selecteer alles
-1 + 1/9 y^2 Sqrt[1/Sign[(3 Sqrt[33])/7 + y]] +
1/49 x^2 Sqrt[1/Sign[-3 + Abs[x]]]
heeft natuurlijk een deling door 0 voor x=3. Zit dit eigenlijk niet ook al in de originele formule? Voor x = 3 staat er 0/0, hoe moet dit geïnterpreteerd worden?