|
global mom_pos machine_limits" ?) m/ a4 T- K4 l s
$ Q( P( F6 P; \# ?9 g1 ]) E$ M
if { ![info exists machine_limits] } {5 [% C& S9 q9 T4 f. G/ @$ K7 |7 J
for {set q 0} {$q<3} {incr q} {4 \" E$ v7 [1 [. i) F
set machine_limits($q,0) $mom_pos($q)+ q+ R. c) l8 Z' ]* l9 [) {
set machine_limits($q,1) $mom_pos($q)
3 e! T/ i4 h- B' s. e, E }! V" G/ Y T# |
}! r8 k0 C# G7 R3 b% t3 Y, l5 q' K
4 _5 e& Y& X& k! X( t- d2 r0 f
for {set q 0} {$q<3} {incr q} {: G7 V7 k& Z* S C u( K1 H! B
if { $mom_pos($q) < $machine_limits($q,0)} {+ x# N+ M2 z$ c! C* j; Q
set machine_limits($q,0) $mom_pos($q)
1 k, M$ \/ p4 m5 U; ^1 E }+ G* R3 h0 K0 d; O" ~6 Q
if { $mom_pos($q) > $machine_limits($q,1)} {
; T2 u# j, E+ [: T6 C/ W set machine_limits($q,1) $mom_pos($q)$ x7 M% ], k* ~0 v" D* I F
}5 x) d3 s) a2 h# \3 o& M
}' ~$ w X5 ?! x9 B. y5 ?- g
; V2 e6 N7 j, a4 i2 B& K) D
" d2 e! G! Y1 W/ G a9 E* E/ {9 @ a* R9 y: G
global mom_pos machine_limits
/ G& C, j* c6 Z! W9 }# l' r2 C# l+ k
% K. a: ^! ~5 o/ O5 `+ z
MOM_output_literal "(Xmax: [format "%.3f" $machine_limits(0,1)]) (Xmin: [format "%.3f" $machine_limits(0,0)])"
3 U( p4 }2 v0 [! q5 f9 ZMOM_output_literal "(Ymax: [format "%.3f" $machine_limits(1,1)]) (Ymin: [format "%.3f" $machine_limits(1,0)])"* }/ \ y' D8 _/ `
MOM_output_literal "(Zmax: [format "%.3f" $machine_limits(2,1)]) (Zmin: [format
6 P; i) f8 ^6 ?( p3 D! W9 |1 _" y0 Y% {. f, V. |& I
4 d; C m1 q7 j" y9 U
$ c$ _9 v& u1 }
: w3 S: w) G& Y5 `3 g- D; P' ]. e( V# O( b6 c- [: x/ D$ l: u
|
|