//genesis
//Tabchannel implementation of conductances based on Traub et al. (2003): Fast rhythmic bursting can be induced in layer 2/3 cortical neurons by enhancing persistent Na+ conductance or by blocking BK channels.
//include L5P_const.g
include ../L5P37C-notuft/Axon_chans_tab.g
int i
float x,dx,dx_h,XA,XB,Xinf,Xtau,YA,YB,Yinf,Ytau, ZA, ZB, Zinf, Ztau,dcai, cai
dx = (tab_xmax-tab_xmin)/tab_xdivs
dcai = (cai_max-cai_min)/tab_xdivs
cd ../L5P37C-notuft/channels
// Make library prototypes *****
if ({!{exists /library}})
create neutral /library
disable /library
end
ce /library
if ({!{exists L5P-notuft}})
create neutral L5P-notuft
end
ce L5P-notuft
/* Transient Na conductance*/
create tabchannel T03_NaF
setfield T03_NaF Ek {ENa} Gbar {GNa} Ik 0 Gk 0 Xpower 3 Ypower 1 Zpower 0
call T03_NaF TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
call T03_NaF TABCREATE Y {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_NaF X_A->calc_mode 1 X_B->calc_mode 1
setfield T03_NaF Y_A->calc_mode 1 Y_B->calc_mode 1
call T03_NaF TABREAD tabNaF.dat
call T03_NaF TABFILL X 3000 0
call T03_NaF TABFILL Y 3000 0
/* Persistant Na conductance*/
create tabchannel T03_NaP
setfield T03_NaP Ek {ENa} Gbar {GNa} Ik 0 Gk 0 Xpower 1 Ypower 0 Zpower 0
call T03_NaP TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_NaP X_A->calc_mode 1 X_B->calc_mode 1
call T03_NaP TABREAD tabNaP.dat
call T03_NaP TABFILL X 3000 0
/* Delayed rectifier potassium conductance*/
create tabchannel T03_KDr
setfield T03_KDr Ek {EK} Gbar {GK} Ik 0 Gk 0 Xpower 4 Ypower 0 Zpower 0
call T03_KDr TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_KDr X_A->calc_mode 1 X_B->calc_mode 1
call T03_KDr TABREAD tabKDr.dat
call T03_KDr TABFILL X 3000 0
/* Transient A-type potassium conductance*/
create tabchannel T03_KA
setfield T03_KA Ek {EK} Gbar {GK} Ik 0 Gk 0 Xpower 4 Ypower 1 Zpower 0
call T03_KA TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
call T03_KA TABCREATE Y {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_KA X_A->calc_mode 1 X_B->calc_mode 1
setfield T03_KA Y_A->calc_mode 1 Y_B->calc_mode 1
call T03_KA TABREAD tabKA.dat
call T03_KA TABFILL X 3000 0
call T03_KA TABFILL Y 3000 0
/* K2-type potassium conductance*/
create tabchannel T03_K2
setfield T03_K2 Ek {EK} Gbar {GK} Ik 0 Gk 0 Xpower 1 Ypower 1 Zpower 0
call T03_K2 TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
call T03_K2 TABCREATE Y {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_K2 X_A->calc_mode 1 X_B->calc_mode 1
setfield T03_K2 Y_A->calc_mode 1 Y_B->calc_mode 1
call T03_K2 TABREAD tabK2.dat
call T03_K2 TABFILL X 3000 0
call T03_K2 TABFILL Y 3000 0
/* Low voltage threshold calcium conductance*/
create tabchannel T03_CaT
setfield T03_CaT Ek {ECa} Gbar {GCa} Ik 0 Gk 0 Xpower 2 Ypower 1 Zpower 0
call T03_CaT TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
call T03_CaT TABCREATE Y {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_CaT X_A->calc_mode 1 X_B->calc_mode 1
setfield T03_CaT Y_A->calc_mode 1 Y_B->calc_mode 1
call T03_CaT TABREAD tabCaT.dat
call T03_CaT TABFILL X 3000 0
call T03_CaT TABFILL Y 3000 0
/* Anomalous rectifier conductance H*/
create tabchannel T03_H
setfield T03_H Ek {EH} Gbar {GH} Ik 0 Gk 0 Xpower 1 Ypower 0 Zpower 0
call T03_H TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_H X_A->calc_mode 1
setfield T03_H X_B->calc_mode 1
call T03_H TABREAD tabH.dat
call T03_H TABFILL X 3000 0
/* KC-type calcium dependent potassium conductance*/
create tabchannel T03_KC
setfield T03_KC Ek {EK} Gbar {GK} Ik 0 Gk 0 Xpower 1 Ypower 0 Zpower 1
call T03_KC TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
call T03_KC TABCREATE Z {tab_xdivs} {cai_min} {cai_max}
setfield T03_KC X_A->calc_mode 1 X_B->calc_mode 1
setfield T03_KC Z_A->calc_mode 1 Z_B->calc_mode 1
setfield T03_KC instant {INSTANTZ}
call T03_KC TABREAD tabKC.dat
call T03_KC TABFILL X 3000 0
call T03_KC TABFILL Z 3000 0
/* KM-type potassium conductance*/
create tabchannel T03_KM
setfield T03_KM Ek {EK} Gbar {GK} Ik 0 Gk 0 Xpower 1 Ypower 0 Zpower 0
call T03_KM TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_KM X_A->calc_mode 1 X_B->calc_mode 1
call T03_KM TABREAD tabKM.dat
call T03_KM TABFILL X 3000 0
/*Afterhypolarizing calcium dependent potassium conductance*/
create tabchannel T03_KAHP
setfield T03_KAHP Ek {EK} Gbar {GK} Ik 0 Gk 0 Xpower 0 Ypower 0 Zpower 1
call T03_KAHP TABCREATE Z {tab_xdivs} {cai_min} {cai_max}
setfield T03_KAHP Z_A->calc_mode 1 Z_B->calc_mode 1
call T03_KAHP TABREAD tabKAHP.dat
call T03_KAHP TABFILL Z 3000 0
/* High threshold L-type calcium conductance*/
create tabchannel T03_CaL
setfield T03_CaL Ek {ECa} Gbar {GCa} Ik 0 Gk 0 Xpower 1 Ypower 0 Zpower 0
call T03_CaL TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
setfield T03_CaL X_A->calc_mode 1 X_B->calc_mode 1
call T03_CaL TABREAD tabCaL.dat
call T03_CaL TABFILL X 3000 0
/* H-current channel based on Williams and Stuart (2000):
Site independence of EPSP time course is mediated by dendritic
Ih in neocortical pyramidal neurons. */
float tab_xmin = -0.1
float tab_xmax = 0.05
int tab_xdivs = 149
int i
float x,dx,XA,XB,YA,YB,YAA,YAB
dx = (1e3 * (tab_xmax-tab_xmin))/tab_xdivs //mV, tables are in V
echo {dx}
// only used for proto channels
float G_WS_H = 1
float EH = -0.043
create tabchannel WS_H
setfield WS_H Ek {EH} Gbar {G_WS_H} Ik 0 Gk 0 Xpower 1 Ypower 0 Zpower 0
call WS_H TABCREATE X {tab_xdivs} {tab_xmin} {tab_xmax}
setfield WS_H X_A->calc_mode 1 X_B->calc_mode 1
call WS_H TABREAD tabWS_H.dat
call WS_H TABFILL X 3000 0
make_Axon_chans_tab
cd ..
| 
