--> /*summarize #1 route_pd*A:as v -pd*A:wie vv*/;
(%i62) A^2+A*B-B^2-sqrt(A*B);
(%o62) -sqrt(A*B)-B^2+A*B+A^2
(%i63) solve([A^2+A*B-B^2-sqrt(A*B)], [B]);solve([A^2+A*B-B^2-sqrt(A*B)], [A]);
(%o63) [B=-(sqrt(5*A^2-4*sqrt(A*B))-A)/2,B=(sqrt(5*A^2-4*sqrt(A*B))+A)/2]
(%o64) [A=-(sqrt(4*sqrt(A*B)+5*B^2)+B)/2,A=(sqrt(4*sqrt(A*B)+5*B^2)-B)/2]
(%i68) ratsimp(A^2+A*B-B^2-sqrt(A*B))-ratsimp( -sqrt(A*B)-A*B)+ratsimp(((sqrt(2)-1)*B-A)*((sqrt(2)+1)*B+A));
(%o68) 0
(%i69) ratsimp(A^2+A*B-B^2-sqrt(A*B));
(%o69) -sqrt(A*B)-B^2+A*B+A^2
(%i70) -ratsimp( -sqrt(A*B)-A*B);
(%o70) sqrt(A*B)+A*B
(%i71) +ratsimp(((sqrt(2)-1)*B-A)*((sqrt(2)+1)*B+A));
(%o71) B^2-2*A*B-A^2
--> /*Taboo #1 ? */;
(%i120) (B^2-2*A*B+%i^2*A^2);(B^2-2*A*B+(%i*A)^2);pH=%i*A;(B^2-2*A*B+pH^2);pH/%i=A;(B^2-2*A*B+(-%i*pH)^2);
(%o120) B^2-2*A*B-A^2
(%o121) B^2-2*A*B-A^2
(%o122) pH=%i*A
(%o123) pH^2+B^2-2*A*B
(%o124) -%i*pH=A
(%o125) -pH^2+B^2-2*A*B
(%i126) +ratsimp(((sqrt(2)-1)*B--%i*pH)*((sqrt(2)+1)*B+-%i*pH));
(%o126) pH^2+2*%i*B*pH+B^2
(%i127) solve([%], [B]);
(%o127) [B=(-sqrt(2)-1)*%i*pH,B=(sqrt(2)-1)*%i*pH]
--> /*Taboo #1 ? end daen teki souho A B vson_[%i*pH] %i be to used twin-ly reals on reals-substitution dainyu*/;
incorrect syntax: Premature termination of input at maybe ;.