设为首页收藏本站

爱吱声

 找回密码
 注册
搜索
楼主: awer
打印 上一主题 下一主题

[经济] 一个用stata 计算股票成本的小程序

    [复制链接]

该用户从未签到

61#
发表于 2013-1-25 13:15:49 | 只看该作者
如果我想看最近 一个月,三个月 六个月 的成本,怎么修改程序啊,谢谢大师了

该用户从未签到

62#
发表于 2013-1-25 13:18:55 | 只看该作者
我用同样的方法导出数据,发现有的能生成,有的就不行,不知道问题在哪儿,比如300236就生成不了,我的邮箱是19860225gaoyuan@163.com,麻烦大师了

点评

能告诉我stata报错显示的是什么么?  发表于 2013-1-27 21:37

该用户从未签到

63#
发表于 2013-1-28 13:13:51 | 只看该作者
. hello 300236
1 F) w  d0 z+ B% G, Q* Tstatement out of context) c% b' c9 M' `1 B1 A
r(119);! u* }# v  a0 O0 A; m
7 z1 u$ K2 @& e/ `3 a
大师 就是这个

该用户从未签到

64#
发表于 2013-1-28 21:11:43 | 只看该作者
这贴实在!

该用户从未签到

65#
 楼主| 发表于 2013-2-5 14:40:59 | 只看该作者
