Search Site
Advanced Search…
Models Home
Exposures
Documentation
Log in
You are here:
Home
/
Exposures
/
Heldt, Shim, Kamm, Mark, 2002
/
Computational modeling of cardiovascular response to orthostatic stress
Info
Model Mathematics
Component based math viewer is available
Component: lpc
hrf
=
60
HR
beattime
=
t
-
⌊
t
hrf
⌋
hrf
Tsv
=
TsvK
1
1
HR
7.745966692414832
Tsa
=
TsaK
1
HR
7.745966692414832
trelv
=
beattime
-
PRint
trela
=
beattime
yla
=
1
-
cos
π
trela
Tsa
2
if
trela
≥
0
∧
trela
≦
Tsa
1
+
cos
2
π
trela
-
Tsa
Tsa
2
if
trela
<
1.5
Tsa
∧
trela
≥
Tsa
0
otherwise
yra
=
yla
ylv
=
1
-
cos
π
trelv
Tsv
2
if
trelv
≥
0
∧
trelv
≦
Tsv
1
+
cos
2
π
trelv
-
Tsv
Tsv
2
if
trelv
<
1.5
Tsv
∧
trelv
≥
Tsv
0
otherwise
yrv
=
ylv
Era
=
Emaxra
-
Eminra
yra
+
Eminra
Erv
=
Emaxrv
-
Eminrv
yrv
+
Eminrv
Ela
=
Emaxla
-
Eminla
yla
+
Eminla
Elv
=
Emaxlv
-
Eminlv
ylv
+
Eminlv
d
d
t
Faod
=
Paodc
-
Faod
Raod
-
Psap
Laod
d
d
t
Faop
=
Paopc
-
Faop
Raop
16.66666666666667
-
Paodc
Laop
0.059999999999999984
Fcorao
=
Pcoraoc
-
Pcoreac
Rcorao
Fcorcap
=
Pcorcapc
-
Pcorsvc
Rcorcap
Fcorea
=
Pcoreac
-
Pcorlac
Rcorea
Fcorev
=
Pcorevc
-
Prac
Rcorev
Fcorla
=
Pcorlac
-
Pcorsac
Rcorla
Fcorlv
=
Pcorlvc
-
Pcorevc
Rcorlv
Fcorsa
=
Pcorsac
-
Pcorcapc
Rcorsa
Fcorsv
=
Pcorsvc
-
Pcorlvc
Rcorsv
Fcrb
=
Paodc
-
Pvcc
Rcrb
Fla
=
Plac
-
Plvc
Rla
if
Plac
>
Plvc
0
otherwise
Flv
=
Plvc
-
Paopc
Rav
if
Plvc
>
Paopc
0
otherwise
Fpa
=
Ppac
-
Ppcc
Rpa
d
d
t
Fpad
=
Ppadc
-
Ppac
-
Fpad
Rpad
Lpad
d
d
t
Fpap
=
Ppapc
-
Ppadc
-
Fpap
Rpap
16.66666666666667
Lpa
0.059999999999999984
Fpc
=
Ppcc
-
Ppvc
Rpc
Fps
=
Ppac
-
Ppvc
Rps
Fpv
=
Ppvc
-
Plac
Rpv
Fra
=
Prac
-
Prvc
Rra
if
Prac
>
Prvc
0
otherwise
Frv
=
Prvc
-
Ppapc
Rpuv
if
Prvc
>
Ppapc
0
otherwise
Fsa
=
Psa
-
Psc
Rsa
Fsap
=
Psap
-
Psa
Rsap
Fsc
=
Psc
-
Psv
Rsc
Fsv
=
Psv
-
Pvcc
Rsv
Fvc
=
Pvcc
-
Prac
Rvc
d
d
t
MAP
=
Psa
-
MAP
COtau
P_QRSwave
=
5
if
t
>
beattime
∧
t
<
beattime
+
0.02
10
if
t
>
beattime
+
PRint
∧
t
<
beattime
+
PRint
+
0.02
0
otherwise
Paod
=
Paodc
-
Pbs
Paodc
=
Rtaod
Rcrb
Faop
-
Rtaod
Rcrb
Faod
0.059999999999999984
+
Vaod
Rcrb
Caod
0.060000000000000005
-
Rcrb
Px2
ⅇ
Vaod
Vx8
-
1
0.059999999999999984
+
Pvcc
Rtaod
0.059999999999999984
Rcrb
+
Rtaod
16.66666666666667
Paop
=
Paopc
-
Pplc
d
d
t
Paopc
=
Flv
-
d
d
t
Vaop
-
Faop
16.66666666666667
-
Fcorao
1
Ccorao
+
Px2
1
ⅇ
Vcorao
Vx1
ⅇ
Vcorao
Vx1
-
1
2
Pcorao
=
Paop
Pcoraoc
=
Paopc
Pcorcap
=
Vcorcap
Ccorcap
-
Px1
1
ⅇ
Vcorcap
Vx1
-
1
Pcorcapc
=
Pcorcap
+
Pcorisfc
Pcorea
=
Vcorea
Ccorea
-
Px1
1
ⅇ
Vcorea
Vx1
-
1
Pcoreac
=
Pcorea
+
Ppcdc
Pcorev
=
Vcorev
Ccorev
-
Px2
1
ⅇ
Vcorev
Vx8
-
1
Pcorevc
=
Pcorev
+
Ppcdc
Pcorisfc
=
|
Plvc
-
Ppcdc
2
|
Pcorla
=
Vcorla
Ccorla
-
Px1
1
ⅇ
Vcorla
Vx1
-
1
Pcorlac
=
Pcorla
+
Pcorisfc
Pcorlv
=
Vcorlv
Ccorlv
-
Px1
1
ⅇ
Vcorlv
Vx1
-
1
Pcorlvc
=
Pcorlv
+
Ppcdc
Pcorsa
=
Vcorsa
Ccorsa
-
Px1
1
ⅇ
Vcorsa
Vx1
-
1
Pcorsac
=
Pcorsa
+
Pcorisfc
Pcorsv
=
Vcorsv
Ccorsv
-
Px1
1
ⅇ
Vcorsv
Vx1
-
1
Pcorsvc
=
Pcorsv
+
Ppcdc
Pla
=
Vla
-
Vlar
Ela
-
Px2
1
ⅇ
Vla
Vx8
-
1
Plac
=
Pla
+
Ppcdc
Plv
=
Vlv
-
Vlvr
Elv
-
Px2
1
ⅇ
Vlv
Vx8
-
1
Plvc
=
Plv
+
Ppcdc
Ppa
=
Vpa
Cpa
-
Px2
1
ⅇ
Vpa
Vx8
-
1
Ppac
=
Ppa
+
Pplc
Ppad
=
Ppadc
-
Pplc
Ppadc
=
d
d
t
Vpad
Rtpad
+
Pplc
+
Vpad
Ctpad
-
Px2
1
ⅇ
Vpad
Vx8
-
1
Ppap
=
Ppapc
-
Pplc
Ppapc1
=
Rpuv
Vpap
Ctpap
-
Rpuv
Px2
1
ⅇ
Vpap
Vx8
-
1
+
Prvc
Rtpap
-
Rpuv
Rtpap
Fpap
16.666666666666668
+
Pplc
Rpuv
Rtpap
+
Rpuv
Ppapc2
=
Vpap
Ctpap
+
Pplc
-
Rtpap
Fpap
16.666666666666668
-
Px2
1
ⅇ
Vpap
Vx8
-
1
Ppapc
=
Ppapc1
if
Prvc
>
Ppapc1
Ppapc2
otherwise
Ppc
=
Vpc
Cpc
-
Px2
1
ⅇ
Vpc
Vx8
-
1
Ppcc
=
Ppc
+
Pplc
Ppcd
=
K_pcd
ⅇ
Vpcd
-
Vpcd_o
phi_pcd
-
Px2
1
ⅇ
Vpcd
Vx75
-
1
Ppcdc
=
Ppcd
+
Pplc
Ppl
=
Pplc
-
Pbs
Ppv
=
Vpv
Cpv
-
Px2
1
ⅇ
Vpv
Vx8
-
1
Ppvc
=
Ppv
+
Pplc
Pra
=
Vra
-
Vrar
Era
-
Px2
1
ⅇ
Vra
Vx8
-
1
Prac
=
Pra
+
Ppcdc
Prv
=
Vrv
-
Vrvr
Erv
-
Px2
1
ⅇ
Vrv
Vx8
-
1
Prvc
=
Prv
+
Ppcdc
Psa_a
=
Kc
log
10
Vsa
-
Vsa_o
Do
+
1
Psa
=
F_vaso
Psa_a
+
1
-
F_vaso
Psa_p
Psa_p
=
Kp1
ⅇ
tau_p
Vsa
-
Vsa_o
+
Kp2
Vsa
-
Vsa_o
2
Psap
=
Vsap
Csap
-
Px2
1
ⅇ
Vsap
Vx8
-
1
Psc
=
Vsc
Csc
-
Px2
1
ⅇ
Vsc
Vx8
-
1
Psv
=
Kv
log
10
Vmax_sv
Vsv
-
0.99
-
1
PulArtVol
=
Vpap
+
Vpad
+
Vpa
PulVenVol
=
Vpv
Pvc
=
D2
+
K2
ⅇ
Vo
Vmin_vc
+
K1
Vvc
-
Vo
1
-
Px2
ⅇ
Vvc
Vx8
-
1
if
Vvc
>
Vo
D2
+
K2
ⅇ
Vvc
Vmin_vc
-
Px2
ⅇ
Vvc
Vx8
-
1
otherwise
Pvcc
=
Pvc
+
Pplc
Rsa
=
Rsao
+
Kr
ⅇ
4
F_vaso
+
Kr
Vsa_max
Vsa
2
Rvc
=
KR
Vmax_vc
Vvc
2
+
Ro
SV
=
COutput
HR
60
SysArtVol
=
Vaop
+
Vaod
+
Vsa
+
Vsap
SysVenVol
=
Vsv
+
Vvc
VBcirc
=
Vtot
-
perifl
d
d
t
Vaod
=
Faop
-
Faod
0.059999999999999984
-
Fcrb
0.059999999999999984
16.66666666666667
d
d
t
Vaop
=
Paopc
-
Vaop
Caop
+
Px2
1
ⅇ
Vaop
Vx8
-
1
Rtaop
d
d
t
Vcorao
=
Flv
-
d
d
t
Vaop
-
Faop
16.66666666666667
-
Fcorao
d
d
t
Vcorcap
=
Fcorsa
-
Fcorcap
Vcorcirc
=
Vcorao
+
Vcorea
+
Vcorla
+
Vcorsa
+
Vcorcap
+
Vcorsv
+
Vcorlv
+
Vcorev
d
d
t
Vcorea
=
Fcorao
-
Fcorea
d
d
t
Vcorev
=
Fcorlv
-
Fcorev
d
d
t
Vcorla
=
Fcorea
-
Fcorla
d
d
t
Vcorlv
=
Fcorsv
-
Fcorlv
d
d
t
Vcorsa
=
Fcorla
-
Fcorsa
d
d
t
Vcorsv
=
Fcorcap
-
Fcorsv
d
d
t
Vla
=
Fpv
-
Fla
Vlar
=
1
-
yla
Vlard
-
Vlars
+
Vlars
d
d
t
Vlv
=
Fla
-
Flv
Vlvr
=
1
-
ylv
Vlvrd
-
Vlvrs
+
Vlvrs
d
d
t
Vpa
=
Fpad
-
Fps
-
Fpa
d
d
t
Vpad
=
Fpap
-
Fpad
0.059999999999999984
16.66666666666667
d
d
t
Vpap
=
Frv
-
Fpap
16.66666666666667
d
d
t
Vpc
=
Fpa
-
Fpc
Vpcd
=
Vrv
+
Vra
+
Vlv
+
Vla
+
perifl
+
Vmyo
+
Vcorcirc
d
d
t
Vpv
=
Fpc
+
Fps
-
Fpv
d
d
t
Vra
=
Fvc
-
Fra
+
Fcorev
Vrar
=
1
-
yra
Vrard
-
Vrars
+
Vrars
d
d
t
Vrv
=
Fra
-
Frv
Vrvr
=
1
-
yrv
Vrvrd
-
Vrvrs
+
Vrvrs
d
d
t
Vsa
=
Fsap
-
Fsa
d
d
t
Vsap
=
Faod
-
Fsap
d
d
t
Vsc
=
Fsa
-
Fsc
d
d
t
Vsv
=
Fsc
-
Fsv
Vtot
=
Vra
+
Vrv
+
Vpap
+
Vpad
+
Vpa
+
Vpc
+
Vpv
+
Vla
+
Vlv
+
Vaop
+
Vaod
+
Vsa
+
Vsap
+
Vsc
+
Vsv
+
Vvc
+
perifl
+
Vcorcirc
d
d
t
Vvc
=
Fsv
+
Fcrb
-
Fvc
Source
Derived from workspace
Heldt 2002
at changeset
adaa6a7dad26
.
Collaboration
To begin collaborating on this work, please use your git client and issue this command:
Downloads
Download This File
Complete Archive as .tgz
COMBINE Archive (exposure)
Views Available
Documentation
Model Metadata
Mathematics
Generated Code
Cite this model
Source View
Semantic Metadata
Launch with OpenCOR
Tools
CombineArchive Web
Compare...
Export Exposure Metadata
Report a problem with this resource
License
This work is licensed under a
Creative Commons Attribution 3.0 Unported License
.
Navigation
Computational modeling of cardiovascular response to orthostatic stress
Computational modeling of cardiovascular response to orthostatic stress
Computational modeling of cardiovascular response to orthostatic stress