GRASS GIS 8 Programmer's Manual 8.4.1(2025)-45ca3179ab
Loading...
Searching...
No Matches
solvtd.c
Go to the documentation of this file.
1/* solvtd.c CCMATH mathematics library source code.
2 *
3 * Copyright (C) 2000 Daniel A. Atkinson All rights reserved.
4 * This code may be redistributed under the terms of the GNU library
5 * public license (LGPL). ( See the lgpl.license file for details.)
6 * ------------------------------------------------------------------------
7 */
8void solvtd(double *a, double *b, double *c, double *x, int m)
9{
10 double s;
11
12 int j;
13
14 for (j = 0; j < m; ++j) {
15 s = b[j] / a[j];
16 a[j + 1] -= s * c[j];
17 x[j + 1] -= s * x[j];
18 }
19 for (j = m, s = 0.; j >= 0; --j) {
20 x[j] -= s * c[j];
21 s = (x[j] /= a[j]);
22 }
23}
double b
void solvtd(double *a, double *b, double *c, double *x, int m)
Definition solvtd.c:8
#define x