Qucs-core
0.0.19
|
00001 /* 00002 * inoise.cpp - noise current source class implementation 00003 * 00004 * Copyright (C) 2004, 2005, 2008 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 "inoise.h" 00031 00032 using namespace qucs; 00033 00034 inoise::inoise () : circuit (2) { 00035 type = CIR_INOISE; 00036 } 00037 00038 void inoise::initSP (void) { 00039 allocMatrixS (); 00040 setS (NODE_1, NODE_1, 1.0); 00041 setS (NODE_1, NODE_2, 0.0); 00042 setS (NODE_2, NODE_1, 0.0); 00043 setS (NODE_2, NODE_2, 1.0); 00044 } 00045 00046 void inoise::calcNoiseSP (nr_double_t frequency) { 00047 nr_double_t i = getPropertyDouble ("i"); 00048 nr_double_t e = getPropertyDouble ("e"); 00049 nr_double_t c = getPropertyDouble ("c"); 00050 nr_double_t a = getPropertyDouble ("a"); 00051 nr_double_t ipsd = i / (a + c * qucs::pow (frequency, e)) / kB / T0 * z0; 00052 setN (NODE_1, NODE_1, +ipsd); setN (NODE_2, NODE_2, +ipsd); 00053 setN (NODE_1, NODE_2, -ipsd); setN (NODE_2, NODE_1, -ipsd); 00054 } 00055 00056 void inoise::calcNoiseAC (nr_double_t frequency) { 00057 nr_double_t i = getPropertyDouble ("i"); 00058 nr_double_t e = getPropertyDouble ("e"); 00059 nr_double_t c = getPropertyDouble ("c"); 00060 nr_double_t a = getPropertyDouble ("a"); 00061 nr_double_t ipsd = i / (a + c * qucs::pow (frequency, e)) / kB / T0; 00062 setN (NODE_1, NODE_1, +ipsd); setN (NODE_2, NODE_2, +ipsd); 00063 setN (NODE_1, NODE_2, -ipsd); setN (NODE_2, NODE_1, -ipsd); 00064 } 00065 00066 // properties 00067 PROP_REQ [] = { 00068 { "i", PROP_REAL, { 1e-6, PROP_NO_STR }, PROP_POS_RANGE }, 00069 PROP_NO_PROP }; 00070 PROP_OPT [] = { 00071 { "a", PROP_REAL, { 0, PROP_NO_STR }, PROP_POS_RANGE }, 00072 { "c", PROP_REAL, { 1, PROP_NO_STR }, PROP_POS_RANGE }, 00073 { "e", PROP_REAL, { 0, PROP_NO_STR }, PROP_POS_RANGE }, 00074 PROP_NO_PROP }; 00075 struct define_t inoise::cirdef = 00076 { "Inoise", 2, PROP_COMPONENT, PROP_NO_SUBSTRATE, PROP_LINEAR, PROP_DEF };