Циссоида

[Sergik1977]

В общем вот эта прога у меня должна начертить циссоиду. Циссоида это такая фигня типа буквы «V» только перевернутая на правый бок. Шкалу я начертил, но циссоида чего-то не чертится. Надо еще там ее отцентрировать. Клюв у циссоиды должен упираться в кардиналы Y=0, X=0 .
Условие такое: Построить кривую циссоиду по заданному параметрическому уравнению:
x=at^2/(1+t^2)
y=at^3/(1+t^2), a>0 , t от минус бесконечности до плюс бесконечности

uses crt,graph;
  const b=2;
  var drive,mode,i:integer;
       x,y,t:real;
begin
  drive:=detect;
  initgraph(drive,mode,'c:BP\BGI');
  setcolor(3);
  line(10,240,400,240);
  line(10,100,10,400);
{putpixel (10,240,RED);- центровка }
  t:=0;
  while t=200 do
  begin
    t:=t+1;
    x:=b*sqrt(t)/(1+sqrt(t));
    y:=b*sqr(t)/(1+sqrt(t));
    x:=10+x;
    y:=240+y;
    PutPixel(round(x),round(y),red);
  end;

  readln;
end.

оформляй код с использованием тегов! Alex21

[Maslan]

Перед readLn напиши:

   x:=Round(50*16/(1+16))+Getmaxx div 2;
   y:=Round(50*(-64)/(1+16))+75;
   MoveTo(Round(x),Round(y));
   SetLineStyle(0,0,3);
   for i:=-1000 to 1000 do
     begin t:=i/100;
       x:=Round(50*t*t/(1+t*t))+10;
       y:=Round(50*t*t*t/(1+t*t))+240;
       LineTo(Round(x),Round(y));
     end;

[_Dmitry]

У циссоиды Диокла (лист плюща) есть уравнение и в декартовой системе:
y=sqrt(x*x*x/(a-x)) - это верхняя ветвь,
y=-sqrt(x*x*x/(a-x)) - нижняя ветвь.
Может по ним проще строить график.
0 <= x < a

[puporev]

while t=200 do

Случаем это не опечатка? Обычно условие проверяется до какой-то величины , например: while t<200 или while t<= 200.

[Sergik1977]

Ну Maslan я тебе уже должен как земля колхозу))) Получилась вот такая прграммка:

 
uses crt,graph;
   var drive,mode,i:integer;
   x,y,t:real;
 begin
   drive:=detect;
   initgraph(drive,mode,'c:BP\BGI');
   setcolor(3);
   line(10,240,400,240);
   line(10,100,10,400);
   for i:=-1000 to 1000 do
   begin t:=i/500;
     x:=Round(100*t*t/(1+t*t))+10;
       y:=Round(100*t*t*t/(1+t*t))+240;
       PutPixel(Round(x),Round(y),red);
   end;
   readln;
 end.

[Maslan]

=)
Я бы ещё поставил коэффициент растяжения по OX побольше, типа
x:=Round(500*t*t/(1+t*t))+10; , но это просто для внешнего вида, если есть требования какие-то, то конечно рисуй так, как требуется.

уже должен как земля колхозу

Ничего... Разберёмся =))