:[$URL: https://bbpteam.epfl.ch/svn/analysis/trunk/IonChannel/xmlTomod/CreateMOD.c $]
:[$Revision: 1499 $]
:[$Date: 2012-01-28 10:45:44 +0100 (Sat, 28 Jan 2012) $]
:[$Author: rajnish $]
:Comment :
:Reference :Sequence and functional expression in Xenopus oocytes of a human insulinoma and islet potassium channel. Proc. Natl. Acad. Sci. U.S.A., 1991, 88, 53-7

NEURON	{
	SUFFIX Kv1_5_0005
	USEION k READ ek WRITE ik
	RANGE gKv1_5bar, gKv1_5, ik, BBiD 
}

UNITS	{
	(S) = (siemens)
	(mV) = (millivolt)
	(mA) = (milliamp)
}

PARAMETER	{
	gKv1_5bar = 0.00001 (S/cm2) 
	BBiD = 21 
}

ASSIGNED	{
	v	(mV)
	ek	(mV)
	ik	(mA/cm2)
	gKv1_5	(S/cm2)
	mInf
	mTau
	hInf
	hTau
}

STATE	{ 
	m
	h
}

BREAKPOINT	{
	SOLVE states METHOD cnexp
	gKv1_5 = gKv1_5bar*m*h
	ik = gKv1_5*(v-ek)
}

DERIVATIVE states	{
	rates()
	m' = (mInf-m)/mTau
	h' = (hInf-h)/hTau
}

INITIAL{
	rates()
	m = mInf
	h = hInf
}

PROCEDURE rates(){
	UNITSOFF 
		mInf = 1.0000/(1+ exp((v - -6.0000)/-6.4000))
		if(v < 50){
			mTau = (-0.1163 * v) + 8.3300
		}
		if(v >= 50){
			mTau =  2 
		} 
		hInf = 1.0000/(1+ exp((v - -25.3000)/3.5000))
		if(v < 100){
			hTau = (-15.5000 * v) + 1620.0000
		}
		if(v >= 100){
			hTau =  50
		}
	UNITSON
}