Опять Chart

[Карась]

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

А Вы имеете представление как в физике происходит сложение сигналов?
Я представляю и очевидно что тут простые вычисления не подходят.

[BigBB]

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

[Карась]

Я согласен что это легко, но явно не простым сложением...
http://www.ssga.ru/AllMetodMaterial/...-2/14-3.html#1

[BigBB]

Ладно попробую разобраться.

[BigBB]

Все-таки мне кажется, что мгновенные значения напряжения сигнала можно складывать арифметически т.е. U(t)=U1(t)+U2(t). Разве не так?

[Карась]

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

Сообственно всё идёт по формулам. Просто в жизни встречаются частные случае, особенно с напряжениями.

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

[Карась]

Извиняюсь за путаницу. Правильные ответ был данн в посте №3.
Спасибо alexBlack.

АДД: улучшил программу. Теперь значения амплитуды, сдвига фазы, частоты сигнала заполняются рандомно. Просиходит сложение из массива (это 10 разных сигналов) и вывод на экран. При нажатии кнопки происходит генерация нового графика.

[BigBB]

И как же происходит сложение хотелось бы увидеть исходники программы

[Карась]

Я себе это так представляю.

Var
  Form1: TForm1;
  i, Period : Integer;
  y, x : Real;
  A, W, F : array [1..10] of Integer;

  Procedure OSI;

implementation

{$R *.dfm}

Procedure OSI; // Отрисовка Оси
Begin
For i := 1 To 630 Do
  Begin

  Form1.Pole.Canvas.Pen.Style := psDot;

    If i < 20 Then
      Begin
        Form1.Pole.Canvas.MoveTo(X0_OSI, Y0_OSI + 200 - i * 20);
        Form1.Pole.Canvas.LineTo(630, Y0_OSI + 200 - i * 20 );
      End;

    If i < 400 Then
      Form1.Pole.Canvas.Pixels[X0_OSI, Y0_OSI + 200 - i] := CLBlack;

      For Period := 1 To 6 Do
        Begin
          Form1.Pole.Canvas.MoveTo(X0_OSI + Period * 90, Y0_OSI - 200);
          Form1.Pole.Canvas.LineTo(X0_OSI + Period * 90, Y0_OSI + 200);
          Form1.Pole.Canvas.TextOut(X0_OSI + Period * 90 - 5, Y0_OSI + 210, IntToStr(Period * 90));
        End;
  Form1.Pole.Canvas.Pixels[X0_OSI - 5 + i, Y0_OSI] := CLBlack;
  End;
Form1.Pole.Canvas.TextOut(650, Y0_OSI - 6, 'X');

// Заполнение массивов
Randomize;
For i := 1 To 10 Do
  Begin
    A[i] := Random(100) - 50;
    W[i] := Random(20)  - 10;
    F[i] := Random(10) - 5;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject); // Рисуем график
Begin
Form1.Pole.Canvas.FillRect(Form1.Pole.ClientRect);
y := 0; x := 0; Period := 0;
Osi;
For i := 1 to 6100 do
  Begin
//Начинаем складывать сигалы (определяем y)
    For Period := 1 To 10 Do
      y := y + A[Period] * cos((W[Period] * x + F[Period]) * PI/180);
// Закончили складывать, начинаем отрисовывать точку.
  x := x + 0.1;
  Form1.Pole.Canvas.Pixels[Round(X0_OSI + x), Round(Y0_OSI + y)] := CLGreen;
  y := 0; Period := 0;
  End;
End;

end.

[BigBB]

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

y := y + A[Period] * cos((W[Period] * x + F[Period]) * PI/180);

это и есть простое арифметическое сложение, не так ли?