Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2010, 16:42   #1
Dima-91
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 198
Вопрос Логарифмическая спираль

Здравствуйте, есть не большие вопросы. По этому коду:
Код:
var x,y,h,a,e,k,r:real;
begin
 Series1.Clear;
 k:=0;
 h:=0.005;
 a:=1;
 e:=1;
 repeat
   r:=a*power(e,(k*a));
   x:=r*sin(k);
   y:=r*cos(k);
   Series1.AddXY(x,y,'',clRed);
  k:=k+h;
 until k>2*pi;
end;

end.
Не получаеться спираль как я видел на картинке. Это ошибка у меня или так может быть?

Последний раз редактировалось Dima-91; 17.11.2010 в 20:08.
Dima-91 вне форума Ответить с цитированием
Старый 18.11.2010, 11:33   #2
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Да почти все неправильно.
Формула логарифмической спирали неправильная.
Перевод в декартовы координаты неправильный.
И если ты используешь, TChart, как мне показалось, то он для рисования спиралей не подходит.

Код:
var
 h,a,b,k,r:real;
 x,y : Integer;
 startx,starty : Integer;
begin
 k:=0;
 h:=0.005;
 a:=1;
 b:= 0.3;
 startx := Image1.ClientWidth div 2;
 starty := Image1.ClientHeight div 2;
 repeat
  r:=a*Exp(k*b);
  x:=Round(r*cos(k)) + startx;
  y:=Round(-r*sin(k)) + starty;
  Image1.canvas.Pixels[x,y] := clRed;
  k:=k+h;
 until k>6*pi;
end;
Вложения
Тип файла: rar Логарифмическая спираль.rar (233.8 Кб, 44 просмотров)
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948
Z1000000 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица спираль c0zak Помощь студентам 2 17.09.2010 22:27
Спираль radon228 Помощь студентам 0 16.05.2010 17:08
Обход ячеек по спираль с произвольным центром. iness Помощь студентам 6 16.11.2009 10:09
логарифмическая спираль с++ salmanov Помощь студентам 0 23.06.2009 21:17
Логарифмическая функция Vitul'k Помощь студентам 5 04.02.2008 20:20