# | Line 320 | Line 320 | sub do_ttree_dir { | |
---|---|---|
320 | qq{-e "r2=rand(-5.37138*recno+67.1737811)" } . | |
321 | qq{-e "r3=rand(+3.17603772*recno+83.766771)" } . | |
322 | qq{-e "r4=rand(-1.5839226*recno-59.82712)" } . | |
323 | < | qq{-e "odds(n):if(.5*n-floor(.5*n)-.25,-1,1)"} . |
323 | > | qq{-e "odds(n):if(.5*n-floor(.5*n)-.25,-1,1)" } . |
324 | qq{-e "Dx=1-(\$1+r1)/$ns2" } . | |
325 | qq{-e "Dy=min(1/$ns,sqrt(1-Dx*Dx))*odds(\$1)*r2" } . | |
326 | qq{-e "Dz=sqrt(1-Dx*Dx-Dy*Dy)" } . |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |