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

Программа построения графика функции

31.05.2015, 01:28. Просмотров 1169. Ответов 15
Метки нет (Все метки)

Выполнить построениие графика по функции: x/10+cos(x/2)+sin(x)+C.
Это нужно сделать с использованием компонента PaintBox.
Подписи на пересечении сетки с осями
Возможность различного сечения сеток по осям X и Y
Выбор толщины линий для графика, осей и сетки
Нанесение узлов графика О
Кто знает как сделать?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2015, 01:28
Ответы с готовыми решениями:

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

Программа для построения графика функции y=sin([x][/2]+c)
это программа для построения графика функции y=sin(+c) нету никакого факторила!...

Программа для построения графика функции, сам не справлюсь
Всем доброго времени суток. В институте преподают программирование, для меня...

Не компилируется программа построения графика
В новой форме должен появится график RGB Помоогите исправить ошибки ...

программа для схематичного построения робота(механизма) различной сложности (Элементы для построения желательно поместить в БД).
доброго времени суток. незнаю куда лучше определить тему, поэтому создал ее...

15
Verevkin
Заблокирован
31.05.2015, 03:25 2
Цитата Сообщение от UNDEADJ3THUO Посмотреть сообщение
Кто знает как сделать?
я знаю, уже делал подобную отрисовку.
0
Verevkin
Заблокирован
31.05.2015, 03:36 3
Отрисовка идёт по точкам на любой Canvas. Тебе нужно только заполнить список вычисленными твоей функцией точек методу отрисовки, остальное он сделает сам.
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
[quote]type
  // Тип данных - точка на плоскости
  TPoint2D = class
  private
    FX, FY: Single;
  public
    property X: Single read FX write FX;
    property Y: Single read FY write FY;
  end;
 
  PPoint2D = ^TPoint2D;
 
  // Класс-контейнер графика
  TPointChart = class
  private
    // Поля
    FPoints: TObjectList;  // список точек
    FBorderColor: TColor;  // цвет рамки
    FBorderWidth: Integer; // толщина рамки
    FGridColor: TColor;    // цвет сетки
    FGridWidth: Integer;   // толщина сетки
    FGridSizeX: Integer;   // кол-во горизонтальных шагов сетки
    FGridSizeY: Integer;   // кол-во вертикальных шагов сетки
    FShowGrid: Boolean;    // показывать/скрыть сетку
    FAxisColor: TColor;    // цвет осей
    FAxisWidth: Integer;   // толщина осей
    FLineColor: TColor;    // цвет линии графика
    FLineWidth: Integer;   // толщина линии графика
    FMarginX: Integer;     // ширина левого и правого полей
    FMarginY: Integer;     // высота верхнего и нижнего полей
    FFont: TFont;          // шрифт граничных меток
    FGridFont: TFont;      // шрифт отсечек сетки
 
    // Функции доступа к полям/свойствам
    function GetCount: Integer;
    function GetPoint(const Index: Integer): TPoint2D;
    //function GetRootsExists: Boolean;
    procedure SetFont(ANewFont: TFont);
    procedure SetGridFont(ANewFont: TFont);
 
    // Технологические функции
  public
    // Конструктор и деструктор
    constructor Create;
    destructor Destroy; override;
 
    // Методы
    procedure Clear;
    function AddPoint(const X, Y: Single): TPoint2D;  // <------- точки суй сюда
    procedure DeletePoint(const Index: Integer);
 
    procedure Draw(ACanvas: TCanvas; const ARect: TRect); // <-------- вызывай для построения графика
 
    function SaveToFile(const FileName: string): Boolean;
    function LoadFromFile(const FileName: string): Boolean;
 
    // Свойства
    property Count: Integer read GetCount;
    property Points[const Index: Integer]: TPoint2D read GetPoint; default;
    //property RootsExists: Boolean read GetRootsExists;
    property AxisColor: TColor read FAxisColor write FAxisColor;
    property AxisWidth: Integer read FAxisWidth write FAxisWidth;
    property BorderColor: TColor read FBorderColor write FBorderColor;
    property BorderWidth: Integer read FBorderWidth write FBorderWidth;
    property GridColor: TColor read FGridColor write FGridColor;
    property GridWidth: Integer read FGridWidth write FGridWidth;
    property GridSizeX: Integer read FGridSizeX write FGridSizeX;
    property GridSizeY: Integer read FGridSizeY write FGridSizeY;
    property ShowGrid: Boolean read FShowGrid write FShowGrid;
    property LineColor: TColor read FLineColor write FLineColor;
    property LineWidth: Integer read FLineWidth write FLineWidth;
    property MarginX: Integer read FMarginX write FMarginX;
    property MarginY: Integer read FMarginY write FMarginY;
    property Font: TFont read FFont write SetFont;
    property GridFont: TFont read FGridFont write SetGridFont;
  end;[/quote]
