Программа с графиком в TChart

@tr0nu · Регистрация: 28.10.2009

Студворк — интернет-сервис помощи студентам

Всем добро!
Помогите если не сложно сам не могу понять

Усл. задачи: Вывести на экран график функции y=| (sin x )/ x | для значений аргумента от -12pi до 12pi.
Я вот сам делал, но уверен что не правильно что, т.к. результат прямая

мой не правильный вариант:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
float ar0 = -12*M_PI, ar1 = 12*M_PI;
float x,y,dx;
 
Series1->Clear();
x = ar0;
dx = 0.1;
while ( x < ar1 )
  {
    y = abs((sin(x))/x);
    Series1->AddXY(x,y,"",clRed);
    x += dx;
  }
}

@tr0nu · 30.10.2009, 11:55 **[ТС]**

И не кто не подскажет

@Clausius · 31.10.2009, 12:07

Вместо abs((sin(x))/x) попробуй sqrt((sin(x)/x)*(sin(x)/x))

@desp · 31.10.2009, 19:19

Сообщение от Clausius

Вместо abs((sin(x))/x) попробуй sqrt((sin(x)/x)*(sin(x)/x))

Те же яйца, только в профиль. Думаю, стоит попробовать добавление точки несколько по другому.
Chart1->Series[0]->Add(x,y,"",clGreen);
разумеется предварительно создав серию в редакторе, например..

@Clausius · 31.10.2009, 19:39

Сообщение от desp

Те же яйца, только в профиль. Думаю, стоит попробовать добавление точки несколько по другому.
Chart1->Series[0]->Add(x,y,"",clGreen);
разумеется предварительно создав серию в редакторе, например..

Не знаю проверял - все пашет.
Ине надо вымудряться!

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
int i;
float ar0 = -12*M_PI, ar1 = 12*M_PI;
float x,y,dx;
 
Series1->Clear();
x = ar0;
dx = 0.1;
while ( x < ar1 )
  {
    y = sqrt((sin(x)/x)*(sin(x)/x));
    Series1->AddXY(x,y,"",clRed);
    x += dx;
  }
 
}

Создал кнопку щелкнул на ней два раза, вставил текст программы, создал чарт, добавил серию, для веселья поменял цвет линии. ВСЕ
Работает 100%. Проверено неоднократно.

@desp · 31.10.2009, 20:23

Сообщение от Clausius

Ине надо вымудряться!

и это мне говорит человек, удаляющий гланды через анус автогеном?
y = fabs((sin(x))/x);
y = sqrt((sin(x)/x)*(sin(x)/x));

Результат один, время выполнения отличается в разы..
зы Изначально не обратил внимания, на то, что просто abs использовался, который для целочисленных аргументов. Потому и прямая получалась на выходе..

@Clausius · 31.10.2009, 20:59

Время отличается в разы, от чего?
А что за зверь такой
Chart1->Series[0]->Add(x,y,"",clGreen);?
Как еще можно решить проблему? Где самый быстрый способ?

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

@tr0nu · 31.10.2009, 23:30 **[ТС]**

ага, спасибо
только вся канетель в том, что в нуле должен быть разрыв, а его нет

@desp · 31.10.2009, 23:37

Сообщение от tr0nu

ага, спасибо
только вся канетель в том, что в нуле должен быть разрыв, а его нет

не должно быть разрыва, функция непрерывна в 0
кстати, можешь даже модуль убрать, он не нужен по-идее

@Clausius · 01.11.2009, 00:42

Разрыва не будет, т к если подставить 0 то получается неопределенность 0/0. Устранить можно взяв предел при X->0 , а дальше по правилу Лопиталя берешь производную от числителя и знаменателя - знаменатель - 1, числитель - cos(x) => в нуле значение ф-ции cos(0)=1. Такая вещь называется первым замечательным пределом

@Clausius · 02.11.2009, 22:12

Сегодня узнал - есть штука наз. fabs - тоже работает

@lepotanko · 09.03.2010, 20:08

Привет всем. Можете пожалуйста дать краткий комментарий к этому куску кода:

C++
1
2
3
4
5
6
7
8
9
Series1->Clear();
x = ar0;
dx = 0.1;
while ( x < ar1 )
  {
    y = sqrt((sin(x)/x)*(sin(x)/x));
    Series1->AddXY(x,y,"",clRed);
    x += dx;
  }

@tr0nu · 09.03.2010, 21:01 **[ТС]**

Вот этот вариант лучше будет

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Файл->Построить график
# include<math.h>
void __fastcall TForm1::N2Click(TObject *Sender)
{
float ar0=-12*3.14, ar1=12*3.14;    //значение аргументов
float x,y,dx;                               
AnsiString K;
    
x=ar0;
dx=0.01;
Series1 -> Clear();     // очищает серию от занесенных ранее данных
while (x<=ar1)
  {
    y = fabs(sin(x)/x);
    K = "  " + FloatToStr(ceil(x/3.14)) + "п" + "  ";  //Обозначение оси Ох
    Series1 -> AddXY(x,y,K,clRed);  //Построение графика
    x+=dx;
  }
}

В теле обработчика происходят основные вычисления и построения графика, а т.е. присваивания начальному значению “х” минимального значения аргумента, организация цикла, определения вывода значений на оси 0Х(K = " " + FloatToStr(ceil(x/3.14)) + "п" + " "

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

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@tr0nu 1 / 1 / 0 Регистрация: 28.10.2009 Сообщений: 7
	30.10.2009, 11:55 [ТС]
	И не кто не подскажет 0

@Clausius 0 / 0 / 0 Регистрация: 06.09.2009 Сообщений: 49
	31.10.2009, 12:07
	Вместо abs((sin(x))/x) попробуй sqrt((sin(x)/x)*(sin(x)/x)) 0

@Clausius 0 / 0 / 0 Регистрация: 06.09.2009 Сообщений: 49
	31.10.2009, 20:59
	Время отличается в разы, от чего? А что за зверь такой Chart1->Series[0]->Add(x,y,"",clGreen);? Как еще можно решить проблему? Где самый быстрый способ? Да, я человек удаляющий гланды через анус автогеном. Просто иногда приходишь к врачу с больным зубом, а тебе ставят диагноз - рак шейки матки. 0

@tr0nu 1 / 1 / 0 Регистрация: 28.10.2009 Сообщений: 7
	31.10.2009, 23:30 [ТС]
	ага, спасибо только вся канетель в том, что в нуле должен быть разрыв, а его нет 0

@Clausius 0 / 0 / 0 Регистрация: 06.09.2009 Сообщений: 49
	01.11.2009, 00:42
	Разрыва не будет, т к если подставить 0 то получается неопределенность 0/0. Устранить можно взяв предел при X->0 , а дальше по правилу Лопиталя берешь производную от числителя и знаменателя - знаменатель - 1, числитель - cos(x) => в нуле значение ф-ции cos(0)=1. Такая вещь называется первым замечательным пределом 0

@Clausius 0 / 0 / 0 Регистрация: 06.09.2009 Сообщений: 49
	02.11.2009, 22:12
	Сегодня узнал - есть штука наз. fabs - тоже работает 0