Subversion Repositories wimsdev

Rev

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