libdspl-2.0
Библиотека алгоритмов цифровой обработки сигналов
writetxt_cmplx_re.c
1/*
2* Copyright (c) 2015-2022 Sergey Bakhurin
3* Digital Signal Processing Library [http://dsplib.org]
4*
5* This file is part of DSPL.
6*
7* is free software: you can redistribute it and/or modify
8* it under the terms of the GNU General Public License as published by
9* the Free Software Foundation, either version 3 of the License, or
10* (at your option) any later version.
11*
12* DSPL is distributed in the hope that it will be useful,
13* but WITHOUT ANY WARRANTY; without even the implied warranty of
14* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15* GNU General Public License for more details.
16*
17* You should have received a copy of the GNU General Public License
18* along with Foobar. If not, see <http://www.gnu.org/licenses/>.
19*/
20
21
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
25#include "dspl.h"
26
27
28
29
30#ifdef DOXYGEN_ENGLISH
31
32#endif
33#ifdef DOXYGEN_RUSSIAN
34
35#endif
36int DSPL_API writetxt_cmplx_re(double* x, complex_t *y, int n, char* fn)
37{
38 int k;
39 FILE* pFile = NULL;
40
41 if(!x)
42 return ERROR_PTR;
43 if(n < 1)
44 return ERROR_SIZE;
45 if(!fn)
46 return ERROR_FNAME;
47
48 pFile = fopen(fn, "w+");
49 if(pFile == NULL)
50 return ERROR_FOPEN;
51
52 if(x)
53 for(k = 0; k < n; k++)
54 fprintf(pFile, "%+.12E\t%+.12E\n", x[k], RE(y[k]));
55 else
56 for(k = 0; k < n; k++)
57 fprintf(pFile, "%+.12E\n", RE(y[k]));
58
59 fclose(pFile);
60 return RES_OK;
61}
62
#define RES_OK
Функция завершилась корректно. Ошибки отсутствуют.
Definition: dspl.h:558
#define ERROR_FNAME
Ошибка в имени файла. Необходимо задать корректное имя файла.
Definition: dspl.h:582
#define ERROR_PTR
Ошибка указателя. Данная ошибка означает, что один из обязательных указателей (память под который дол...
Definition: dspl.h:610
#define ERROR_SIZE
Ошибка при передаче размера массива. Данная ошибка возникает когда помимо указателя на массив входных...
Definition: dspl.h:618
#define ERROR_FOPEN
Ошибка открытия файла. Файл с заданным именем не может быть открыт для записи и (или) чтения.
Definition: dspl.h:583
#define RE(x)
Макрос определяющий реальную часть комплексного числа.
Definition: dspl.h:420
double complex_t[2]
Описание комплексного типа данных.
Definition: dspl.h:86