Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Asdf7895
1 / 1 / 0
Регистрация: 08.05.2015
Сообщений: 10
1

Delphi. Построение графиков функций

23.05.2015, 15:06. Просмотров 1093. Ответов 1
Метки нет (Все метки)

Дана функция y=1/a+b*e^t. Нужно построить график ф-ции, ее первой и второй производных, учитывая то, что параметры a,b задает пользователь. Как это сделать?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2015, 15:06
Ответы с готовыми решениями:

Построение графиков функций
Здравствуйте. Подскажите, пожалуйста, какими компонентами мне лучше...

Построение графиков элементарных функций
Добрый вечер, нужно написать программку на delphi небольшую, простенькую...

Chart: построение графиков нескольких функций
С использованием компонента Chart построить графики трех прямых каждого типа в...

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

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

1
ROS88
128 / 128 / 98
Регистрация: 10.03.2015
Сообщений: 529
23.05.2015, 16:30 2
Лучший ответ Сообщение было отмечено Asdf7895 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TForm1.Button1Click(Sender: TObject);
var
   a, b, x, y, x0, xn, y1, y2: real;
begin
     x0 := 1;
     xn := 5;
     a := StrToFloat(Edit1.Text);
     b := StrToFloat(Edit2.Text);
     x := x0;
     Series1.Clear;
     while (x <= xn) do
       begin
         y := f(x, a, b);
         Series1.AddXY(x, y);
         y1 := df(x, a, b);
         Series2.AddXY(x, y1);
         y2 := d2f(x, a, b);
         Series3.AddXY(x, y2);
         x := x + 0.1;
       end;
end;
 
function TForm1.d2f(x, a, b: real): real;
var
  h: real;
  x0, x1, x2: real;
  y0, y1, y2: real;
begin
     h := 0.01;
     x0 := x;
     x1 := x + h;
     x2 := x + 2 * h;
     y0 := f(x0, a, b);
     y1 := f(x1, a, b);
     y2 := f(x2, a, b);
     d2f := (y2 - 2 * y1 + y0)/(h*h);
end;
 
function TForm1.df(x, a, b: real): real;
var
   h, x1: real;
begin
     h := 0.001;
     x1 := x1 + h;
     df := (f(x1, a, b) - f(x, a, b))/h;
end;
 
function TForm1.f(x, a, b: real): real;
begin
     f := 1/a + b * Exp(x);
end;
Добавлено через 8 минут
Delphi
1
2
3
4
5
6
7
8
function TForm1.df(x, a, b: real): real;
var
   h, x1: real;
begin
     h := 0.001;
     x1 := x + h;
     df := (f(x1, a, b) - f(x, a, b))/h;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2015, 16:30

Построение графиков в Delphi
Здравствуйте. Мне нужно построить график функции, в связи с этим возникает...

Построение графиков/диаграмм в Delphi на основе данных в Access
Здравствуйте! Пишу программу, в которой хочу построить график и диаграмму на...

Построение графиков
Хочу построить график функции. Функция - распределение молекул по скоростям...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru