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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
!!for the documentation
option:absolute comma nolegend nospace symbols=" "
!reset test_comma
!if comma iswordof $(replyoption$i)
!if , isin $(reply$i)
test_comma=yes
reply$i=!replace internal , by . in $(reply$i)
replyGood$i=!replace internal . by , in $(replygood$i)
!endif
!endif
!default replyGood$i=$(replygood$i)
!if nospace iswordof $(replyoption$i)
reply$i=!nospace $(reply$i)
!endif
reply$i=!rawmath $(reply$i)
reply$i=!trim $(reply$i)
parleft=(
dd=$(reply$i)
c=!char 1 of $dd
!if $c=+ or $c=-
dd=!char 2 to -1 of $dd
!endif
!if $computeanswer!=yes and \
( + isin $dd or - isin $dd or * isin $dd or ^ isin $dd \
or $parleft isin $dd or ( . isin $dd and / isin $dd ) )
test=NaN nocompute
!exit
!else
test=$[$(reply$i)]
!endif
m_reply$i=$(reply$i)
!if $test_comma=yes
m_reply$i=!replace internal . by , in $(m_reply$i)
reply_$i= $(m_reply$i)
!endif
!if $wims_read_parm=nocompare
!exit
!endif
good=$[$(replygood$i)]
!if NaN isin $good or Inf isin $good
Test=bad $i
!exit
!endif
!if NaN isin $test
!exit
!endif
!default precision=1000
tot=$[max(abs($test)+abs($good),1/$precision)]
diff=$[abs($test-($good))]
!if NaN isin $tot $diff or Inf isin $tot $diff
test=NaN
!exit
!endif
!if absolute iswordof $(replyoption$i)
!if $diff < 1/$precision
diareply$i=good
!advance freegot
!else
!if $diff < 10/$precision
!advance precgood
precreply$i=yes
!endif
diareply$i=bad
!endif
!else
!if $precision*$diff<=$tot
diareply$i=good
!advance freegot
!else
!if sqrt($precision)*$diff<=$tot
!advance precgood
precreply$i=yes
!endif
diareply$i=bad
!endif
!endif
|
