352ffd73 |
1 | puts "TODO OCC12345 ALL: OCC902 Faulty" |
2 | |
3 | puts "=======" |
4 | puts "OCC902" |
5 | puts "=======" |
6 | puts "" |
7 | ############### |
8 | ## bad derivative |
9 | ############### |
10 | |
11 | pload QAcommands |
12 | |
13 | set arg 5 |
14 | set list [OCC902 $arg] |
15 | |
16 | set we_have [lindex $list 8] |
17 | puts "we_have = $we_have" |
18 | |
19 | set must_be_1 "Exp($arg)*$arg" |
20 | puts "must_be_1 = $must_be_1" |
21 | set must_be_2 "$arg*Exp($arg)" |
22 | puts "must_be_2 = $must_be_2" |
23 | |
24 | if {[string compare $we_have $must_be_1] == 0} { |
25 | puts "OCC902 OK" |
26 | } else { |
27 | if { [string compare $we_have $must_be_2] == 0} { |
28 | puts "OCC902 OK" |
29 | } else { |
30 | puts "OCC902 Faulty" |
31 | } |
32 | } |
33 | |