aredington

(defn compute-position
  "returns a map
      key is a vector -[ <settlement index name> <power primitive name>]
      value is a map  - {<Date representing yyyy-MM>  <Double: the positon> }
   
   For non power trades, primitive name will be nil"
  [trade]
    ;;compute postion code)