CanonUr.rar
Задача преобразования кривой второго порядка к каноническому виду
>
restart;
>
f:=x^2+y^2-2*x*y-2*sqrt(2)*x+10*sqrt(2)*y;
>
with(plots):
>
implicitplot(f,x=-10..10,y=-10..10);
>
x:= X*sin(t)+Y*cos(t):
>
y:=-X*cos(t)+Y*sin(t):
>
z:=simplify(coeff(coeff(f,X),Y),trig);
>
t:=solve(z,t)[1];