консультация онлайн № 161400: нужно построить программу построения графиков динамических процессов в декартовой системе координат динамический процес задается формулой f=f

Родились сегодня:
Nikki
Rostislav Dubsky

Модератор

pocketmonster

2-й класс

Magic2hand

Студент

Алексеев Владимир Николаевич

Мастер-Эксперт

Sergey V. Gornostaev

Советник

epimkin

Профессионал

Hunter7007

Мастер-Эксперт

Мы ВКонтакте

8.14.10

27.06.2022

JS: 2.15.10
CSS: 4.9.15
jQuery: 3.6.0

jQuery

jQuery UI

Bootstrap
Font Awesome

наверх

Зенченко Константин Николаевич (Старший модератор)
Администратор раздела
Pascal / Delphi / Lazarus

Программирование Компьютеры

Создание программ на языках Pascal, Delphi и Lazarus.

Больше

Консультация онлайн # 161400

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Faraon
Дата: 25.02.2009, 19:42 Консультация неактивна
Поступило ответов: 1

Здравствуйте!
Нужно построить программу построения графиков динамических процессов в декартовой системе координат. Динамический процес задается формулой f=f0-f1(1-e^-(t/T)) где f0,f1,T- входные переменные, t- отвечает за время и изменяется по оси Ох. по оси Оу - значение f. т.е. нужен построитель графика приведенной функции с тремя задаваемыми пользователем параметрами?

Ответ # 1, Качурин Влвдимир Константинови (Посетитель)

Здравствуйте, Faraon!
Для корректного построения графика необходимо ввести диапазон значений X и Y выводимых на экран (TMin, TMax, FMin, FMax) и ввести глобальную переменную T.

Ставим перо в начальную точку

Image1.Canvas.MoveTo(0,Round(Image1.Height*(1-(f(TMin)-YMin)/(YMax-YMin)));

и включаем таймер

Timer1.Enabled:=true;

Далее таймер рисует график по точкам. Время измеряется в миллисекундах (см. приложение).
Удачи!

Приложение:
procedure TForm1.Timer1Timer(Sender: TObject); begin if T>=TMax then begin Timer1.Enabled:=false; exit; end; T:=T+Timer1.Interval; Image1.Canvas.LineTo(Round((T-TMin)*Image1.Width/(TMax-TMin)), Round(Image1.Height*(1-(f(T)-YMin)/(YMax-YMin)))); end;

Качурин Влвдимир Константинови

Посетитель

27.02.2009, 13:34

Нет оценки ответа

наверх

Мини-форум консультации # 161400

неизвестный 178078	= общий = 27.02.2009, 18:13 А не могли бы Вы более подробно описать саму программу, я никогда просто не работал с графиками функцый

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

наверх

Лидеры

Зенченко Константин Николаевич (Старший модератор)

Pascal / Delphi / Lazarus

Консультация онлайн # 161400

Ответ # 1, Качурин Влвдимир Константинови (Посетитель)

Качурин Влвдимир Константинови

Посетитель

27.02.2009, 13:34

Мини-форум консультации # 161400