Commit | Line | Data |
---|---|---|
1bf23e5b | 1 | puts "=======" |
2 | puts "OCC31697 - Expr_GeneralExpression::Derivative does not seem to work" | |
3 | puts "=======" | |
4 | puts "" | |
5 | ||
6 | ||
7 | pload QAcommands | |
8 | ||
9 | set exp Exp(2*Sin(x^2)) | |
10 | set var x | |
11 | set list [OCC31697 $exp $var] | |
12 | ||
13 | set we_have [lindex $list 10] | |
14 | puts "we_have = $we_have" | |
15 | ||
16 | set must_be "Exp(2*Sin(x^2))*Cos(x^2)*x*4" | |
17 | puts "must_be = $must_be" | |
18 | ||
19 | ||
20 | if {[string compare $we_have $must_be] == 0} { | |
21 | puts "OCC31697 OK" | |
22 | } else { | |
23 | puts "OCC31697 Faulty" | |
24 | } | |
25 |