построить кривую строфоиды

@Артуррр · Регистрация: 14.12.2012

Author24 — интернет-сервис помощи студентам

построить кривую строфоиды заданной следующим уравнением в полярных координатах R=-a*cos2a/cos a

@Puporev · 04.04.2013, 13:15

Уравнение неверно написано, вначале -а, а угол берется от другой переменной, например так

Pascal

uses graph;
var x0,y0,x,y:integer;
    a,r,fi:real;
begin
clrscr;
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
line(0,y0,getmaxX,y0);
line(x0,0,x0,getmaxY);
a:=200;
fi:=0;
while fi<=pi do
 begin
  r:=-a*cos(2*fi)/cos(fi);
  x:=x0+round(r*cos(fi));
  y:=y0-round(r*sin(fi));
  Putpixel(x,y,12);
  fi:=fi+0.001;
 end;
readln
end.

@Артуррр 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 17
		1
	построить кривую строфоиды 03.04.2013, 21:48. Показов 1345. Ответов 1 Метки нет (Все метки) построить кривую строфоиды заданной следующим уравнением в полярных координатах R=-a*cos2a/cos a 0

	04.04.2013, 13:15

построить кривую строфоиды

Решение