Commit | Line | Data |
---|---|---|
319e4241 | 1 | pload XDE |
2 | ||
355c1551 | 3 | set subgroup xde |
4 | ||
e54706ed | 5 | proc GetPercent {Value GoodValue} { |
6 | set Percent 0. | |
7 | if {${GoodValue} != 0.} { | |
8 | set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.] | |
9 | } elseif {${Value} != 0.} { | |
10 | set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.] | |
11 | } else { | |
12 | set Percent 0. | |
13 | } | |
14 | return ${Percent} | |
15 | } |