File indexing completed on 2024-04-28 05:43:14 

0001 /***************************************************************************
0002  *   Copyright (C) 2003-2004 by David Saxton                               *
0003  *   david@bluehaze.org                                                    *
0004  *                                                                         *
0005  *   This program is free software; you can redistribute it and/or modify  *
0006  *   it under the terms of the GNU General Public License as published by  *
0007  *   the Free Software Foundation; either version 2 of the License, or     *
0008  *   (at your option) any later version.                                   *
0009  ***************************************************************************/
0010 
0011 #include "ccvs.h"
0012 #include "elementset.h"
0013 
0014 CCVS::CCVS(const double gain)
0015     : Element::Element()
0016 {
0017     m_g = gain;
0018     m_numCBranches = 2;
0019     m_numCNodes = 4;
0020 }
0021 
0022 CCVS::~CCVS()
0023 {
0024 }
0025 
0026 void CCVS::setGain(const double g)
0027 {
0028     if (m_g == g)
0029         return;
0030 
0031     if (p_eSet)
0032         p_eSet->setCacheInvalidated();
0033 
0034     m_g = g;
0035     add_initial_dc();
0036 }
0037 
0038 void CCVS::add_initial_dc()
0039 {
0040     if (!b_status)
0041         return;
0042 
0043     A_b(0, 0) = 1;
0044     A_c(0, 0) = 1;
0045     A_b(1, 0) = -1;
0046     A_c(0, 1) = -1;
0047     A_b(2, 1) = 1;
0048     A_c(1, 2) = 1;
0049     A_b(3, 1) = -1;
0050     A_c(1, 3) = -1;
0051     A_d(1, 0) = -m_g;
0052 }
0053 
0054 void CCVS::updateCurrents()
0055 {
0056     if (!b_status)
0057         return;
0058     m_cnodeI[1] = p_cbranch[0]->i;
0059     m_cnodeI[0] = -m_cnodeI[1];
0060     m_cnodeI[3] = p_cbranch[0]->i;
0061     m_cnodeI[2] = -m_cnodeI[3];
0062 }