Доброго времени суток!
Нужно решить задачку на TurboProlog. Построить график декартового листа.
Уравнение: x^3+y^3 -3axy=0; Параметрический вид: x=3at/(1+t^3) y=3at^2/(1+t^3) a=1 t<>-1
Что-то я написал, но работает неправильно. Заранее спасибо!
Код:
domains i=integer r=real
predicates curve(r,r,i,i)
clauses
curve(X,X,_,_).
curve(-1,M,X,Y):-N1=-1+0.01,curve(N1,M,X,Y). curve(N,M,X,Y):-N<M,N1=N+0.01,X1=100+3*N1/(1+N1*N1*N1),Y1=100-3*N1*N1/(1+N1*N1*N1), line(X1,Y1,X,Y),curve(N1,M,X1,Y1).
goal initgraph(1,0,_,_,"c:\\prolog"),setcolor(2),
curve(-50,-1.02,100,100),curve(-0.99,50,100,100),keypressed.