Построить график в Delphi7 |
Здравствуйте, гость ( Вход | Регистрация )
Построить график в Delphi7 |
lexx007 |
7.12.2008, 9:33
Сообщение
#1
|
Студент Группа: Продвинутые Сообщений: 136 Регистрация: 30.3.2008 Город: Оренбург Учебное заведение: ОГУ Вы: студент |
Здравствуйте, подскажите пожалуйста . Нужно построить график в Delphi7. Ч тоб построить график я вставил на пустую панель объект Chart. Появляется область, а как вывести на эту область график данной функции.? Подскажите пожалуйста.
|
lexx007 |
7.12.2008, 10:04
Сообщение
#2
|
Студент Группа: Продвинутые Сообщений: 136 Регистрация: 30.3.2008 Город: Оренбург Учебное заведение: ОГУ Вы: студент |
Вот в этой процедуре что нужно прописать к примеру для функции у=х*х.
procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin end; end. Или может вообще не тут. |
creer |
7.12.2008, 17:25
Сообщение
#3
|
Студент Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент |
lexx007
Попробуйте вначале посмотреть, например, здесь. |
lexx007 |
8.12.2008, 13:07
Сообщение
#4
|
Студент Группа: Продвинутые Сообщений: 136 Регистрация: 30.3.2008 Город: Оренбург Учебное заведение: ОГУ Вы: студент |
Спасибо за это . я понял. Осталось только разобраться в моей функции.
y=(0.15x*a)/ln(a^2 -x^2). вот:procedure TForm1.Button1Click(Sender: TObject); var x: Integer; y: Double; begin // х изменяется в пределах от 0 до 100 For x := 0 To 10 Do begin // Вычисляем очередное значение функции y:=(0,15*x-a)/ln(a*a-x*x); // Добавляем его на график Chart1.Series[0].AddXY(x, y) end x я задаю интервал, а причем тут "а", может её надо гдето задавать отдельно |
Текстовая версия | Сейчас: 2.5.2024, 8:07 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru