Files
2025-02-Numerical/lib/nr/ansi/recipes/slvsm2.c
2025-09-12 18:55:25 +09:00

14 lines
218 B
C

#include <math.h>
void slvsm2(double **u, double **rhs)
{
void fill0(double **u, int n);
double disc,fact,h=0.5;
fill0(u,3);
fact=2.0/(h*h);
disc=sqrt(fact*fact+rhs[2][2]);
u[2][2] = -rhs[2][2]/(fact+disc);
}