爱吱声

标题: 一个用stata 计算股票成本的小程序 [打印本页]

作者: awer    时间: 2011-8-13 18:03
标题: 一个用stata 计算股票成本的小程序
本帖最后由 awer 于 2011-8-13 20:49 编辑
9 w5 b; ?1 r$ c+ T) Y9 ]/ D) s! @  |$ Z$ Q9 V7 H6 q
   我是从西西河一直追虎大追到爱坛来的,虎大曾用stata 分析过股票的长期成本和一年的短期成本,但是直接用kdensity命令无法得出筹码峰的具体数值,因此我写了一个小程序来计算股票的筹码峰值、长期平均成本和短期平均成本。下面就给出具体实现方法。
计算之前需要有
1 招商证券系统(通达信其它客户端也行,功能都差不多)
2 Stata软件 (我用的版本是Stata/SE 11.0
然后
1.新建一个文件夹储存股票数据,比如:
e:\stock\source
2. 股票数据导出
a 进入招商证券, 系统-盘后数据下载,更新数据
b快捷键“34”进行数据导出, 在弹出窗口选择
* K5 E+ j: G- a3 A
高级导出”,
在高级导出窗口选择日线导出”,
将导出目录选择为你新建的储存股票数据文件夹的目录(e:\stock\source! 切记切记
文件名 XXXXXX.TXT
勾选  数据精确复权
添加品种中选择想要导出的品种
开始导出
3下载 stata, 将本贴附件中的hello. do文件copystata根目录下
Stata中的 Do file editor 打开hello.do 文件, 确保hello.do 文件中 e:\stock\source 和你保存股票数据的文件夹目录一致
现在就可以计算了,以露天煤业(002128)为例
Stata 输入如下命令
do hello
hello 002128
1 Z6 Q: J% X+ \: T8 @4 k

5 J; c& J0 S, q1 f/ Z6 L(002128
为你想查询的任意一只股票的代码)
几秒钟之后应该会出现下面一张图
. s; F' P1 ?- W1 w2 ]& ]. {: R
hello.do (5.25 KB, 下载次数: 13272) 其中蓝线为股票上市交易以来的平均成本值(注意!此值没有去掉一级市场发行和国家的0成本)
红线为一年内交易的平均成本值
黑实线和虚线为一年平均成本值附近两个筹码峰的值
黑方框代表的事20内每天股票的收盘价格
红方框代表股票最新收盘价
山寨完毕, 收工!!

作者: 明月回春    时间: 2011-8-13 20:17
本帖最后由 明月回春 于 2011-8-13 20:19 编辑 - S9 @; H9 B9 d+ i3 {6 u
- V  v5 |  q) S  _- i
程序写的不错.
' b; z7 j3 h; [* a5 I不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理.虎大买的是Thomas One Bank." A3 ~5 }& I7 f
还有就是虎大除了用了kde,还有摘要功能,你可以看看这个也是山寨, b$ s' k: a5 p/ T. u4 N8 d5 n/ Z! g

* H3 ~% S0 h9 Y
作者: awer    时间: 2011-8-13 20:20
这点我也注意到了,所以我用 成交额/复权后的价格  作为成交量 用于权重计算
作者: wenty    时间: 2011-10-19 14:32
多谢,挺好用的。
' Z" i, K0 r- P& ?( j通达信似乎无成交额一栏。导出的txt文件要删掉header,否则stata当数据为string了。
7 J# U1 c' I$ f5 P- y  f
作者: 旅途愉快    时间: 2011-10-19 15:40
本帖最后由 旅途愉快 于 2011-10-19 17:44 编辑 ( J& V7 o8 ?7 m1 W, z, S

  G3 ~# p. Z  I/ N/ k没太看懂。。。# E! a: ~1 g2 Z; ~( P

- i  q* O0 N" C2 u9 {  T露天煤业最近20天的收盘价在20块左右?
作者: 旅途愉快    时间: 2011-10-19 17:47
仔细看了看,发现原来自己理解错了~:)5 d1 k/ h$ H/ Z" `
4 m$ Z8 h" B1 ^9 }
谢谢awer。有问题再请教哈~~
作者: 旅途愉快    时间: 2011-10-19 18:09
还貌似有一个问题啊,为什么我处理2000年以前上市的股票,都会出现:
  1. 1 j; P( j% `; o( x' x1 S- F; o
  2. hello 000425' _1 N; S4 d& ?
  3. time variable takes on negative values
    9 [6 d& x& l. {
  4. r(459);. I- d! ]! R- J& O: I2 F6 o

  5. " x' l; w+ F3 U6 H

  6. / w$ E) [/ k1 n
  7. . hello 000783
    ; @, b% |8 U! ]4 I! A6 l4 |. E
  8. time variable takes on negative values" J! m) Y; C+ O. B1 o& S$ V* @
  9. r(459);
    : D9 K0 x4 _& ?- V9 ~/ {+ ]* B
复制代码
2000年之后的没问题,比如露天煤业。
作者: 冷眼看世界    时间: 2011-10-19 19:25
不错,我也来试用一下
作者: 沉默的前哨    时间: 2011-10-19 20:45
为什么老是提示:type mismatch
作者: 沉默的前哨    时间: 2011-10-19 20:49
能不能帮忙看看:
; z$ O* B: A% ]' X& _3 _
! j: T1 U, ~8 k do hello0 P4 J  O+ e0 l$ W

# ?9 L! |3 c/ e7 L.   C8 z* m4 u5 v3 @- G& O! |
. capture program drop hello2 |* \3 G3 W& _

2 L0 W. {4 W2 W$ R& A. & `) M; K7 i1 h. a2 d
. set mem 1024m( Z$ r  {5 T* Y7 ~) ^3 o) w
no; data in memory would be lost
( @3 ^2 K4 h7 A/ F. S! ~! dr(4);- M6 R/ G/ j5 V7 W* q
! R, p; [1 ?; N
end of do-file- G: A8 @9 F# E: H9 C8 I
) ~/ r  @1 t6 O4 J5 B9 H
r(4);
! m% t- e0 v% [( t7 j+ t) ~( E
  q8 h. ^/ h$ K' a- o. hello 6000633 W1 ^/ h2 M- d8 B0 k$ F. g
unrecognized command:  hello
: x9 g) j* d6 f4 d7 r: tr(199);$ @0 d1 y0 X  @' r

作者: awer    时间: 2011-10-19 22:03
沉默的前哨 发表于 2011-10-19 20:49 " x9 P3 X/ W) k5 t
能不能帮忙看看:* M* w" t5 m, b* ^$ Z( t

* @  K4 m9 h+ u0 O. t- @7 c# q do hello

; t! u6 k, S2 P/ g; h/ W! e/ {8 }你算得哪个股票?
作者: 阿雷    时间: 2011-10-20 08:52
awer 发表于 2011-10-19 22:03
, Y( W! m& L7 k/ _/ W* y你算得哪个股票?

' t2 h4 X4 {! h& S+ ^2 R7 k. U/ m那现在露天煤业可是在平均成本以下啊
作者: 沉默的前哨    时间: 2011-10-20 10:30
awer 发表于 2011-10-19 22:03 ) E- B$ o9 V' f1 n& D- g; n
你算得哪个股票?
6 j9 Y, J5 \: b/ ^5 f; h# Q
我是用通达信引出的数据,比如600663,在e:\stock\source 里的文件是以SH600663.txt存在,无法执行,后改成600663.txt还是不行,请指正!
作者: 沉默的前哨    时间: 2011-10-20 10:32
awer 发表于 2011-10-19 22:03
+ ]: D: b: ^! o你算得哪个股票?

( H& J7 r' E5 A7 qdo hello 后变成
. e" \/ f7 H9 `% E; ~) X+ J! n......
( U; F" w' K8 R) u4 \
+ p- A0 Y1 Q8 G( q$ W( U! xend
: E; u5 b3 V2 h* S& @
7 Y$ l4 [3 U3 C( ^. ; \5 M4 r, e: b& F6 @# y
end of do-file: M1 e, W( O6 _# T( A

作者: awer    时间: 2011-10-20 11:18
沉默的前哨 发表于 2011-10-20 10:32 % h  ~8 S+ x, l; n! D% v& o+ i& I& J
do hello 后变成
' n3 k& P5 w. L4 d! j, y' Y1 j" `......

) `( m1 Y2 \3 y( U0 A% X+ z
作者: awer    时间: 2011-10-20 13:32
沉默的前哨 发表于 2011-10-19 20:45   g; ?- S: R. l% G* \/ y  u
为什么老是提示:type mismatch
; J% \2 S4 N* P2 W6 A
注意 日期格式要选成  yyyy/mm/dd,要不然时间变量格式不对
作者: wenty    时间: 2011-10-20 14:16
"此值没有去掉一级市场发行和国家的0成本" 是指已包括一级市场发行和国家的0成本吗?
2 _. r/ J; E7 B( I( B! W谢谢
# m" ^* T6 ~4 s* N+ s1 }0 s
作者: 琴心三叠    时间: 2011-10-20 17:35
下方的棕色曲线是代表什么的
作者: 琴心三叠    时间: 2011-10-20 17:35
下方的棕色曲线是代表什么的
作者: maqiangcn    时间: 2011-10-20 19:13
明月回春 发表于 2011-8-13 20:17
5 _$ K: k# Z: @" a1 w8 Q! U: S6 E程序写的不错.
+ q% J+ |, D- k. `不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...
$ {+ h; p% ]; [" P) @- ~
你好,这个链接好像不对,能确认一下吗?
作者: 琴心三叠    时间: 2011-10-20 20:03
琴心三叠 发表于 2011-10-20 17:35 % N/ `2 R0 c1 W5 \$ f$ Y  Q7 V
下方的棕色曲线是代表什么的
/ m4 m) W7 s) Z" l4 e* W
两条曲线只是周期的不同吗
作者: 琴心三叠    时间: 2011-10-20 21:37
谢谢答复  还有一个问题  我导出的文件为何只有当天的数据  而不是历史全部数据呢
作者: 偶然    时间: 2011-10-20 22:19
建议楼主给个数据格式模板
作者: awer    时间: 2011-10-21 10:05
琴心三叠 发表于 2011-10-20 21:37   n  N& F' x$ v3 O
谢谢答复  还有一个问题  我导出的文件为何只有当天的数据  而不是历史全部数据呢 ...

6 N& k2 L# Y. u' E- F有很多问题是数据不全造成的
) l" l/ `9 o( ]6 j如果想要全部数据,
* x5 Y% y0 M( v$ @系统--盘后数据下载--日线数据--日线和实时行情数据3 d; c1 {4 v# y# J8 t
- y" G! B( s8 q6 W: `% \
把开始时间设成中国股市开盘的那天,下载全部数据8 h, u1 C1 q  ]& |1 E
. v! l  z" G+ `
下载完全部数据后,在屏幕上使用快捷键 34$ ^9 e2 c( j4 j! @" I; n% [2 K( a8 A2 o

( v6 I- s" j. H: T- y, B6 Y34--高级导出--
6 Q6 ^* G8 u+ B$ U& @) h" }$ x! v& v3 [8 ]( q2 N5 K+ K6 |
然后选中   日线导出;选定导出目录;文件名设为:XXXXXX.TXT;勾选精确复权;不要生成导出头部;分隔格式为tab();日期格式为YYYMMDD,然后选择添加品种
) N# A9 J) g9 W( S$ u  v
* g( B8 Q. F; p3 @+ g; B( Q1 _  e我一般都是把所有数据下载到指定目录下,然后进行hello运算
2 Z2 K# p8 d' a  a* ~- m+ Z$ P0 Y0 W

作者: 沉默的前哨    时间: 2011-10-21 12:40
awer 发表于 2011-10-20 11:18

2 r, G% g! K0 S0 n谢了!我自己还是没搞定,我再看看。
作者: 沉默的前哨    时间: 2011-10-22 12:31
搞定了,谢谢!
作者: warbrai    时间: 2011-10-22 16:38
沉默的前哨 发表于 2011-10-21 12:40
! ~, n  m# a& e/ `2 X) y: V谢了!我自己还是没搞定,我再看看。

# H0 T) J2 d- Q* Z* S1 W别选择 "导出数据头部"
作者: 沉默的前哨    时间: 2011-10-22 23:16
warbrai 发表于 2011-10-22 16:38
' r4 }1 r' ~, z  \0 t# l别选择 "导出数据头部"

! C9 T5 p% ]* S' W是的,谢谢了!现在可以了!
作者: 心静天地宽    时间: 2011-10-23 20:45
老早就想找个这样的软件和方法了,无奈见识有限,一直没有办法,感谢你的无私。
作者: 琴心三叠    时间: 2011-10-23 22:04
抱歉  我还是没明白棕色曲线的意思   黑色线代表筹码分布密度  那棕色线你说代表随价格的变化率   这我不太明白  请说详细些  不好意思  我比较愚钝
作者: 琴心三叠    时间: 2011-10-24 18:45
hello 600085! T* \/ I. v4 C9 T
unable to change to E:\fenxi+ T' @" R# I& M" y6 I& @4 N
这是什么意思?
作者: 观风望月    时间: 2011-10-24 20:32
已经下载下来用了,非常感谢热心的分享。
2 G0 E# h4 {  H因为不会使用stata,所以有个小问题想请教一下,我按照你教导的方法已经成功测试了露天煤业,兴业银行等几个股票,都成功出图,但是在计算600188.601999的时候,程序提示“
# }& P' ~8 d' l0 V* A3 ?' S4 |4 g. hello 6019998 t7 G( g5 w2 k6 E( _# i2 Z
statement out of context
% w& t5 p3 W0 ar(119);
/ v! Q0 N1 a  ^- [. D$ V0 z, O# ?: A# o) A# O( n! w. o/ M9 u& f) l& _
我查了一下Help的内容,对于这个错误也没有特别具体的解释,不知道是什么原因造成的,因为数据的导出和格式和前面几个股票都是一样的,所以我搞不太清楚到底是怎么回事。) `2 M) d3 h0 s* s3 r

1 y: E5 f. t7 w, t另外,虎大提到过的国家成本和一级市场成本加权可以通过在数据中添加一行交易数据来实现,只不过这笔交易的成交价格和成交量需要自己加权计算,对于不分红的股票来说加权计算还是比较容易实现的
作者: 本拉风    时间: 2011-10-25 15:22
横纵坐标分别表示什么,2条曲线又表示什么
作者: 钱潮滚滚    时间: 2011-10-25 16:08
发个图验证一下和大伙的结果有没有出入.
% ]$ d- H- R; R9 S& Z2 p8 t( L5 p/ d7 j7 ~
收盘价到昨天为止的三一重工:
0 {' m: Q8 @; j2 J8 |. Y- j
4 S8 [) v3 T1 K0 _% f$ ^) O/ V* n$ g3 O3 ?* r7 L8 O$ R+ V
7 t, F% I) V3 X# Y: v

作者: kevenjames    时间: 2011-10-26 14:05
就楼上这个图,几条线,还有黑点分别都是什么含义啊?
作者: wenty    时间: 2011-10-27 04:17
总结一下使用心得, f1 g8 L( N- F# ]
1)删掉set memory那一行
2 j& w* F& U* h' H3 T2)改路径" W* I0 l. v4 K6 @7 \! Z* G: n. A' z
3)从软件导出数据时,要先下载,后导出,不选导出头部。# i3 I: E" C0 i1 P; e! [$ W2 a
4)用notepad看导出的数据每列对齐没,用tab修正。
: a' o1 i' P' {* v1 T' \8 j0 q3 I希望有帮助。
作者: 沉默的前哨    时间: 2011-10-27 09:09
老祖爱蓝军 发表于 2011-10-26 22:50
( l" Y( _. S2 t) Y我出现同样问题,请问怎么搞定的?

) k. G1 p5 c& P$ v" g. p  y关键点:; A1 d' I/ `* {; H: `- _7 L
1、文件名设为:XXXXXX.TXT;
$ H9 @* ~* e  n  I' G' {0 |2、勾选精确复权;' k. y6 `# C" x; R' K
3、不要生成导出头部;
. T1 C9 f* X, J" w1 C5 ^4、日期格式为YYYMMDD;
7 c# l- J# m3 z4 [) ^% B2 t* C) s5、如果不行,建议可以关闭stata再打开试试,我认为和操作系统的版本可能也有关;
作者: 范进中举    时间: 2011-11-8 16:10
不错,按照楼主操作完,最后是选择do命定,选hello文件,然后hello 代码就行。/ P, }  H5 x# o% A7 d5 P
几个问题
# `6 r# j! W. v' U. V7 x& E5 Q
  L; v0 H+ f" K6 _) n最边上的蓝色的4.473554是什么意思,红点13.84054是最近20天平均价?灰点15.3842,黄点19.09930是什么意思?
作者: 范进中举    时间: 2011-11-8 16:12
钱潮滚滚 发表于 2011-10-25 16:08 * O  C; |6 h* q/ Q' e
发个图验证一下和大伙的结果有没有出入.
: k! R% Q; U1 U! ]1 d4 Y7 o6 F4 O: n" n
收盘价到昨天为止的三一重工:

5 d& L; i$ G0 i/ O- T蓝色线上的8.520041是啥?红点13.85195是啥?灰点15.40402是啥?黄点19.09793是啥?
作者: maodeng    时间: 2011-11-9 21:47

& Y1 u1 t2 M/ s! O  T# h& i$ ]* W7 u. \/ [$ k
大牛,小生这厢有礼了,啥也不懂,照着葫芦画瓢,我的数据应该是更新到11月9号的,图形如下,不知道对不对
* I1 s8 r1 b+ z5 ]' [; d6 t+ x
+ q1 ?8 v  [7 s! R* _2 n
2 P  p1 E% H7 @" z! N) j- q: U
作者: maodeng    时间: 2011-11-10 19:58
wenty 发表于 2011-10-27 04:17 8 F$ t5 I1 c( g% a" `+ p) b
总结一下使用心得! z! r/ I4 z7 e$ L& C4 y! X
1)删掉set memory那一行6 O( {% Z* B1 W! s1 [
2)改路径
! j9 J) M7 m9 W7 C" U8 M: s/ s6 I
记事本打开后,怎么用tab
作者: 冰火    时间: 2011-11-10 22:44
认真学习
作者: higer    时间: 2011-12-9 22:34
我也曾尝试过使用stata软件对股票平均成本进行分析,但是作为一个非专业的炒股人员,而且日常还有工作的人而言,这种方法似乎显得太专业,而且操作难度极大,不一定实用。1 }8 X9 E& _# ?6 @" ?  H
  c; [2 s5 ]! ]7 H: k' Z, i6 q
使用这种专业的技术分析方法容易造成这么一种现象:大家都对导出的光滑漂亮的图像感觉良好,然而在股市中依然无法进退自如。
作者: jway315    时间: 2012-3-24 20:12
谢谢楼主,希望继续给同学们挖宝哈!
作者: awer    时间: 2012-3-28 18:06
改了一下,这次运算应该没啥问题了. ?2 }5 A0 @) `! l, D0 y

* k$ k% v( o# c' p2 ]% q' L
' Q/ [/ g2 L; m2 Q* p3 {% ]4 W& _capture program drop hello1 V: k/ P  X. @3 s4 V

4 U; U; J& _2 s: a- \program hello9 R( h: m( Q. i2 E
; f' F- o! j( N6 X
quietly {* r1 j3 ~& I& `  E2 f. E* m

# z* ~) N% s: Z7 g. x( b1 zclear
! B( ?8 _* _) ^* M  T/ `# a5 ]' H
' j7 u, \* ~7 j: t7 H- e4 S; c8 f% Pcd e:\finance\stock\20110101\source
+ ?+ v( h% Q( B3 G
: ]. @5 \( w7 }' V5 v7 C0 binsheet using `1'.txt
0 I) M5 U) l5 |9 P
+ L& F! v' i0 F, i5 R. P$ h2 h: L   keep if v5>0
; G* Z# o4 w% @$ H6 s# N+ j    . a7 c4 _, V% O, z! x" O
   gen vt=_n, u- i1 Y& Z, a+ M, P1 ?: Q/ }) u
   
/ y  {7 o; R  p  V& l: K   tsset vt
/ H. y5 Q0 h/ m
: }, H' }5 ?$ r- A* [# [   gen zf=D1.v5
5 ~* A9 o: ^# p
( Z; ^) z( X0 J  R$ I6 v   gsort -v1( r4 V9 X2 p3 J8 r5 L. ?  i- l$ e
! h, p. c! J/ B. ~. m& w; ?. g
   gen avol=v7/v54 n! ?1 L6 u/ X! [2 Q! u
     r7 R) H0 i& o; K! A
   keep if avol>0
# d* w, J3 `/ R% k" C   
8 A  A# o8 U8 M/ x/ V   drop vt
# a& Q$ w" I( V- C: e; i  
: p& z  Q& p0 }9 \2 R; L6 [   gen vt=_n3 B0 U  j' C# j& Q* `# u2 R
   % d8 ~& L$ K3 x) h" G
   tsset vt4 j" F. o; V  S* M9 @/ `, z" G
   
- ~9 t. A# s% G7 Z& Q( ?    sum v5 [aw =avol]
7 o" ^& q  {4 O+ ~0 x# d
, O2 u5 J3 z3 q7 y) [  E/ a9 @% L" N" ^# p   gen amean=r(mean) in 1" m0 D: e. u& e4 L- a" u* P& y7 j
   
& q2 x. h% }+ z& w* U$ g) c1 [# J( E   * 总加权平均值 amean- i6 Q* L$ ?- n) V* X4 [% o0 i3 B
   
( v9 M( D5 \% @3 A6 ^   
/ j( l" R; G; q# j% ^) i   keep in 1/240
% G2 {9 ]  K& D& j
/ c0 s3 o; B3 m" l' }   sum v5 [aw =avol]
' I! w9 o0 i; r1 q
9 {/ }& T: w) c4 @% a: ^- l. F& O   gen mean240=r(mean) in 1
; v8 ?9 \) ^& u- D0 J3 V4 F   
/ v# D% e( G% \' E; o9 L   *240加权平均值 mean240% x! x# ^1 h0 P; v
   - y( H" I0 @- {1 E
   set obs 500 6 ~! b7 X' o/ f$ w) V! V8 h$ V
   
5 @  N7 t- w3 N% t- Q3 ]! L* L# x   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph
6 j% C$ x  D6 ?! \   * J% |( c$ T% e0 M
   *240 kdensity(dx240 dy240)
8 c, q/ ^8 P* f3 O5 S6 k3 }3 R# a# b" X   , h6 x0 h2 e9 f5 q7 I
   sum dy2409 B$ t: K4 h$ i: y5 U
   , T6 ?; @2 p/ G% p8 F& R
   gen yxis=r(max) in 1' A+ e  @+ w% `; g; s
   
" ~' [5 E0 Q" t% [4 g) {   gen yxis2=yxis/2
& V# ?, [, n! E$ W/ c   9 ^" [: G% ]9 P; Z2 `
   *yxis
4 l& W6 X, Z/ u# L     \# _3 f7 M6 E+ S) ?0 l
   gen dy240max=r(max)
  ^0 T5 u) O& e4 K   ) |2 i8 v5 b5 ]# e0 M8 L
   gen dy240minp=r(min)3 \4 S) o, m; @0 X# M0 W

+ U1 o6 M4 J8 c# t/ E    gen vtt=_n" ~+ I5 j1 k) L4 W
. G& Z& F: M( N/ t$ @/ s$ Q, L
    tsset vtt% L% I+ h5 T) L9 h* v- q

7 I( s9 |3 C, y   gen ddy240=D1.dy240/D1.dx240
, o  [7 V8 f% X- m4 }+ |% E   1 m1 i: g# B" v
   sum ddy240& Q  I* t# m" g" B" T( a2 o
   / d8 E' _6 [/ s" m( a
   gen ddy240max=r(max)" s3 w+ ~2 T% |" Z8 K, m7 M
   0 F/ l$ @# Z, o
   gen ddy240min=r(min)
3 [$ O. Q7 u1 T( l% W$ t     
. G" I' C% ~8 Q   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min)
9 c& X. F3 \4 j' K   1 _$ ]" W: {5 U: w. c! v& b
   sum ddy240g
  V" P  {- y! o   
2 J+ H' C# f. Z: O/ A5 l   gen yxis3=r(min) in 1
  \2 V' d; g9 \/ q8 W! z  c3 V   . X2 s  U  V4 P0 y) h# B' D/ C
   gen yxis4=0 in 1
! \5 z, Z& O3 R# _2 g  # J: _4 g) A9 y6 u# k$ M# K" b4 f
  *ddy240g 2 B3 n7 f: D& h: w, e- X% B
   
7 v: r: l" p/ s& m: \2 a; j0 j   
" z: H# F9 b( ~  preserve 0 s' w3 r6 C6 |- v/ I
  
+ r, Q. d% v- o( ^7 z$ [1 ]  sum v5 [aw =avol]
2 P& O- y7 F( Z  
' {4 h# M( S! D# }- S6 ]8 s  keep if dx240<r(mean)
4 E* ~5 R, A$ K4 V0 e  
: z; l% }* k% W5 y# D* Y" g7 @+ x  sum ddy240
( J7 R* O) {: j! w5 ~  
" W% e6 ]0 N$ O( ]* x  if r(min)<0 {
) v% _% c& D6 `. q; N0 w+ k        
9 H- [( ~; t/ e' [) z  d                keep if ddy240<=0
2 ?/ S/ K- G7 E; e; X               
8 y3 J8 I' u/ w; Z                count
' }' E" {' N' ?               
' A* ]# @4 L6 a2 u2 L4 E                if r(N)>2 {. c+ f& m5 }8 m  ^) }! i; Z$ f9 |
                 
1 x  @2 `. d! c8 p! [                 pkexamine dx240 dy240
3 R4 ^" n' u* g% K/ Y; o                3 _1 \6 U* X# u- u" N8 Z
                local tempminp=r(tomc)
1 P& {! _# C) k- J9 h7 K; J. P                restore " h1 V, y! v+ Z
                 }
- H  w1 D. |; {" B                 
! U$ p; m0 H3 r$ x$ c        else {
1 k$ j+ m  }, K3 ^+ U7 R4 ~                7 V7 k* e* l) I$ I" i4 J3 K4 d
                 di "cannot find minp"
4 J4 d1 y( P; F9 u9 c# H4 m9 u                 3 j1 }/ a# Y- `% ?
                restore
, M$ f8 t) {) D6 K( U1 G) R9 |                 sum dx240
8 `4 |% y, }7 U+ X0 W                 local tempminp=r(mean)
+ A! ?' a' c, a" \                 + q  X/ m& L. w. Q
                 }$ T8 v. I" g: Y3 u. f) ^* y: @( \! m
                }
4 ]# V# [; E* G. b4 d9 Z# q8 ]   else {$ d& p+ \8 I$ Q" C) A5 d( g. _5 b
                 5 V4 W# c, A+ V. ~! n
                 keep if ddy240<=r(min)
1 y" u3 K! K6 h) C: `8 ^                 
6 g9 e# V% v6 [/ I$ O                 sum dx240" ], K' q0 Q+ W- k* M
                 
7 J! K6 U  h7 @/ F4 m                 local tempminp=r(min)6 _9 Q) U2 Q9 n" u
                 restore 0 N( W! w: \! x( W" W, {
                 }% G1 I, b  x: L% |$ |
0 @5 p( ?& E" S/ y5 w! O8 O8 H

. i9 v( X, O) f# S) [) J3 w3 g
   gen minp=`tempminp' in 1
8 p: Q$ y/ m; V   *240 minp
( T0 P0 W* K4 Q, v4 b3 D- w% S1 b9 a# c6 M6 N2 _
3 A! z* |( i* j' L2 X" U# N
   9 O0 ]) V* f/ _7 a$ L( ~- L
   preserve
1 _3 M' r/ z4 U: z2 s2 [) E% U7 {   
( G4 _6 J; j: Y/ a9 ~   sum v5 [aw =avol]
8 L& c# f# _% H; Z   
2 F, V3 ], k8 q0 V5 K9 I8 W   keep if dx240>r(mean)! `/ R" q; M# K# L' s4 u
   6 ~/ ^* E4 l- b4 D. K$ m6 @5 ^
   sum ddy2404 T* y& R4 u3 |7 k0 J5 v) v
   ' p. o& y$ k; n1 C+ t
   if r(max)>0 {
+ J' L0 M) ^( _- }, P                , e% w/ K. S6 j( t' h% ~* k# N
                keep if ddy240>=0
; @7 D, \9 g. g* M% W  ~  B# d! [0 q               
  b2 [$ K9 ^& V9 D0 r                count8 W2 U3 C( ]! }+ \; b
                " V- k) n3 n/ b
                if r(N)>2 {# K. ~  t. J! b  U
                 
; m0 d1 w# ~/ {                 pkexamine dx240 dy240
6 O( Q" f6 R1 Y6 @' s, m( ?               
$ B( a# D* `7 `6 w* u                local tempmaxp=r(tomc)
( _% T1 j/ m& O- i4 E                restore
; R9 @4 C2 \/ K) N1 t7 u8 S                 }
2 r2 j. t4 K2 X3 @- v                 
5 P6 k( I# e" _, @+ w" |                 
5 I% O8 ?4 _: E7 ]        else {0 c* w3 O. x! Q& L3 V
                restore
) K8 f% T; L0 Y# `; Y                 di "cannot find maxp"5 ~4 z( t& K% V, q
               
# I9 R( K& F0 ?$ o" A' H; N               
0 v) b7 J3 U: l. D6 f' L                 sum dx240( u- s/ ~! T, g( [
                 local tempmaxp=r(mean)0 y7 p) r5 ^+ ?* j( ~
                 * ?5 q) Z0 E( r/ Y
                 }6 S/ k$ `- L7 x* r* ^+ g- L
                 
2 X' O5 B: N2 A- R                 }4 y) C! t& W3 P6 ^
                 
: `# ^( M1 D) v. w. ~& U    else {& q  D$ H& {2 c+ H, P/ J" K
        5 @% d& I0 q( c9 ^) s4 |
           keep if ddy240>=r(max)
9 k9 K1 a3 s* E& A9 P2 ~          
; m+ I4 Z: @7 n. c3 ?+ H           sum dx240
8 I% R, D6 \# b4 C  ?- ~          
# ^- ]: h( S% u0 Q* y* q* a  h           local tempmaxp=r(max)
& ], O) O2 t% v! W- Y           restore ; ^. i: u) i! j5 S1 J
           }% _7 ^4 R% S) f" ^+ x; \
       
, d' ]4 d" u* [6 J( v2 n  k) ?$ F6 z' j9 P8 K
  
3 V' n6 m' l5 c. U9 S' H# A9 Z4 K+ `3 H" ]% {6 n
   gen maxp=`tempmaxp' in 13 C9 O) ?" d( F- ^8 N
   
1 y+ `: K# K2 n  x; ^4 Q   *240maxp
1 n% k% F% ~; _   
: E! W& B! a0 F3 N) R& a; J   . `5 x1 r2 F; f# Y9 `
   *-------------ddy240pminp左侧高峰值-----# s% ?1 G/ o4 c  ~, [. m) N
   ' H( k' b' Z# c, O. l4 j6 g! \
    preserve
4 M. f7 A, C8 G( Y* ?+ x   
8 K4 w& T& e, m1 Q) |   keep if dx240<`tempminp'# }# G; V  R8 ~1 q% Q
   
: L, F  e1 }0 j) g- N2 s1 v6 `   keep if ddy240>00 k, k9 u6 C8 t/ ^: q9 V
   
8 U8 }  t/ c& n/ `, x   count- O9 T: O0 R* ^# r3 z
               
, U4 C, Q$ F4 {7 Q3 O4 B& z0 G$ X2 X- y                if r(N)>2 {
3 E$ P$ Z4 S4 I) n% r; Q                 
) W, D8 K7 s3 t' c  R3 w6 O$ L                pkexamine dx240 ddy240$ T! Z1 O& N. p+ `  c8 x* k
               
