Changeset 1227 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 7, 2012 4:44:51 PM (8 years ago)
Author:
toby
Message:

fixes for anom and fourier GUIs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    r1225 r1227  
    20532053    }
    20542054    return 1
     2055}
     2056
     2057proc add_anomff {histlist type {fp 0} {fpp 0}} {
     2058    global expgui
     2059    foreach hist $histlist {
     2060        if {$hist < 10} {
     2061            set key "HST  $hist"
     2062        } else {
     2063            set key "HST $hist"
     2064        }
     2065        if ![validreal fp 10 3] {return 0}
     2066        if ![validreal fpp 10 3] {return 0}
     2067        foreach i {1 2 3 4 5 6 7 8 9} {
     2068            if {![existsexp "${key}FFANS$i"]} {
     2069                makeexprec "${key}FFANS$i"
     2070                setexp "${key}FFANS$i" [string trim $type] 3 8
     2071                setexp "${key}FFANS$i" $fp 11 10
     2072                setexp "${key}FFANS$i" $fpp 21 10
     2073                setexp "${key}FFANS$i" "NN" 34 2
     2074                return 1
     2075            }
     2076        }
     2077        return 0
     2078    }
    20552079}
    20562080
Note: See TracChangeset for help on using the changeset viewer.