lsCompareNarrowBand.hpp

Go to the documentation of this file.

#pragma once
 
#include <hrleDenseCellIterator.hpp>
#include <lsDomain.hpp>
#include <lsExpand.hpp>
#include <lsMesh.hpp>
#include <lsPreCompileMacros.hpp>
 
#include <unordered_map>
 
namespace viennals {
 
using namespace viennacore;

template <class T, int D = 2> class CompareNarrowBand {
  using hrleIndexType = viennahrle::IndexType;
  SmartPointer<Domain<T, D>> levelSetTarget = nullptr;
  SmartPointer<Domain<T, D>> levelSetSample = nullptr;
  viennahrle::Index<D> minIndex, maxIndex;
 
  // Variables for x and y range restrictions
  T xRangeMin = std::numeric_limits<T>::lowest();
  T xRangeMax = std::numeric_limits<T>::max();
  T yRangeMin = std::numeric_limits<T>::lowest();
  T yRangeMax = std::numeric_limits<T>::max();
  T zRangeMin = std::numeric_limits<T>::lowest();
  T zRangeMax = std::numeric_limits<T>::max();
  bool useXRange = false;
  bool useYRange = false;
  bool useZRange = false;
 
  // Fields to store the calculation results
  T sumSquaredDifferences = 0.0;
  T sumDifferences = 0.0;
  unsigned numPoints = 0;
 
  // Add mesh output capability
  SmartPointer<Mesh<T>> outputMesh = nullptr;
  bool outputMeshSquaredDifferences = true;
 
  bool checkAndCalculateBounds() {
    if (levelSetTarget == nullptr || levelSetSample == nullptr) {
      Logger::getInstance()
          .addError("Missing level set in CompareNarrowBand.")
          .print();
      return false;
    }
 
    // Check if the grids are compatible
    const auto &gridTarget = levelSetTarget->getGrid();
    const auto &gridSample = levelSetSample->getGrid();
 
    if (gridTarget.getGridDelta() != gridSample.getGridDelta()) {
      Logger::getInstance()
          .addError("Grid delta mismatch in CompareNarrowBand. The grid "
                    "deltas of the two level sets must be equal.")
          .print();
      return false;
    }
 
    // Check if the x extents of both level sets are equal
    const auto &domainTarget = levelSetTarget->getDomain();
    const auto &domainSample = levelSetSample->getDomain();
 
    // hrleIndexType targetMinX = gridTarget.isNegBoundaryInfinite(0)
    //                                ? domainTarget.getMinRunBreak(0)
    //                                : gridTarget.getMinIndex(0);
    // hrleIndexType targetMaxX = gridTarget.isPosBoundaryInfinite(0)
    //                                ? domainTarget.getMaxRunBreak(0)
    //                                : gridTarget.getMaxIndex(0);
    // hrleIndexType sampleMinX = gridSample.isNegBoundaryInfinite(0)
    //                                ? domainSample.getMinRunBreak(0)
    //                                : gridSample.getMinIndex(0);
    // hrleIndexType sampleMaxX = gridSample.isPosBoundaryInfinite(0)
    //                                ? domainSample.getMaxRunBreak(0)
    //                                : gridSample.getMaxIndex(0);
 
    // if (targetMinX != sampleMinX || targetMaxX != sampleMaxX) {
    //   Logger::getInstance()
    //       .addWarning("X extent mismatch in CompareNarrowBand. The x extents
    //       "
    //                   "of both level sets must be equal.")
    //       .print();
    //   return false;
    // }
 
    // Expand the sample level set using lsExpand to a default width of 5
    if (levelSetSample->getLevelSetWidth() < 5) {
      VIENNACORE_LOG_WARNING(
          "Sample level set width is insufficient. Expanding it to "
          "a width of 5.");
      Expand<T, D>(levelSetSample, 5).apply();
    }
 
    // Check if target level set width is sufficient
    if (levelSetTarget->getLevelSetWidth() <
        levelSetSample->getLevelSetWidth() + 50) {
      VIENNACORE_LOG_WARNING(
          "Target level set width is insufficient. It must exceed sample "
          "width by least 50. \n"
          " CORRECTION: The expansion was performed. \n"
          "ALTERNATIVE: Alternatively, please expand the target yourself "
          "using lsExpand before passing it to this function. \n");
      Expand<T, D>(levelSetTarget, levelSetSample->getLevelSetWidth() + 50)
          .apply();
    }
 
    // Initialize min and max indices
    for (unsigned i = 0; i < D; ++i) {
      minIndex[i] = std::numeric_limits<hrleIndexType>::max();
      maxIndex[i] = std::numeric_limits<hrleIndexType>::lowest();
    }
 
    // Calculate actual bounds
    for (unsigned i = 0; i < D; ++i) {
      minIndex[i] = std::min({minIndex[i],
                              (gridTarget.isNegBoundaryInfinite(i))
                                  ? domainTarget.getMinRunBreak(i)
                                  : gridTarget.getMinIndex(i),
                              (gridSample.isNegBoundaryInfinite(i))
                                  ? domainSample.getMinRunBreak(i)
                                  : gridSample.getMinIndex(i)});
 
      maxIndex[i] = std::max({maxIndex[i],
                              (gridTarget.isPosBoundaryInfinite(i))
                                  ? domainTarget.getMaxRunBreak(i)
                                  : gridTarget.getMaxIndex(i),
                              (gridSample.isPosBoundaryInfinite(i))
                                  ? domainSample.getMaxRunBreak(i)
                                  : gridSample.getMaxIndex(i)});
    }
 
    return true;
  }
 
public:
  CompareNarrowBand() {}
 
  CompareNarrowBand(SmartPointer<Domain<T, D>> passedLevelSetTarget,
                    SmartPointer<Domain<T, D>> passedlevelSetSample)
      : levelSetTarget(passedLevelSetTarget),
        levelSetSample(passedlevelSetSample) {}
 
  void setLevelSetTarget(SmartPointer<Domain<T, D>> passedLevelSet) {
    levelSetTarget = passedLevelSet;
  }
 
  void setLevelSetSample(SmartPointer<Domain<T, D>> passedLevelSet) {
    levelSetSample = passedLevelSet;
  }

  void setXRange(T minXRange, T maxXRange) {
    xRangeMin = minXRange;
    xRangeMax = maxXRange;
    useXRange = true;
  }

  void setYRange(T minYRange, T maxYRange) {
    yRangeMin = minYRange;
    yRangeMax = maxYRange;
    useYRange = true;
  }

  void clearXRange() {
    useXRange = false;
    xRangeMin = std::numeric_limits<T>::lowest();
    xRangeMax = std::numeric_limits<T>::max();
  }

  void clearYRange() {
    useYRange = false;
    yRangeMin = std::numeric_limits<T>::lowest();
    yRangeMax = std::numeric_limits<T>::max();
  }

  void setZRange(T minZRange, T maxZRange) {
    zRangeMin = minZRange;
    zRangeMax = maxZRange;
    useZRange = true;
  }

  void clearZRange() {
    useZRange = false;
    zRangeMin = std::numeric_limits<T>::lowest();
    zRangeMax = std::numeric_limits<T>::max();
  }

  void setOutputMesh(SmartPointer<Mesh<T>> passedMesh,
                     bool outputMeshSquaredDiffs = true) {
    outputMesh = passedMesh;
    outputMeshSquaredDifferences = outputMeshSquaredDiffs;
  }

  void setOutputMeshSquaredDifferences(bool value) {
    outputMeshSquaredDifferences = value;
  }

  void apply() {
    // Perform compatibility checks and calculate bounds
    if (!checkAndCalculateBounds()) {
      // If checks fail, return NaN
      sumSquaredDifferences = std::numeric_limits<T>::quiet_NaN();
      numPoints = 0;
      return;
    }
 
    const auto &gridTarget = levelSetTarget->getGrid();
    double gridDelta = gridTarget.getGridDelta();
 
    // Set up iterators for both level sets
    viennahrle::ConstDenseCellIterator<typename Domain<T, D>::DomainType>
        itSample(levelSetSample->getDomain(), minIndex);
    viennahrle::ConstDenseCellIterator<typename Domain<T, D>::DomainType>
        itTarget(levelSetTarget->getDomain(), minIndex);
 
    sumSquaredDifferences = 0.0;
    numPoints = 0;
 
    // Prepare mesh output if needed
    std::unordered_map<viennahrle::Index<D>, size_t,
                       typename viennahrle::Index<D>::hash>
        pointIdMapping;
    std::vector<T> differenceValues;
    size_t currentPointId = 0;
 
    const bool generateMesh = outputMesh != nullptr;
    if (generateMesh) {
      outputMesh->clear();
 
      // Initialize mesh extent
      for (unsigned i = 0; i < 3; ++i) {
        outputMesh->minimumExtent[i] =
            (i < D) ? std::numeric_limits<T>::max() : 0.0;
        outputMesh->maximumExtent[i] =
            (i < D) ? std::numeric_limits<T>::lowest() : 0.0;
      }
    }
 
    // Iterate through the domain defined by the bounding box
    for (; itSample.getIndices() < maxIndex; itSample.next()) {
      // Check if current point is within specified x and y ranges
      T xCoord = itSample.getIndices()[0] * gridDelta;
      T yCoord = (D > 1) ? itSample.getIndices()[1] * gridDelta : 0;
      T zCoord = (D > 2) ? itSample.getIndices()[2] * gridDelta : 0;
 
      // Skip if outside the specified x-range
      if (useXRange && (xCoord < xRangeMin || xCoord > xRangeMax)) {
        continue;
      }
 
      // Skip if outside the specified y-range (only check in 2D and 3D)
      if (D > 1 && useYRange && (yCoord < yRangeMin || yCoord > yRangeMax)) {
        continue;
      }
 
      // Skip if outside the specified z-range (only check in 3D)
      if (D > 2 && useZRange && (zCoord < zRangeMin || zCoord > zRangeMax)) {
        continue;
      }
 
      // Move the second iterator to the same position
      itTarget.goToIndicesSequential(itSample.getIndices());
 
      // Get values at current position
      T valueTarget = 0.0;
      T valueSample = 0.0;
 
      // Calculate average value at cell center
      for (int i = 0; i < (1 << D); ++i) {
        valueSample += itSample.getCorner(i).getValue();
        valueTarget += itTarget.getCorner(i).getValue();
      }
      valueTarget /= (1 << D);
      valueSample /= (1 << D);
 
      // Check for infinite or extreme values that might cause numerical issues
      if (std::isinf(valueTarget) || std::isinf(valueSample) ||
          std::abs(valueTarget) > 1000 || std::abs(valueSample) > 1000) {
        continue;
      }
 
      // Calculate difference and add to sum
      T diff = std::abs(valueTarget - valueSample) * gridDelta;
      T diffSquared = diff * diff;
      sumSquaredDifferences += diffSquared;
      sumDifferences += diff;
      numPoints++;
 
      // Store difference in mesh if required
      if (generateMesh) {
        std::array<unsigned, 1 << D> voxel;
        bool addVoxel = true;
        // TODO: possibly remove this addVoxel check
        // Insert all points of voxel into pointList
        for (unsigned i = 0; i < (1 << D); ++i) {
          viennahrle::Index<D> index;
          for (unsigned j = 0; j < D; ++j) {
            index[j] =
                itSample.getIndices(j) + itSample.getCorner(i).getOffset()[j];
            if (index[j] > maxIndex[j]) {
              addVoxel = false;
              break;
            }
          }
          if (addVoxel) {
            auto pointIdValue = std::make_pair(index, currentPointId);
            auto pointIdPair = pointIdMapping.insert(pointIdValue);
            voxel[i] = pointIdPair.first->second;
            if (pointIdPair.second) {
              ++currentPointId;
            }
          } else {
            break;
          }
        }
 
        if (addVoxel) {
          if constexpr (D == 3) {
            std::array<unsigned, 8> hexa{voxel[0], voxel[1], voxel[3],
                                         voxel[2], voxel[4], voxel[5],
                                         voxel[7], voxel[6]};
            outputMesh->hexas.push_back(hexa);
          } else if constexpr (D == 2) {
            std::array<unsigned, 4> quad{voxel[0], voxel[1], voxel[3],
                                         voxel[2]};
            outputMesh->tetras.push_back(quad);
          }
 
          // Add difference value to cell data depending on whether squared
          // differences are requested
          differenceValues.push_back(outputMeshSquaredDifferences ? diffSquared
                                                                  : diff);
        }
      }
    }
 
    // Finalize mesh output
    if (generateMesh && !pointIdMapping.empty()) {
      outputMesh->nodes.resize(pointIdMapping.size());
      for (auto it = pointIdMapping.begin(); it != pointIdMapping.end(); ++it) {
        std::array<T, 3> coords{};
        for (unsigned i = 0; i < D; ++i) {
          coords[i] = gridDelta * it->first[i];
 
          if (coords[i] < outputMesh->minimumExtent[i]) {
            outputMesh->minimumExtent[i] = coords[i];
          } else if (coords[i] > outputMesh->maximumExtent[i]) {
            outputMesh->maximumExtent[i] = coords[i];
          }
        }
        outputMesh->nodes[it->second] = coords;
      }
 
      assert(differenceValues.size() ==
             outputMesh->template getElements<1 << D>().size());
      outputMesh->cellData.insertNextScalarData(std::move(differenceValues),
                                                outputMeshSquaredDifferences
                                                    ? "Squared differences"
                                                    : "Absolute differences");
    }
  }

  T getSumSquaredDifferences() const { return sumSquaredDifferences; }
 
  // Return the sum of differences calculated by apply().
  T getSumDifferences() const { return sumDifferences; }

  unsigned getNumPoints() const { return numPoints; }

  T getRMSE() const {
    return (numPoints > 0) ? std::sqrt(sumSquaredDifferences / numPoints)
                           : std::numeric_limits<T>::infinity();
  }
};
 
// Add template specializations for this class
PRECOMPILE_PRECISION_DIMENSION(CompareNarrowBand)
 
} // namespace viennals