основное с Tchart

@Capitan-vor · Регистрация: 08.06.2009

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

Добрый вечер.

Для курсовой работы необходимо создать программу,которая строила два графика в двух компонентах Tchart:

1-входную функцию,зависящую от частоты w=2*пи*Т

заданную u=1-e^(-(2t/T)^2))sin(4*пи*t/T),при t [0,t/2]
u=e^(-(8t/T-4)) при t [T/2,T]

2-построить график U на всем периоде ,умноженную на функцию K(w)
https://www.cyberforum.ru/atta... 1274373525
вот ,мужики,помогите ,пожалуйста,скоро сдавать,а времени учить с++ нету.

Начал читать про Tchart,а нигде не написано какой функцией просто строить график-везде сверхсложные задачи и тд(((((((

вот мой код,подскажите хотя бы с чего начать?

C++
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
double R,C,w,t;
double T=0.005;
 
double U1(double t,double T)
{
double result,temp;
temp = pow(2*t/T,2);
result=1-pow(2.718,-temp)*sin(4*3.14*t/T);
return result;
}
 
double U2(double t,double T)
{
double result;
result=pow(2.718,-((8*t/T)-4)) ;
return result;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double U;
float s;
 
if (t <T/2 ){
U=U1(t,T);
}
else {
U=U2(t,T);
}
 
 
R=StrToFloat(Edit1->Text);
C=StrToFloat(Edit2->Text);
w=StrToFloat(Edit3->Text);
 
}
//---------------------------------------------------------------------------

@uggway · 20.05.2010, 20:57

В хелпе очень прилично описан компонент TChart...
В принципе там все просто.
Кидаешь его на форму, тыкаешь 2 раза на нем. Добавляешь набор данных Series. (Там будет кнопочка Add)
И в принципе все.

Дальше просто добавляешь данные в график. Например для функции sin(x) будет как-то так.

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     for(float t = 0;t < 2*M_PI; t += M_PI/180)
     {
          Chart1->Series[0]->AddY(sin(t));
     }
}

@Capitan-vor · 20.05.2010, 21:02 **[ТС]**

AddY(sin(t))

строит график от одной переменной?просто вроде же надо строить отдвух

AddXY-както так,или я неправильно понял?

@uggway · 20.05.2010, 21:18

Все эти функции НЕ строят графиков, они добавляют данные в набор.
AddY -добавляет точку с ее параметром по оси Y и по оси X с последним X+1.
AddXY - добавляет точку с координатами передаваемыми в параметрах к ней.
Т.е. вполне можно написать AddXY(t, U(t,T)); ,где U(t,T) - твоя функция

Для синуса

C++
1
Chart1->Series[0]->AddXY(t,sin(t));

@Capitan-vor · 20.05.2010, 22:34 **[ТС]**

А чтобы оба сигнала в одном чарте были надо просто работать только с Chart1->....?

@uggway · 21.05.2010, 00:10

Да...
Только нужно добавить 2 набора данных и обращаться к ним
Chart1->Series[0]->...
Chart1->Series[1]->...

@Capitan-vor · 21.05.2010, 12:04 **[ТС]**

Вроде всё должно работать,ошибок никаких не пишет,прога работает,а как нажимаю кнопку,она вылетает(((помоги ,пожалуйста(((
я в программировании ноль.

C++
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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double U;
float s;
 
    if  (t  <T/2 ){
    U=U1(t,T);
    }
    else {
    U=U2(t,T);
    }
 
 
R=StrToFloat(Edit1->Text);
C=StrToFloat(Edit2->Text);
w=StrToFloat(Edit3->Text);
 
 double t_min = -10;  // Начало интервала
  double t_max = 10 ;  // Конец интервала
  double dt    = 0.1;  // Шаг
  double u     = 0  ;
 
 
  for(double t = t_min; t <= t_max; t += dt){
    u =   U*(2*R*w*w*w*C*C*C+R*R*w*w*w*w*C*C*C*C+4*R*w*C+5*R*R*w*w*C*C+2*R*R*R*w*w*w*C*C*C+1)/w*C*R*(2*w*w*C*C+R*w*w*w*C*C*C+2+4*R*w*C+2*R*R*w*w*C*C) ;
 
   Chart1->Series[0]->AddXY(t,u);
  }
 
   double x_min = -10;  // Начало интервала
  double x_max = 10 ;  // Конец интервала
  double dx    = 0.1;  // Шаг
  double y     = 0  ;
 
 
  for(double x = x_min; x <= x_max; x += dx){
 
   Chart1->Series[1]->AddXY(t,U);
  }
 
 
 }

@Capitan-vor · 21.05.2010, 12:08 **[ТС]**

вот такую беду пишет((

@uggway · 21.05.2010, 21:16

Нужно добавить 2 набора данных...

Тебе об этом и говорят.

@Capitan-vor · 21.05.2010, 21:54 **[ТС]**

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

@uggway · 22.05.2010, 22:59

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

Кидаешь его на форму, тыкаешь 2 раза на нем. Добавляешь набор данных Series. (Там будет кнопочка Add)
И в принципе все. Дальше просто добавляешь данные в график. Например для функции sin(x) будет как-то так.

Так вот кнопочку Add нужно нажать 2 раза.

Сообщение от Capitan-vor

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

Потому, что ты обращаешься к элементу массива Series, который не существует. А в коде ошибок нет.

Можно добавить наборы данных вручную...

C++
1
2
TLineSeries * cs = new TLineSeries(Chart1);//тип графика - линии
Chart1->AddSeries(cs);

@Capitan-vor · 24.05.2010, 21:48 **[ТС]**

вроде всё сделал,правда переделал,так чтобы было в одном чарте.всё работает да только не так как надо,помоги разобраться,плиз)))!

C++
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
double R,C,K,c,r,w,t;
double T;
 
double U1(double t,double T)
{
double result,temp;
temp = pow(2*t/T,2);
result=1-pow(2.718,-temp)*sin(4*3.14*t/T);
return result;
}
 
double U2(double t,double T)
{
double result;
result=pow(2.718,-((8*t/T)-4))  ;
return result;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 
    R=StrToFloat(Edit1->Text);
 K=StrToFloat(Edit2->Text);
 w=StrToFloat(Edit3->Text);
 
 
 
 
 
 
      double U;
 
 
  T=2*3.14/w;
 
 //double x_min = -10;  // Начало интервала
 // double x_max = 10 ;  // Конец интервала
 // double dx    = 0.1;  // Шаг
 
  double u     ;
 
 
   double t_min = -10;  // Начало интервала
  double t_max = 10 ;  // Конец интервала
  double dt    = 0.1;  // Шаг
 
    C=c*0.000001   ;
    R=r*1000;
 
  for(double t = t_min; t <= t_max; t += dt)
  {
 
 
if  (t  <T/2 )
    {
    U=U1(t,T);
    }
    else {
    U=U2(t,T);
    }
   Chart1->Series[0]->AddXY(t,U);
 
    u =   U*(2*R*w*w*w*C*C*C+R*R*w*w*w*w*C*C*C*C+4*R*w*C+5*R*R*w*w*C*C+2*R*R*R*w*w*w*C*C*C+1)/w*C*R*(2*w*w*C*C+R*w*w*w*C*C*C+2+4*R*w*C+2*R*R*w*w*C*C) ;
 
  Chart1->Series[1]->AddXY(t,u);
 
  }
 
 
 
 }
//---------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Series1 -> Clear();
   Series2 -> Clear();
}
//---------------------------------------------------------------------------

@uggway · 25.05.2010, 12:47

C++
1
2
    C=c*0.000001   ;
    R=r*1000;

У тебя не инициализированны значения c и r... Они не вводятся и не указанны ранее, но в вычислениях учавствуют. Вероятно в этом и ошибка.

@Capitan-vor · 25.05.2010, 17:17 **[ТС]**

вообщем,я всё исправил и все работает,единственное что-у меня не правильно считатается мое выражение

C++
1
2
double Y= (C*R*w*(C*C*C*R*w*w*w+2*C*C*R*R*w*w+2*C*C*w*w+4*C*R*w+2)) ;
   Mnoj= (C*C*C*C*R*R*w*w*w*w+2*C*C*C*R*R*R*w*w*w+2*C*C*C*R*w*w*w+5*C*C*R*R*w*w+4*C*R*w+1)*pow(Y,-1);

только при моих значениях это выражение должно быть равно 1.19,а равно 1.02!!не знаете в чем может быть проблема?

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Capitan-vor 1 / 1 / 1 Регистрация: 08.06.2009 Сообщений: 37
	20.05.2010, 21:02 [ТС]
	AddY(sin(t)) строит график от одной переменной?просто вроде же надо строить отдвух AddXY-както так,или я неправильно понял? 0

@Capitan-vor 1 / 1 / 1 Регистрация: 08.06.2009 Сообщений: 37
	20.05.2010, 22:34 [ТС]
	А чтобы оба сигнала в одном чарте были надо просто работать только с Chart1->....? 0

@uggway 221 / 135 / 48 Регистрация: 12.04.2010 Сообщений: 248
	21.05.2010, 00:10
	Да... Только нужно добавить 2 набора данных и обращаться к ним Chart1->Series[0]->... Chart1->Series[1]->... 0

@Capitan-vor 1 / 1 / 1 Регистрация: 08.06.2009 Сообщений: 37
	21.05.2010, 12:08 [ТС]
	вот такую беду пишет(( Миниатюры 0

@uggway 221 / 135 / 48 Регистрация: 12.04.2010 Сообщений: 248
	21.05.2010, 21:16
	Нужно добавить 2 набора данных... Тебе об этом и говорят. 0

@Capitan-vor 1 / 1 / 1 Регистрация: 08.06.2009 Сообщений: 37
	21.05.2010, 21:54 [ТС]
	сорри,а что за два набора? а почему он мне ошибку не выдает ,а только при запуске программы вырубает? 0