Qucs-core  0.0.19
or.cpp
Go to the documentation of this file.
00001 /*
00002  * or.cpp - logical or class implementation
00003  *
00004  * Copyright (C) 2005, 2008, 2009 Stefan Jahn <stefan@lkcc.org>
00005  *
00006  * This is free software; you can redistribute it and/or modify
00007  * it under the terms of the GNU General Public License as published by
00008  * the Free Software Foundation; either version 2, or (at your option)
00009  * any later version.
00010  *
00011  * This software is distributed in the hope that it will be useful,
00012  * but WITHOUT ANY WARRANTY; without even the implied warranty of
00013  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00014  * GNU General Public License for more details.
00015  *
00016  * You should have received a copy of the GNU General Public License
00017  * along with this package; see the file COPYING.  If not, write to
00018  * the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
00019  * Boston, MA 02110-1301, USA.
00020  *
00021  * $Id$
00022  *
00023  */
00024 
00025 #if HAVE_CONFIG_H
00026 # include <config.h>
00027 #endif
00028 
00029 #include "component.h"
00030 #include "digital.h"
00031 #include "or.h"
00032 
00033 using namespace qucs;
00034 
00035 logicor::logicor () : digital () {
00036   type = CIR_OR;
00037   setVariableSized (true);
00038 }
00039 
00040 void logicor::calcOutput (void) {
00041   nr_double_t v = getPropertyDouble ("V");
00042   nr_double_t n = getSize () - 1;
00043   nr_double_t x;
00044   for (x = 0, i = 0; i < n; i++) {
00045     x += 2 / (1 - calcTransfer (i));
00046   }
00047   Vout = v * (1 - n / x);
00048 }
00049 
00050 void logicor::calcDerivatives (void) {
00051   nr_double_t n = getSize () - 1;
00052   nr_double_t x;
00053   for (int k = 0; k < n; k++) {
00054     for (x = 0, i = 0; i < n; i++) {
00055       x += 2 / (1 - calcTransfer (i));
00056     }
00057     x *= (1 - calcTransfer (k));
00058     g[k] = 2 * n * calcDerivative (k) / x / x;
00059   }
00060 }
00061 
00062 // properties
00063 PROP_REQ [] = {
00064   { "V", PROP_REAL, { 1, PROP_NO_STR }, PROP_POS_RANGE }, PROP_NO_PROP };
00065 PROP_OPT [] = {
00066   { "t", PROP_REAL, { 0, PROP_NO_STR }, PROP_POS_RANGE },
00067   { "TR", PROP_REAL, { 10, PROP_NO_STR }, PROP_RNGII (1, 100) },
00068   PROP_NO_PROP };
00069 struct define_t logicor::cirdef =
00070   { "OR",
00071     PROP_NODES, PROP_COMPONENT, PROP_NO_SUBSTRATE, PROP_NONLINEAR, PROP_DEF };