Сигнал в виде прямоугольника

@Lol_niko · Регистрация: 18.12.2012

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

Здравствуйте, может кто то подсказать, как построить в TChart прямоугольную периодическую функцию? Вся суть, чтобы можно было задать амплитуду(А) и период(Т).

@northener · 30.11.2016, 03:53

А в чем проблема?
В TChart достаточно задать точки, где график меняет своё направление.

@Puporev · 30.11.2016, 12:56

Можно так.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,t,x:integer;
    n,i:Integer;
    m:array of TPoint;
begin
a:=30; //амплитуда
t:=40; //период
n:=10; // количество циклов
x:=0;  //начало по Х
SetLength(m,n*4);//создаем массив точек
for i:=0 to n*4-1 do
 begin
   m[i].X:=x;
   if i mod 4=1 then x:=x+t;
   case i mod 8 of
   0,3,4,7:m[i].Y:=0;
   1,2:m[i].Y:=a;
   5,6:m[i].Y:=-a;
   end;
 end;
 //задаем некоторые параметры осей
With Chart1.LeftAxis do
 begin
  Automatic := False ;
  SetMinMax(-a-10,a+10);
  Increment:=a;
 end;
 With Chart1.BottomAxis do
 begin
  Automatic := False ;
  SetMinMax(-10,n*t+10);
  Increment:=t;
 end;
// строим график 
for i:=0 to n*4-1 do
series1.addXY(m[i].X,m[i].Y,'',clBlue);
end;

@Lol_niko · 13.12.2016, 11:10 **[ТС]**

Спасибо большое, очень помогло

Добавлено через 55 минут
Puporev, а не подскажешь, как этот код преобразовать в треугольную функцию? Чтобы точки 1 и 4 не только по Y строились, но и по X(половина запаздывания).

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,t,x:integer;
    n,i:Integer;
    m:array of TPoint;
begin
a:=30; //амплитуда
t:=40; //запаздывание
n:=10; // количесвто циклов
x:=0;  //начало по X
SetLength(m,n*3);//создаем массив точек
for i:=0 to n*3-1 do
 begin
   m[i].X:=x;
   if i mod 3=1 then x:=x+t;
   case i mod 6 of
   0,2,3:m[i].Y:=0;
   1:m[i].Y:=a;
   4:m[i].Y:=-a;
   end;
 end;
 //залаем некоторые параметры осей
With Chart1.LeftAxis do
 begin
  Automatic := False ;
  SetMinMax(-a-10,a+10);
  Increment:=a;
 end;
 With Chart1.BottomAxis do
 begin
  Automatic := False ;
  SetMinMax(-10,n*t+10);
  Increment:=t;
 end;
// строим график
for i:=0 to n*3-1 do
series1.addXY(m[i].X,m[i].Y,'',clBlue);
end;

@Puporev · 13.12.2016, 14:05

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

как этот код преобразовать в треугольную функцию?

Нарисуй что нужно, не понял.

@Lol_niko · 13.12.2016, 15:01 **[ТС]**

Puporev,

@Puporev · 13.12.2016, 15:32

Delphi

a:=30; //амплитуда
t:=40; //запаздывание
n:=10; // количество циклов
x:=0;  //начало по X
SetLength(m,n*3);//создаем массив точек
for i:=0 to n*3-1 do
 begin
   m[i].X:=x;
   case i mod 4 of
   0,2:m[i].Y:=0;
   1:m[i].Y:=a;
   3:m[i].Y:=-a;
   end;
  x:=x+t div 2;
 end;

@Lol_niko · 20.12.2016, 08:35 **[ТС]**

Puporev, Почему то при запуске ошибка в строчке: "With Chart1.LeftAxis do"

@Puporev · 20.12.2016, 08:46

А раньше не было? Ведь код я писал еще 30.11 и Вы его видели. У меня ошибок не было.

@Lol_niko · 20.12.2016, 10:46 **[ТС]**

Puporev, В прямоугольном сигнале ошибок нет, а в треугольном есть.

@Puporev · 20.12.2016, 10:51

Ну так треугольный это ты писал, я только показал что нужно изменить. Про оси я ничего не писал, смотри внимательно программу. Если вообще не рубишь, а только портить умеешь, то выложи архив проекта.

@Lol_niko 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 48
		1
	Сигнал в виде прямоугольника 29.11.2016, 20:43. Показов 1572. Ответов 10 Метки нет (Все метки) Здравствуйте, может кто то подсказать, как построить в TChart прямоугольную периодическую функцию? Вся суть, чтобы можно было задать амплитуду(А) и период(Т). Миниатюры 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	30.11.2016, 03:53	2
	А в чем проблема? В TChart достаточно задать точки, где график меняет своё направление. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.12.2016, 14:05	5
	Сообщение от Lol_niko как этот код преобразовать в треугольную функцию? Нарисуй что нужно, не понял. 0

@Lol_niko 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 48
	13.12.2016, 15:01 [ТС]	6
	Puporev, Миниатюры 0

@Lol_niko 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 48
	20.12.2016, 08:35 [ТС]	8
	Puporev, Почему то при запуске ошибка в строчке: "With Chart1.LeftAxis do" 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.12.2016, 08:46	9
	А раньше не было? Ведь код я писал еще 30.11 и Вы его видели. У меня ошибок не было. 0

@Lol_niko 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 48
	20.12.2016, 10:46 [ТС]	10
	Puporev, В прямоугольном сигнале ошибок нет, а в треугольном есть. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.12.2016, 10:51	11
	Ну так треугольный это ты писал, я только показал что нужно изменить. Про оси я ничего не писал, смотри внимательно программу. Если вообще не рубишь, а только портить умеешь, то выложи архив проекта. 0

Сигнал в виде прямоугольника

Решение