Qucs-core
0.0.19
|
00001 /* 00002 * itrafo.cpp - ideal trafo class implementation 00003 * 00004 * Copyright (C) 2003, 2004, 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 "itrafo.h" 00031 00032 using namespace qucs; 00033 00034 itrafo::itrafo () : circuit (3) { 00035 type = CIR_ITRAFO; 00036 } 00037 00038 void itrafo::initSP (void) { 00039 allocMatrixS (); 00040 nr_double_t z = getPropertyDouble ("Z"); 00041 nr_double_t n = 2 * z0 + z; 00042 setS (NODE_1, NODE_1, (2.0 * z0 - z) / n); 00043 setS (NODE_1, NODE_2, (2.0 * std::sqrt (z0 * z)) / n); 00044 setS (NODE_1, NODE_3, -(2.0 * std::sqrt (z0 * z)) / n); 00045 setS (NODE_2, NODE_1, (2.0 * std::sqrt (z0 * z)) / n); 00046 setS (NODE_2, NODE_2, (z) / n); 00047 setS (NODE_2, NODE_3, (2.0 * z0) / n); 00048 setS (NODE_3, NODE_1, -(2.0 * std::sqrt (z0 * z)) / n); 00049 setS (NODE_3, NODE_2, (2.0 * z0) / n); 00050 setS (NODE_3, NODE_3, (z) / n); 00051 }