Опять Chart

[BigBB]

В Delphi нужно построить график y=сумма по i=(от 0 до Q-1) Ai*cos(Wi*t+fi)

Ai-амплитуда и-того сигнала
Wi-частота и-того сигнала
fi-фаза и-того сигнала
t-длина сигнала
Q-кол-во гармонических составляющих

составляющие добавляются кнопкой при нажатии которой в модальном окне задаются амплитуда, частота и фаза нового сигнала, хранятся в многомерном массиве

Пробовал делать сам через Chart не получается сделать сумму, только одну составляющую
Если кто может помочь с данной темой буду очень признателен

[BigBB]

Че никто не знает как ето сделать?

[mihali4]

не получается сделать сумму, только одну составляющую
y=сумма по i=(от 0 до Q-1) Ai*cos(Wi*t+fi)

В переводе означает:

y:=0;
for i:=0 to Q-1 do
begin
y:=y+A[i]*cos(W[i]*t+F[i]);
// А вот тут готовьте к выводу значения Y в Chart (заполняйте массив)
end;

[BigBB]

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

[Карась]

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

делал так не работает!!Почему-то

Ну чтож:
1. Показывайте код.
2. С чево Вы взяли что программа не работает?

[BigBB]

Делал так:
заполняю массив:

procedure TForm1.Button2Click(Sender: TObject);

begin
If  form2.ShowModal = mrOk then
Begin
arr1[i]:=StrToFloat(Form2.Combobox1.Text);
arr2[i]:=StrToFloat(Form2.Combobox2.Text);
arr3[i]:=StrToFloat(Form2.Combobox3.Text);
form1.ListBox1.Items.Add(Form1.Combobox1.Text+'*cos(2*pi*'+Form1.Combobox2.Text+'+'+Form1.Combobox3.Text+')');
q:=q+1;
End;

далее пытаюсь строить:

procedure TForm1.Button1Click(Sender: TObject);
var g,w:real;
begin
g:=0.01;
w:=StrToFloat(Form1.Edit10.Text);
h:=0;
y:=0;
while h <= w do
  begin
   for i:=0 to q-1 do
  begin
 y:=y+arr1[i]*cos(arr2[i]*h+arr3[i]);
 Chart1.Series[0].AddXY(h,y);
 h:=h+g;
  end;
  end;
end;

Когда задаю амплитуду=1 частоту=1(получаю циклическую 2pi*1) и фазу 0 получаю картинку
видимо я туплю объясните пожалуйста, я в программировании не силен

[BigBB]

Обратите внимание пожалуйста на эту тему ибо помощь действительно нужна! Сам не могу разобраться

[BigBB]

To Карась and mihali4: ну что я привел код, объясните пожалуйста. что я не так делаю

[Карась]

Неочень понятно. Нужно каждый раз рисовать график, но его праметры берутся из массива?

Глянь.... меняется амплитуда и цвет.

[BigBB]

Тема в том, что мне не нужно отдельные графики сигнала с разными характеристиками, а нужна их сумма,т.е. задается не сколько сигналов с разными амплитудами частотами и фазами, эти сигналы складываются и получается один сложный сигнал, график которого мне и надо нарисовать. Но при том изначальное кол-во складываемых графиков не известно.