Pull back configurations changes from Bilby

This commit is contained in:
Douglas Clowes
2014-06-04 15:17:35 +10:00
parent 393f050338
commit 49361e3430
6 changed files with 102 additions and 55 deletions

View File

@@ -10,7 +10,7 @@ namespace eval ::anticollider {
set aptol 0.1
for {set n 1} {$n < 8} {incr n} {
foreach {col ap} "col$n ap$n" {
foreach {col ap} "pc$n ap$n" {
set col_limit [expr [SplitReply [$col posit2unit $aperture_posit]] - $coltol]
set ap_limit [expr [SplitReply [$ap posit2unit $apD10_posit]] - $aptol]
set acrule [subst {forbid {-inf inf} for $ap when $col in {-inf $col_limit} }]