|
global mom_pos machine_limits
8 Q/ s" F- K9 U! o$ C+ M; S4 L. [! S
( M. O) s5 f* ^9 m: Dif { ![info exists machine_limits] } {
1 ?; U7 q, I' c. C3 s for {set q 0} {$q<3} {incr q} {
( N- h! J5 t0 |2 j% f+ i/ b9 X" l set machine_limits($q,0) $mom_pos($q)! b% \$ d" o- z* z/ P7 O0 K
set machine_limits($q,1) $mom_pos($q)
7 G! Y9 i) K5 e2 G }
$ [8 t# l: `8 c& ~2 \! @# { }
5 V( G6 r8 i' {% g+ l( s+ |
/ h# I7 \6 J" S for {set q 0} {$q<3} {incr q} {: @4 a$ J4 s! P% ^
if { $mom_pos($q) < $machine_limits($q,0)} {. d! u0 f h Q" c; c
set machine_limits($q,0) $mom_pos($q)# k" _6 k; F# V- C2 y( E
}- F: K9 ] U/ \) i5 w7 a) v: D
if { $mom_pos($q) > $machine_limits($q,1)} {1 R! R* H' g0 K
set machine_limits($q,1) $mom_pos($q)2 h/ H, u; f; w. ^# ^
}! c( E7 R9 p- h1 O0 t+ i
}
' J- P0 X3 s5 q1 C3 J. l- @) R+ y S+ ^4 ?" i
. ^: f; W# l" V# a( _- S
/ ]. N8 G {/ S( V, r9 R" Z" \6 V
global mom_pos machine_limits- w7 L) B2 i. I! C; y% W
, K& Y1 k: p% `0 { p2 o% G
g; \3 V5 p) z2 q' B! _% @* VMOM_output_literal "(Xmax: [format "%.3f" $machine_limits(0,1)]) (Xmin: [format "%.3f" $machine_limits(0,0)])"
" B/ s. s( Z' YMOM_output_literal "(Ymax: [format "%.3f" $machine_limits(1,1)]) (Ymin: [format "%.3f" $machine_limits(1,0)])"; x) h, R/ {7 [- Y4 h4 Z. e
MOM_output_literal "(Zmax: [format "%.3f" $machine_limits(2,1)]) (Zmin: [format
0 w& x A% ^0 {* d' [3 l( y$ D; F$ r7 i* w
. b6 N: d+ f/ g: ~! X2 U, a
* l) |: ~! q4 E
, }. E( Z7 v8 _7 p& J: L3 Z" I9 c% l+ {( Z7 X1 n3 [+ `- K! p! X
|
|