![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() ![]() |
![]() |
lexx007 |
![]()
Сообщение
#1
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 136 Регистрация: 30.3.2008 Город: Оренбург Учебное заведение: ОГУ Вы: студент ![]() |
Здравствуйте, подскажите пожалуйста . Нужно построить график в Delphi7. Ч тоб построить график я вставил на пустую панель объект Chart. Появляется область, а как вывести на эту область график данной функции.? Подскажите пожалуйста.
|
lexx007 |
![]()
Сообщение
#2
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 136 Регистрация: 30.3.2008 Город: Оренбург Учебное заведение: ОГУ Вы: студент ![]() |
Вот в этой процедуре что нужно прописать к примеру для функции у=х*х.
procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin end; end. Или может вообще не тут. |
creer |
![]()
Сообщение
#3
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент ![]() |
lexx007
Попробуйте вначале посмотреть, например, здесь. |
lexx007 |
![]()
Сообщение
#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 я задаю интервал, а причем тут "а", может её надо гдето задавать отдельно |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 29.5.2025, 4:28 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru