libdspl-2.0
Библиотека алгоритмов цифровой обработки сигналов
writetxt.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
75#endif
76#ifdef DOXYGEN_RUSSIAN
121#endif
122int DSPL_API writetxt(double* x, double* y, int n, char* fn)
123{
124 int k, err;
125 FILE* pFile = NULL;
126 if(!x)
127 return ERROR_PTR;
128 if(n < 1)
129 return ERROR_SIZE;
130 if(!fn)
131 return ERROR_FNAME;
132
133 pFile = fopen(fn, "w+");
134 if(pFile == NULL)
135 return ERROR_FOPEN;
136
137 if(y)
138 {
139 for(k = 0; k < n; k++)
140 {
141 if(isnan(x[k]) || isnan(y[k]))
142 {
143 err = ERROR_NAN;
144 goto exit_label;
145 }
146 if(isinf(x[k]) || isinf(y[k]))
147 {
148 err = ERROR_INF;
149 goto exit_label;
150 }
151 fprintf(pFile, "%+.12E\t%+.12E\n", x[k], y[k]);
152 }
153 }
154 else
155 {
156 for(k = 0; k < n; k++)
157 {
158 if(isnan(x[k]))
159 {
160 err = ERROR_NAN;
161 goto exit_label;
162 }
163 if(isinf(x[k]))
164 {
165 err = ERROR_INF;
166 goto exit_label;
167 }
168 fprintf(pFile, "%+.12E\n", x[k]);
169 }
170 }
171 err = RES_OK;
172exit_label:
173 fclose(pFile);
174 return err;
175}
#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
int writetxt(double *x, double *y, int n, char *fn)
Сохранить вещественные данные в текстовый файл
Definition: writetxt.c:122