Changeset 11996 in project for release/3/nemo/trunk/examples/AKP06/PotIhCa.scm

Timestamp:

09/25/08 09:56:46 (12 years ago)

Author:

Ivan Raikov

Message:

Added some useful shortcuts for tau/inf to alpha/beta conversion.

File:

• release/3/nemo/trunk/examples/AKP06/PotIhCa.scm (modified) (5 diffs)

release/3/nemo/trunk/examples/AKP06/PotIhCa.scm

@@ -116 +116 @@
                         ) ;; end Kv4 current
              
+
              
              (component (type ion-channel) (name Ih)
@@ -141 +142 @@
                                      (h-power   0)
                                      (m-inf     (Ih_inf v))
-                                     (m-tau     (/ temp_adj (Ih_tau v)))
+                                     (m-tau     (/ (Ih_tau v) temp_adj))
                                      ))
                                    
@@ -147 +148 @@
 
                         (component (type pore)
-                                   (const  gbar_Ih  = 0.2)
+                                   (const  gbar_Ih  = 0.0002)
                                    (output gbar_Ih ))
                         
@@ -156 +157 @@
                         ) ;; end Ih current
 
-             (component (type ion-channel) (name CaP)
-                        
-                        (component (type gate)
-                                   
-                                   ;; rate functions
-                                   (defun CaP_inf (v)  
-                                     (let ((cv  19)
-                                           (ck  5.5))
-                                       (/ 1.0 (+ 1.0 (exp (neg (/ (+ v cv) ck)))))))
-                                   
-                                   (defun CaP_tau (v temp_adj)  
-                                     (if (> v -50) 
-                                         (* 1e3 (+ 0.000191 (* 0.00376 (pow (exp (neg (/ (+ v 41.9) 27.8)))  2))))
-                                         (* 1e3 (+ 0.00026367 (* 0.1278 (exp (* 0.10327 v)))))))
-
-                                   (hh-ionic-conductance 
-                                    (CaP  ;; ion name: exported variables will be of the form {ion}_{id}
-                                     (initial-m  (CaP_inf Vrest))
-                                     (m-power    1)
-                                     (h-power    0)
-                                     (m-inf      (CaP_inf v))
-                                     (m-tau      (/ (CaP_tau v) temp_adj))))
-                                   
-                                   )
-
-                        (component (type pore)
-                                   (const gmax_CaP  = 0.01667)
-                                   (gbar_CaP = (* gmax_CaP (ghk v celsius cai cao)))
-                                   (output gbar_CaP ))
-                        
-                        (component (type accumulating-substance) (name ca) )
-                        
-                        
-                        ) ;; end CaP current
+;;           (component (type ion-channel) (name CaP)
+                        
+;;                      (component (type gate)
+                                   
+;;                                 ;; rate functions
+;;                                 (defun CaP_inf (v)  
+;;                                   (let ((cv  19)
+;;                                         (ck  5.5))
+;;                                     (/ 1.0 (+ 1.0 (exp (neg (/ (+ v cv) ck)))))))
+                                   
+;;                                 (defun CaP_tau (v)  
+;;                                   (if (> v -50) 
+;;                                       (* 1e3 (+ 0.000191 (* 0.00376 (pow (exp (neg (/ (+ v 41.9) 27.8)))  2))))
+;;                                       (* 1e3 (+ 0.00026367 (* 0.1278 (exp (* 0.10327 v)))))))
+
+;;                                 (hh-ionic-conductance 
+;;                                  (CaP  ;; ion name: exported variables will be of the form {ion}_{id}
+;;                                   (initial-m  (CaP_inf Vrest))
+;;                                   (m-power    1)
+;;                                   (h-power    0)
+;;                                   (m-inf      (CaP_inf v))
+;;                                   (m-tau      (/ (CaP_tau v) temp_adj))))
+                                   
+;;                                 )
+
+;;                      (component (type pore)
+;;                                 (const gmax_CaP  = 0.01667)
+;;                                 (gbar_CaP = (* gmax_CaP (ghk v celsius cai cao)))
+;;                                 (output gbar_CaP ))
+                        
+;;                      (component (type accumulating-substance) (name ca) )
+                        
+                        
+;;                      ) ;; end CaP current
 
              
@@ -268 +269 @@
              
              
-             )) ;; end model
+             )) ;; end model