My Project
0.0.16
QUCS Mapping
Main Page
Related Pages
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Pages
DownLoad
QUCS-src
qucs-0.0.16
qucs-core
src
components
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
);
35
setVoltageSources
(1);
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
();
48
voltageSource
(
VSRC_1
,
NODE_1
,
NODE_2
);
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
) {
75
setVoltageSources
(1);
76
allocMatrixMNA
();
77
voltageSource
(
VSRC_1
,
NODE_1
,
NODE_2
);
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 =
101
{
"Vac"
, 2,
PROP_COMPONENT
,
PROP_NO_SUBSTRATE
,
PROP_LINEAR
,
PROP_DEF
};
Generated on Tue Dec 25 2012 14:28:06 for My Project by
1.8.2