Commit eb99a53b authored by CD's avatar CD
Browse files

HPA-Axis circadian rythms a WIP; need to work on scaling for Cortisol

parent b56a992e
......@@ -37,7 +37,17 @@ By : University of Mississippi Medical Center
<var><name> [ADH]Effect </name></var>
<!-- Block Added by Chris Dancy -->
<var><name> SystemHour </name><val> 0 </val></var>
<var><name> CircadianCRFEffect </name><val> 1 </val></var>
<var><name> CircadianEffect </name><val> 1 </val></var>
<parm><name> CircadianPhase </name><val> 0 </val></parm>
<parm><name> CircadianAmp </name><val> 1 </val></parm>
<!-- Borbély-Achermann parameters -->
<parm><name> a1 </name><val> 0.97 </val></parm>
<parm><name> a2 </name><val> 0.22 </val></parm>
<parm><name> a3 </name><val> 0.07 </val></parm>
<parm><name> a4 </name><val> 0.03 </val></parm>
<!-- -->
<!-- -->
<parm><name> Secretion-Basic </name><val> 28.0 </val></parm>
......@@ -125,6 +135,13 @@ By : University of Mississippi Medical Center
<block><name> Dervs </name>
<!-- Block Added by Chris Dancy -->
<def>
<name> SystemHour </name>
<val> ( System.X REM 1440.0 ) / 60.0 </val>
</def>
<!-- -->
<conditional>
<name> PumpRate </name>
<test> PumpSwitch </test>
......@@ -138,9 +155,16 @@ By : University of Mississippi Medical Center
</def>
<!-- Block Added by Chris Dancy -->
<def>
<name> CircadianEffect </name>
<!-- Uses Borbély-Achermann equation for C process (from Thorsley, 2012) -->
<val> ( CircadianAmp ) * ( ( a1 * ( SIN ( ( System.Pi / 12 ) * ( SystemHour - CircadianPhase ) ) ) ) + ( a2 * ( SIN ( ( 2 * System.Pi / 12 ) * ( SystemHour - CircadianPhase ) ) ) ) + ( a3 * ( SIN ( ( 3 * System.Pi / 12 ) * ( SystemHour - CircadianPhase ) ) ) ) + ( a4 * ( SIN ( ( 4 * System.Pi / 12 ) * ( SystemHour - CircadianPhase ) ) ) ) + 1 ) </val>
</def>
<def>
<name> CircadianCRFEffect </name>
<val> [CRF]Effect * ( ( 0.97 * ( SIN ( ( System.Pi * System.X / 720 ) - 0.1 ) ) ) + ( 0.22 * ( SIN ( ( 2 * System.Pi * System.X / 720 ) - 0.1 ) ) ) + ( 0.07 * ( SIN ( ( 3 * System.Pi * System.X / 720 ) - 0.1 ) ) ) + ( 0.03 * ( SIN ( ( 4 * System.Pi * System.X / 720 ) - 0.1 ) ) ) + 1 ) </val>
<!-- Uses Borbély-Achermann equation for C process (from Thorsley, 2012) -->
<val> [CRF]Effect * CircadianEffect </val>
</def>
<!-- -->
......
......@@ -150,8 +150,8 @@ By : University of Mississippi Medical Center
<block><name> Start </name>
<!-- <message> Daily planner is starting. </message>-->
<def><name> Status </name><val> 2 </val></def>
<def><name> Status.LastAwake </name><val> System.x </val></def>
<def><name> Status.LastAsleep </name><val> System.x </val></def>
<def><name> Status.LastAwake </name><val> System.X </val></def>
<def><name> Status.LastAsleep </name><val> System.X </val></def>
<call> NewTask </call>
</block>
<!-- -->
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment