Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 733

Раздел: Delphi » Прочее
/ вопрос открыт /

Приветствую, уважаемые эксперты! Подскажите как построить график в Canvas и Chart логарифмической спирали? что -то никак не разбирусь. p=p0*e^(K fi).
Вот я тут что то попытался, но походу совсем не то делал.

Приложение:
  1.  
  2.  
  3. procedure TForm1.Draw(Sender: TObject);
  4. var
  5. i,j,k: integer;
  6. CenterX,CenterY: integer;
  7. sx,sy: integer;
  8. RoundSteps: integer;
  9. StartPhase: extended;
  10. RadGrad: extended;
  11. R: extended;
  12.  
  13. begin
  14. Image1.Repaint;
  15.  
  16. CenterX := 278; CenterY := 153;
  17. RoundSteps := 360;
  18.  
  19.  
  20. Form1.Canvas.Pen.Color := ClRed;
  21. Form1.Canvas.MoveTo(CenterX,CenterY);
  22. StartPhase := 73;
  23. R := 11.2;
  24.  
  25. for i:=0 to RoundSteps*3+RoundSteps div 4-1 do begin
  26. sx := Floor(CenterX+(R*power(0.625/RoundSteps+1,i)+7*power(1/5,i/(RoundSteps/2)))*cos((i+StartPhase)*pi/180));
  27. sy := Floor(CenterY+(R*power(0.625/RoundSteps+1,i)+7*power(1/5,i/(RoundSteps/2)))*sin((i+StartPhase)*pi/180));
  28. Form1.Canvas.LineTo(sx,sy);
  29. end;
  30.  


mamont Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: mamont (статус: Посетитель)
Вопрос отправлен: 27 июня 2008, 01:31
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, mamont!
По использованию Chart посмотрите вопрос 1688. А по вычислению значения функции, что-то действительно намудрено - для чего x и y присваивать одинаковые значения? Функция есть зависимость y от x (или наоборот, на Ваше усмотрение :-)) Т.е. перебираете значения x, вычисляете соответствующие им значения y и откладываете эти значения на графике. В Вашем случае в качестве x используется i.

Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 27 июня 2008, 06:55
Оценка за ответ: 4

Ответ #2. Отвечает эксперт: Шичко Игорь

Здравствуйте, mamont!

1. А не проще через отладчик посмотреть какие значения принимают sx и sy, тогда станет понятно то получается или нет.
2. Разбить вычисление
sx := Floor(CenterX+(R*power(0.625/RoundSteps+1,i)+7*power(1/5,i/(RoundSteps/2)))*cos((i+StartPhase)*pi/180));
sy := Floor(CenterY+(R*power(0.625/RoundSteps+1,i)+7*power(1/5,i/(RoundSteps/2)))*sin((i+StartPhase)*pi/180));
на два или три операции и проверить значения, потом обратно объединить.

Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 27 июня 2008, 08:02
Оценка за ответ: 5


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 сентября 2017, 11:48
Выполнено за 0.09 сек.
Рейтинг@Mail.ru