![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Здравствуйте уважаемые форумчане. Есть задание переписать процедуру, осуществляющую БПФ из С++ в Делфи.
Но возникла проблема при реализации процедуры union Исходный код С++ Код:
union { double af[2048*2]; complex ac[2048]; } a;Код:
procedure FFT(var nn:integer); Type b=Record case byte of 0: (a1: record af: Array[0..2048*2] Of double; end); 1: (a2: record ac: Array[0..2048] Of Variant; end); end; Код:
1: (a2: record ac: Array[0..2048] Of Variant; end); Цитата:
![]() Массив Array[0..2048] Of Variant нужен чтобы потом объявить массив комплексных чисел. Исходная процедура на С++: FFT_R2.rar Полный листнг моей попытки перевода: Делфи.rar P.S. Подскажите люди сведущие, как в Делфи записать вот этот Сишный код? Код:
aw/=nn Последний раз редактировалось Сникерс, 24.05.2013 в 00:40. |
|
#2
|
||||
|
||||
|
Цитата:
Код:
aw := aw / nn; |
| Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
Сникерс (24.05.2013)
| ||
|
#3
|
||||
|
||||
|
Эм... а как тогда преобразовать вот такой код?
Код:
aw/=nn/2; Код:
aw:=nn/2; |
|
#4
|
||||
|
||||
|
Код:
aw:=aw/nn/2 |
| Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
Сникерс (24.05.2013)
| ||