libdspl-2.0
Библиотека алгоритмов цифровой обработки сигналов
writetxt.c
1 /*
2 * Copyright (c) 2015-2024 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 
75 #endif
76 #ifdef DOXYGEN_RUSSIAN
77 
121 #endif
122 int 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;
172 exit_label:
173  fclose(pFile);
174  return err;
175 }
#define ERROR_FOPEN
Ошибка открытия файла. Файл с заданным именем не может быть открыт для записи и (или) чтения.
Definition: dspl.h:583
#define ERROR_PTR
Ошибка указателя. Данная ошибка означает, что один из обязательных указателей (память под который дол...
Definition: dspl.h:610
#define ERROR_SIZE
Ошибка при передаче размера массива. Данная ошибка возникает когда помимо указателя на массив входных...
Definition: dspl.h:618
#define ERROR_FNAME
Ошибка в имени файла. Необходимо задать корректное имя файла.
Definition: dspl.h:582
int writetxt(double *x, double *y, int n, char *fn)
Сохранить вещественные данные в текстовый файл
Definition: writetxt.c:122
#define RES_OK
Функция завершилась корректно. Ошибки отсутствуют.
Definition: dspl.h:558