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.1,100,100),curve(-0.9,50,100,100),keypressed.
(TurboPorlog) Построение графика декартового листа
Доброго времени суток!
Нужно решить задачку на TurboProlog. Построить график декартового листа.
Уравнение: x^3+y^3 -3axy=0; Параметрический вид: x=3at/(1+t^3) y=3at^2/(1+t^3)
Что-то я написал, но работает неправильно. Заранее спасибо!
и называй нормально темы. читай правила форума, а пока -10.[/COLOR]
Нужно решить задачку на TurboProlog. Построить график декартового листа.
Уравнение: x^3+y^3 -3axy=0; Параметрический вид: x=3at/(1+t^3) y=3at^2/(1+t^3)
Что-то я написал, но работает неправильно. Заранее спасибо!
Код: