My Project  0.0.16
QUCS Mapping
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
vac.cpp
Go to the documentation of this file.
1 /*
2  * vac.cpp - AC voltage source class implementation
3  *
4  * Copyright (C) 2003, 2004, 2006, 2007, 2008 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: vac.cpp 1825 2011-03-11 20:42:14Z ela $
22  *
23  */
24 
25 #if HAVE_CONFIG_H
26 # include <config.h>
27 #endif
28 
29 #include "component.h"
30 #include "vac.h"
31 
32 vac::vac () : circuit (2) {
33  type = CIR_VAC;
34  setVSource (true);
36 }
37 
38 void vac::initSP (void) {
39  allocMatrixS ();
40  setS (NODE_1, NODE_1, 0.0);
41  setS (NODE_1, NODE_2, 1.0);
42  setS (NODE_2, NODE_1, 1.0);
43  setS (NODE_2, NODE_2, 0.0);
44 }
45 
46 void vac::initDC (void) {
47  allocMatrixMNA ();
49 }
50 
51 void vac::initAC (void) {
52  initDC ();
53  nr_double_t a = getPropertyDouble ("U");
54  nr_double_t p = getPropertyDouble ("Phase");
55  setE (VSRC_1, polar (a, rad (p)));
56 }
57 
58 void vac::initTR (void) {
59  initDC ();
60 }
61 
62 void vac::calcTR (nr_double_t t) {
63  nr_double_t f = getPropertyDouble ("f");
64  nr_double_t p = getPropertyDouble ("Phase");
65  nr_double_t d = getPropertyDouble ("Theta");
66  nr_double_t a = getPropertyDouble ("U");
67  nr_double_t s = getNet()->getSrcFactor ();
68  nr_double_t o = 2 * M_PI * f;
69  nr_double_t T = p / f / 360;
70  nr_double_t u = s * a * exp (-(t + T) * d * f) * sin (o * t + rad (p));
71  setE (VSRC_1, u);
72 }
73 
74 void vac::initHB (void) {
76  allocMatrixMNA ();
78 }
79 
80 void vac::calcHB (nr_double_t frequency) {
81  nr_double_t f = getPropertyDouble ("f");
82  if (f == frequency) {
83  nr_double_t a = getPropertyDouble ("U");
84  nr_double_t p = getPropertyDouble ("Phase");
85  setE (VSRC_1, polar (a, rad (p)));
86  }
87  else {
88  setE (VSRC_1, 0);
89  }
90 }
91 
92 // properties
93 PROP_REQ [] = {
94  { "U", PROP_REAL, { 1, PROP_NO_STR }, PROP_NO_RANGE }, PROP_NO_PROP };
95 PROP_OPT [] = {
96  { "Phase", PROP_REAL, { 0, PROP_NO_STR }, PROP_RNGII (-360, 360) },
97  { "Theta", PROP_REAL, { 0, PROP_NO_STR }, PROP_POS_RANGE },
98  { "f", PROP_REAL, { 1e9, PROP_NO_STR }, PROP_POS_RANGE },
99  PROP_NO_PROP };
100 struct define_t vac::cirdef =