Если понял хотя бы половину из того, что я написал - обращайся, дам исходник. Иначе смысла нет.
0
Миниатюры
Программа построения графика функции  
Verevkin
Заблокирован
31.05.2015, 03:46 4
чем больше точек (короче шаг аргумента), тем сглаженней кривая.
0
Миниатюры
Программа построения графика функции  
UNDEADJ3THUO
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 13
31.05.2015, 09:52  [ТС] 5
Программа построения графика функции
Verevkin, должно быть похожее на это. Только с функциями,что в описании
0
Verevkin
Заблокирован
31.05.2015, 11:20 6
Цитата Сообщение от UNDEADJ3THUO Посмотреть сообщение
должно быть похожее на это. Только с функциями,что в описании
ну да.
0
UNDEADJ3THUO
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 13
31.05.2015, 11:52  [ТС] 7
Verevkin, график то понятно,а как функции реализовать?
0
Verevkin
Заблокирован
31.05.2015, 12:22 8
Цитата Сообщение от UNDEADJ3THUO Посмотреть сообщение
график то понятно,а как функции реализовать?
не знаешь pascal - так и скажи.
Delphi
1
2
3
4
5
function y_ot_x(const X, C: Single): Single;
begin
  // все углы - в радианах
  Result:= x /10 + cos(x / 2) + sin(x) + C;
end;
0
UNDEADJ3THUO
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 13
31.05.2015, 14:06  [ТС] 9
Verevkin, lol конечно спасибо,но я и сам умею менять формулу в условии.
Я говорил о функциях самой программы,а не математических :
Подписи на пересечении сетки с осями
Возможность различного сечения сеток по осям X и Y
Выбор толщины линий для графика, осей и сетки
Нанесение узлов графика О
0
Verevkin
Заблокирован
31.05.2015, 14:26 10
в посту #3 я тебе предлаал класс TPointChart, который и рисует вот это (в т.ч.):
Цитата Сообщение от UNDEADJ3THUO Посмотреть сообщение
Подписи на пересечении сетки с осями
Возможность различного сечения сеток по осям X и Y
Выбор толщины линий для графика, осей и сетки
Нанесение узлов графика
Цитата Сообщение от Verevkin Посмотреть сообщение
обращайся, дам исходник
чего тебя не устраивает?
0
UNDEADJ3THUO
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 13
31.05.2015, 20:38  [ТС] 11
Verevkin, дай исходник,пожалуйста.
0
Verevkin
Заблокирован
31.05.2015, 22:45 12
Цитата Сообщение от UNDEADJ3THUO Посмотреть сообщение
дай исходник,пожалуйста.
на!
0
Вложения
Тип файла: 7z 1459081.7Z (773.9 Кб, 44 просмотров)
UNDEADJ3THUO
0 / 0 / 0
Регистрация: 25.05.2015
Сообщений: 13
01.06.2015, 00:03  [ТС] 13
Verevkin, спасибо!
0
tania85
0 / 0 / 0
Регистрация: 26.11.2016
Сообщений: 1
26.11.2016, 14:53 14
скинь исходник
0
D1973
Модератор
3666 / 2643 / 1288
Регистрация: 21.01.2014
Сообщений: 11,205
Записей в блоге: 3
Завершенные тесты: 1
27.11.2016, 00:29 15
tania85, если не учитывать, что теме 1,5 года, то:
Цитата Сообщение от tania85 Посмотреть сообщение
скинь исходник
1. Непонятно, к кому обращение: к UNDEADJ3THUO (который после этого ни разу на форуме не появился), или к Verevkin...
2. Исходник, если что, лежит в посте #12
3. Не надо забывать слово "пожалуйста".
0
Verevkin
Заблокирован
28.11.2016, 18:01 16
Надо жэ, полтора года! Старею...
0
28.11.2016, 18:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2016, 18:01

Построения графика...
Добрий день товарищи!!! Помогите сделать заадачу... Исследовать область...

Построения графика
Написать программу вычисления значений функции f(x) на отрезке с заданным...

Построения графика Chart
Есть график ф-ии, значеия Х отобржаются на оси, но значения У на левой оси нету...


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

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

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