|
global mom_pos machine_limits B. H' q/ a# k8 H. ?% \8 E4 z4 J+ X6 T
' K* Q; A- b: E) I4 o. k% r
if { ![info exists machine_limits] } {
* @% E1 H$ N7 |: A- O for {set q 0} {$q<3} {incr q} {, z) `( e& A* x( l5 }1 S
set machine_limits($q,0) $mom_pos($q)2 V/ j4 Q6 p& h& e( U( b; a- N
set machine_limits($q,1) $mom_pos($q)# K' A" ~% M: Q
}
2 l2 A1 o9 N) i6 Y8 w' B4 ^ }9 a+ \4 t6 t8 ~) e
# B# v% ~/ _4 v! Y+ d
for {set q 0} {$q<3} {incr q} {, C' I+ w+ r2 ]3 O1 H
if { $mom_pos($q) < $machine_limits($q,0)} {
' \& I/ T9 L' W. n set machine_limits($q,0) $mom_pos($q)# G9 [. ], h# j" {
}
) u0 C9 q9 X+ L! w( q9 q& Z6 Q2 x7 G7 G8 a if { $mom_pos($q) > $machine_limits($q,1)} {7 n: n, U. D6 O/ \2 k8 p: [1 d: ^$ G0 l
set machine_limits($q,1) $mom_pos($q)+ V# G" Y: q; o$ @* v
}
2 _# E2 O1 O y4 g% o H }% n+ m: z; x9 I* k2 V; U' Z* z
& k" G+ T; c2 `
! ~6 X% ]7 Z2 X: o j5 V
2 o, r; d8 Y: v5 ~/ @5 }global mom_pos machine_limits
5 v0 n4 C) J* b% v/ e0 L
, V0 P# A/ E8 e- R, s O
( m h W* `; SMOM_output_literal "(Xmax: [format "%.3f" $machine_limits(0,1)]) (Xmin: [format "%.3f" $machine_limits(0,0)])"8 Y" ?7 g! F+ P, `) F
MOM_output_literal "(Ymax: [format "%.3f" $machine_limits(1,1)]) (Ymin: [format "%.3f" $machine_limits(1,0)])"
$ s3 l- |" l/ R' {3 c8 Z' BMOM_output_literal "(Zmax: [format "%.3f" $machine_limits(2,1)]) (Zmin: [format2 V+ [; U. ~4 ?0 G5 d
8 A# G3 X; s1 ?/ a9 w
: B. b+ A: c* k" T: M7 R
2 F+ e3 h7 p% E2 P* e
2 y) Z# m' y9 ?3 [4 T) F6 x9 d, Z5 f
|
|