84 lines
2.2 KiB
C++
84 lines
2.2 KiB
C++
#include "vdop.h"
|
|
#include <cassert> // assert()
|
|
#include <cmath>
|
|
#include <iostream>
|
|
#include <vector>
|
|
using namespace std;
|
|
|
|
|
|
void vddiv(vector<double> &x, vector<double> const &y,
|
|
vector<double> const &z)
|
|
{
|
|
assert( x.size() == y.size() && y.size() == z.size() );
|
|
size_t n = x.size();
|
|
|
|
for (size_t k = 0; k < n; ++k)
|
|
{
|
|
x[k] = y[k] / z[k];
|
|
}
|
|
return;
|
|
}
|
|
|
|
//******************************************************************************
|
|
|
|
void vdaxpy(std::vector<double> &x, std::vector<double> const &y,
|
|
double alpha, std::vector<double> const &z )
|
|
{
|
|
assert( x.size() == y.size() && y.size() == z.size() );
|
|
size_t n = x.size();
|
|
|
|
for (size_t k = 0; k < n; ++k)
|
|
{
|
|
x[k] = y[k] + alpha * z[k];
|
|
}
|
|
return;
|
|
}
|
|
//******************************************************************************
|
|
|
|
double dscapr(std::vector<double> const &x, std::vector<double> const &y)
|
|
{
|
|
assert( x.size() == y.size());
|
|
size_t n = x.size();
|
|
|
|
double s = 0.0;
|
|
for (size_t k = 0; k < n; ++k)
|
|
{
|
|
s += x[k] * y[k];
|
|
}
|
|
|
|
return s;
|
|
}
|
|
|
|
//******************************************************************************
|
|
void DebugVector(vector<double> const &v)
|
|
{
|
|
cout << "\nVector (nnode = " << v.size() << ")\n";
|
|
for (size_t j = 0; j < v.size(); ++j)
|
|
{
|
|
cout.setf(ios::right, ios::adjustfield);
|
|
cout << v[j] << " ";
|
|
}
|
|
cout << endl;
|
|
|
|
return;
|
|
}
|
|
//******************************************************************************
|
|
bool CompareVectors(std::vector<double> const &x, int const n, double const y[], double const eps)
|
|
{
|
|
bool bn = (static_cast<int>(x.size()) == n);
|
|
if (!bn)
|
|
{
|
|
cout << "######### Error: " << "number of elements" << endl;
|
|
}
|
|
//bool bv = equal(x.cbegin(),x.cend(),y);
|
|
bool bv = equal(x.cbegin(), x.cend(), y,
|
|
[eps](double a, double b) -> bool
|
|
{ return std::abs(a - b) < eps * (1.0 + 0.5 * (std::abs(a) + std::abs(a))); }
|
|
);
|
|
if (!bv)
|
|
{
|
|
assert(static_cast<int>(x.size()) == n);
|
|
cout << "######### Error: " << "values" << endl;
|
|
}
|
|
return bn && bv;
|
|
}
|