кубическая кривая, два рациональные корня есть, третий по Виету
Кстати, или так.
Проверил сейчас, действительно работает (проводил касательную). Получилось вот что:
Но я не владею до такой степени хорошо Maple
Я тоже, но здесь как раз тот случай, когда все делается не приходя в сознание. Вот код:
Код:
> with(algcurves):
> f:=(x^3+y+1)*(y^3+x+1)-z^2:
> genus(f,x,z):
> Weierstrassform(f,x,z,u,v):
> X:=y:
> Z:=y^3+y+1:
> U:=factor(subs(x=X,z=Z,-(y^6*x+2*x*y^3+x+1+y)/(y^3+x+1))):
> V:=factor(subs(x=X,z=Z,-y*(3*y^2+y^8+3*y^5-1)/(x^2+2*x*y^3+2*x+y^6+2*y^3+1)*z)):
> F:=v^2+u^3-2-3*y-3*y^3-3*y^4-y^2-3*y^6-3*y^7-y^9-y^10+(-3-3*y-3*y^3-3*y^4)*u:
> k:=factor(subs(u=U,v=V,-diff(F,u)/diff(F,v))):
> factor(subs(v=k*(u-U)+V,F)):
> UU:=solve(4*u-10*y^2+y^4+1-8*y=0,u):
> factor(subs(u=UU,F)):
> VV:=solve(8*v-9-28*y-17*y^2+20*y^3+17*y^4+y^6=0,v):
> XX:=factor(subs(u=UU,v=VV,-1/2*(2*u*y^3+2*u+2*y+2)/(1+2*y^3+y^6+u))):
> factor(subs(x=XX,f)):
> ZZ:=solve(2*y^13-4*y^12+40*y^11-30*y^10+16*y^10*z-14*y^9-32*y^9*z+104*y^8+40*y^8*z-86*y^7+16*y^7*z-34*y^6+9*z*y^6+86*y^5+14*y^5*z-72*y^4+31*y^4*z-78*y^3+68*z*y^3+20*y^2+55*z*y^2+18*y+30*z*y+9*z=0,z):
> latex((y^2+3*y+1)*(y^4-4*y^3+2*y^2-3)/(2*y^2+y+1)/(2*y^3-3*y^2+2*y+3)):