|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Record Array Of Variant
Здравствуйте уважаемые форумчане. Есть задание переписать процедуру, осуществляющую БПФ из С++ в Делфи.
Но возникла проблема при реализации процедуры 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; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
Сникерс (24.05.2013)
|
#3
|
||||
|
||||
Эм... а как тогда преобразовать вот такой код?
Код:
aw/=nn/2; Код:
aw:=nn/2; |
#4
|
||||
|
||||
Код:
aw:=aw/nn/2 jmp $ ; Happy End! The Cake Is A Lie. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
Сникерс (24.05.2013)
|