kindred/solver
1
0
Fork 0
Code Issues 10 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

runVelIC

Browse Source
This commit is contained in:
Aik-Siong Koh
2023-06-18 01:06:39 -06:00
parent 3b08cd72df
commit 371b13a9e0
147 changed files with 2555 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
MbDCode/DifferenceOperator.cpp
View File

@@ -1,7 +1,21 @@
#include <cmath>
#include "DifferenceOperator.h"
#include "CREATE.h"
#include "SingularMatrixError.h"
#include "LDUFullMatParPv.h"
#include "FullRow.h"
using namespace MbD;
std::shared_ptr<FullRow<double>> DifferenceOperator::OneOverFactorials = []() {
auto oneOverFactorials = std::make_shared<FullRow<double>>(10);
for (int i = 0; i < oneOverFactorials->size(); i++)
{
oneOverFactorials->at(i) = 1.0 / std::tgamma(i+1);
}
return oneOverFactorials;
}();
void MbD::DifferenceOperator::calcOperatorMatrix()
{
@@ -12,8 +26,7 @@ void MbD::DifferenceOperator::calcOperatorMatrix()
this->formTaylorMatrix();
try {
assert(false);
//operatorMatrix = CREATE<LDUFullMatParPv>::With()->inversesaveOriginal(taylorMatrix, false);
operatorMatrix = CREATE<LDUFullMatParPv>::With()->inversesaveOriginal(taylorMatrix, false);
}
catch (SingularMatrixError ex) {
}
@@ -21,8 +34,6 @@ void MbD::DifferenceOperator::calcOperatorMatrix()
void MbD::DifferenceOperator::initialize()
{
//OneOverFactorials: = StMFullRow new : 10.
//1 to : OneOverFactorials size do : [:i | OneOverFactorials at : i put : 1.0d / i factorial]
}
void MbD::DifferenceOperator::setiStep(int i)
@@ -35,9 +46,9 @@ void MbD::DifferenceOperator::setorder(int o)
order = o;
}
void MbD::DifferenceOperator::instanciateTaylorMatrix()
void MbD::DifferenceOperator::instantiateTaylorMatrix()
{
if (taylorMatrix->empty() || (taylorMatrix->nrow() != (order + 1))) {
if (taylorMatrix == nullptr || (taylorMatrix->nrow() != (order + 1))) {
taylorMatrix = std::make_shared<FullMatrix<double>>(order + 1, order + 1);
}
}
@@ -45,7 +56,7 @@ void MbD::DifferenceOperator::instanciateTaylorMatrix()
void MbD::DifferenceOperator::formTaylorRowwithTimeNodederivative(int i, int ii, int k)
{
//| rowi hi hipower aij |
auto rowi = taylorMatrix->at(i);
auto& rowi = taylorMatrix->at(i);
for (int j = 0; j < k; j++)
{
rowi->at(j) = 0.0;
@@ -61,3 +72,8 @@ void MbD::DifferenceOperator::formTaylorRowwithTimeNodederivative(int i, int ii,
//rowi at : j put : aij
}
}
void MbD::DifferenceOperator::settime(double t)
{
time = t;
}