23 lines
500 B
Tcl
23 lines
500 B
Tcl
opti clear
|
|
opti countmode monitor
|
|
opti preset 1000
|
|
opti threshold 30
|
|
opti addvar om .1 25 .10
|
|
opti addvar stt .20 25 .25
|
|
opti addvar ch 1.0 20 1.
|
|
opti run
|
|
set txt [om]
|
|
set l [split $txt =]
|
|
set tom [lindex $l 1]
|
|
set txt [stt]
|
|
set l [split $txt =]
|
|
set tstt [lindex $l 1]
|
|
set txt [ch]
|
|
set l [split $txt =]
|
|
set tch [lindex $l 1]
|
|
set txt [ph]
|
|
set l [split $txt =]
|
|
set tph [lindex $l 1]
|
|
ClientPut "Two-Theta Omega Chi Phi"
|
|
ClientPut [format "%-10.2f%-10.2f%-10.2f%-10.2f" $tstt $tom $tch $tph]
|