|
global mom_pos machine_limits
; m4 E; l* b, t# q% W/ _0 t! C4 P; O; F' ~1 e5 ^' x" l
if { ![info exists machine_limits] } {
& r3 j7 s$ B6 ^* M. g1 _( d for {set q 0} {$q<3} {incr q} {
& _# ^- J5 Z5 O$ U1 @ set machine_limits($q,0) $mom_pos($q)0 C& j( I/ X! n; G5 h! r! D
set machine_limits($q,1) $mom_pos($q)
6 N0 d. Y2 ^ D }' A I5 `1 K# k6 R/ { d
}$ C5 V, F# _" s' L9 Y
/ j- b x' z3 p t
for {set q 0} {$q<3} {incr q} {% u# n* d' Z9 t6 N
if { $mom_pos($q) < $machine_limits($q,0)} {! T% y% O' F7 A; i
set machine_limits($q,0) $mom_pos($q)
7 B2 N' I9 n3 K+ F, ^ }+ S) q9 R; h, @ I5 [
if { $mom_pos($q) > $machine_limits($q,1)} {
( V+ O4 c7 C$ {0 c' s( k, I/ f set machine_limits($q,1) $mom_pos($q)
6 ^. H5 W* g7 l5 n0 a }, g$ o6 K0 p# y0 |% L+ ?# C1 R' T. s% |
}9 T7 k$ }( a$ [- y& C
( Z2 H1 \5 Y6 b' @3 f3 {2 C4 d) X& i0 g8 F! c" i1 V6 u/ ]1 k# h3 m
3 y. f: C! w# \( x$ I6 gglobal mom_pos machine_limits
2 `. B" f; t. y5 N# [7 _: ~% b$ s% W0 ~+ G' q$ G
5 t; d& a% W! DMOM_output_literal "(Xmax: [format "%.3f" $machine_limits(0,1)]) (Xmin: [format "%.3f" $machine_limits(0,0)])"
4 P' a9 W0 `$ n1 RMOM_output_literal "(Ymax: [format "%.3f" $machine_limits(1,1)]) (Ymin: [format "%.3f" $machine_limits(1,0)])"
) D: \7 S$ `0 }. c4 t: tMOM_output_literal "(Zmax: [format "%.3f" $machine_limits(2,1)]) (Zmin: [format
4 e7 l4 a8 o4 y0 a5 Y7 }) I% d$ K) A5 C0 p) g
# U& n9 b4 Y+ S5 O
4 A/ `2 @. H: a% S& z8 ?' L, {3 o$ k3 h
- ?9 S' b3 a9 M* ~- l0 c- n6 N" Y6 z |
|