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
|
!if $wims_read_parm=nocompare
!changeto anstype/function nocompare
!endif
eq==
!if $eq isin $(replygood$i) and $wims_read_parm!=sub
!changeto anstype/equation
!endif
replygood$i=!rawmath $(replygood$i)
nn=$[$(replygood$i)]
!if NaN notin $nn
!changeto anstype/numeric
!endif
!if $wims_read_parm=sub
!changeto anstype/function
!endif
vars=!varlist nofn $(replygood$i)
varlen=0
!for v in $vars
n=!charcnt $v
varlen=$[max($n,$varlen)]
!next v
!if $varlen<=3
!changeto anstype/function
!endif
!changeto anstype/atext
|
