ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 03.05.2019
Просмотров: 695
Скачиваний: 5
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
21
call mxCopyComplex16ToPtr (с, c_pr, c_pi, 1)
end
Создадим в текущем каталоге Matlab файлы mycsum.f и mycsumg.f и
скомпилируем МЕХ-функцию при помощи команды mex (подробности
описаны в предыдущем разделе):
>> mex mycsum.f mycsumg.f
Убедимся в том, что полученная МЕХ-функция mycsum работает
верно
>> s=mycsum(l+2i, 3-5i)
s =
4.0000 - 3.0000i
Разумеется, mycsum правильно вычисляет сумму не только комплекс-
ных, но и вещественных аргументов:
>> s=mycsum(l, 3)
s =
4