maodeng 发表于 2013-1-28 13:13 9 _/ e! ^& g, j
. hello 3002366 j3 q/ V" K3 m/ u
statement out of context
+ `# `1 ~# f' d  ir(119);
. h) R- E3 G8 N3 }( r" k
抱歉,最近太忙了" J& _4 `  w) c* t* }% V9 x

4 R6 @  G& i  N( m+ \. r300236 我用下面的程序试过,没问题1 M+ a& a& O; ^# a7 k

& r' v6 W5 c3 m" [# C你把 D:\stock\test\source 改成你导出的数据存放的目录,再试一试3 F8 y) c8 q' p8 w
1 T8 ^( q* \. k5 C: L- G+ d
capture program drop hello
0 f, G4 ~( w% E4 k: v2 C
  ^, m3 @( ^$ G8 f# r0 jprogram hello) j( z8 U2 \/ l9 E) T( X1 m* s

1 E: B7 \9 Z; L) G2 `$ @& e0 X quietly {
& N/ P# j7 {/ j4 z4 b% y# q3 J
7 x* E0 D% x' M4 G1 sclear
9 b4 K2 \' l' T0 B+ ?% e$ P! L- B3 W4 K( J+ C* J
cd D:\stock\test\source% M; D. C  i, t/ B" J7 F; W
, h) m! ^6 o7 V7 k
insheet using `1'.txt
% N0 b: t1 X7 S8 U$ s9 v- D1 s% G$ n. _1 w* g3 Y5 M( R! c) u
   keep if v5>09 H  x: h$ Y5 a& I( j" K
   
2 _  [! k% w0 H& v, f9 r   gen vt=_n- [- \: a! ?! Y8 q
   
3 h" M6 D7 i: `2 g: m   tsset vt
9 h( q$ y2 \6 A( A
# m$ `* k! Z2 L. @2 T7 w   gen zf=D1.v5
- D; z9 g+ S6 Q, q* D8 `6 J5 w; {
. O. `$ \: ?" ^   gsort -v12 Q6 L, Q0 `7 S1 i/ N% q- k0 G

5 W; ]& E, ^' O% u+ I   gen avol=v7/v5, ^% K+ i% L, G5 ~# R7 b4 D1 x
   ) |' |% u9 H1 d0 S3 l1 n
   keep if avol>0
6 y; ~7 Y8 Z: \8 S( s" I/ ~   8 N2 {! T" f8 F7 X* h' |
   drop vt9 x, u* @9 f$ F( a4 B, l% w( {) o
  
4 d' p1 c3 \" Y9 k4 u   gen vt=_n
3 q* y2 C& ^8 Y$ c' }+ D) l4 I) o   
: E9 c2 P* v8 L   tsset vt
! ^, d& S9 t8 k+ M# r% B   
) g- L$ M/ P. t: P4 @" L    sum v5 [aw =avol]/ L" P; F1 h( E7 l# t3 ?
$ v' y$ C7 u8 T* k
   gen amean=r(mean) in 1
( C2 b6 }) f& n; n- |/ g  x! W3 _   
, \/ m' h' h" t/ N3 ?   * 总加权平均值 amean
: K" y# e' k1 W" P" ~: Q3 V% k   # E% u/ i  B( j( O, ?' u5 P1 J, Q- y
   " W5 h# X# n# ^2 w2 V: i
   keep in 1/240( C0 H5 j+ r( Z  d1 p. o. e

4 [. b2 a: P7 N( g7 A   sum v5 [aw =avol]! y; w" H* j* W
) G( f/ j6 Z# X5 b7 L% R% Q! i8 J
   gen mean240=r(mean) in 1
3 Z) L& U. Z8 A0 Q/ Q9 A5 Q   
; q8 B; R$ C$ V8 \) i3 h   *240加权平均值 mean2404 {6 z: B- _/ h6 ~- `
   
/ ~4 V6 }$ u. v9 `4 s   set obs 500
! Z# f2 q, H1 d   
( F+ A' U; U$ W, T% D$ R& `   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph
; Q/ Q: L- Q1 C/ b7 z   8 c6 H2 q' f6 e; o; k% r
   *240 kdensity(dx240 dy240)
# n0 T+ m. B! s! g. W   
( f1 A& W+ Q9 K. E0 D5 t   sum dy240
; w! E5 P" U$ X$ B. ]% |* m   2 Z- v& Z* S3 k1 x/ U- Q
   gen yxis=r(max) in 14 h% S/ P# Z1 {, N! q0 ~  ]) _
   - ~* |/ W/ |* Z
   gen yxis2=yxis/2
, ?7 w+ \8 E6 L6 i1 A+ F4 Q   
  Q3 R( _: K8 C  ~' m/ r; i   *yxis- r+ v% \. e  Q5 m3 \
   , y( x: ^# H9 n
   gen dy240max=r(max)* B. t# [5 j2 j+ h
   " |# t& ]6 P3 U7 a
   gen dy240minp=r(min)
; K. `7 j: a' i
3 V* T: R' t0 k  y' S: p8 D: O    gen vtt=_n) c, g, t9 |9 F3 V4 W/ l
  P$ ?4 g- x8 o
    tsset vtt
- [) f9 L5 i' L& L* K
1 F, ^: [- C( j; ^- b7 G   gen ddy240=D1.dy240/D1.dx240
8 n) s9 S) ?) V3 c; l   
. ]: \* ^2 W! w+ M   sum ddy240
4 S. \9 m% x1 D   
* {& L7 V+ M5 _5 u/ `7 b   gen ddy240max=r(max)
# }' Z2 B3 [* _) f   
0 h4 d2 F- W# n7 l0 e& k   gen ddy240min=r(min)
6 q$ u1 E3 s6 d9 {! Y     
$ z* P" P  ?) \# ?( e   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min)
: {7 K% E5 `6 b- d2 J5 Q   
2 N4 U$ m/ S: Z% N( \, `; s   sum ddy240g
) l1 l  h  q9 B, g' Q- X   6 E1 J9 T5 Z& ?. e
   gen yxis3=r(min) in 1# A# U& F5 a+ j! p
   - V( r1 u9 @: j( H8 X! ]
   gen yxis4=0 in 1
: x8 i  J0 Y6 h  B' K/ G3 K1 v$ a  
) P) V3 h1 {4 A: S2 y  *ddy240g
  ~$ z! O9 I" @( V, B8 S8 v( `   
( [# E+ [( E' \% S+ t   
! \) J: p4 R$ g6 B& J  l  preserve ; D2 a  M' q, [; a& x0 c7 P
  ( F( C- D- n' M5 ]6 S1 C
  sum v5 [aw =avol]
" B" y. M2 L6 \1 ^; f  
8 X! ]- d0 o, I2 f  keep if dx240<r(mean)
  M; R& w  F# F0 f( W! I5 a  0 {" X/ D( |& x3 O8 H
  sum ddy240
; G4 |) C  c4 W  
7 A5 n1 M2 Y' g  ~" l3 y& v5 p6 D  if r(min)<0 {
1 [! _1 v$ ]6 q5 Y4 Z: }        , D, r/ C! r  O1 s( G
                keep if ddy240<=0# T+ O- H- ?  L3 D6 J( @' d
               
, u4 j1 E' c. B                count
9 m1 D0 }; O, F: q7 B9 d               
2 [" [  Q" \. g% j" C5 `$ ~& a1 G: W                if r(N)>2 {
5 _5 H; g+ E  B0 H% h6 J; I# t$ n                 4 b2 P  [8 {0 Y
                 pkexamine dx240 dy240
1 A+ }& h! c  R8 Z1 T               
4 y8 ?; l3 s; h8 K                local tempminp=r(tomc)# e3 v$ N. ?( B/ H6 E! `8 U
                restore : F$ o* V( f6 [# R& D
                 }
2 i  ^0 d8 l$ m: n' j. w                 
, K6 E% l( o% w* X3 r        else {
! s4 @6 j- o$ _/ X8 f                - |5 B. }. S. t" y
                 di "cannot find minp"+ {6 |- {: \2 P# q3 W, c
                 
) ~/ i# X) w' V4 r+ ~; e+ U                restore 0 Z1 `- F; P; a0 x" Q
                 sum dx240" m% D' y( g, o8 Y" P) }4 O/ k! Y
                 local tempminp=r(mean)9 ]9 ^! s5 z; o; @& m
                 - _' X$ ~  q7 H& q$ b
                 }% g- \+ b0 k$ @) }9 s
                }
( X6 t/ e8 g) t; s8 u7 I  T; n   else {; ^" p" i7 R8 a* I  Q% ~% y
                 
  g# d& H, c( f5 b                 keep if ddy240<=r(min)3 N' _5 Y5 a# O. j8 e4 c; u
                 2 q* M& D+ i/ S/ d
                 sum dx240  S& ?6 E# W( c# ?. v  f
                 
! t; v' Y5 J, }                 local tempminp=r(min)
9 M  c& C7 Z& G1 `6 K$ P7 V1 J" k                 restore
* Q7 x* K! D  n- y0 l; _, H                 }
* |1 _3 g- h7 _( ^! f
7 G( h" E% x' Z$ H+ F' u9 |2 B7 F; ?4 ], M0 L7 a& }8 |9 X; V) C

" u0 k  `6 l: }. m9 D   gen minp=`tempminp' in 1( K$ `, ^/ U9 u- b; e. x1 T* w$ \% M
   *240 minp
) E3 X; g5 A1 M& @8 p
# B6 C* `9 x" V( M: M0 b) h
0 H# |  i& y+ r   ' B9 g( {" t/ Q: l
   preserve
& j3 K5 Z" x6 u! s5 ?/ P2 L   
4 U/ @! r- c& B8 y+ w' z4 [, S   sum v5 [aw =avol]3 G% b" p% Q1 S1 g
   0 A; R" I; N" s( @) x% o( N
   keep if dx240>r(mean)- G5 o" c3 E9 q% |8 D* |2 ]5 z
   
2 a/ ~  o' ?/ v) }4 u   sum ddy240- R7 n1 W( A; F, t
   
! y6 I6 R1 T- A   if r(max)>0 {
" Z, u' z* K& I2 w; D) ^' b' ^' n                * Q" @7 M! B* i* X
                keep if ddy240>=0
  F$ @0 I! H, W; P8 F                3 ~4 d5 w2 R, z' M, |1 C
                count7 N3 c) R! I# l
                , L6 T% Q8 H9 z- E6 T6 }" s9 S
                if r(N)>2 {
4 i! U8 e' ]  n  ]+ H( q2 b$ r- h                 ! f$ |9 E6 r; W8 P% n9 v
                 pkexamine dx240 dy2406 t! }2 S( `1 G2 t2 s8 P
               
' }/ @$ @1 e0 A0 N& ?* x) _: h                local tempmaxp=r(tomc) 7 ^2 ?' ^5 b. P1 `
                restore 8 b& o3 y" K7 b9 w
                 }5 ~; H( B  v# G
                 ) ~  |# k/ V) J% Z3 j7 g
                 7 T" j1 K6 S6 m$ k* Z0 V
        else {
! r. d" {. A  |( p0 \8 j$ s                restore & |9 K1 t4 ^. ?% [1 R, g
                 di "cannot find maxp"# N) X; c+ N9 }, j" ]( ?
                % N4 J! X$ b7 m7 y. f- G* H% j* E
                9 A# X8 p7 C& j5 @- k9 E% M
                 sum dx240
6 y3 y/ i" U5 a3 T6 i+ p7 F( @                 local tempmaxp=r(mean)1 t1 B8 t  B$ v' @' N( u
                 
, p3 r6 ^2 [, e8 t  Z                 }
9 R. _4 @9 \0 x                 
0 C* U) ]6 }, K  b8 s0 g# _6 F                 }
/ u0 E( p8 i6 d+ |' Z! v                 
$ b+ Q; R% {  |* N    else {
  ?1 K0 u8 u% A7 u        % f7 v$ f# n! V' c2 m( [8 C
           keep if ddy240>=r(max)4 w# X. y7 o- b. c. B; I( V
           4 r' |! d3 ^$ V  J2 I; q# w
           sum dx240
$ ]+ I% _% F# Y( j# {, p          
4 G$ l4 P% o* ?7 i# _* `           local tempmaxp=r(max)
# W! Z1 Y1 _/ H/ ]7 ^! U           restore * W$ ]& m* |& ~, k& m) Z
           }
# t7 V7 f" e" v  S# _          Z& F* ?- }; x& K& k  C# _

% S: \  J1 v- w: t& W  + f9 f9 d7 p% @* i8 ~% K; Y

* x5 K0 J( t5 A* X' J1 @& Q   gen maxp=`tempmaxp' in 1
2 H- p; w- q! w   * K1 j: }/ M2 A# ~
   *240maxp
0 A( R! J) i- z$ z* ]6 Q   
( K: Y8 t- x5 I   / }% }% Y) I9 H* w% b( s( {
   *-------------ddy240pminp左侧高峰值-----
" k" j: ^' \& p4 l: w; c   
( ^- I5 C7 ?: H    preserve
2 b% q+ b6 U' L! Z5 C5 F   
/ a+ N+ ?: t% U: t   keep if dx240<`tempminp'; a# c8 M& m/ T) `  N
   5 W/ K0 L) o: U8 p( O1 t# ^
   keep if ddy240>0
  c! b' p, n2 r2 K) F$ F   ( x, ~7 ~+ P+ z" p7 l$ P* q* C8 g
   count& e$ e, X  `1 z) r3 h) B' |( C% }
                + E8 j% Y# L# y/ r: }& m7 e
                if r(N)>2 {' ?3 b8 k# j( z
                 - O8 i4 n8 P2 n  x
                pkexamine dx240 ddy240. I2 x% j. e, v! W* S
                % T; @1 Q6 b( A6 }' e
                local tempminphddy240=r(tomc) 3 O  x. F/ ^% h5 D
                restore
6 Z# b5 r, u/ f                 }, Y4 C& U5 ]+ X1 e  Y  z! x
                 7 L3 I4 p' [- g+ D- R# ^
        else {( G- m$ j/ z3 \  W, q% G8 [
                restore 2 S% g* Q  s- s) F8 H2 G% ]
                 di "cannot find pminphddy240"
' P6 V2 C% t& }& d, q                 
( Z: C: [2 `. X6 S                7 x! P! x4 u6 B7 k1 b: d6 T" l
                 sum dx240# x8 U' W  r$ D6 V: i6 N4 H+ @
                 local tempminphddy240=r(mean) 4 R( E8 Z8 k, k7 o% I6 \3 i+ N! p
               
. q* k. M" [0 D" r5 j6 p) T                 
& y5 ?( B! W1 t                 }
  W/ P2 D) P( C                 
0 D. Y/ ]9 M: F5 R. V   " x( s* A5 B$ e8 Z0 d
   
" r* H/ I# J0 s2 u4 ^   ) ]7 p# x. t0 k- b2 M2 r
   6 J0 p" U1 p" J) w" q/ z* R9 R( S
   
3 \6 r7 U7 Z  k& P        gen pminphddy240=`tempminphddy240' in 10 u: D5 K3 r! @' _. p; ?2 e' L
        # S3 Z1 Z2 H3 f4 j3 @9 ]: _
       
/ c$ i+ X' F8 h) W5 D        *-------------ddy240pminp右侧低峰值 -----------------
* \# x0 _2 I2 q/ z7 a# q    preserve 9 `. p, ]: g+ w* z7 y
: [" K5 o6 J% a
   keep if dx240>`tempminp'$ [  P6 f3 o" q, }
   8 q4 t& }9 w( J# G: d
   keep if dx240<`tempmaxp'% H( f/ @+ o  r) ]
     V3 }: m7 S6 f+ q$ Z3 h
   keep if ddy240<0
& n% s6 @6 o# E, a   
: y8 d& B- o% Z4 w2 E. E   gen temddy240=-ddy240) l3 b. l+ p0 i! Y. F6 T3 L5 p1 `$ a# f
   
- M; ^' b; Y' T; Q+ d( a1 T0 r* N; d    count& \/ t9 i5 b$ Z  [- y$ I" k
                - a" ~2 {; @# C7 w7 `& b
                if r(N)>2 {
( `. A/ p( Y" U/ F/ V                 
' y+ O( C1 y6 e9 O9 W                 pkexamine dx240 temddy240
2 _  E. i4 s6 n* X* c, H3 r0 k+ T   ' |" Y5 |+ z; Q9 g, d
  local tempminplddy240=r(tomc). ]# S% c: d: O! g
                restore* w( C/ k! J" M4 T9 Y
                 }
& f8 X0 O0 k8 Z2 E/ B7 {' G                 
$ V1 m; X/ }6 F. h        else {
# {/ ]! L; b+ N: i" d+ C! t( I. p                9 R  a+ ]# E0 W4 e, P
                 di "cannot find pminplddy240"' J7 u6 y3 C. I, g
                restore8 L8 P) C# H$ J) K5 `
                 
; i0 y4 Q; j3 c                  sum dx240
* Q7 @7 N% }: b                 local tempminplddy240=r(mean)
7 d% M& W4 o+ z4 Z5 x1 p) d                 % o0 @2 a( e* I) M, t
                 / c, b: Y. }1 Y3 d! k* p. S# c
                 }  `3 H4 L; x& Y8 v& M' B/ D
   
& N& S+ f, z) O! V   
% o; P& S3 G0 S   
8 M; _( w  l" p) K$ v, r# o3 w+ V+ J   
5 b0 w2 L) a- Z# r4 Q   ( @- [& |* h: [; e3 h
        gen pminplddy240=`tempminplddy240' in 1
: ?: y, v5 ]% g$ T8 J       
. R$ Z3 j( E( M8 P8 b1 x        *-------------ddy240pmaxp左侧高峰值 -------------------
! ^+ b' }6 A, X  J: s  @9 }8 Y        8 k+ i4 i* C7 k8 |
         preserve - w0 C' k0 t: B( q/ K
   & o* n* d5 ~: y; K7 u" m
   keep if dx240>`tempminp'
, e6 W, r" b4 o9 S9 C7 D+ g3 r+ V   
: M" q, `# H& K   keep if dx240<`tempmaxp'
' k/ V/ Y5 i! C. p: z   
3 \' @+ p- L- M0 R4 N( ?& H" i   keep if ddy240>0* ]; A' ?1 i5 n/ }
   count6 o' u0 a6 ]+ @# y
               
. c" S3 }8 {1 Z2 L' X6 D                if r(N)>2 {8 O, ]- M- `/ [* U8 s
                 
* G0 k1 e; r, f                 pkexamine dx240 ddy240
) b/ K) g7 R+ V0 Y8 [5 _+ s   0 t; C) D& p6 y* C: V( w
   local tempmaxphddy240=r(tomc)
. J% r8 o7 m1 l& k" V- X   
7 E& [& f7 a( k) b' k6 B$ g  P   restore
) Q! [$ ~" k% f, F                 }7 F# ]5 n0 X: s( ^5 J
                 ! H* B! ~0 [* W! \/ d2 }4 U- A9 d
        else {6 [0 ~1 ]( Q: R
               
& B$ i; e- N9 e( _$ s                 di "cannot find pmaxphddy240"" ^. ?4 O0 _% e2 ?$ z
                 restore; z% z& }6 k" S- Y
               
; D; p% O( t$ V9 o- b$ \, w; o                 sum dx240
) h( H- U0 O4 }% a# R& T8 c                 local tempmaxphddy240=r(mean)
0 ?6 R. t3 j" {4 ~" P/ ?" f                 1 D9 H8 h4 Q, C
                   B6 w7 [4 X$ b: j7 E3 F* @  y+ z; d
                 }! q2 _. n+ t: p* H# P
   ) P7 H1 L0 @; Q
   
4 h( T) j1 T5 U! p* L   
3 i  g9 D$ |: E7 `3 f' ?: e* |   8 n/ g( x/ J8 k0 |& o5 _
   ) J/ r8 R! \+ c4 [1 I* k4 ?
   
3 }, r; A  y' X. C% a: R- T: N' u        gen pmaxphddy240=`tempmaxphddy240' in 1  y* o' s# @% c' k. }" d8 H
       
# \2 J! [" P, x( l1 }/ F        $ O  Z6 ?" D2 i9 h7 r. ]
        *-------------ddy240pmaxp右侧低峰值 -------------------
/ J- f7 Z- u& d3 @, m        : X3 h% Y; l) \! N  _+ U, W
         preserve 3 q: @; U' f4 R& G" P% [
  
3 k: t" d) B: D( [2 C   keep if dx240>`tempmaxp'
3 Z  J& H  C8 z4 n* b   5 s' q$ U+ A! Z$ k  Q
   gen temddy240=-ddy240% H; t6 l6 T1 C
   ! B' \* x( h+ O& e" C& l
   keep if temddy240>07 f; ]$ g9 P  Y+ K3 {0 N
   + c/ m# o' ]3 y$ l0 l# p) W
   count0 C( G9 ^5 m! Z& B- u
               
& t. ]0 e4 |. K/ s& X& P+ r+ K                if r(N)>2 {
& \3 E! O$ y, v. m2 X, u! L, z                 ! ]7 X  |( U3 `& o2 g
                pkexamine dx240 temddy240
$ w7 E& x6 H. Q5 O6 t0 K+ H   ( I# D+ w. t7 ]$ {8 M; d- r
   local tempmaxplddy240=r(tomc) ! |* V. _6 R" f
   restore2 z4 N4 _7 m8 p" n% N
                 }* C$ d) ?3 u2 }" h$ ^, V4 y
                 ' z! c: N6 V% a$ R" `
        else {
4 G, q& r& @2 o+ r3 J* z                restore
& d% m: |5 x7 ~+ Y# [  [% X                 di "cannot find pmaxlhddy240"
3 R3 l! N4 S( o. B  D" _                 
; N; y6 X. f4 i% F4 N3 e3 j               
" M+ t$ I, Y* a! @  b4 ]                           sum dx240, J7 u6 ]9 m& F, U
                 local tempmaxplddy240=r(mean) in 1
3 Q# n+ t3 S, h3 [               
8 B, e) f0 C) d, q' {) X$ d% Y                 
& H! @& g2 a1 ~                 }
5 i) Y) c9 N# j; X" J, D   . Z5 F4 M- I6 f. }" \% \: Y
   8 ?) T3 T8 y5 J9 z. J  f
   
* c$ X" Y; P$ P( S& }9 O; r   
+ U# [% H: k! m0 q9 z9 O   
7 ^# v9 ^, g" x1 @8 n- A! [2 ~3 Z   
, K, r, l4 C& n( P        gen pmaxplddy240=`tempmaxphddy240' in 1
: o' x) y2 g* B9 j3 k       
4 w8 S9 o2 L$ H5 T# I* s        *-------------------------------------
6 [3 P! l* ]" }3 |9 n9 T   
5 T' F& i+ x9 n1 r3 s$ J   gen price5d=v5 in 1/20
! Y9 |8 i8 e% z" b2 I2 J  k      $ e. o3 t0 b  @8 v
   gen price5yy=_n in 1/20+ M' h& I  G9 U% M2 `7 G* x1 G
   7 }7 `/ A( _9 }5 W+ [6 a  g
   gen price5y=price5yy*(dy240max-dy240min)/203 v1 @8 _2 e& ~& Y
   
; N  ]# E, q: p4 v! G% h9 I. V   *price5y &price5d
& f8 ^7 W& h* z: U3 p" c7 d% B* o   ) ^+ b" R# J) X
   gen priceny=price5y in 1
! k1 W: R0 s, m! G, s6 L     o( x( L* U/ O
   gen pricen=v5 in 1! c( h+ j2 J, f+ N( V  s; _1 \

/ R( r+ @5 T7 G! s     
2 u( y( Y, x) |9 f$ }/ _   *priceny &pricen! ?. s9 ]  d; d8 i* ~/ [. b
   9 U; ]5 s; [* X$ c
   ) m7 C* [" _0 s1 a7 E
   *-------------------------graph------------------% c' u* d: v2 C4 V# y8 y
  4 Z( w- c. i- q$ o
  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)  W! \- C( k" O6 P/ r# M6 l
$ E  S# H+ y& t5 w9 `
* ---------可选项目----------------------, g3 [# E) C( T+ }. t: R3 o# U, l
*(spike yxis amean,lc(blue))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean))2 R1 ^' Q0 ]) l4 X3 g& W
}9 x. n1 X8 l' `: w  S1 n& p; m) [
end, Y4 I1 T  s! B, }& D

