Changeset 29901 in project


Ignore:
Timestamp:
10/11/13 11:22:31 (8 years ago)
Author:
Ivan Raikov
Message:

9ML-toolkit: removing unused interval and graph libs

Location:
release/4/9ML-toolkit/trunk
Files:
2 deleted
9 edited

Legend:

Unmodified
Added
Removed
  • release/4/9ML-toolkit/trunk/9ML-toolkit.scm

    r27270 r29901  
    33;;
    44;;
    5 ;; Copyright 2010-2012 Ivan Raikov and the Okinawa Institute of
     5;; Copyright 2010-2013 Ivan Raikov and the Okinawa Institute of
    66;; Science and Technology.
    77;;
     
    2929         Signal:module-initialize   
    3030         Diagram:module-initialize 
    31          Interval:module-initialize
    32          Graph:module-initialize
    3331         IVP:module-initialize
    3432         )
     
    5856(include "NineMLsignal.scm")
    5957(include "NineMLdiagram.scm")
    60 (include "NineMLinterval.scm")
    61 (include "NineMLgraph.scm")
    6258(include "NineMLivp.scm")
    6359
  • release/4/9ML-toolkit/trunk/9ML-toolkit.setup

    r29825 r29901  
    6969
    7070       ((dynld-name "9ML-toolkit")
    71         ("9ML-toolkit.scm" "NineMLcore.scm" "NineMLreal.scm" "NineMLsignal.scm" "NineMLdiagram.scm" "NineMLinterval.scm" "NineMLgraph.scm" "NineMLivp.scm"  )
     71        ("9ML-toolkit.scm" "NineMLcore.scm" "NineMLreal.scm" "NineMLsignal.scm" "NineMLdiagram.scm" "NineMLivp.scm"  )
    7272        (compile -O -d2 -S -s 9ML-toolkit.scm -o ,(dynld-name "9ML-toolkit") -j 9ML-toolkit))
    7373
     
    7676
    7777       ("9ML-report"
    78         ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm" "NineMLinterval.scm"  "NineMLgraph.scm"
     78        ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm"
    7979         "report.scm" )
    8080        (compile -O -d2 -S report.scm -o 9ML-report ))
    8181
    8282       ("9ML-ivp"
    83         ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm" "NineMLinterval.scm" "NineMLgraph.scm"
     83        ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm"
    8484         "NineMLivp.scm" 
    8585         "ivp.scm" )
     
    8787
    8888       ("9ML-shell"
    89         ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm" "NineMLinterval.scm" "NineMLgraph.scm" 
     89        ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm"
    9090         "shell.scm" )
    9191        (compile -O -d2 -S shell.scm -o 9ML-shell ))
    9292
    9393       ("9ML-network"
    94         ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm" "NineMLinterval.scm" "NineMLgraph.scm" 
     94        ("NineMLcore.scm" "NineMLreal.scm" "NineMLrandom.scm" "NineMLsignal.scm" "NineMLdiagram.scm"
    9595         "network.scm" )
    9696        (compile -O -d2 -S network.scm -o 9ML-network ))
  • release/4/9ML-toolkit/trunk/eval.scm

    r29825 r29901  
    14161416                             (tuple-label (and value ((sxpath '(Tuple left Const label *text*)) `(*TOP* ,sxml-value)))))
    14171417                        (if (pair? tuple-label)
    1418                             (value-hook prefix (ident-name name) (car tuple-label) sxml-value)))))
     1418                            (value-hook prefix (ident-name name) (car tuple-label) sxml-value)
     1419                            (value-hook prefix (ident-name name) #f sxml-value))
     1420                        )))
     1421                           
    14191422                   (else #f))
    14201423             ))
  • release/4/9ML-toolkit/trunk/ivp.scm

    r28593 r29901  
    4848(include "NineMLsignal.scm")
    4949(include "NineMLdiagram.scm")
    50 (include "NineMLinterval.scm")
    51 (include "NineMLgraph.scm")
    5250(include "NineMLivp.scm")
    5351
     
    230228                    Signal:module-initialize   
    231229                    Diagram:module-initialize 
    232                     Interval:module-initialize
    233                     Graph:module-initialize
    234230                    IVP:module-initialize )
    235               (list "Real" "Random" "Signal" "Diagram" "Interval" "Graph" "IVP" )) )
     231              (list "Real" "Random" "Signal" "Diagram" "IVP" )) )
    236232
    237233  (if (null? operands)
  • release/4/9ML-toolkit/trunk/network.scm

    r29830 r29901  
    102102(include "NineMLsignal.scm")
    103103(include "NineMLdiagram.scm")
    104 (include "NineMLinterval.scm")
    105 (include "NineMLgraph.scm")
    106104(include "NineMLivp.scm")
    107105(include "NineMLgenerator.scm")
     
    747745        (sxml-value->sexpr value))
    748746       
     747       ((not label)
     748        (sxml-value->sexpr value))
     749       
    749750       (else #f)
    750751       ))
     
    768769                                            (or (and n (make-real-signal name n))
    769770                                                (and b (make-bool-signal name b))
    770                                                 (make-signal-expr
    771                                                  (parse-string-expr (->string (sxml:kidn-cadr 'nml:MathInline sxml-value )))))
     771                                                (and
     772                                                 (sxml:kidn 'nml:MathInline sxml-value)
     773                                                 (make-signal-expr
     774                                                  (parse-string-expr (->string (sxml:kidn-cadr 'nml:MathInline sxml-value )))))
     775                                                (Const `(string ,vtext)))
    772776                                            ))
    773777                                        ))
     
    11471151                     (d "group-ul-eval: projection node = ~A~%" node)
    11481152                     (d "group-ul-eval: response = ~A response-name = ~A~%" response response-name)
     1153                     (d "group-ul-eval: properties = ~A ~%" properties)
    11491154
    11501155                     (let (
     
    12841289                    Signal:module-initialize   
    12851290                    Diagram:module-initialize 
    1286                     Interval:module-initialize
    1287                     Graph:module-initialize
    12881291                    IVP:module-initialize
    12891292                    Generator:module-initialize   )
    1290               (list "Real" "Random" "Signal" "Diagram" "Interval" "Graph" "IVP" "Generator"  )) )
     1293              (list "Real" "Random" "Signal" "Diagram" "IVP" "Generator"  )) )
    12911294
    12921295  (if (null? operands)
  • release/4/9ML-toolkit/trunk/report.scm

    r27270 r29901  
    33;;
    44;;
    5 ;; Copyright 2010-2012 Ivan Raikov and the Okinawa Institute of
     5;; Copyright 2010-2013 Ivan Raikov and the Okinawa Institute of
    66;; Science and Technology.
    77;;
     
    4646(include "NineMLsignal.scm")
    4747(include "NineMLdiagram.scm")
    48 (include "NineMLinterval.scm")
    49 (include "NineMLgraph.scm")
    5048
    5149
     
    275273                    Signal:module-initialize   
    276274                    Diagram:module-initialize 
    277                     Interval:module-initialize
    278                     Graph:module-initialize )
    279               (list "Real" "Random" "Signal" "Diagram" "Interval" "Graph" )))
     275                    )
     276              (list "Real" "Random" "Signal" "Diagram" )))
    280277
    281278  (let ((output-type (cond ((options 'output-xml)  'xml)
  • release/4/9ML-toolkit/trunk/shell.scm

    r27270 r29901  
    33;;
    44;;
    5 ;; Copyright 2010-2012 Ivan Raikov and the Okinawa Institute of
     5;; Copyright 2010-2013 Ivan Raikov and the Okinawa Institute of
    66;; Science and Technology.
    77;;
     
    4040(include "NineMLsignal.scm")
    4141(include "NineMLdiagram.scm")
    42 (include "NineMLinterval.scm")
    43 (include "NineMLgraph.scm")
    4442
    4543(define init-scope      (make-parameter st-empty))
     
    260258                    Signal:module-initialize   
    261259                    Diagram:module-initialize 
    262                     Interval:module-initialize
    263                     Graph:module-initialize
    264260                    )
    265               (list "Real" "Signal" "Diagram" "Interval" "Graph" )) )
     261              (list "Real" "Signal" "Diagram" )) )
    266262
    267263  (let ((output-type (cond ((options 'output-xml)  'xml)
  • release/4/9ML-toolkit/trunk/templates/Network.sml.tmpl

    r29808 r29901  
    217217        end
    218218
     219{% macro random_divergent(name, sp, tp, epsilon, weight) %}
     220             val Pr_{{name}}_seed = RandomInit()
     221             val Pr_{{name}} = SparseMatrix.fromGeneratorList [N,N]
     222                                  [
     223                                    {% for s in sp %}
     224                                    {% for t in tp %}
     225                                      {offset=[{{t.start}},{{s.start}}],
     226                                       fshape=[{{t.size}},{{s.size}}],
     227                                       f=(fn (i) => if Real.> ({{epsilon}},
     228                                                                RandomMTZig.randUniform Pr_{{name}}_seed)
     229                                                    then {{weight}} else 0.0)}{% if not loop.last %},{% endif %}
     230                                    {% endfor %}{% if not loop.last %},{% endif %}
     231                                    {% endfor %}
     232                                 ]
     233{% endmacro %}
     234
     235
     236{% macro all_to_all(name, sp, tp, weight) %}
     237             val Pr_{{name}} = SparseMatrix.fromTensorList [N,N]
     238                                  [
     239                                    {% for s in sp %}
     240                                    {% for t in tp %}
     241                                    {offset=[{{t.start}},{{s.start}}],
     242                                     tensor=(RTensor.*> {{weight}}
     243                                                  (RTensor.new ([{{t.size}},{{s.size}}],1.0))),
     244                                     sparse=false}{% if not loop.last %},{% endif %}
     245                                    {% endfor %}{% if not loop.last %},{% endif %}
     246                                    {% endfor %}
     247                                 ]
     248{% endmacro %}
     249
     250
     251{% macro from_file(name, sp, tp, filename) %}
     252             val Pr_{{name}} = let val infile = TextIO.openIn "{{filename}}"
     253                                   val S = TensorFile.realTensorRead (infile)
     254                                   val _ = TextIO.closeIn infile
     255                               in
     256                                   SparseMatrix.fromTensorSliceList [N,N]
     257                                   [
     258                                     {% with %}
     259                                     {% set soffset = 0 %}
     260                                     {% for s in sp %}
     261                                     {% set toffset = 0 %}
     262                                     {% for t in tp %}
     263                                     {offset=[{{t.start}},{{s.start}}],
     264                                      slice=(RTensorSlice.slice ([([{{toffset}},{{soffset}}],[{{toffset}}+{{t.size}}-1,{{soffset}}+{{s.size}}-1])],S)),
     265                                      sparse=false}{% if not loop.last %},{% endif %}
     266                                     {% set toffset = toffset + t.size %}
     267                                     {% endfor %}{% if not loop.last %},{% endif %}
     268                                     {% set soffset = soffset + s.size %}
     269                                     {% endfor %}
     270                                     {% endwith %}
     271                                  ]
     272                                end
     273{% endmacro %}
     274
    219275           
    220276    fun fprojection () =
     
    225281             val _ = putStrLn TextIO.stdOut "constructing {{pr.name}}"
    226282             {% if pr.value.rule == "random divergent" %}
    227              val Pr_{{pr.name}}_seed = RandomInit()
    228              val Pr_{{pr.name}} = SparseMatrix.fromGeneratorList [N,N]
    229                                   [
    230                                     {% for s in pr.value.source.populations %}
    231                                     {% for t in pr.value.target.populations %}
    232                                       {offset=[{{t.start}},{{s.start}}],
    233                                        fshape=[{{t.size}},{{s.size}}],
    234                                        f=(fn (i) => if Real.> ({{pr.value.properties.epsilon.exprML}},
    235                                                                 RandomMTZig.randUniform Pr_{{pr.name}}_seed)
    236                                                     then {{pr.value.properties.weight.exprML}} else 0.0)}{% if not loop.last %},{% endif %}
    237                                     {% endfor %}{% if not loop.last %},{% endif %}
    238                                     {% endfor %}
    239                                  ]
    240 
     283             {% call random_divergent(pr.name,
     284                                      pr.value.source.populations,
     285                                      pr.value.target.populations,
     286                                      pr.value.properties.epsilon.exprML,
     287                                      pr.value.properties.weight.exprML) %}
     288             {% endcall %}
    241289             {% else %}
    242290             {% if pr.value.rule == "all-to-all" %}
    243              val Pr_{{pr.name}} = SparseMatrix.fromTensorList [N,N]
    244                                   [
    245                                     {% for s in pr.value.source.populations %}
    246                                     {% for t in pr.value.target.populations %}
    247                                     {offset=[{{t.start}},{{s.start}}],
    248                                      tensor=(RTensor.*> {{pr.value.properties.weight.exprML}}
    249                                                   (RTensor.new ([{{t.size}},{{s.size}}],1.0))),
    250                                      sparse=false}{% if not loop.last %},{% endif %}
    251                                     {% endfor %}{% if not loop.last %},{% endif %}
    252                                     {% endfor %}
    253                                  ]
     291             {% call all_to_all(pr.name,
     292                                pr.value.source.populations,
     293                                pr.value.target.populations,
     294                                pr.value.properties.weight.exprML) %}
     295             {% endcall %}
     296             {% else %}
     297             {% if pr.value.rule == "from file" %}
     298             {% call from_file(pr.name,
     299                               pr.value.source.populations,
     300                               pr.value.target.populations,
     301                               pr.value.properties.filename.exprML) %}
     302             {% endcall %}
     303             {% endif %}
    254304             {% endif %}
    255305             {% endif %}
  • release/4/9ML-toolkit/trunk/templates/Sim.sml.tmpl

    r29741 r29901  
     1(*
     2 
     3val _ =
     4    let
     5        val tasks =
     6            List.tabulate
     7                (Ntasks,
     8                 fn (i) =>
     9                 let
     10                     val prio = Int.mod (Random.randNat seed, Nprio)
     11                     val r  = Real.fromInt i
     12                 in
     13                     (prio, r)
     14                 end)
     15                                     
     16        val pq = foldl PQ.insert PQ.empty tasks
     17        (* or val pq = PQ.fromList tasks *)
     18
     19        fun aux pq' =
     20            case PQ.next pq' of
     21                NONE => ()
     22              | SOME ((prio, r), pq'') => (
     23                  print (Int.toString prio ^ ", " ^ (Real.toString r) ^ "\n");
     24                  aux pq''
     25              )
     26    in
     27        aux pq
     28    end
     29*)
    130
    231structure Sim{{group.name}} =
Note: See TracChangeset for help on using the changeset viewer.