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

17 lines
274 B
C++

#include <cmath>
#include "nr.h"
using namespace std;
void NR::slvsm2(Mat_O_DP &u, Mat_I_DP &rhs)
{
int i,j;
DP disc,fact,h=0.5;
for (i=0;i<3;i++)
for (j=0;j<3;j++)
u[i][j]=0.0;
fact=2.0/(h*h);
disc=sqrt(fact*fact+rhs[1][1]);
u[1][1]= -rhs[1][1]/(fact+disc);
}