|
|
@@ -25,11 +25,11 @@ |
|
|
* to auditory stimulation.
|
|
|
* M Schellenberger Costa, A Weigenand, H-VV Ngo, L Marshall, J Born, T Martinetz,
|
|
|
* JC Claussen.
|
|
|
- * PLoS Computational Biology In Review (in review).
|
|
|
+ * PLoS Computational Biology (in review).
|
|
|
*/
|
|
|
|
|
|
/****************************************************************************************************/
|
|
|
-/* Functions of the cortical module */
|
|
|
+/* Functions of the thalamic module */
|
|
|
/****************************************************************************************************/
|
|
|
#include "Thalamic_Column.h"
|
|
|
|
|
|
@@ -83,24 +83,24 @@ double Thalamic_Column::get_Qr (int N) const{ |
|
|
/****************************************************************************************************/
|
|
|
/* Excitatory input to TC population */
|
|
|
double Thalamic_Column::I_et (int N) const{
|
|
|
- double I = g_AMPA * y_et[N]* (Vt[N]- E_AMPA);
|
|
|
+ double I = g_AMPA * s_et[N]* (Vt[N]- E_AMPA);
|
|
|
return I;
|
|
|
}
|
|
|
|
|
|
/* Inhibitory input to TC population */
|
|
|
double Thalamic_Column::I_gt (int N) const{
|
|
|
- double I = g_AMPA * y_rt[N]* (Vt[N]- E_GABA);
|
|
|
+ double I = g_AMPA * s_rt[N]* (Vt[N]- E_GABA);
|
|
|
return I;
|
|
|
}
|
|
|
/* Excitatory input to RE population */
|
|
|
double Thalamic_Column::I_er (int N) const{
|
|
|
- double I = g_GABA * y_er[N]* (Vr[N]- E_AMPA);
|
|
|
+ double I = g_GABA * s_er[N]* (Vr[N]- E_AMPA);
|
|
|
return I;
|
|
|
}
|
|
|
|
|
|
/* Inhibitory input to RE population */
|
|
|
double Thalamic_Column::I_gr (int N) const{
|
|
|
- double I = g_GABA * y_rr[N]* (Vr[N]- E_GABA);
|
|
|
+ double I = g_GABA * s_rr[N]* (Vr[N]- E_GABA);
|
|
|
return I;
|
|
|
}
|
|
|
/****************************************************************************************************/
|
|
|
@@ -255,15 +255,15 @@ void Thalamic_Column::set_RK (int N) { |
|
|
Vt [N+1] = Vt [0] + A[N]*dt*(-(I_L_t(N) + I_et(N) + I_gt(N))/tau_t - (I_LK_t(N) + I_T_t(N) + I_h(N)));
|
|
|
Vr [N+1] = Vr [0] + A[N]*dt*(-(I_L_r(N) + I_er(N) + I_gr(N))/tau_r - (I_LK_r(N) + I_T_r(N)));
|
|
|
Ca [N+1] = Ca [0] + A[N]*dt*(alpha_Ca * I_T_t(N) - (Ca[N] - Ca_0)/tau_Ca);
|
|
|
- y_et [N+1] = y_et [0] + A[N]*dt*(x_et[N]);
|
|
|
- y_er [N+1] = y_er [0] + A[N]*dt*(x_er[N]);
|
|
|
- y_rt [N+1] = y_rt [0] + A[N]*dt*(x_rt[N]);
|
|
|
- y_rr [N+1] = y_rr [0] + A[N]*dt*(x_rr[N]);
|
|
|
+ s_et [N+1] = s_et [0] + A[N]*dt*(x_et[N]);
|
|
|
+ s_er [N+1] = s_er [0] + A[N]*dt*(x_er[N]);
|
|
|
+ s_rt [N+1] = s_rt [0] + A[N]*dt*(x_rt[N]);
|
|
|
+ s_rr [N+1] = s_rr [0] + A[N]*dt*(x_rr[N]);
|
|
|
y [N+1] = y [0] + A[N]*dt*(x [N]);
|
|
|
- x_et [N+1] = x_et [0] + A[N]*dt*(pow(gamma_e, 2) * ( + N_pt * Cortex->y[N] - y_et[N]) - 2 * gamma_e * x_et[N]) + noise_xRK(N,0);
|
|
|
- x_er [N+1] = x_er [0] + A[N]*dt*(pow(gamma_e, 2) * (N_tr * get_Qt(N) + N_pr * Cortex->y[N] - y_er[N]) - 2 * gamma_e * x_er[N]);
|
|
|
- x_rt [N+1] = x_rt [0] + A[N]*dt*(pow(gamma_g, 2) * (N_rt * get_Qr(N) - y_rt[N]) - 2 * gamma_g * x_rt[N]);
|
|
|
- x_rr [N+1] = x_rr [0] + A[N]*dt*(pow(gamma_g, 2) * (N_rr * get_Qr(N) - y_rr[N]) - 2 * gamma_g * x_rr[N]);
|
|
|
+ x_et [N+1] = x_et [0] + A[N]*dt*(pow(gamma_e, 2) * ( + N_pt * Cortex->y[N] - s_et[N]) - 2 * gamma_e * x_et[N]) + noise_xRK(N,0);
|
|
|
+ x_er [N+1] = x_er [0] + A[N]*dt*(pow(gamma_e, 2) * (N_tr * get_Qt(N) + N_pr * Cortex->y[N] - s_er[N]) - 2 * gamma_e * x_er[N]);
|
|
|
+ x_rt [N+1] = x_rt [0] + A[N]*dt*(pow(gamma_g, 2) * (N_rt * get_Qr(N) - s_rt[N]) - 2 * gamma_g * x_rt[N]);
|
|
|
+ x_rr [N+1] = x_rr [0] + A[N]*dt*(pow(gamma_g, 2) * (N_rr * get_Qr(N) - s_rr[N]) - 2 * gamma_g * x_rr[N]);
|
|
|
x [N+1] = x [0] + A[N]*dt*(pow(nu, 2) * ( get_Qt(N) - y [N]) - 2 * nu * x [N]);
|
|
|
h_T_t [N+1] = h_T_t[0] + A[N]*dt*(h_inf_T_t(N) - h_T_t[N])/tau_h_T_t(N);
|
|
|
h_T_r [N+1] = h_T_r[0] + A[N]*dt*(h_inf_T_r(N) - h_T_r[N])/tau_h_T_r(N);
|
|
|
@@ -282,10 +282,10 @@ void Thalamic_Column::add_RK(void) { |
|
|
Vt [0] =(-3*Vt [0] + 2*Vt [1] + 4*Vt [2] + 2* Vt [3] + Vt [4])/6;
|
|
|
Vr [0] =(-3*Vr [0] + 2*Vr [1] + 4*Vr [2] + 2* Vr [3] + Vr [4])/6;
|
|
|
Ca [0] =(-3*Ca [0] + 2*Ca [1] + 4*Ca [2] + 2* Ca [3] + Ca [4])/6;
|
|
|
- y_et [0] =(-3*y_et [0] + 2*y_et [1] + 4*y_et [2] + 2* y_et [3] + y_et [4])/6;
|
|
|
- y_er [0] =(-3*y_er [0] + 2*y_er [1] + 4*y_er [2] + 2* y_er [3] + y_er [4])/6;
|
|
|
- y_rt [0] =(-3*y_rt [0] + 2*y_rt [1] + 4*y_rt [2] + 2* y_rt [3] + y_rt [4])/6;
|
|
|
- y_rr [0] =(-3*y_rr [0] + 2*y_rr [1] + 4*y_rr [2] + 2* y_rr [3] + y_rr [4])/6;
|
|
|
+ s_et [0] =(-3*s_et [0] + 2*s_et [1] + 4*s_et [2] + 2* s_et [3] + s_et [4])/6;
|
|
|
+ s_er [0] =(-3*s_er [0] + 2*s_er [1] + 4*s_er [2] + 2* s_er [3] + s_er [4])/6;
|
|
|
+ s_rt [0] =(-3*s_rt [0] + 2*s_rt [1] + 4*s_rt [2] + 2* s_rt [3] + s_rt [4])/6;
|
|
|
+ s_rr [0] =(-3*s_rr [0] + 2*s_rr [1] + 4*s_rr [2] + 2* s_rr [3] + s_rr [4])/6;
|
|
|
y [0] =(-3*y [0] + 2*y [1] + 4*y [2] + 2* y [3] + y [4])/6;
|
|
|
x_et [0] =(-3*x_et [0] + 2*x_et [1] + 4*x_et [2] + 2* x_et [3] + x_et [4])/6 + noise_aRK(0);
|
|
|
x_er [0] =(-3*x_er [0] + 2*x_er [1] + 4*x_er [2] + 2* x_er [3] + x_er [4])/6;
|
|
|
|
0 comments on commit
bd16ba8