Changeset 30715 in project


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

picnic: further tweaks to GLHP example

File:
1 edited

Legend:

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

    r30711 r30715  
    101101                               
    102102                               (defun pf (gid origin init)
    103                                  (let ((period (randomUniform (1.0 ~ (PFlength / 100.0) ~ init)))
    104                                        (phase  (randomUniform (0.0 ~ 10.0 ~ init))))
     103                                 (let ((period (randomUniform (1.0 ~ (PFlength / 40.0) ~ init)))
     104                                       (phase  0.0));;(randomUniform (0.0 ~ 10.0 ~ init))))
    105105                                   ;; Harmonic (amplitude period phase n)
    106                                    (Harmonic (5.0 period phase 20))))
     106                                   (Harmonic (10.0 period phase 40))))
    107107                               
    108108                               (const n = 3)
Note: See TracChangeset for help on using the changeset viewer.