Changeset 30716 in project


Ignore:
Timestamp:
04/16/14 03:16:03 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: use default value for npts argument of processes

Location:
release/4/picnic/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/examples/GLHP.picnic

    r30715 r30716  
    103103                                 (let ((period (randomUniform (1.0 ~ (PFlength / 40.0) ~ init)))
    104104                                       (phase  0.0));;(randomUniform (0.0 ~ 10.0 ~ init))))
    105                                    ;; Harmonic (amplitude period phase n)
     105                                   ;; Harmonic (amplitude period phase npts)
    106106                                   (Harmonic (10.0 period phase 40))))
    107107                               
    108108                               (const n = 3)
    109109                               
    110                                (p (s) = (generator pf) (npts 200) (initial (randomInit (39))))
     110                               (p (s) = (generator pf) (initial (randomInit (39))))
    111111
    112112                               (output s n)
  • release/4/picnic/trunk/picnic-core.scm

    r30710 r30716  
    733733                                  ))
    734734
    735                               (if (not npts)
    736                                   (picnic:error 'env-extend! "process definitions require number of points"))
    737                              
    738735                              (let ((initial-expr
    739736                                     (and initial
     
    741738                                                          (sprintf "initial value for process ~A" sym)))))
    742739
    743                                 (hash-table-set! picnic-env sym (PS name gfun initial-expr npts)))
     740                                (hash-table-set! picnic-env sym (PS name gfun initial-expr (or npts 3))))
    744741                             
    745742                              ))
Note: See TracChangeset for help on using the changeset viewer.