Нарисовать шляпку подсолнуха с логарифмическими спиралями

@Nickolay0512 · Регистрация: 26.09.2013

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

Программа должна рисовать шляпку подсолнуха с логарифмическими спиралями.
Этот код работает, но нужно чтобы получалось что-то типа того что на картинке. Помогите, пожалуйста, кто сможет.

Pascal

uses graph;
var x0,y0,x,y,i:integer;
    a,b,t,f:real;
begin
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setcolor(2);
circle(x0,y0,153);
a:=1;
b:=0.5;
f:=0;
for i:=1 to 12 do
 begin
  t:=0;
  repeat
   t:=t+0.001;
   x:=round(a*exp(b*(t))*cos(t+f));
   y:=round(a*exp(b*(t))*sin(t+f));
   putpixel(x0+x,y0-y,14);
  until t>3.2*pi;
  f:=f+pi/6;
 end;
readln
end.

@Puporev · 07.12.2013, 15:58

Дал бы ссылку, где картинку взял. А то непонятно что такое a[i], x[i] и где они используются.

@Nickolay0512 · 07.12.2013, 16:02 **[ТС]**

Я даже и не помню где ее нашел. Я делал на основе свойств и уравнений логарифмических спиралей. Но нужно сделать через логарифмы. Вообще идей нету.

@Puporev · 07.12.2013, 16:19

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

сделать через логарифмы.

Там на картинке не видно логарифмов, там один из коэффициентов золотого сечения

@Nickolay0512 · 07.12.2013, 16:24 **[ТС]**

картинка не на это задание. Просто должно получиться что-то похожее. Вот текст самой задачи: Рисунок на шляпке подсолнуха представляет собой семейство логарифмических спиралей, закрученных в разные стороны. Получить такой рисунок. Между прочим, количество "правых" и "левых" спиралей есть два соседних числа Фибоначчи. Может здесь надо как-нибудь числа Фибоначчи использовать? Только вот как...

@Puporev · 07.12.2013, 17:44

Такую картинку с логарифмической спиралью не сделать, только если так.
Число спиралей 13 и 21.

Pascal

uses graph;
var x0,y0,x,y,i:integer;
    a,b,t,f:real;
begin
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setbkcolor(15);
setfillstyle(1,8);
a:=1;
b:=0.5;
f:=0;
for i:=1 to 13 do
 begin
  t:=0;
  repeat
   if t<2.5*pi then
    begin
     t:=t+0.01;
     x:=round(a*exp(b*(t))*cos(t+f));
     y:=round(a*exp(b*(t))*sin(t+f));
     putpixel(x0+x,y0-y,8)
    end
   else
   begin
    t:=t+0.1;
    x:=round(a*exp(b*(t))*cos(t+f));
    y:=round(a*exp(b*(t))*sin(t+f));
    fillellipse(x0+x,y0-y,2,2);
   end
  until t>3.2*pi;
  f:=f+2*pi/13;
 end;
for i:=1 to 21 do
 begin
  t:=0;
  repeat
   if t<2.5*pi then
    begin
     t:=t+0.01;
     x:=round(a*exp(b*(t))*sin(t+f));
     y:=round(a*exp(b*(t))*cos(t+f));
     putpixel(x0+x,y0-y,8)
    end
   else
    begin
     t:=t+0.1;
     x:=round(a*exp(b*(t))*sin(t+f));
     y:=round(a*exp(b*(t))*cos(t+f));
     fillellipse(x0+x,y0-y,2,2);
    end
  until t>3.2*pi;
  f:=f+2*pi/21;
 end;
setcolor(2);
circle(x0,y0,155);
readln
end.

@Nickolay0512 · 07.12.2013, 18:23 **[ТС]**

Puporev, не подскажите чтобы спирали шли до конца(не обрывались точками)? Чтобы на подсолнух похоже было.

@Puporev · 07.12.2013, 18:33

Так что ли? Взял спирали по 21 и 34.

Pascal

uses graph;
var x0,y0,x,y,i:integer;
    a,b,t,f:real;
begin
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setbkcolor(15);
a:=1;
b:=0.5;
f:=0;
for i:=1 to 21 do
 begin
  t:=0;
  repeat
   t:=t+0.01;
   x:=round(a*exp(b*(t))*cos(t+f));
   y:=round(a*exp(b*(t))*sin(t+f));
   putpixel(x0+x,y0-y,8);
  until t>3.2*pi;
  f:=f+2*pi/21;
 end;
for i:=1 to 34 do
 begin
  t:=0;
  repeat
   t:=t+0.01;
   x:=round(a*exp(b*(t))*sin(t+f));
   y:=round(a*exp(b*(t))*cos(t+f));
   putpixel(x0+x,y0-y,8);
  until t>3.2*pi;
  f:=f+2*pi/34;
 end;
setcolor(2);
circle(x0,y0,155);
readln
end.

Вообще делай дальше сам. Я показал как спирали рисовать, а оформление это тебе нужно.

Нарисовать шляпку подсолнуха с логарифмическими спиралями

Решение

Решение

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2013, 15:58	2
	Дал бы ссылку, где картинку взял. А то непонятно что такое a[i], x[i] и где они используются. 0

@Nickolay0512 58 / 40 / 41 Регистрация: 26.09.2013 Сообщений: 341 Записей в блоге: 1
	07.12.2013, 16:02 [ТС]	3
	Я даже и не помню где ее нашел. Я делал на основе свойств и уравнений логарифмических спиралей. Но нужно сделать через логарифмы. Вообще идей нету. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2013, 16:19	4
	Сообщение от Nickolay0512 сделать через логарифмы. Там на картинке не видно логарифмов, там один из коэффициентов золотого сечения 0

@Nickolay0512 58 / 40 / 41 Регистрация: 26.09.2013 Сообщений: 341 Записей в блоге: 1
	07.12.2013, 16:24 [ТС]	5
	картинка не на это задание. Просто должно получиться что-то похожее. Вот текст самой задачи: Рисунок на шляпке подсолнуха представляет собой семейство логарифмических спиралей, закрученных в разные стороны. Получить такой рисунок. Между прочим, количество "правых" и "левых" спиралей есть два соседних числа Фибоначчи. Может здесь надо как-нибудь числа Фибоначчи использовать? Только вот как... 0

@Nickolay0512 58 / 40 / 41 Регистрация: 26.09.2013 Сообщений: 341 Записей в блоге: 1
	07.12.2013, 18:23 [ТС]	7
	Puporev, не подскажите чтобы спирали шли до конца(не обрывались точками)? Чтобы на подсолнух похоже было. 0

	07.12.2013, 18:33