%------------------------------------------------------------------------------------------
%
% Title: Calcium Signals in Small Structures
% Filename: CaSignal_Exp8EDisc.par
% Author: Ronald van Elburg
%
% Associated Paper:
% Cornelisse LN, van Elburg RAJ, Meredith RM, Yuste R, Mansvelder HD (2007)
% High Speed Two-Photon Imaging of Calcium Dynamics in Dendritic Spines:
% Consequences for Spine Calcium Kinetics and Buffer Capacity.
% PLoS ONE 2(10): e1073 doi:10.1371/journal.pone.0001073
%
%
%
%
%------------------------------------------------------------------------------------------
Total_Dye = 10
EndogenousBuffer.total = Total_EndogenousBuffer - Total_Dye
% Calmodulin Parameters for Dye
D_Dye = 0.025 % Diffusion Constant Calmodulin pers. com. Warren Zipfel (0.025 um^2/ms)
KPlus_Dye = 0.4 % Fluorescent dye calcium binding rate (0.45/(ms uM))
KD_Dye = 2 % Fluorescent dye calcium affinity (0.17 uM)
Structure = Disc_Structure
%
path = ".\" % If running under Windows, specify here the path to the
% directory containing the script imported below
file = path "CaSignal_main.par"
include file % Import the simulation parameters from the main script
% Auxilary variables for monitoring concentrations at different distances from the membrane
NoOfSteps = 6 % number of shells in the output (NOT IN THE SIMULATION, THERE THE GRIDSIZE DEFINES THE COMPARTMENTS)
dR=R_Structure/NoOfSteps
R1k=(NoOfSteps-0.5)*dR
R2k=(NoOfSteps-1.5)*dR
R3k=(NoOfSteps-2.5)*dR
R4k=(NoOfSteps-3.5)*dR
R5k=(NoOfSteps-4.5)*dR
R6k=(NoOfSteps-5.5)*dR
CaBoundary:=Ca[R_Source]
Ca1 := Ca[R1k] ; Dye1 := Dye[R1k] ; BndDye1 := Total_Dye-Dye[R1k] ;EndoB1 := EndogenousBuffer [R1k]
Ca2 := Ca[R2k] ; Dye2 := Dye[R2k] ; BndDye2 := Total_Dye-Dye[R2k] ;EndoB2 := EndogenousBuffer [R2k]
Ca3 := Ca[R3k] ; Dye3 := Dye[R3k] ; BndDye3 := Total_Dye-Dye[R3k] ;EndoB3 := EndogenousBuffer [R3k]
Ca4 := Ca[R4k] ; Dye4 := Dye[R4k] ; BndDye4 := Total_Dye-Dye[R4k] ;EndoB4 := EndogenousBuffer [R4k]
Ca5 := Ca[R5k] ; Dye5 := Dye[R5k] ; BndDye5 := Total_Dye-Dye[R5k] ;EndoB5 := EndogenousBuffer [R5k]
Ca6 := Ca[R6k] ; Dye6 := Dye[R6k] ; BndDye6 := Total_Dye-Dye[R6k] ;EndoB6 := EndogenousBuffer [R6k]
CaAverage:=Ca[] ; DyeAverage:=Dye[] ; BndDyeAverage:=Total_Dye-Dye[] ;EndoBAverage := EndogenousBuffer []
% Exporting the variables defined above to file
Exp='B8E'
plot point.mute CaBoundary "Output\Exp""Exp""\CSE""Exp""D_CaBoundary"
plot point.mute Ca1 "Output\Exp""Exp""\CSE""Exp""D_Ca1"
plot point.mute Ca2 "Output\Exp""Exp""\CSE""Exp""D_Ca2"
plot point.mute Ca3 "Output\Exp""Exp""\CSE""Exp""D_Ca3"
plot point.mute Ca4 "Output\Exp""Exp""\CSE""Exp""D_Ca4"
plot point.mute Ca5 "Output\Exp""Exp""\CSE""Exp""D_Ca5"
plot point.mute Ca6 "Output\Exp""Exp""\CSE""Exp""D_Ca6"
plot point.mute CaAverage "Output\Exp""Exp""\CSE""Exp""D_CaAverage"
plot point.mute Dye1 "Output\Exp""Exp""\CSE""Exp""D_Dye1"
plot point.mute Dye2 "Output\Exp""Exp""\CSE""Exp""D_Dye2"
plot point.mute Dye3 "Output\Exp""Exp""\CSE""Exp""D_Dye3"
plot point.mute Dye4 "Output\Exp""Exp""\CSE""Exp""D_Dye4"
plot point.mute Dye5 "Output\Exp""Exp""\CSE""Exp""D_Dye5"
plot point.mute Dye6 "Output\Exp""Exp""\CSE""Exp""D_Dye6"
plot point.mute DyeAverage "Output\Exp""Exp""\CSE""Exp""D_DyeAverage"
plot point.mute BndDye1 "Output\Exp""Exp""\CSE""Exp""D_BndDye1"
plot point.mute BndDye2 "Output\Exp""Exp""\CSE""Exp""D_BndDye2"
plot point.mute BndDye3 "Output\Exp""Exp""\CSE""Exp""D_BndDye3"
plot point.mute BndDye4 "Output\Exp""Exp""\CSE""Exp""D_BndDye4"
plot point.mute BndDye5 "Output\Exp""Exp""\CSE""Exp""D_BndDye5"
plot point.mute BndDye6 "Output\Exp""Exp""\CSE""Exp""D_BndDye6"
plot point.mute BndDyeAverage "Output\Exp""Exp""\CSE""Exp""D_BndDyeAverage"
plot point.mute EndoB1 "Output\Exp""Exp""\CSE""Exp""D_EndoB1"
plot point.mute EndoB2 "Output\Exp""Exp""\CSE""Exp""D_EndoB2"
plot point.mute EndoB3 "Output\Exp""Exp""\CSE""Exp""D_EndoB3"
plot point.mute EndoB4 "Output\Exp""Exp""\CSE""Exp""D_EndoB4"
plot point.mute EndoB5 "Output\Exp""Exp""\CSE""Exp""D_EndoB5"
plot point.mute EndoB6 "Output\Exp""Exp""\CSE""Exp""D_EndoB6"
plot point.mute EndoBAverage "Output\Exp""Exp""\CSE""Exp""D_EndoBAverage"
plot point.mute CalciumCurrent "Output\Exp""Exp""\CSE""Exp""D_CalciumCurrent"
% The adaptive integration method fails for the fast calcium change
% to overcome this problem we run the first 20 ms with a fixed timestep
% of 0.001 ms, then after the fast changes we switch to the adaptive method
% for optimal performance.
Run 20.0 1.0e-3 ; current CalciumCurrent
Run adaptive 480.0 1.0e-3 accuracy; current CalciumCurrent
|