Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/extensions/nemo-hh.scm

    r11995 r11996  
    9595                   (m-inf      (lookup-field 'm-inf alst))
    9696                   (m-tau      (lookup-field 'm-tau alst))
    97                    (m-alpha    (or (lookup-field 'm-alpha alst)  `(/ ,m-inf ,m-tau)))
    98                    (m-beta     (or (lookup-field 'm-beta alst)   `(/ (- 1 ,m-inf) ,m-tau)))
     97                   (m-inf-sym  (p$ ion 'm-inf))
     98                   (m-tau-sym  (p$ ion 'm-tau))
     99                   (m-alpha    (or (lookup-field 'm-alpha alst)  `(/ ,m-inf-sym ,m-tau-sym)))
     100                   (m-beta     (or (lookup-field 'm-beta alst)   `(/ (- 1 ,m-inf-sym) ,m-tau-sym)))
    99101                   (open       (p$ ion 'mO))
    100102                   (closed     (p$ ion 'mC))
     
    102104                                 (transitions (-> ,closed ,open ,m-alpha)
    103105                                              (-> ,open ,closed ,m-beta)))))
     106              (if m-inf (env-extend! m-inf-sym '(asgn) 'none `(rhs ,m-inf)))
     107              (if m-tau (env-extend! m-tau-sym '(asgn) 'none `(rhs ,m-tau)))
    104108              (apply env-extend! (cons* (p$ ion 'm) '(tscomp) initial-m mst))
    105109              (add-external! (p$ ion 'm) 'output)
Note: See TracChangeset for help on using the changeset viewer.