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