该用户从未签到

66#
发表于 2013-2-7 00:03:44 | 只看该作者
awer 发表于 2013-2-5 14:40
( R9 ^0 M; L1 {+ r, a抱歉,最近太忙了
# t* W$ ^# g/ m: A
$ y4 u( G! H$ L  g5 l300236 我用下面的程序试过,没问题
* H3 _+ a. C5 J4 C& o8 l" f
哇,谢谢,我仔细看看,这些字母数字代码晕了+ C  ~: K# w; s+ |7 i6 Q3 W, L

该用户从未签到

67#
发表于 2013-2-7 04:05:03 | 只看该作者
stata是不是商用的,R里应该有类似的东西吧

点评

老虎推荐的一个处理数据的软件,很小,只有10m左右,很好用  发表于 2013-2-8 01:27

该用户从未签到

68#
发表于 2013-2-8 07:16:33 | 只看该作者
awer  老虎推荐的一个处理数据的软件,很小,只有10m左右,很好用  发表于 5 小时前

8 c  f# z; f0 ?1 z, V) E* ?+ M% a; P/ g0 X
这东西是开源的?知道有个统计软件叫stata,不过要收钱。

点评

就是那个,找破解版  发表于 2013-2-8 09:15
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    69#
    发表于 2013-4-17 17:14:44 | 只看该作者
    准备试一试
    ) M7 u$ j8 h" E0 b0 [先找Stata软件
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    70#
    发表于 2013-4-17 22:21:02 | 只看该作者
    本帖最后由 汉水云潇 于 2013-4-17 22:27 编辑
    * c' o7 X* \6 T6 I9 c) ^7 k! N9 X( g$ }1 n% e: V  i; @& B: p
    晕呀' @/ |3 n# s9 M
    论坛复制程序代码
    9 X* y4 I/ e/ W) \* e1 G- @乱码夹杂在其中2 Y6 t" l4 \$ K6 [  y/ v( B* x: V
    很烦
    1 d; j" e0 q2 Q对了两次* D! I; K8 j( A; C
    以为没问题了3 O# w+ _# Z  ^7 I

    8 T: y$ O' r  k0 \7 h% U4 }结果  H' O$ y$ G- d% W7 N
    执行后
    : J$ h% p* B6 A0 R* S  [4 g- ~1 H还是出现
    / w! I( s: E! T8 Tr 1993 S( h# Q# [6 Z, c! l% r( Y- ~
    的错误1 I2 W- Q' o! t3 N6 i$ o  B$ a
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    71#
    发表于 2013-4-18 07:50:56 | 只看该作者
    试验成功,下面是三一重工的图
    8 {4 w  O! \( q9 r! f
    & S, Y9 j2 Y5 l1 V5 k. U, X

    点评

    我的怎么没有红点? 三一上市以来的成本才1.8元  发表于 2013-4-18 08:02
  • TA的每日心情
    开心
    2018-8-27 15:57
  • 签到天数: 2 天

    [LV.1]炼气

    72#
    发表于 2013-4-26 12:46:50 | 只看该作者
    先用用试一试,不知道准确不

    该用户从未签到

    73#
    发表于 2016-3-12 15:46:06 | 只看该作者
    噢。。。这个帖子好,比较直观。
  • TA的每日心情
    开心
    2018-10-15 15:53
  • 签到天数: 80 天

    [LV.6]出窍

    74#
    发表于 2016-3-21 23:51:14 | 只看该作者
    这个帖子值得学习。
  • TA的每日心情
    开心
    2016-1-11 12:47
  • 签到天数: 2 天

    [LV.1]炼气

    75#
    发表于 2016-3-22 10:41:13 | 只看该作者
    感谢!!!
    回复

    使用道具 举报

    该用户从未签到

    76#
    发表于 2016-3-23 10:23:05 | 只看该作者
    明月回春 发表于 2011-8-13 20:17
    4 Z3 U7 n1 i1 X+ j' {- ?8 _程序写的不错.& r( l3 s  w; H5 ]- i$ ]$ K
    不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...

    " @+ e8 L) M+ T+ q老哥,也是山寨这篇文章找不到了,不知为何?

    点评

    日久年深,早就忘了。见谅  发表于 2016-3-24 09:24
  • TA的每日心情
    慵懒
    2019-4-17 22:04
  • 签到天数: 633 天

    [LV.9]渡劫

    77#
    发表于 2016-8-3 13:28:29 | 只看该作者
    提示: 该帖被管理员或版主屏蔽

    手机版|小黑屋|Archiver|网站错误报告|爱吱声   

    GMT+8, 2025-4-4 03:48 , Processed in 0.047621 second(s), 20 queries , Gzip On.

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

    快速回复 返回顶部 返回列表