Added KDE3 version of ktechlab

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/ktechlab@1095338 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 193 insertions, 0 deletions

diff --git a/src/electronics/simulation/element.cpp b/src/electronics/simulation/element.cpp
new file mode 100644
index 0000000..2411897
--- /dev/null
+++ b/src/electronics/simulation/element.cpp
@@ -0,0 +1,193 @@
+/***************************************************************************
+ *   Copyright (C) 2003-2004 by David Saxton                               *
+ *   david@bluehaze.org                                                    *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ ***************************************************************************/
+
+#include "element.h"
+#include "elementset.h"
+
+#include <assert.h>
+
+#include <kdebug.h>
+
+Element::Element()
+{
+	b_status = false;
+	p_A = 0l;
+	p_eSet = 0l;
+	p_b = 0l;
+	b_componentDeleted = false;
+	b_eSetDeleted = true;
+	
+	for ( int i=0; i<8; i++ )
+		p_cnode[i] = 0l;
+	
+	resetCurrents();
+	
+	for ( int i=0; i<4; i++ )
+		p_cbranch[i] = 0l;
+	
+	m_numCBranches = 0;
+	m_numCNodes = 0;
+}
+
+Element::~ Element()
+{
+}
+
+void Element::resetCurrents()
+{
+	for ( int i=0; i<8; i++ )
+		m_cnodeI[i] = 0.0;
+}
+
+void Element::setElementSet( ElementSet *c )
+{
+	assert(!b_componentDeleted);
+	assert(!p_eSet);
+	if (!c) return elementSetDeleted();
+	b_eSetDeleted = false;
+	p_eSet = c;
+	p_A = p_eSet->matrix();
+	p_b = p_eSet->b();
+	updateStatus();
+}
+
+void Element::componentDeleted()
+{
+// 	assert(!b_componentDeleted);
+	if (b_componentDeleted)
+	{
+		// Something strange happened here....
+	}
+	if (b_eSetDeleted) return delete this;
+	b_componentDeleted = true;
+	b_status = false;
+// 	kdDebug() << "Element::componentDeleted(): Setting b_status to false, this="<<this<<endl;
+	
+	p_eSet = 0l;
+	p_A = 0l;
+	p_b = 0l;
+	setCNodes();
+	setCBranches();
+}
+
+void Element::elementSetDeleted()
+{
+// 	assert(!b_eSetDeleted);
+	if (b_eSetDeleted)
+	{
+		// Something strange happened here....
+	}
+	if (b_componentDeleted) return delete this;
+	b_eSetDeleted = true;
+	b_status = false;
+// 	kdDebug() << "Element::elementSetDeleted(): Setting b_status to false, this="<<this<<endl;
+	
+	p_eSet = 0l;
+	p_A = 0l;
+	p_b = 0l;
+	setCNodes();
+	setCBranches();
+}
+
+
+void Element::setCNodes( const int n0, const int n1, const int n2, const int n3 )
+{
+	if ( !p_eSet )
+	{
+// 		cerr << "Element::setCNodes: can't set nodes without circuit!"<<endl;
+		for ( int i=0; i<8; i++ )
+			p_cnode[i] = 0l;
+		return;
+	}
+	
+	// MAX_CNODES-1 should match the last array index below.
+	assert( MAX_CNODES == 4 );
+	p_cnode[0] = (n0>-1)?p_eSet->cnodes()[n0]:(n0==-1?p_eSet->ground():0l);
+	p_cnode[1] = (n1>-1)?p_eSet->cnodes()[n1]:(n1==-1?p_eSet->ground():0l);
+	p_cnode[2] = (n2>-1)?p_eSet->cnodes()[n2]:(n2==-1?p_eSet->ground():0l);
+	p_cnode[3] = (n3>-1)?p_eSet->cnodes()[n3]:(n3==-1?p_eSet->ground():0l);
+	updateStatus();
+}
+
+void Element::setCBranches( const int b0, const int b1, const int b2, const int b3 )
+{
+	if ( !p_eSet )
+	{
+// 		cerr << "Element::setCBranches: can't set branches without circuit!"<<endl;
+		for ( int i=0; i<4; i++ ) p_cbranch[i] = 0l;
+		return;
+	}
+	p_cbranch[0] = (b0>-1)?p_eSet->cbranches()[b0]:0l;
+	p_cbranch[1] = (b1>-1)?p_eSet->cbranches()[b1]:0l;
+	p_cbranch[2] = (b2>-1)?p_eSet->cbranches()[b2]:0l;
+	p_cbranch[3] = (b3>-1)?p_eSet->cbranches()[b3]:0l;
+	updateStatus();
+}
+
+bool Element::updateStatus()
+{
+	// First, set status to false if all nodes in use are ground
+	b_status = false;
+	for ( int i=0; i<m_numCNodes; i++ )
+	{
+		b_status |= p_cnode[i]?!p_cnode[i]->isGround:false;
+	}
+	
+	// Set status to false if any of the nodes are not set
+	for ( int i=0; i<m_numCNodes; i++ )
+	{
+		if (!p_cnode[i]) b_status = false;
+	}
+	
+	// Finally, set status to false if not all the required branches are set
+	for ( int i=0; i<m_numCBranches; i++ )
+	{
+		if (!p_cbranch[i]) b_status = false;
+	}
+	
+	// Finally, check for various pointers
+	if ( !p_eSet || !p_A || !p_b ) b_status = false;
+	
+	if (!b_status)
+	{
+		resetCurrents();
+	}
+	// And return the status :-)
+// 	kdDebug() << "Element::updateStatus(): Setting b_status to "<<(b_status?"true":"false")<<" this="<<this<<endl;
+	return b_status;
+}
+
+double Element::cbranchCurrent( const int branch )
+{
+	if ( !b_status || branch<0 || branch>=m_numCBranches ) return 0.;
+	return (*p_cbranch)[branch].i;
+}
+
+double Element::cnodeVoltage( const int node )
+{
+	if ( !b_status || node<0 || node>=m_numCNodes ) return 0.;
+	return (*p_cnode)[node].v;
+}
+
+
+CNode::CNode()
+{
+	m_n = 0;
+	v = 0.0;
+	isGround = false;
+}
+
+CBranch::CBranch()
+{
+	m_n = 0;
+	i = 0.0;
+}
+
+