EMT_Ph3_SSN_Inductor.cpp

/* Copyright 2017-2021 Institute for Automation of Complex Power Systems,
 *                     EONERC, RWTH Aachen University
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at https://mozilla.org/MPL/2.0/.
 *********************************************************************************/
 
#include <dpsim-models/EMT/EMT_Ph3_SSN_Inductor.h>
 
using namespace CPS;
 
EMT::Ph3::SSN::Inductor::Inductor(String uid, String name,
                                  Logger::Level logLevel)
    : MNASimPowerComp<Real>(uid, name, true, true, logLevel),
      Base::Ph3::Inductor(mAttributes) {
  mPhaseType = PhaseType::ABC;
  setTerminalNumber(2);
  **mIntfVoltage = Matrix::Zero(3, 1);
  **mIntfCurrent = Matrix::Zero(3, 1);
  mHistoricCurrent = Matrix::Zero(3, 1);
}
 
SimPowerComp<Real>::Ptr EMT::Ph3::SSN::Inductor::clone(String name) {
  auto copy = Inductor::make(name, mLogLevel);
  copy->setParameters(**mInductance);
  return copy;
}
 
void EMT::Ph3::SSN::Inductor::initializeFromNodesAndTerminals(Real frequency) {
 
  Real omega = 2 * PI * frequency;
  MatrixComp impedance = MatrixComp::Zero(3, 3);
  impedance << Complex(0, omega * (**mInductance)(0, 0)),
      Complex(0, omega * (**mInductance)(0, 1)),
      Complex(0, omega * (**mInductance)(0, 2)),
      Complex(0, omega * (**mInductance)(1, 0)),
      Complex(0, omega * (**mInductance)(1, 1)),
      Complex(0, omega * (**mInductance)(1, 2)),
      Complex(0, omega * (**mInductance)(2, 0)),
      Complex(0, omega * (**mInductance)(2, 1)),
      Complex(0, omega * (**mInductance)(2, 2));
 
  MatrixComp vInitABC = Matrix::Zero(3, 1);
  vInitABC(0, 0) = RMS3PH_TO_PEAK1PH * initialSingleVoltage(1) -
                   RMS3PH_TO_PEAK1PH * initialSingleVoltage(0);
  vInitABC(1, 0) = vInitABC(0, 0) * SHIFT_TO_PHASE_B;
  vInitABC(2, 0) = vInitABC(0, 0) * SHIFT_TO_PHASE_C;
  **mIntfVoltage = vInitABC.real();
  MatrixComp admittance = impedance.inverse();
  **mIntfCurrent = (admittance * vInitABC).real();
 
  SPDLOG_LOGGER_INFO(mSLog,
                     "\nInductance [H]: {:s}"
                     "\nImpedance [Ohm]: {:s}",
                     Logger::matrixToString(**mInductance),
                     Logger::matrixCompToString(impedance));
  SPDLOG_LOGGER_INFO(
      mSLog,
      "\n--- Initialization from powerflow ---"
      "\nVoltage across: {:s}"
      "\nCurrent: {:s}"
      "\nTerminal 0 voltage: {:s}"
      "\nTerminal 1 voltage: {:s}"
      "\n--- Initialization from powerflow finished ---",
      Logger::matrixToString(**mIntfVoltage),
      Logger::matrixToString(**mIntfCurrent),
      Logger::phasorToString(RMS3PH_TO_PEAK1PH * initialSingleVoltage(0)),
      Logger::phasorToString(RMS3PH_TO_PEAK1PH * initialSingleVoltage(1)));
}
 
void EMT::Ph3::SSN::Inductor::mnaCompInitialize(
    Real omega, Real timeStep, Attribute<Matrix>::Ptr leftVector) {
 
  updateMatrixNodeIndices();
  //update history term
  mDufourBKHat = (timeStep / 2. * (**mInductance).inverse());
  mDufourWKN = mDufourBKHat;
  mHistoricCurrent = mDufourBKHat * **mIntfVoltage + **mIntfCurrent;
 
  **mRightVector = Matrix::Zero(leftVector->get().rows(), 1);
 
  SPDLOG_LOGGER_INFO(mSLog,
                     "\n--- MNA initialization ---"
                     "\nInitial voltage {:s}"
                     "\nInitial current {:s}"
                     "\nhistoric current {:s}"
                     "\n--- MNA initialization finished ---",
                     Logger::matrixToString(**mIntfVoltage),
                     Logger::matrixToString(**mIntfCurrent),
                     Logger::matrixToString(mHistoricCurrent));
  mSLog->flush();
}
 
void EMT::Ph3::SSN::Inductor::mnaCompApplySystemMatrixStamp(
    SparseMatrixRow &systemMatrix) {
 
  MNAStampUtils::stampConductanceMatrix(
      mDufourWKN, systemMatrix, matrixNodeIndex(0), matrixNodeIndex(1),
      terminalNotGrounded(0), terminalNotGrounded(1), mSLog);
 
  SPDLOG_LOGGER_INFO(mSLog, "\nConductance matrix: {:s}",
                     Logger::matrixToString(mDufourWKN));
}
 
