一个用stata 计算股票成本的小程序

awer

# U" F9 u1 ~2 e5 a' v% t
* J7 `0 T) Y+ h1 _& ]

   我是从西西河一直追虎大追到爱坛来的，虎大曾用stata 分析过股票的长期成本和一年的短期成本，但是直接用kdensity命令无法得出筹码峰的具体数值，因此我写了一个小程序来计算股票的筹码峰值、长期平均成本和短期平均成本。下面就给出具体实现方法。

计算之前需要有 ：

1） 招商证券系统（通达信其它客户端也行，功能都差不多）

2） Stata软件 （我用的版本是Stata/SE 11.0）

然后

1．新建一个文件夹储存股票数据，比如:

e:\stock\source

2. 股票数据导出

a 进入招商证券, 系统-盘后数据下载，更新数据

b快捷键“34”进行数据导出, 在弹出窗口选择
5 D+ c7 k, J( e9 F“高级导出”,

在高级导出窗口选择 “日线导出”,

将导出目录选择为你新建的储存股票数据文件夹的目录（e:\stock\source）! 切记切记

文件名 为 XXXXXX.TXT

勾选  数据精确复权

添加品种中选择想要导出的品种

开始导出

3下载 stata, 将本贴附件中的hello. do文件copy至stata根目录下

用Stata中的 Do file editor 打开hello.do 文件， 确保hello.do 文件中 e:\stock\source 和你保存股票数据的文件夹目录一致

现在就可以计算了，以露天煤业（002128）为例

在Stata中 输入如下命令

do hello

hello 002128
% f4 V* ?) X- T8 ?: s# }  O: b
(002128为你想查询的任意一只股票的代码)

几秒钟之后应该会出现下面一张图

) V$ G! L5 \/ I% j3 |6 L! J0 y) F

hello.do (5.25 KB, 下载次数: 11539)

2011-8-13 18:02 上传

点击文件名下载附件

其中蓝线为股票上市交易以来的平均成本值（注意!此值没有去掉一级市场发行和国家的0成本）

红线为一年内交易的平均成本值

黑实线和虚线为一年平均成本值附近两个筹码峰的值

黑方框代表的事20内每天股票的收盘价格

红方框代表股票最新收盘价

山寨完毕， 收工!!

明月回春

: T/ C: y! w& G2 f# ]0 T8 O- Q6 i3 T, Y
程序写的不错.
/ }- d; W# i* G8 _* I) j0 ]0 N不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理.虎大买的是Thomas One Bank.
, o( t, ~6 q* ^还有就是虎大除了用了kde,还有摘要功能，你可以看看这个也是山寨
( \* C" E7 G$ \8 a
/ j, B+ f& b  ~5 B- V

awer

这点我也注意到了，所以我用 成交额/复权后的价格  作为成交量 用于权重计算

wenty

多谢，挺好用的。
通达信似乎无成交额一栏。导出的txt文件要删掉header,否则stata当数据为string了。
) t, V( J; v" j2 Q5 J

旅途愉快

1 {& e" l# Q1 X8 j6 v  I没太看懂。。。
# S- [( x& v. |5 a8 V4 ^- Z
5 v( K9 c! e  k% x5 {7 H露天煤业最近20天的收盘价在20块左右？

旅途愉快

仔细看了看，发现原来自己理解错了~：）
# v8 U( F6 T; h# P3 \. G0 R% q
2 G3 k/ l+ M. z9 A$ G/ K谢谢awer。有问题再请教哈~~

旅途愉快

还貌似有一个问题啊，为什么我处理2000年以前上市的股票，都会出现：

1. 
   
2. hello 000425
   " m! w8 F( C  B" H9 x
3. time variable takes on negative values
   : a6 }% i9 [) f' c4 v* N/ I
4. r(459);
   ( ]/ N$ Y% p- `8 k6 R8 d
5. 
   6 |( s* Y; _0 ^% h% [. Z4 [
6. 
   & F% h5 f7 b! D* @! m' w) m8 r
7. . hello 000783
   
8. time variable takes on negative values
   
9. r(459);
   3 q9 ]/ {$ c1 ]

复制代码

2000年之后的没问题，比如露天煤业。

冷眼看世界

不错，我也来试用一下

沉默的前哨

为什么老是提示：type mismatch

沉默的前哨

能不能帮忙看看：

# c: e/ t% u1 l: ^' R do hello
, t/ e9 j0 S9 g; p; h' y
9 L* f: Y9 T! Z.
. capture program drop hello
" `+ \4 g' K2 a  q; Q+ k
.
) D0 a6 Q- F4 @5 _+ f* u$ F. set mem 1024m
/ R1 c! c  _; b& Cno; data in memory would be lost
r(4);

- Z) w- I" Q/ @7 z  D* _& l* E# hend of do-file
6 _" N) G5 U6 J. P3 C5 x
r(4);

. hello 600063
( J7 q8 W( h8 p! m6 D" e. g/ Eunrecognized command:  hello
r(199);

awer

沉默的前哨 发表于 2011-10-19 20:49
能不能帮忙看看：
* A4 ]3 W4 ]) A' O2 y1 B- l2 v( Z
do hello

# d, Q$ i* ?+ ]0 b) k你算得哪个股票？

阿雷

awer 发表于 2011-10-19 22:03
' l% D( @- Y) `3 d* ?0 l你算得哪个股票？

+ K2 o. w0 [4 t那现在露天煤业可是在平均成本以下啊

沉默的前哨

awer 发表于 2011-10-19 22:03
# x& o8 x- H, I你算得哪个股票？

. J0 X4 Z2 d2 _" a' M我是用通达信引出的数据，比如600663，在e:\stock\source 里的文件是以SH600663.txt存在，无法执行，后改成600663.txt还是不行，请指正！

沉默的前哨

awer 发表于 2011-10-19 22:03
你算得哪个股票？

: {2 p) S( B% E2 E; cdo hello 后变成
' b& g- U# Y: {& A2 n( D" t......

& B% U) C  @& q3 ^end
% a+ O& L$ _8 b5 O
.
0 G  f) V9 k; zend of do-file

awer

沉默的前哨 发表于 2011-10-20 10:32
, V4 x  h1 t; c! ?* ndo hello 后变成
......

$ d/ J; p: H, i' X2 ~

awer

沉默的前哨 发表于 2011-10-19 20:45
, Y8 Z4 I  W# L+ {为什么老是提示：type mismatch

注意 日期格式要选成  yyyy/mm/dd，要不然时间变量格式不对

wenty

"此值没有去掉一级市场发行和国家的0成本" 是指已包括一级市场发行和国家的0成本吗?
谢谢
' y. j& m  d! O5 o. H; z6 P

琴心三叠

下方的棕色曲线是代表什么的

琴心三叠

下方的棕色曲线是代表什么的

maqiangcn

明月回春 发表于 2011-8-13 20:17
程序写的不错.
, R1 y/ z9 I2 J3 a8 C不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...

& J& R5 h& |0 L/ _) l你好，这个链接好像不对，能确认一下吗？