! \2 x8 T$ a7 ~* ]  Q                local tempminphddy240=r(tomc) ) F& T. T* V+ c: t$ J. B9 G
                restore
2 @' S' \5 `4 e/ x                 }" @! f; R4 n; J* G- w# G
                 % ]2 k) G2 j5 z! y% w
        else {+ F" }: p4 s# z- C
                restore
/ Y3 s& ~- |1 y  \                 di "cannot find pminphddy240"
  j8 {% |% G% N8 Q; H3 x9 F) Y                 
! a7 W: N* P' D5 e) t+ N# z5 V$ j/ Y1 u                - Y* n3 C( `- ~+ G6 }
                 sum dx240
( B! l! ]$ r  K/ U                 local tempminphddy240=r(mean) ; r/ `" @( e- m
               
- f: h' C9 X" c/ K                 ) C3 F9 q& ^' }2 [3 r
                 }
5 K3 V) |( c. G  Z                 
& s% r+ P' v; V9 B1 I7 ]: p   
+ J2 Y  U( ^- ]( h. x    & u* P- r  Z3 Y8 ?9 r; z
   4 D2 ~/ O# J# @
   6 Z1 k* E6 r+ W* {, `" a
   
6 A1 r2 p8 l/ m4 Y- b# u# X3 v1 C) i        gen pminphddy240=`tempminphddy240' in 1
0 ]. v1 o2 U+ y9 L' y( m; g8 }       
6 F& U( \7 c9 }7 ^       
+ x' \" d8 F+ }" b; k        *-------------ddy240pminp右侧低峰值 -----------------
1 o* Z  o! J6 T8 q, d    preserve 6 ^  ~9 S; \) y3 V* R: J

  q- T0 j$ }. y5 U. G& a   keep if dx240>`tempminp'
2 `- ]; Q/ E$ H/ s* I$ V   0 f% x. P$ p# E  u' K& z
   keep if dx240<`tempmaxp'
# X- Y+ b+ T0 \" ~: ^) V   # ?* d7 l0 m: ]% e
   keep if ddy240<0
' u- ]8 M; P# D! M, A   
" \: l( |) Y. x; W4 d5 y& d   gen temddy240=-ddy240, A: i: R  x$ D4 u. }' D
     |+ z1 L; V1 V6 g  {) n6 l
    count
  R( t4 W0 E6 f6 t" Q$ s               
  X) _; w: O% w4 R: V- b( D, X5 L: Z, S0 \                if r(N)>2 {
! }' I2 q% H  B/ H% ^; Z                 ) K3 F+ K/ ?5 v. Z0 R) m$ d
                 pkexamine dx240 temddy2407 E2 H4 T! Z4 z- x* ]+ p: T
   8 p  Y6 |, _8 K+ T& L$ i
  local tempminplddy240=r(tomc)2 ^% Z6 [/ x" m5 O
                restore. b2 m( c3 G' P5 q8 H. W* ]
                 }7 h3 s& o5 X+ a% I# K+ P
                 2 O: U! l  x  A/ |7 _
        else {/ h/ `4 j) F& h7 g( Q1 k" \
                ( y* U2 {% C9 B& u" R
                 di "cannot find pminplddy240"" R+ N1 m+ a7 \+ D5 A
                restore' R( X3 i) i; s; S1 p: T
                 3 m+ Z! n7 u4 Q: `
                  sum dx240
5 J& C3 @) W# b- d& U% v# X+ u  A  ^                 local tempminplddy240=r(mean)9 L- K* F; m9 {, ?/ U2 t& J3 F
                 5 G; G$ |) J9 j
                 
5 ^8 C# A! |! F) k9 n' k( `                 }
; N; e) G$ T$ Q$ Z   0 D6 n& j5 j% u  ?% D9 g
   