void EMT::Ph3::SSN::Inductor::mnaCompApplyRightSideVectorStamp(
    Matrix &rightVector) {
  // Update internal state
  mHistoricCurrent = mDufourBKHat * **mIntfVoltage + **mIntfCurrent;
  if (terminalNotGrounded(0)) {
    Math::setVectorElement(rightVector, matrixNodeIndex(0, 0),
                           mHistoricCurrent(0, 0));
    Math::setVectorElement(rightVector, matrixNodeIndex(0, 1),
                           mHistoricCurrent(1, 0));
    Math::setVectorElement(rightVector, matrixNodeIndex(0, 2),
                           mHistoricCurrent(2, 0));
  }
  if (terminalNotGrounded(1)) {
    Math::setVectorElement(rightVector, matrixNodeIndex(1, 0),
                           -mHistoricCurrent(0, 0));
    Math::setVectorElement(rightVector, matrixNodeIndex(1, 1),
                           -mHistoricCurrent(1, 0));
    Math::setVectorElement(rightVector, matrixNodeIndex(1, 2),
                           -mHistoricCurrent(2, 0));
  }
  SPDLOG_LOGGER_DEBUG(
      mSLog, "\nHistory current term (mnaCompApplyRightSideVectorStamp): {:s}",
      Logger::matrixToString(mHistoricCurrent));
  mSLog->flush();
}
 
void EMT::Ph3::SSN::Inductor::mnaCompAddPreStepDependencies(
    AttributeBase::List &prevStepDependencies,
    AttributeBase::List &attributeDependencies,
    AttributeBase::List &modifiedAttributes) {
  // actually depends on L, but then we'd have to modify the system matrix anyway
  prevStepDependencies.push_back(mIntfVoltage);
  prevStepDependencies.push_back(mIntfCurrent);
  modifiedAttributes.push_back(mRightVector);
}
 
void EMT::Ph3::SSN::Inductor::mnaCompPreStep(Real time, Int timeStepCount) {
  mnaCompApplyRightSideVectorStamp(**mRightVector);
}
 
void EMT::Ph3::SSN::Inductor::mnaCompAddPostStepDependencies(
    AttributeBase::List &prevStepDependencies,
    AttributeBase::List &attributeDependencies,
    AttributeBase::List &modifiedAttributes,
    Attribute<Matrix>::Ptr &leftVector) {
  attributeDependencies.push_back(leftVector);
  modifiedAttributes.push_back(mIntfVoltage);
  modifiedAttributes.push_back(mIntfCurrent);
}
 
void EMT::Ph3::SSN::Inductor::mnaCompPostStep(
    Real time, Int timeStepCount, Attribute<Matrix>::Ptr &leftVector) {
  mnaCompUpdateVoltage(**leftVector);
  mnaCompUpdateCurrent(**leftVector);
}
 
void EMT::Ph3::SSN::Inductor::mnaCompUpdateVoltage(const Matrix &leftVector) {
  // v1 - v0
  **mIntfVoltage = Matrix::Zero(3, 1);
  if (terminalNotGrounded(1)) {
    (**mIntfVoltage)(0, 0) =
        Math::realFromVectorElement(leftVector, matrixNodeIndex(1, 0));
    (**mIntfVoltage)(1, 0) =
        Math::realFromVectorElement(leftVector, matrixNodeIndex(1, 1));
    (**mIntfVoltage)(2, 0) =
        Math::realFromVectorElement(leftVector, matrixNodeIndex(1, 2));
  }
  if (terminalNotGrounded(0)) {
    (**mIntfVoltage)(0, 0) =
        (**mIntfVoltage)(0, 0) -
        Math::realFromVectorElement(leftVector, matrixNodeIndex(0, 0));
    (**mIntfVoltage)(1, 0) =
        (**mIntfVoltage)(1, 0) -
        Math::realFromVectorElement(leftVector, matrixNodeIndex(0, 1));
    (**mIntfVoltage)(2, 0) =
        (**mIntfVoltage)(2, 0) -
        Math::realFromVectorElement(leftVector, matrixNodeIndex(0, 2));
  }
  SPDLOG_LOGGER_DEBUG(mSLog, "\nUpdate Voltage: {:s}",
                      Logger::matrixToString(**mIntfVoltage));
}
 
void EMT::Ph3::SSN::Inductor::mnaCompUpdateCurrent(const Matrix &leftVector) {
  **mIntfCurrent = mHistoricCurrent + mDufourWKN * **mIntfVoltage;
  SPDLOG_LOGGER_DEBUG(mSLog, "\nUpdate Current: {:s}",
                      Logger::matrixToString(**mIntfCurrent));
  mSLog->flush();
}