|
global mom_pos machine_limits
. U6 O# k2 O7 x
3 V+ v* O M/ {% A) uif { ![info exists machine_limits] } {! M1 @$ x4 t3 a1 o: Z! |: H
for {set q 0} {$q<3} {incr q} {
2 G' M* U4 A2 V7 G7 B set machine_limits($q,0) $mom_pos($q)' @( {: t; k2 m; i x
set machine_limits($q,1) $mom_pos($q)
! j. j9 g% C; ~* e! k }
9 `( j, n7 C4 z' Z5 _8 I. R }
/ C, W9 B- P( F9 Y1 X
4 c! m4 A6 G$ y& M for {set q 0} {$q<3} {incr q} {
9 B3 f) M& X, J! f/ l if { $mom_pos($q) < $machine_limits($q,0)} {
, ?" p- r, N/ l4 w set machine_limits($q,0) $mom_pos($q)
2 E \6 l' ]2 X; _ }2 B- I4 h, z' a& R2 R6 L: V) O
if { $mom_pos($q) > $machine_limits($q,1)} {
- K/ M r- D, i; ` set machine_limits($q,1) $mom_pos($q) L9 d& d! z! W; [5 G: k2 Z; S) t
}
! C9 m( W3 V% R' i2 ?4 [ }- J! U! ?" @6 L' _- j
- Q9 _9 n0 T1 k5 C
. ]2 B# O2 _3 R, F6 G# `7 H. g' g$ b' o2 s/ v' c% w+ |' @
global mom_pos machine_limits
! ]1 a; b. ?! v- M4 m
! W! z: ^# s9 W# V* G/ C
% _8 M! }0 b- ?. @4 `9 p R1 IMOM_output_literal "(Xmax: [format "%.3f" $machine_limits(0,1)]) (Xmin: [format "%.3f" $machine_limits(0,0)])"
B. q. \* ?4 {( tMOM_output_literal "(Ymax: [format "%.3f" $machine_limits(1,1)]) (Ymin: [format "%.3f" $machine_limits(1,0)])"+ e6 f, D3 E+ L& z k2 d$ ^. r
MOM_output_literal "(Zmax: [format "%.3f" $machine_limits(2,1)]) (Zmin: [format9 y' G5 {. n1 z* m( \( B$ L% o
9 y% H% u& }- A: V! l4 u- g/ ^3 H! b" V0 U W& ]
4 I2 h' m: n5 _# w& W
X& F; R+ N6 B" l, S# o4 u
7 `7 x0 V9 x' u: ~7 W/ ^7 Q/ h1 Y |
|