DPsim
Loading...
Searching...
No Matches
DP_Ph3_SeriesResistor.cpp
1/* Copyright 2017-2021 Institute for Automation of Complex Power Systems,
2 * EONERC, RWTH Aachen University
3 *
4 * This Source Code Form is subject to the terms of the Mozilla Public
5 * License, v. 2.0. If a copy of the MPL was not distributed with this
6 * file, You can obtain one at https://mozilla.org/MPL/2.0/.
7 *********************************************************************************/
8#include <dpsim-models/DP/DP_Ph3_SeriesResistor.h>
9
10using namespace CPS;
11
13 Logger::Level logLevel)
14 : MNASimPowerComp<Complex>(uid, name, false, true, logLevel),
15 Base::Ph1::Resistor(mAttributes) {
16 mPhaseType = PhaseType::ABC;
17 setTerminalNumber(2);
18 **mIntfVoltage = MatrixComp::Zero(3, 1);
19 **mIntfCurrent = MatrixComp::Zero(3, 1);
20}
21
22SimPowerComp<Complex>::Ptr DP::Ph3::SeriesResistor::clone(String name) {
23 auto copy = SeriesResistor::make(name, mLogLevel);
24 copy->setParameters(**mResistance);
25 return copy;
26}
27
29
30 mTerminals[0]->setPhaseType(PhaseType::ABC);
31 mTerminals[1]->setPhaseType(PhaseType::ABC);
32
33 Matrix impedance = Matrix::Zero(3, 1);
34 impedance << **mResistance, **mResistance, **mResistance;
35 (**mIntfVoltage)(0, 0) = initialSingleVoltage(1) - initialSingleVoltage(0);
36
37 Real voltMag = Math::abs((**mIntfVoltage)(0, 0));
38 Real voltPhase = Math::phase((**mIntfVoltage)(0, 0));
39 (**mIntfVoltage)(1, 0) = Complex(voltMag * cos(voltPhase - 2. / 3. * PI),
40 voltMag * sin(voltPhase - 2. / 3. * PI));
41 (**mIntfVoltage)(2, 0) = Complex(voltMag * cos(voltPhase + 2. / 3. * PI),
42 voltMag * sin(voltPhase + 2. / 3. * PI));
43
44 **mIntfCurrent = impedance.cwiseInverse().cwiseProduct(**mIntfVoltage);
45
46 SPDLOG_LOGGER_INFO(mSLog,
47 "\n--- Initialization from powerflow ---"
48 "\nVoltage across amplitude and phase: \n{:s}"
49 "\nCurrent amplitude and phase: \n{:s}"
50 "\nTerminal 0 voltage amplitude and phase: \n{:s}"
51 "\nTerminal 1 voltage amplitude and phase: \n{:s}"
52 "\n--- Initialization from powerflow finished ---",
53 Logger::phasorMatrixToString(**mIntfVoltage),
54 Logger::phasorMatrixToString(**mIntfCurrent),
55 Logger::phasorMatrixToString(initialVoltage(0)),
56 Logger::phasorMatrixToString(initialVoltage(1)));
57}
58
59void DP::Ph3::SeriesResistor::mnaCompInitialize(
60 Real omega, Real timeStep, Attribute<Matrix>::Ptr leftVector) {
61 updateMatrixNodeIndices();
62 **mRightVector = Matrix::Zero(0, 0);
63}
64
66 SparseMatrixRow &systemMatrix) {
67 Complex conductance = {(1. / **mResistance), 0};
68
70 //if (terminalNotGrounded(0))
71 // Math::addToMatrixElement(systemMatrix, matrixNodeIndices(0), matrixNodeIndices(0), conductance);
72 //if (terminalNotGrounded(1))
73 // Math::addToMatrixElement(systemMatrix, matrixNodeIndices(1), matrixNodeIndices(1), conductance);
75 //if (terminalNotGrounded(0) && terminalNotGrounded(1)) {
76 // Math::addToMatrixElement(systemMatrix, matrixNodeIndices(0), matrixNodeIndices(1), -conductance);
77 // Math::addToMatrixElement(systemMatrix, matrixNodeIndices(1), matrixNodeIndices(0), -conductance);
78 //}
79 // Set diagonal entries
80 if (terminalNotGrounded(0)) {
81 Math::addToMatrixElement(systemMatrix, matrixNodeIndices(0),
82 matrixNodeIndices(0), conductance);
83 }
84 if (terminalNotGrounded(1)) {
85 Math::addToMatrixElement(systemMatrix, matrixNodeIndices(1),
86 matrixNodeIndices(1), conductance);
87 }
88 // Set off diagonal entries
89 if (terminalNotGrounded(0) && terminalNotGrounded(1)) {
90 Math::addToMatrixElement(systemMatrix, matrixNodeIndices(0),
91 matrixNodeIndices(1), -conductance);
92 Math::addToMatrixElement(systemMatrix, matrixNodeIndices(1),
93 matrixNodeIndices(0), -conductance);
94 }
95
96 if (terminalNotGrounded(0))
97 SPDLOG_LOGGER_INFO(mSLog, "Add {} to {}, {}", conductance,
98 matrixNodeIndex(0, 0), matrixNodeIndex(0, 0));
99 if (terminalNotGrounded(1))
100 SPDLOG_LOGGER_INFO(mSLog, "Add {} to {}, {}", conductance,
101 matrixNodeIndex(1, 0), matrixNodeIndex(1, 0));
102 if (terminalNotGrounded(0) && terminalNotGrounded(1)) {
103 SPDLOG_LOGGER_INFO(mSLog, "Add {} to {}, {}", -conductance,
104 matrixNodeIndex(0, 0), matrixNodeIndex(1, 0));
105 SPDLOG_LOGGER_INFO(mSLog, "Add {} to {}, {}", -conductance,
106 matrixNodeIndex(1, 0), matrixNodeIndex(0, 0));
107 }
108}
109
111 AttributeBase::List &prevStepDependencies,
112 AttributeBase::List &attributeDependencies,
113 AttributeBase::List &modifiedAttributes,
114 Attribute<Matrix>::Ptr &leftVector) {
115 attributeDependencies.push_back(leftVector);
116 modifiedAttributes.push_back(mIntfVoltage);
117 modifiedAttributes.push_back(mIntfCurrent);
118}
119
120void DP::Ph3::SeriesResistor::mnaCompPostStep(
121 Real time, Int timeStepCount, Attribute<Matrix>::Ptr &leftVector) {
122 mnaCompUpdateVoltage(**leftVector);
123 mnaCompUpdateCurrent(**leftVector);
124}
125
126void DP::Ph3::SeriesResistor::mnaCompUpdateVoltage(const Matrix &leftVector) {
127 // Voltage across component is defined as V1 - V0
128 **mIntfVoltage = MatrixComp::Zero(3, 1);
129 if (terminalNotGrounded(1)) {
130 (**mIntfVoltage)(0, 0) =
131 Math::complexFromVectorElement(leftVector, matrixNodeIndex(1, 0));
132 (**mIntfVoltage)(1, 0) =
133 Math::complexFromVectorElement(leftVector, matrixNodeIndex(1, 1));
134 (**mIntfVoltage)(2, 0) =
135 Math::complexFromVectorElement(leftVector, matrixNodeIndex(1, 2));
136 }
137 if (terminalNotGrounded(0)) {
138 (**mIntfVoltage)(0, 0) =
139 (**mIntfVoltage)(0, 0) -
140 Math::complexFromVectorElement(leftVector, matrixNodeIndex(0, 0));
141 (**mIntfVoltage)(1, 0) =
142 (**mIntfVoltage)(1, 0) -
143 Math::complexFromVectorElement(leftVector, matrixNodeIndex(0, 1));
144 (**mIntfVoltage)(2, 0) =
145 (**mIntfVoltage)(2, 0) -
146 Math::complexFromVectorElement(leftVector, matrixNodeIndex(0, 2));
147 }
148
149 SPDLOG_LOGGER_DEBUG(mSLog, "Voltage A: {} < {}",
150 std::abs((**mIntfVoltage)(0, 0)),
151 std::arg((**mIntfVoltage)(0, 0)));
152}
153
154void DP::Ph3::SeriesResistor::mnaCompUpdateCurrent(const Matrix &leftVector) {
155 **mIntfCurrent = **mIntfVoltage / **mResistance;
156
157 SPDLOG_LOGGER_DEBUG(mSLog, "Current A: {} < {}",
158 std::abs((**mIntfCurrent)(0, 0)),
159 std::arg((**mIntfCurrent)(0, 0)));
160}
const CPS::Attribute< Real >::Ptr mResistance
Resistance [ohm].
SeriesResistor(String uid, String name, Logger::Level logLevel=Logger::Level::off)
Defines UID, name and logging level.
void initializeFromNodesAndTerminals(Real frequency) override
Initializes component from power flow data.
SimPowerComp< Complex >::Ptr clone(String name) override
Returns a modified copy of the component with the given suffix added to the name and without.
void mnaCompAddPostStepDependencies(AttributeBase::List &prevStepDependencies, AttributeBase::List &attributeDependencies, AttributeBase::List &modifiedAttributes, Attribute< Matrix >::Ptr &leftVector) override
Add MNA post step dependencies.
void mnaCompApplySystemMatrixStamp(SparseMatrixRow &systemMatrix) override
Stamps system matrix.
String uid()
Returns unique id.
AttributeList::Ptr mAttributes
Attribute List.
MNASimPowerComp(String uid, String name, Bool hasPreStep, Bool hasPostStep, Logger::Level logLevel)
const Attribute< MatrixVar< Complex > >::Ptr mIntfCurrent
SimTerminal< Complex >::List mTerminals
const Attribute< MatrixVar< Complex > >::Ptr mIntfVoltage
std::vector< UInt > matrixNodeIndices(UInt index)
Logger::Level mLogLevel
Component logger control for internal variables.
Logger::Log mSLog
Component logger.