Программа с графиком в 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)) + "п" + " "

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

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@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