Сделать логарифмическую спираль в паскале

@Alyfila1 · Регистрация: 08.06.2016

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

Сделать логарифмическую спираль в паскале

@ZX Spectrum-128 · 14.05.2017, 20:30

Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r

Добавлено через 2 минуты
Alyfila1, вы в курсе, что у вас на рисунках мало что видно?

@Puporev · 14.05.2017, 20:42

Это уже третья такая тупая тема и никак не мог добиться что такое m,n.

@Alyfila1 · 15.05.2017, 10:04 **[ТС]**

m - радиус
n - число оборотов

@Puporev · 15.05.2017, 11:37

Сообщение от Alyfila1

m - радиус

радиус вычисляется как r:=exp(a*ln(f));

Добавлено через 1 час 28 минут
Уравнение этой спирали в полярной системе координат
r=a*exp(b*fi), где видимо b=m.
Предложенные параметры неудачны (проверьте сами), поэтому сделал другие.

Pascal

uses graphABC;
procedure log(x0,y0,n:integer;a,m:real);
var f,r,x,y:real;
begin
f:=0;
while f<=n*pi do
 begin
  r:=a*exp(m*f);
  x:=r*cos(f);
  y:=r*sin(f);
  if f=0 then moveto(x0+round(x),y0-round(y))
  else lineto(x0+round(x),y0-round(y));
  f:=f+0.01;
 end;
line(x0-round(r),y0,x0+round(r),y0);
line(x0,y0-round(r),x0,y0+round(r));
textout(x0-50,y0-round(r)-20,'a='+floattostr(a)+' n='+inttostr(n)+' m='+floattostr(m));
end;
 
begin
setwindowsize(600,600);
centerwindow;
log(150,150,10,1,0.15);
log(350,150,12,10,0.05);
log(150,450,25,5,0.03);
log(400,450,4,12,0.2);
end.

@Alyfila1 0 / 0 / 0 Регистрация: 08.06.2016 Сообщений: 32
		1
	Сделать логарифмическую спираль в паскале 14.05.2017, 07:50. Показов 2608. Ответов 4 Метки нет (Все метки) 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	14.05.2017, 20:30	2
	Графика. Построить спираль вокруг начала координат с n витками и внешним радиусом r Добавлено через 2 минуты Alyfila1, вы в курсе, что у вас на рисунках мало что видно? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.05.2017, 20:42	3
	Это уже третья такая тупая тема и никак не мог добиться что такое m,n. 0

@Alyfila1 0 / 0 / 0 Регистрация: 08.06.2016 Сообщений: 32
	15.05.2017, 10:04 [ТС]	4
	m - радиус n - число оборотов 0

	15.05.2017, 11:37

Сделать логарифмическую спираль в паскале

Решение