Branch data Line data Source code
1 : : /*
2 : : * or.cpp - logical or class implementation
3 : : *
4 : : * Copyright (C) 2005, 2008, 2009 Stefan Jahn <stefan@lkcc.org>
5 : : *
6 : : * This is free software; you can redistribute it and/or modify
7 : : * it under the terms of the GNU General Public License as published by
8 : : * the Free Software Foundation; either version 2, or (at your option)
9 : : * any later version.
10 : : *
11 : : * This software is distributed in the hope that it will be useful,
12 : : * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 : : * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 : : * GNU General Public License for more details.
15 : : *
16 : : * You should have received a copy of the GNU General Public License
17 : : * along with this package; see the file COPYING. If not, write to
18 : : * the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
19 : : * Boston, MA 02110-1301, USA.
20 : : *
21 : : * $Id$
22 : : *
23 : : */
24 : :
25 : : #if HAVE_CONFIG_H
26 : : # include <config.h>
27 : : #endif
28 : :
29 : : #include "component.h"
30 : : #include "digital.h"
31 : : #include "or.h"
32 : :
33 : : using namespace qucs;
34 : :
35 : 0 : logicor::logicor () : digital () {
36 : 0 : type = CIR_OR;
37 : 0 : setVariableSized (true);
38 : 0 : }
39 : :
40 : 0 : void logicor::calcOutput (void) {
41 : 0 : nr_double_t v = getPropertyDouble ("V");
42 : 0 : nr_double_t n = getSize () - 1;
43 : : nr_double_t x;
44 [ # # ]: 0 : for (x = 0, i = 0; i < n; i++) {
45 : 0 : x += 2 / (1 - calcTransfer (i));
46 : : }
47 : 0 : Vout = v * (1 - n / x);
48 : 0 : }
49 : :
50 : 0 : void logicor::calcDerivatives (void) {
51 : 0 : nr_double_t n = getSize () - 1;
52 : : nr_double_t x;
53 [ # # ]: 0 : for (int k = 0; k < n; k++) {
54 [ # # ]: 0 : for (x = 0, i = 0; i < n; i++) {
55 : 0 : x += 2 / (1 - calcTransfer (i));
56 : : }
57 : 0 : x *= (1 - calcTransfer (k));
58 : 0 : g[k] = 2 * n * calcDerivative (k) / x / x;
59 : : }
60 : 0 : }
61 : :
62 : : // properties
63 : : PROP_REQ [] = {
64 : : { "V", PROP_REAL, { 1, PROP_NO_STR }, PROP_POS_RANGE }, PROP_NO_PROP };
65 : : PROP_OPT [] = {
66 : : { "t", PROP_REAL, { 0, PROP_NO_STR }, PROP_POS_RANGE },
67 : : { "TR", PROP_REAL, { 10, PROP_NO_STR }, PROP_RNGII (1, 100) },
68 : : PROP_NO_PROP };
69 : : struct define_t logicor::cirdef =
70 : : { "OR",
71 : : PROP_NODES, PROP_COMPONENT, PROP_NO_SUBSTRATE, PROP_NONLINEAR, PROP_DEF };
|