Rev 12533 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!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)
accent=!deaccent $(replygood$i)
!if $accent!=$(replygood$i)
!changeto anstype/atext
!endif
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