0 T5 z8 }/ G. [$ r9 I" U* M* s   2 X  e9 }  h4 J: I* E& u
   & Q! C% t$ a7 ]6 L" t: r
   + u7 w& c+ j' \& T
        gen pminplddy240=`tempminplddy240' in 1
- U6 ~. C' w1 c" {5 _3 S       
" {" `: W7 z7 H" e        *-------------ddy240pmaxp左侧高峰值 -------------------, M9 l4 A* V% `5 E- _( D0 y
        & r" m* O5 ~: g0 T$ W
         preserve % h( g. E& N) W' A: h: {: ^! ?
   
1 D4 }! A$ p: {- q1 I   keep if dx240>`tempminp'
4 M- l+ p' [. l# ?7 g. V$ H# o* e   
0 w% a9 [7 X( N6 O   keep if dx240<`tempmaxp'
: H* U; F$ I! B8 b9 a   8 t' R! i: `/ _+ D+ Q
   keep if ddy240>06 t9 c7 A% b  @* _1 c" u
   count
$ y4 O5 |# x; H; B, H                ) B$ E, Q$ H) ?3 ?4 j/ p0 c
                if r(N)>2 {' N6 A# B- S# r( I$ e+ g# S
                 
9 c+ x2 y5 C/ B  V% [8 C) M" ?                 pkexamine dx240 ddy2408 m) d0 R2 }0 A6 B
   ) X6 X! K7 g9 `  O, C  ?
   local tempmaxphddy240=r(tomc)
# r# l, \  `0 Y: k/ `  T2 ?  Q   5 e- o9 L! C: s' P& m/ e# I2 d
   restore; X1 g5 I9 _( L
                 }
+ j9 m/ i* z  ~' Y7 I                 
) N5 Z0 D! l& [  L' c5 T        else {
7 s, l3 [. Z5 k               
. G" y- m: s8 U# g5 m0 w1 I                 di "cannot find pmaxphddy240"" U" {% z; g& {5 G# {0 o
                 restore
3 D3 C; U3 h6 {5 W- Q$ A' j( h" u8 M: s                5 i% B1 Z# y- x- t8 C! _8 ^* i
                 sum dx240
$ E3 z' i* L4 u5 {* p$ v" h- d                 local tempmaxphddy240=r(mean) ( B7 [/ L- N9 n9 e( K1 E
                 
( O5 }2 U2 n8 s  h4 y# _                 ! D# {$ O: ^1 }" o( [' }! C
                 }% Z( d0 g6 m$ J! R. V
   
0 x6 \- o' b) d8 S9 W   
; v5 E- l/ P% R5 P3 Q1 }  ?   
+ y1 P$ h+ n2 v. o   $ C  U3 H0 y. n/ H" O+ _
   8 r8 G3 T  ^# L7 A' e6 \+ R
   7 N) y4 b( g1 J
        gen pmaxphddy240=`tempmaxphddy240' in 10 U* ]( ^4 V+ I) }- T
       
  [& b, K# E' L& r, b  X$ v       
6 x/ e# m4 \( _' c  F6 r        *-------------ddy240pmaxp右侧低峰值 -------------------/ F2 h8 X; `( J' \6 E0 y; y6 A
        ; N  R# o  w: _; G# W: L8 ~8 e& C
         preserve ! d7 b0 J8 m" c& [5 q% U, ^
  4 S5 k1 p0 v9 p3 ~
   keep if dx240>`tempmaxp'
: _+ \4 I1 v3 @: S3 O4 s. r2 j   # k7 l' I( s6 I0 w$ ]9 Z) X
   gen temddy240=-ddy240
+ k$ r6 d8 {5 H3 x3 m! V6 B3 ?9 X   6 e: Z, E+ u+ w4 i
   keep if temddy240>0
6 _3 z3 d9 O# E4 z8 J# ?+ K   
- G& [* s8 A; \+ B   count& M3 T* S: |0 p. ^$ h
                : a; D$ z8 {4 D% X5 E
                if r(N)>2 {
0 S0 G. }, l2 q: S8 o7 Z2 ]                 
! B& ~* l& I9 s% P$ E( R                pkexamine dx240 temddy240
" w+ {4 F+ w- N$ K, N0 A8 S5 _   
; K6 }: u* h) d! V8 z& |: n   local tempmaxplddy240=r(tomc) % A$ a+ h9 n7 _! y& V% \
   restore8 |0 O! D6 Z1 z& n8 G, V- W
                 }. [0 W  a8 ?. D4 n; j, j% t$ U
                 
1 c& U& b" I! z- r- u$ R        else {
% J3 U! ]* b6 `7 r4 D1 [6 T0 H                restore
( |: ^6 D: W! }8 i3 k( F                 di "cannot find pmaxlhddy240"
2 q2 B. x" ?! W" s$ d                 
7 k: T3 |5 q0 W2 V+ E. t               
- w  U$ X& |% {, B                           sum dx240
$ T" g, z4 Z- D8 j/ V- z# q' [                 local tempmaxplddy240=r(mean) in 1; c3 e& q5 |. e2 e9 c, s
               
, y$ w" C, u3 i/ e                 
- C# H; L# p  x$ P# }                 }$ w( {2 p" F! l4 H5 ]! n, {+ n
   , P7 q# ]" h! U
   0 U7 m# W) \: [, c6 q
    ) i+ Z* w2 `' a" i% r6 a
   
7 N0 h9 H8 W1 v1 V   
  r8 M1 C1 s$ j% ]& d+ B   
% B) f/ U* b' g2 `5 v6 M        gen pmaxplddy240=`tempmaxphddy240' in 1
% S4 x8 t0 M% g& B          R& O1 I, D  }" s* s! A. o
        *-------------------------------------
' z+ R2 c" k7 S0 S: _, F   & q" f9 c5 u  S5 `1 D
   gen price5d=v5 in 1/20
' W" q! Z: G, N8 b      
0 Z+ a# w; s  a+ Y# j; ]( p6 G   gen price5yy=_n in 1/20( _: O) h+ I" u8 k; P) H
   
- }8 g7 c& {0 a* U0 ^   gen price5y=price5yy*(dy240max-dy240min)/20
* d" E; G* l% q   
7 `3 I* O0 O/ N' j9 c$ P* q   *price5y &price5d
& ~4 s9 L- H9 e6 X   ' ~  [7 o8 e; h+ _$ X3 |  r
   gen priceny=price5y in 1: s/ b3 g, u( k2 H
   
# X0 e, r8 @1 Q+ h3 r  I& d1 G   gen pricen=v5 in 12 g# @+ {+ A1 ^; v: c! j

, l' E9 v; K; S) l+ J     
1 z. `6 ^  B$ f6 p   *priceny &pricen
! \: k$ P( J6 r& D5 y$ G   
4 `6 a9 Z) p% Z0 [   / x: B: H4 S! ?3 ?
   *-------------------------graph------------------  Y4 Z6 x) X* F9 T
  0 H+ N9 D# I" S2 _3 Y/ n
  tw(line dy240 ddy240g dx240)(spike yxis amean,lc(blue))(spike yxis mean240, lc(red))(spike yxis maxp, lp(-) lc(black))(spike yxis minp, lc(black))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean)) (scatter yxis2 mean240,lc(red) msymbol(+) mlabel(mean240) lc(red))(scatter yxis maxp,msymbol(+) mlabel(maxp) lc(black))(scatter yxis minp, msymbol(+) mlabel(minp) lc(black))(scatter yxis4 pminphddy240, msymbol(O) c(l[-]) mlabel(pminphddy240))(scatter yxis3 pminplddy240, msymbol(O) c(l[-]) mlabel(pminplddy240))(scatter yxis4 pmaxphddy240, msymbol(O) c(l[-]) mlabel(pmaxphddy240))(scatter yxis3 pmaxplddy240, msymbol(O) c(l[-]) mlabel(pmaxplddy240))(scatter price5y price5d, msymbol(O) mfc(black) mlc(black) c(l[-])) (scatter priceny pricen, msymbol(O) mfc(red) mlc(red)), title("`f'") xtitle("`1'") ytitle("density") legend(off): D% O! }* q0 L: C- L1 }2 Z/ ^% c
  d  g  ^+ H. q
* ---------可选项目----------------------/ Z) C% c4 N/ P. i
9 T: {' T. S. O% E; b% i) C, D
}3 ^9 t. u1 L7 E1 H' a
end
2 C9 S; O2 G# I9 t
作者: 旅途愉快    时间: 2012-3-28 23:23
awer 发表于 2012-3-28 18:06 % w7 ?+ g5 k3 X' }
改了一下,这次运算应该没啥问题了

8 j' w" u% v6 c: P/ ]! k这段代码是重新复制粘贴到hello.do里面的?
作者: awer    时间: 2012-3-29 11:40
旅途愉快 发表于 2012-3-28 23:23
& H6 _* _2 H5 A9 n( l这段代码是重新复制粘贴到hello.do里面的?

1 o# R5 W) c! \: T对的,就是hello里面的那个
作者: David09    时间: 2012-7-2 21:35
awer 发表于 2012-3-29 11:40
' m3 h5 Y- n, V# f& e5 B4 c对的,就是hello里面的那个
+ a" o2 e# {/ p1 |8 p: q9 |7 d
. hello 002680
  [+ s$ h: }2 \' kObs. nos. out of range
; L# I- C7 ~1 _3 C! x9 Y' _  Cr(198);7 L; E2 `; h1 B; q9 [8 j; o

! l- Y3 R. W) h6 a
) f! L# z5 p% e( H) b* A4 b0 }我运行后,出现这个,不晓得是什么错误了,请大拿们帮助
作者: qqysc    时间: 2012-7-3 12:12
David09 发表于 2012-7-2 21:35
# J% F, p2 ^. J" t, @( t" a8 U, w/ Z0 y. hello 002680
7 E$ s6 i! O0 G5 e. fObs. nos. out of range, {% J- w8 F1 u0 V6 U' _' g
r(198);
" _/ z6 `. s; F1 d
估计是导出文本格式问题。
作者: qqysc    时间: 2012-7-3 12:14
awer 发表于 2012-3-29 11:40 0 R( Y4 R( z7 N: V
对的,就是hello里面的那个
9 v. _+ n# A% `5 h. E
复制粘贴有很多乱码,请楼主把上面的代码做成附件以供下载,谢谢!
作者: David09    时间: 2012-7-3 17:13
本帖最后由 David09 于 2012-7-3 17:28 编辑 . @) t" Q7 x  ]% ~1 |* h5 I* w
qqysc 发表于 2012-7-3 12:14 9 W. P% h7 ?- J0 Z- v7 h* f
复制粘贴有很多乱码,请楼主把上面的代码做成附件以供下载,谢谢!

0 R* b+ }7 H7 a4 V% P6 V2 a8 n+ r4 O9 d. f6 H
我清除过了乱码的啊....
作者: qqysc    时间: 2012-7-3 17:56
David09 发表于 2012-7-3 17:13 ! ^8 d- i) d5 [2 t) p8 m/ D
我清除过了乱码的啊....
6 P$ v3 j1 J" N: H, b
说得不是一回事。你说的问题可以试试在 002680的文本中,把tab键补齐,导出时不要带表头
作者: David09    时间: 2012-7-3 19:45
qqysc 发表于 2012-7-3 17:56 ( y. I$ ?0 ~/ P
说得不是一回事。你说的问题可以试试在 002680的文本中,把tab键补齐,导出时不要带表头 ...

. |' v- e- s2 l  A很奇怪啊,我看stata中间的数据表,都整整齐齐的导入了成交价成交量。但是一运行就蹦出来那个错误
作者: David09    时间: 2012-7-4 14:44
搞定了,原来是我选了一个次新股的数据,样本数目太少了,引起程序的错误。
9 B0 m) M) Z& |' E# y感谢楼主给的好东东。
作者: 碧水芳洲    时间: 2012-7-13 13:40
怎么没人问曲线是什么 意思呢? density指标也不是很明白呢,谁来解释一下?
作者: benhuashu    时间: 2012-7-20 15:16
请问,这一个语句:" L) c9 w# D% \* m) Y- R6 I
gen zf=D1.v5, f7 w7 e! Q7 U; R' |% E) W
是什意思?主要是=之后的D1.v5,这个"." 是什么意思?谢谢。
作者: 海阔    时间: 2012-11-5 18:37
非常感谢;
作者: 墨轩书童    时间: 2012-11-7 11:46
本帖最后由 墨轩书童 于 2012-11-7 14:37 编辑 7 z: i  R/ }; ?  M

1 c& o+ a1 ?4 T0 n3 r7 w& \7 T  k5 v感谢楼主!!
作者: 海阔    时间: 2013-1-20 17:03
本帖最后由 海阔 于 2013-1-20 17:08 编辑 ; m. G; T% ]( q5 I" g

' M) e: Z; e2 N) o% u, c+ o按照版主的步骤操作到了最后出现
7 |+ K0 W2 u- {
' U; f8 m: r" T# r3 w1 U. hello 600031
- l( j- g$ Z9 |; r( MavolDo not found) }9 s7 J/ O, z0 s
---------------------------------------换成其他代买,也是一样;总是出现这个问题,怎么办呢?奇怪
作者: maodeng    时间: 2013-1-25 13:15
大师,那两条曲线代表什么啊/ E2 }( C  x9 X9 b3 a/ S

作者: maodeng    时间: 2013-1-25 13:15
如果我想看最近 一个月,三个月 六个月 的成本,怎么修改程序啊,谢谢大师了
作者: maodeng    时间: 2013-1-25 13:18
我用同样的方法导出数据,发现有的能生成,有的就不行,不知道问题在哪儿,比如300236就生成不了,我的邮箱是19860225gaoyuan@163.com,麻烦大师了
作者: maodeng    时间: 2013-1-28 13:13
. hello 300236
# X$ Z+ O& V6 ]7 xstatement out of context
, `; S, B" n. S( tr(119);
6 ~) e" y% U* T- W( |6 b* e( {4 `' j6 A" ?# W
大师 就是这个
作者: sergio    时间: 2013-1-28 21:11
这贴实在!
作者: awer    时间: 2013-2-5 14:40
maodeng 发表于 2013-1-28 13:13
1 S; o  y9 b  ]0 ~. hello 3002368 E3 E% o3 |: H  N0 Q; P! x  }
statement out of context/ h' e5 z% z7 C, u% @3 v1 E: G/ e
r(119);

