summaryrefslogtreecommitdiffstatshomepage
path: root/src/lib/netlist/analog/nlid_fourterm.h
blob: 7faaac926c17cdd7171f46150a650eae1e434330 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
// license:GPL-2.0+
// copyright-holders:Couriersud
/*
 * nlid_fourterm.h
 *
 */

#ifndef NLID_FOURTERM_H_
#define NLID_FOURTERM_H_

#include "netlist/nl_base.h"
#include "plib/putil.h"

namespace netlist {
	namespace analog {

	// ----------------------------------------------------------------------------------------
	// nld_VCCS
	// ----------------------------------------------------------------------------------------

	/*
	 *   Voltage controlled current source
	 *
	 *   IP ---+           +------> OP
	 *         |           |
	 *         RI          I
	 *         RI => G =>  I    IOut = (V(IP)-V(IN)) * G
	 *         RI          I
	 *         |           |
	 *   IN ---+           +------< ON
	 *
	 *   G=1 ==> 1V ==> 1A
	 *
	 *   RI = 1 / NETLIST_GMIN
	 *
	 */

	NETLIB_OBJECT(VCCS)
	{
	public:
		NETLIB_CONSTRUCTOR(VCCS)
		, m_G(*this, "G", 1.0)
		, m_RI(*this, "RI", 1e9)
		, m_OP(*this, "OP", &m_IP)
		, m_ON(*this, "ON", &m_IP)
		, m_IP(*this, "IP", &m_IN)   // <= this should be NULL and terminal be filtered out prior to solving...
		, m_IN(*this, "IN", &m_IP)   // <= this should be NULL and terminal be filtered out prior to solving...
		, m_OP1(*this, "_OP1", &m_IN)
		, m_ON1(*this, "_ON1", &m_IN)
		, m_gfac(1.0)
		{
			connect(m_OP, m_OP1);
			connect(m_ON, m_ON1);
			m_gfac = plib::constants<nl_fptype>::one();
		}

		NETLIB_RESETI();

		param_fp_t m_G;
		param_fp_t m_RI;

	protected:
		NETLIB_UPDATEI();
		NETLIB_UPDATE_PARAMI()
		{
			NETLIB_NAME(VCCS)::reset();
		}


		terminal_t m_OP;
		terminal_t m_ON;

		terminal_t m_IP;
		terminal_t m_IN;

		terminal_t m_OP1;
		terminal_t m_ON1;

		nl_fptype m_gfac;
	};

	/* Limited Current source*/

	NETLIB_OBJECT_DERIVED(LVCCS, VCCS)
	{
	public:
		NETLIB_CONSTRUCTOR_DERIVED(LVCCS, VCCS)
		, m_cur_limit(*this, "CURLIM", 1000.0)
		, m_vi(0.0)
		{
		}

		NETLIB_IS_DYNAMIC(true)

	protected:
		//NETLIB_UPDATEI();
		NETLIB_RESETI();
		NETLIB_UPDATE_PARAMI();
		NETLIB_UPDATE_TERMINALSI();

	private:
		param_fp_t m_cur_limit; /* current limit */
		nl_fptype m_vi;
	};

	// ----------------------------------------------------------------------------------------
	// nld_CCCS
	// ----------------------------------------------------------------------------------------

	/*
	 *   Current controlled current source
	 *
	 *   IP ---+           +------> OP
	 *         |           |
	 *         RI          I
	 *         RI => G =>  I    IOut = (V(IP)-V(IN)) / RI  * G
	 *         RI          I
	 *         |           |
	 *   IN ---+           +------< ON
	 *
	 *   G=1 ==> 1A ==> 1A
	 *
	 *   RI = 1
	 *
	 *   This needs high levels of accuracy to work with 1 Ohm RI.
	 *
	 */

	NETLIB_OBJECT_DERIVED(CCCS, VCCS)
	{
	public:
		NETLIB_CONSTRUCTOR_DERIVED(CCCS, VCCS)
		{
			m_gfac = plib::constants<nl_fptype>::one() / m_RI();
		}

		NETLIB_RESETI();

	protected:
		//NETLIB_UPDATEI();
		NETLIB_UPDATE_PARAMI();
	};


	// ----------------------------------------------------------------------------------------
	// nld_VCVS
	// ----------------------------------------------------------------------------------------

	/*
	 *   Voltage controlled voltage source
	 *
	 *   Parameters:
	 *     G        Default: 1
	 *     RO       Default: 1  (would be typically 50 for an op-amp
	 *
	 *   IP ---+           +--+---- OP
	 *         |           |  |
	 *         RI          I  RO
	 *         RI => G =>  I  RO              V(OP) - V(ON) = (V(IP)-V(IN)) * G
	 *         RI          I  RO
	 *         |           |  |
	 *   IN ---+           +--+---- ON
	 *
	 *   G=1 ==> 1V ==> 1V
	 *
	 *   RI = 1 / NETLIST_GMIN
	 *
	 *   Internal GI = G / RO
	 *
	 */


	NETLIB_OBJECT_DERIVED(VCVS, VCCS)
	{
	public:
		NETLIB_CONSTRUCTOR_DERIVED(VCVS, VCCS)
		, m_RO(*this, "RO", 1.0)
		, m_OP2(*this, "_OP2", &m_ON2)
		, m_ON2(*this, "_ON2", &m_OP2)
		{
			connect(m_OP2, m_OP1);
			connect(m_ON2, m_ON1);
		}

		NETLIB_RESETI();

		param_fp_t m_RO;

	private:
		//NETLIB_UPDATEI();
		//NETLIB_UPDATE_PARAMI();

		terminal_t m_OP2;
		terminal_t m_ON2;


	};

	} // namespace analog
} // namespace netlist

#endif /* NLD_FOURTERM_H_ */