Stata编程(讨论4)

sungmoo 发表于 2010-2-1 12:47

eblog 发表于 2010-2-1 12:09 qui cap assert sqrt(abs(`x'))!=.

只用abs()即可。

（missing value(.)不算numeric）

sungmoo 发表于 2010-2-1 12:15

arlionn 发表于 2010-2-1 11:26 这个可以用
local type: type `1'
if "`type'" != "numeric"{
  ……
}
这样的语句控制一下。

loc macro: type后面须接变量名吧？

经查验，的确如此，此前考虑欠妥。

eblog 发表于 2010-2-1 12:09 以下代码应该可以比较方便的控制参数为numeric：
  syntax anything
  foreach x in `anything' {
    qui cap assert sqrt(abs(`x'))!=.
    if _rc {
      di as text _n "The input " as result "`x'" as text " not be numeric! try again please! "
      exit
    }
  }

*单纯检验`anything'是否只包含实数与空格：
……
syntax anything
loc x=subinstr("`anything'"," ",",",.)
cap as max(`x')<.
if _rc{
  di as error "Only real numbers can be input"
  exit
}
……

看不懂啊，哥们

sungmoo 发表于 2010-2-1 18:28

eblog 发表于 2010-2-1 12:09 以下代码应该可以比较方便的控制参数为numeric：
  syntax anything
  foreach x in `anything' {
    qui cap assert sqrt(abs(`x'))!=.
    if _rc {
      di as text _n "The input " as result "`x'" as text " not be numeric! try again please! "
      exit
    }
  }

*单纯检验`anything'是否只包含实数与空格：
……
syntax anything
loc x=subinstr("`anything'"," ",",",.)
cap as max(`x')

不光是abs()，max()，其它的大多数 math functions 都可以达到相同的效果

eblog 发表于 2010-2-1 18:45 不光是abs()，max()，其它的大多数 math functions 都可以达到相同的效果

用max()是为了把`anything'放到一个函数里。

sungmoo 发表于 2010-2-1 18:52

eblog 发表于 2010-2-1 18:45 不光是abs()，max()，其它的大多数 math functions 都可以达到相同的效果

用max()是为了把`anything'放到一个函数里。

是的，因为non-numeric型字符无法应用math functions计算，而numeric型字符可以，所以capture的_rc会有所不同
如果可以直接像这样定义就好了：syntax anything(min=2 max=2 numeric)

优势技术贴呀

学到不少东西，谢谢

ruclaolan 发表于 2010-2-1 23:13
学到不少东西，谢谢

多参与讨论，共同进步！