# M- l' w% k) Y6 y) B& v; w抱歉,最近太忙了% c  b7 |3 b4 D- g& n, X
$ i' M2 P2 f: l' }7 U; I. T6 {/ o- j$ g
300236 我用下面的程序试过,没问题
/ j. ?8 u% d: a5 O* F
8 w; [" ]0 R9 I: ^- U你把 D:\stock\test\source 改成你导出的数据存放的目录,再试一试4 n& w! e; N* m3 p8 Z  D

! ~2 V) L8 F4 c: k) d$ wcapture program drop hello5 b6 k. c5 m9 P$ h) H7 h: H

# b8 }: a+ F2 l. s! E9 W. ]0 mprogram hello
* ~) N- L8 S7 |+ I1 R) ]2 F
9 L- K' D. D8 F( ?4 a quietly {# p7 m% i6 u+ {) O

2 I$ Q% o: `+ Wclear$ J; K, H4 b4 V* p9 \. T
2 M  {: [) D/ D  v" u
cd D:\stock\test\source- G3 K; \/ L8 m( o. |: @: ]
( q+ F5 {, _' W6 i2 A' A  [. u* _8 W- F
insheet using `1'.txt; M$ f. w: X. Y& m  j  T. c

1 \5 q$ D7 s  Q0 i   keep if v5>0
2 j. ^: I6 i% e1 f    # k9 x0 g/ w& Y9 G1 k+ T
   gen vt=_n
) P; y( @$ T$ [; F4 r   
2 K1 \+ {& e& I& s: p   tsset vt
+ a9 X* G8 E: T5 C
4 E$ @5 E$ }7 q! O" @3 m   gen zf=D1.v5
. X6 {( |! I* T1 s
4 w8 i* U( U8 N/ r- l( I) {   gsort -v1
2 B5 l+ \* Y- n* b- ^+ g
! d. A( C1 A' R5 z  a6 {: t  G* D5 L   gen avol=v7/v5
/ Q* M& ^4 O0 @6 t& q   
( o# [2 E5 E- _   keep if avol>0
9 L" p, i1 U; q* A0 F   
' y0 U7 N8 K+ _  b' W# U  H   drop vt/ E+ ^3 z2 I, `) I, f0 e
  
' G7 ]6 Y9 [" s   gen vt=_n
4 H7 f+ G/ }" @  R! A   
. l: G, ]. N5 M   tsset vt
+ u; q8 S! x% r$ M. S$ Q. Z/ n+ c   ) A7 j! ?8 w8 k5 j5 _& w- B' j
    sum v5 [aw =avol]
4 E- _. c4 r4 B/ r( m' H7 j5 @9 ?- v8 @
   gen amean=r(mean) in 1# ]' j0 T' ~7 ]$ K4 O+ \
   ! F& p. |3 m# Z! S1 |
   * 总加权平均值 amean
6 X% T3 p( V1 Y4 Q5 |   
! B! R! Q1 M$ w8 G( u   ; \. g1 A1 ~( }! s% A# U
   keep in 1/240
2 U, I: j4 H6 T' f, e+ x# O3 a* k
; |2 ?% c, R3 Y, N   sum v5 [aw =avol]" P/ L  |0 ]$ Y
  i4 _/ b* ~; C' ?' q, f- t
   gen mean240=r(mean) in 13 F  _/ M2 G$ C2 l6 y
   * e, @% i! }* w. _9 k: F  v8 }' y
   *240加权平均值 mean2400 N. s4 l, b, q  U, X' W3 R
   2 e* ]4 g  D) Y% o0 Y& l, f, p
   set obs 500
) W  e! F% i5 Y6 z- c9 M$ P   
& \& @- G- K3 a3 n5 `, O9 `   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph1 ]$ o+ i( f3 Q
   
8 S5 F4 A; `$ n4 Z1 ?8 P0 ^, s, I, F4 I   *240 kdensity(dx240 dy240)" u( X3 I% O2 \7 O% K
   
; x, S# L4 |+ P2 O6 K7 f4 W   sum dy240
: G- R7 T, @9 k   
* C, r/ L8 D- U* Q3 _   gen yxis=r(max) in 18 I5 x+ Z$ G5 _
   : D8 M2 f1 O( }* w9 y% X8 ~) e
   gen yxis2=yxis/2" b; Z. u) c- J; x8 M
   , P" `; m. m# @9 f, k; {: j7 M# v
   *yxis% g2 C  `, N9 |# j3 n
   # g  E- b2 j# J4 N2 l
   gen dy240max=r(max)3 S! O$ y) C7 m1 \  d" A
   
" o( C: A8 T/ m6 u4 F* Z   gen dy240minp=r(min)
9 q/ L  L, V' k6 A# w- \
+ r7 v# c- y2 S# R    gen vtt=_n
# I- M4 L2 \9 Z0 W" X1 G0 Q$ N  ]. l& P3 ^& `$ x; w
    tsset vtt
8 V  g9 X; s& s* V' N; z# B" V( {- p% [/ k# |, X3 \4 g
   gen ddy240=D1.dy240/D1.dx240
- ~6 C( A1 A. Q, j4 I+ z2 v9 x   
+ X' T& b5 w8 n  K   sum ddy2405 [# @3 E" [- D  ~  _
   6 W+ N, l5 I4 y) k; ^
   gen ddy240max=r(max)
" j( `5 F9 Y8 f: D# M   + q; v4 I9 ^0 e% _) Z. O4 ^
   gen ddy240min=r(min)
% O5 I* K$ w$ Z6 r9 ]9 M$ U2 e0 r  S     
0 S" i4 X/ Q7 g& n' d  i/ z, |   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min)
. Y2 o; z3 X; ]" d3 U+ d5 m   
- O  V% a0 w1 o' b# A   sum ddy240g
( P9 z* \# K( y9 Q   
- Q  {" @  o# D/ t* C   gen yxis3=r(min) in 11 _+ Q4 E  @" S/ s$ A3 }# v
   
( z! D5 \8 }0 p" P3 ^( B   gen yxis4=0 in 1
5 V' ~7 y3 i* N  
4 \# W, C, C  O+ J$ h* y  *ddy240g ( o; A/ F( q" h& k3 a. T1 J
   ; W9 E8 w( X* w
   5 k$ A2 Z. j# X( \' x4 q
  preserve
0 o; z4 i  V, y1 Q, \  # m, ?) @5 Z; D" g6 u' H7 v5 n
  sum v5 [aw =avol]$ C( J- Z* t/ W& S/ i" o8 v
  $ Z0 K& q# U+ O6 [' B/ N8 Q6 O+ y
  keep if dx240<r(mean)
0 q  t  {2 s( ~' g9 D: Z5 }' c  
. O& S: l  D7 q$ s9 a: }: v  sum ddy240
% e& I* q& V. Q5 X  L  
# W) _6 M  F4 u& v, q  if r(min)<0 {3 _9 r1 \( A# ~: L' g8 ^# Y( Q
        
. k3 z2 P" F8 L' p: ?) B                keep if ddy240<=09 l( q2 W4 T; ^6 L" c, n/ u  G3 W
                + ?6 }; U' e! T
                count3 D( g% G+ Q$ {9 d5 Q4 s
                ' }+ H1 q$ m0 N
                if r(N)>2 {
. T: B" x2 }* D9 j* n9 G, D9 `" ]                 
6 {, B! h; v) e$ ~. U                 pkexamine dx240 dy240+ T7 x/ H  {- @& c6 `+ B. F, w2 n
               
9 ~" l, Z8 Z8 U& q7 r& j                local tempminp=r(tomc)9 p; ]( k1 m0 D, O
                restore
* h- n: g- ^9 {; k# r, T                 }. S( X9 A" T! L, K9 V3 A$ t
                 
& n! Q' \: F9 j$ m# d. {        else {
7 R; h  v( P2 X' }4 ^               
" m$ j6 n3 j5 O; C$ q                 di "cannot find minp"
' w; e4 }' T1 g7 f5 X                 
1 v8 |1 I; I3 B4 Q) B                restore # z; R5 x/ J) K" X% r
                 sum dx240
) n( \3 [+ X4 [; c2 H                 local tempminp=r(mean)
8 f- I3 `' _1 q. F% ]! S! L# P# S                 
! s# c4 Y0 Y8 S$ _* H5 k1 |4 `" d                 }( U2 c0 P$ @4 _  H4 V) ^# x) _  G0 H
                }
+ }$ Q  ?3 v' g% I$ D- G6 A" o   else {) p7 U: h; C- R) Q$ y
                 ' R* y* z6 l8 z5 {& u
                 keep if ddy240<=r(min)
( [8 ^! t# j' i, H! V6 E                 
! {' P: |8 ^4 n. n5 y                 sum dx240- [* I, h0 G& g) W
                 
! V  N9 @4 z: a                 local tempminp=r(min)
" @, [6 u- f8 J( m# E1 \; D  x, _                 restore
2 N* }+ f2 L) U6 Y3 y                 }$ e' K& L" \/ u4 B! x& l+ p: N

- C6 ?5 l" i5 x- K1 P9 ~
) p$ d; w; G1 n( {- F# |% ?, R5 x& Y/ T3 s7 H( O
   gen minp=`tempminp' in 15 g' x) L' |0 X4 ~) Z9 i) r
   *240 minp- G% g+ K8 l% K' l. H9 p: V5 v
; O; `3 Z( B: k
1 x; v2 W0 x# l1 f
   
; Z( r: z! K; e8 R; N5 n8 p, @0 r   preserve : ~. P1 a5 Y4 Y  g
   
2 d" n4 h6 U, [; C0 j* o" d2 i   sum v5 [aw =avol]
& G3 `# U6 }1 J1 f* i5 I   5 m" ^& [0 Z. h$ [& _3 N8 J
   keep if dx240>r(mean)
, {/ A( K( F" G   ' ?- h; o) h; Z! e; m
   sum ddy240
8 e) Y3 K" u3 L7 t8 ~% Q( c   9 n0 i% |4 o: F6 p" S. g# I4 m
   if r(max)>0 {
# O$ w: Z5 L) k0 Y% v               
) p& `4 `2 v' G% b" k                keep if ddy240>=0
* t- W* L. [4 d  h                  o0 t# w: R5 O; O( U
                count
2 r6 {& v( q; J9 B, E+ A7 d               
) ]  ]; K* S  ~3 I6 A8 \                if r(N)>2 {; F# h$ a6 d' M8 B. P
                 
+ I4 t. R: ~5 y2 D0 \- w8 r1 V                 pkexamine dx240 dy240# T5 N0 V+ O# N, o* C
               
9 z  p9 K2 B) G                local tempmaxp=r(tomc)
, _8 W8 z( P% s1 R                restore : `, z4 V8 ~8 `1 C% s. T- L& y
                 }
- P8 [& u; q' [$ R* h1 u                 6 |( H$ f7 x& I
                 4 `% b  b, M" ?8 O" ^2 u5 i" |
        else {
9 Z5 V! x& y' F                restore
4 C) H/ u$ }8 b" [+ e8 A$ {$ `                 di "cannot find maxp"! G4 y' i6 |$ e8 u. B
                1 s- d: {2 F9 _6 x2 y
                , s. p7 \% n1 p
                 sum dx240
( W7 P, t- `2 W( x! V" t/ p                 local tempmaxp=r(mean)
# |( W5 Q& a  m% ?" J                 , f# O. X7 f+ }+ I6 N% x, g
                 }
7 y5 w4 X6 _/ m) a! V                 / d) g) y4 N  |8 c8 [
                 }% n4 S) h' ?  ^) t. |% x
                 4 q$ h2 d2 N( K" B; O2 ?. i7 b) M' S
    else {. `( P- U1 R1 r/ n! s$ f; {
       
% [4 u6 G# }2 E+ z           keep if ddy240>=r(max)# l0 g$ ^# b' B' D/ p
           ; Z1 Y6 @0 H$ _  a' G- f
           sum dx2408 d5 L  i% u2 R# h4 Z7 o0 l2 Q
          
8 y. @2 g7 S: o7 s" o           local tempmaxp=r(max) * E5 @1 O* b8 O, @0 w" I1 J
           restore # t4 Z5 |2 I$ b2 _1 f# l
           }: S5 C# h0 z; q
       
  h9 ^" J: X' [; B
/ B' X1 Q, I- u. \  9 V) [7 X- W' b" l7 |

0 S1 Z4 |5 d( b9 D" O" W   gen maxp=`tempmaxp' in 15 A0 U/ M. e* A- x: }9 w+ r
   1 [3 f0 |" k& Q
   *240maxp6 F. Q; b/ B" p. L0 V, B& ~' o
   * U* b. M. k5 R7 P2 k
   
4 n) I8 ~+ E5 {$ y. M   *-------------ddy240pminp左侧高峰值-----6 A) b1 C6 |8 K$ p; d
   
2 `. j4 P2 Z9 i$ v    preserve
% o; [! O2 v: t0 u' z' \+ m   
5 n; G0 r7 O4 C   keep if dx240<`tempminp'5 q5 p' v; I# i% g- v
   3 s; Z* q& X  j$ s6 w& o
   keep if ddy240>0
- d8 B: j% c. q: v   
& H; ?6 J& ^7 X6 X   count
  B+ @! j( ]2 Q6 L* C3 T( X               
9 A/ U+ |- m* N; G0 w                if r(N)>2 {
3 [5 t$ W5 `1 Z4 g                 5 |3 s* E7 |: }5 i
                pkexamine dx240 ddy240' N7 y3 a& T& D( F" R7 \, u
               
, m4 R! e6 D9 F: D: e                local tempminphddy240=r(tomc)
+ R: F- a5 Q# B2 a* C$ w, O2 f                restore# H+ B! z$ |8 m6 m
                 }5 A& Y* ~8 |% y4 p
                 
7 _2 Q$ f  E9 O# N# h# [5 M        else {
7 D4 z, w' S1 v% I                restore
8 f4 X: S3 U2 s0 q$ \: S% O                 di "cannot find pminphddy240"* p2 t1 Z6 N) z
                 - k( I! D( H; Y$ D+ x1 s! l
                4 `7 N0 O, y4 d
                 sum dx240
' E( F! [) D0 i0 T7 ~                 local tempminphddy240=r(mean) 9 l; W7 ?) |' d9 z
               
) P7 y8 ~6 M  |' k3 y                 2 y- k, e1 X1 \; @+ n/ `# O
                 }
' r8 N: A# y" h* ]# j  o% J                 $ _: p7 O2 L3 b
   
& o6 b6 ?7 F, |5 ]   
4 y7 D: x  ~( h. h& J# ^   7 x% W4 k0 X4 L1 K
   
0 \( J& p4 p& j( A1 z2 }   + T: K; P3 F  K" j
        gen pminphddy240=`tempminphddy240' in 1! ^+ s* B" T' x. P' P/ W7 B, W
        4 E" m& A; \& `- a  q+ l. W
       
3 W2 T5 ?7 t  C) \* h9 ~        *-------------ddy240pminp右侧低峰值 -----------------, r( C6 p: M( T
    preserve : j! _& c& w" L+ H/ l( @% e: U7 S0 x( n. t

/ i$ C( ^- M7 [- m- A   keep if dx240>`tempminp'. u# C- f$ w1 i- e4 y7 p% T6 ?+ y8 l
   ! O( r9 s! v5 g  m1 o
   keep if dx240<`tempmaxp'
. q5 m* N- K7 j; |) S   . l. D+ j3 a- l! E
   keep if ddy240<0
, W1 q- s9 t/ F1 u! n2 ?3 p- a) J% t   
( |% n) }+ F3 W- m: `" p3 g   gen temddy240=-ddy240
8 Z/ \) J) d/ j+ {$ ]& l   ! b* I# o; U9 [' j+ @9 @
    count
. d: t3 `5 ~1 k3 k               
( s5 _' t- P$ W8 \* O% D                if r(N)>2 {2 z$ p- e* `; L& M" ]
                 1 n- }. b' N& h  z4 c
                 pkexamine dx240 temddy240; r" N% V4 b# k4 q5 p( R0 O& {
   
, n6 P) r7 Y: C9 n( g  local tempminplddy240=r(tomc)# h! g/ {$ D, l
                restore7 p" F" v/ \) Q' W; S4 I( e
                 }
/ _0 r8 r7 d. G, D( O# G% Z3 _                 / B, G6 a8 H  }4 E% l, n( f
        else {9 t1 F5 S: }  u) c/ Z$ h7 B* q
                0 w! I# |6 ~' s  L( Y% d! {
                 di "cannot find pminplddy240". t- c3 m# Q2 R' ?8 u% `
                restore
1 p0 X% T& [9 ?0 J( q5 N' q                 + l0 E1 p4 l( `& X4 X) B
                  sum dx2403 B6 \/ Z6 |0 H6 D
                 local tempminplddy240=r(mean)
, Q4 W* u$ a0 s8 E                 & h* o2 Z8 Z$ \2 d( ~. j  K
                 
7 _0 U5 c/ V4 J: J                 }' r. W; y6 f+ g3 Z6 B& O
   / B5 w# d' N) ~/ w0 O( g
    , K* O) z* w- E+ V
   
. ~, ^" ?7 t  R4 [   4 u9 {+ c3 a4 `0 z- g2 y$ I# @
   7 L9 ~: y# I" _* c& ]
        gen pminplddy240=`tempminplddy240' in 1
5 ]! y& u; D, p2 c6 t       
& G" I" L5 P8 a        *-------------ddy240pmaxp左侧高峰值 -------------------
" M, t2 ?3 m: a* `% a+ n0 h       
! O$ @( m! R, ~1 x# X$ x         preserve ; P1 Q% l* N0 d; a
   " S" n( a1 V" h( E7 l! M
   keep if dx240>`tempminp', k' V' @3 Y( F
   
( Y4 s1 k- Q6 S. A   keep if dx240<`tempmaxp'
( h- \8 x  V) T* T* Y( h1 I9 T   
5 I; U% h2 z2 l5 m, I+ P   keep if ddy240>0
* S/ N* ?" n0 r9 G+ @3 C   count
4 r2 P0 t  R# m9 D6 c0 Y               
7 i4 `9 [( n5 H0 u8 E                if r(N)>2 {9 u0 F/ N( w: }7 ?" M. c6 H6 T- x6 j
                 
/ C# n% C" A- Q: n2 I                 pkexamine dx240 ddy240- S1 d9 M" ]4 k( h* R" S
   
2 m0 l2 w( X! a+ B5 l5 H( k   local tempmaxphddy240=r(tomc) % k) v% k. V) |+ S
   7 _+ O) Q+ O/ B3 P, z; L
   restore
7 m4 n8 s% N2 @% [, `: T% f# J                 }
2 K5 {2 P5 i/ k                 
6 g  l1 ]5 q; t$ J        else {! o. U: ?; _+ R! Z; ^5 W* n4 u8 i
               
) ^3 C4 z) V, D* U" r                 di "cannot find pmaxphddy240"
" k- m1 U& }* w, K                 restore
7 E0 v+ \% r. A3 t: s                % d3 x- t3 d% W7 _
                 sum dx2406 U2 r2 [, T, x/ ]- o
                 local tempmaxphddy240=r(mean) 6 Z3 A& H/ k# j+ t" K4 Z
                 6 l+ m2 r# t0 V1 N9 g
                 , |8 l% ^, t# Q+ Y3 @* w
                 }1 h5 H; [& C9 _2 I# s+ N! l' A
   4 o: D" R. x, A9 E
   1 |0 {' t  R0 }) f3 s
   
) E; g0 n2 W$ ]6 p+ B" q  t3 B   0 [! w' S2 q! K
   , H; Y; U2 Z: g) ?0 R) G* o$ W; l
   
) K" [! Y  z$ [( i        gen pmaxphddy240=`tempmaxphddy240' in 1
5 P5 C: T* Z# p4 G1 ^$ L, x5 s       
2 L4 C7 K0 j3 q+ g, c       
% b; w( d2 }# r7 n        *-------------ddy240pmaxp右侧低峰值 -------------------
9 B- {( M: y- o. ^2 a! X4 ~       
  x! f% g( C" [3 l0 e# ]         preserve
  x- w6 R" a- K7 z: A. ^' `( O  
! X" P5 J  G% ~# k   keep if dx240>`tempmaxp'1 c: \: k" W2 h+ h) D# U/ j( A: _
   " B) r% p8 C$ s
   gen temddy240=-ddy240
: `+ C- o' r: C4 f3 x   ! a8 R+ Y. a2 ]+ X
   keep if temddy240>0
7 M4 p( H, Y# M6 Y3 J1 H   
% r' M. {4 \" ?. B   count0 J) W* h+ @# s/ k
                ' u* P: O; {$ `2 U$ k, U/ \% V
                if r(N)>2 {5 Q& m" ?0 ^  R5 w
                 1 I' R# d2 C+ O2 O
                pkexamine dx240 temddy240
' t% Q0 |: i  s* f! C' E   
% ^: ~& a7 C& w2 W, ?6 w   local tempmaxplddy240=r(tomc)
6 \+ L( n5 _/ \3 U% h   restore; i- p/ K, ?. I7 I, p- x# K# ]
                 }* r9 U1 u  i& T* z# m1 W
                 
, s9 j2 r) E( O& }        else {) O5 q, h; N- O5 |& j7 ?
                restore
$ \0 T& Q% i1 c9 m4 q& J                 di "cannot find pmaxlhddy240": ^$ A+ d$ o  |7 v5 f
                 ( Z4 T" ?3 s3 N7 \0 x# p
               
1 X' X* S/ y4 b# \, h3 h1 D                           sum dx2406 g( Z1 N3 x3 X7 `' R9 i0 M9 `
                 local tempmaxplddy240=r(mean) in 15 W& ?2 {% n2 N4 o
               
6 e+ B" b1 U- H' [9 w                 ! k* _/ s8 {; C6 y0 ~1 _6 P3 u0 Q
                 }
, w. C: L3 H: ^6 e( C' O9 t* G7 d' a   
0 ]$ \2 m- g7 X$ Z- ]4 E' T0 f9 @! S   
7 ?7 S8 M& K! J" B$ t   
, N1 k9 Y$ f9 M! R. g% y# I" l: N   
8 C* \% i# N  L0 ?; |! P   
9 x8 a" N6 H+ @0 ]& E0 t   * B3 U2 c- G9 s$ A, Z
        gen pmaxplddy240=`tempmaxphddy240' in 1. g3 @' b9 W  f. u
        + {! t0 |% U) `% ]
        *-------------------------------------. G5 e8 p5 \% ^2 [; k" ~0 A
   # p( D! u. Y# I6 P! I+ {, e  s" ~) W
   gen price5d=v5 in 1/204 |1 x* L) d" ?3 v7 Q! H
      # l' [5 l' k0 O6 ^
   gen price5yy=_n in 1/20
# J: R! n* K, x0 W# Y4 }   
0 F4 R* E8 p9 B- D( e   gen price5y=price5yy*(dy240max-dy240min)/205 N2 _  \8 @+ Q  k% e
   
$ J$ i& r3 z% D* f5 t. z% G) X   *price5y &price5d
' I' Q& Q3 S! y5 w. a1 }/ ^  q& y   5 j- y0 _! F6 v2 U' o
   gen priceny=price5y in 1
+ Z( ?/ q2 Y" I   
/ {; I% X+ K9 K& o   gen pricen=v5 in 1# N% {5 h3 v" @. y

! Z1 k, N2 b- e/ i     % K% m. b2 H- X+ f/ y6 N& L
   *priceny &pricen) H% K2 Y" s' m. ]
   5 |* T9 I, C0 Z/ M
   9 p( x1 e, }  Z; f$ a( `
   *-------------------------graph------------------5 }- S9 b# D/ O& v% c) \
  
8 K7 l, E% a$ H# Z! w& p  tw(line dy240 ddy240g dx240)(spike yxis mean240, lc(red))(spike yxis maxp, lp(-) lc(black))(spike yxis minp, lc(black)) (scatter yxis2 mean240,lc(red) msymbol(+) mlabel(mean240) lc(red))(scatter yxis maxp,msymbol(+) mlabel(maxp) lc(black))(scatter yxis minp, msymbol(+) mlabel(minp) lc(black))(scatter yxis4 pminphddy240, msymbol(O) c(l[-]) mlabel(pminphddy240))(scatter yxis3 pminplddy240, msymbol(O) c(l[-]) mlabel(pminplddy240))(scatter yxis4 pmaxphddy240, msymbol(O) c(l[-]) mlabel(pmaxphddy240))(scatter yxis3 pmaxplddy240, msymbol(O) c(l[-]) mlabel(pmaxplddy240))(scatter price5y price5d, msymbol(O) mfc(black) mlc(black) c(l[-])) (scatter priceny pricen, msymbol(O) mfc(red) mlc(red)), title("`f'") xtitle("`1'") ytitle("density") legend(off)* y1 d' q5 A! F. R9 H4 C7 Q6 V. T

. q1 F! L* f8 m( z3 Y4 t* ---------可选项目----------------------
9 K3 X- V% x) @*(spike yxis amean,lc(blue))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean))
& s& h9 y- K  P5 u: ^) ~}. f9 y2 D2 F4 D% U) t6 x
end" s; g$ L8 R, v: k' ~* ?

作者: maodeng    时间: 2013-2-7 00:03
awer 发表于 2013-2-5 14:40
) \5 l4 a9 k. P$ G( X) k抱歉,最近太忙了
. H) l6 z9 k( U- {$ I9 y
0 }: X1 {+ @4 w0 E300236 我用下面的程序试过,没问题

( H6 f2 |2 f$ Q哇,谢谢,我仔细看看,这些字母数字代码晕了
9 z2 m8 V0 e3 D5 M" Q
作者: 喜欢喝冰茶    时间: 2013-2-7 04:05
stata是不是商用的,R里应该有类似的东西吧
作者: 喜欢喝冰茶    时间: 2013-2-8 07:16
awer  老虎推荐的一个处理数据的软件,很小,只有10m左右,很好用  发表于 5 小时前

1 z9 Z9 V! C+ [1 {$ z6 e/ Q+ n( {$ k% q, J
这东西是开源的?知道有个统计软件叫stata,不过要收钱。
作者: 汉水云潇    时间: 2013-4-17 17:14
准备试一试5 X6 A/ g& U2 U  U# G8 a( B
先找Stata软件
作者: 汉水云潇    时间: 2013-4-17 22:21
本帖最后由 汉水云潇 于 2013-4-17 22:27 编辑 $ r7 D) k! [7 N2 V0 n
9 ^, X4 N" M  {$ ]: R4 @
晕呀/ q+ Q3 Y1 m  i. ~  w5 [* {! E! c- |+ j
论坛复制程序代码- e( t! D( N/ r
乱码夹杂在其中6 ]) g+ u6 S9 S+ Q0 t8 O. x
很烦
/ [4 ]+ _* n  W+ D7 U  E2 B, i对了两次3 O1 C% }, |/ }, G
以为没问题了
/ L6 l* h$ l: j+ i* l
3 Z4 n3 O2 E% `3 h& @: A结果+ f' a1 C$ E; e4 s! E% n  c1 M1 d6 X9 X
执行后
1 y( o7 |1 E6 b8 r0 G) K! v4 @& F还是出现4 t$ Y; }; n1 h; m) m% D
r 199! p! v3 F; u/ z5 C; }8 ?4 l
的错误6 U+ O7 x% L1 g/ R6 b

作者: 汉水云潇    时间: 2013-4-18 07:50
试验成功,下面是三一重工的图
% J5 `$ D. L6 q) p( l4 ]6 U8 r# h4 S* c  Q

作者: peterbev    时间: 2013-4-26 12:46
先用用试一试,不知道准确不
作者: 中秋不圆    时间: 2016-3-12 15:46
噢。。。这个帖子好,比较直观。
作者: bknite    时间: 2016-3-21 23:51
这个帖子值得学习。
作者: jeanny    时间: 2016-3-22 10:41
感谢!!!
作者: Hubert2000    时间: 2016-3-23 10:23
明月回春 发表于 2011-8-13 20:171 H$ V4 S( A: J$ m/ Y9 b" J( e
程序写的不错.
$ }- v6 o) w3 V) k% @不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...
# n9 K2 _; e( {' _7 R
老哥,也是山寨这篇文章找不到了,不知为何?
作者: axiutime    时间: 2016-8-3 13:28
提示: 该帖被管理员或版主屏蔽




欢迎光临 爱吱声 (http://www.aswetalk.net/bbs/) Powered by Discuz! X3.2