设为首页收藏本站

爱吱声

 找回密码
 注册
搜索
楼主: 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 3002360 D* i& ]) y3 Q7 I2 L9 q
statement out of context& v' m/ i8 d7 a8 z$ `' o) H4 m! I, A
r(119);1 @* ]+ |# g0 g( l
, t4 X1 |/ E  P) y
大师 就是这个

该用户从未签到

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

该用户从未签到

65#
 楼主| 发表于 2013-2-5 14:40:59 | 只看该作者
maodeng 发表于 2013-1-28 13:13
9 q/ ^# N& K  H# n" O/ ?# C. hello 300236
) V1 i' O0 @- Wstatement out of context, I6 n; n2 q" {0 `, T
r(119);
0 F; _/ I, c6 @, O+ U8 u4 a4 [
抱歉,最近太忙了
2 ^" d; W/ o0 l. \! J/ A% e
* r- h' t8 P( n* j300236 我用下面的程序试过,没问题8 a! N* _( a1 q, z4 Q. O

4 j7 \7 U0 x/ L$ L. R你把 D:\stock\test\source 改成你导出的数据存放的目录,再试一试4 A8 V0 u0 t# k+ ?* F
0 w. C. a0 o# `, G( ~/ ^0 v
capture program drop hello
' g/ t9 t  w; p5 w
$ z9 V3 q4 I* P, F8 c$ B/ `program hello
8 ?$ d3 v* V$ I1 F$ _, t3 \" r% G1 V. U: O: R3 k- P$ d
quietly {
- ]3 {6 q! E" [% [3 O  S
; a- H( \: O6 d* e/ V8 ]$ ]clear0 M, I9 L% G8 U" K  m
  H& d7 ?! y& S# w/ a, M1 Y+ ]* Z
cd D:\stock\test\source4 ?5 P$ ?4 W0 _  Z! ?
2 ?2 t/ \" @) Q. N7 r
insheet using `1'.txt; X" t0 Q/ C5 O9 Z4 H6 ?* t8 F
$ c* e& v1 {& I' S
   keep if v5>0
. z$ n3 t: L9 t2 Q2 M8 B9 ?" Q" g   
) J/ [7 {0 c$ m! ~5 d" B, t9 {   gen vt=_n
8 d9 `0 U% i) `   * l. ?6 h  a8 E* M( \# Q4 s8 e
   tsset vt0 l) _% A1 G1 {( ~( ]- n4 W' D

  t; V0 v3 Y% N3 A; @$ u( o   gen zf=D1.v5# k* s. K& {, W" |* ]& R& W

1 M$ `/ Y2 H3 {. R3 u( o   gsort -v14 h5 f5 b# p$ @+ V9 U
- ?% j/ S, R1 I2 M7 ^
   gen avol=v7/v59 `3 n& K: L! Z1 y8 }
   - B; F  R- m3 z: p; |" u' E
   keep if avol>0
# k1 H& `, Y- x8 T   
: Z. _, O; }9 [9 `7 J  s5 z   drop vt; t4 A2 v# c+ _5 E
  
- N3 `7 q0 e2 ]# q   gen vt=_n
  Z/ _1 [9 R9 |! n   
  v2 b* w8 f! h, x) O   tsset vt
4 k9 N9 S+ f8 r' s   . W5 D/ d% y' o  S8 a
    sum v5 [aw =avol]0 c: c+ p- V5 h3 g

' P( b3 U, ~3 ]6 U! ?   gen amean=r(mean) in 12 o2 v. l0 R7 }5 D/ B* r" r
   ! b2 S$ R8 @5 u) C( h
   * 总加权平均值 amean, s- W& V( G: G- \! j  j, j) q' p
   4 R. S- o1 D5 Q! w8 E# o
   
0 w/ R" W2 c+ j& {) D9 a8 z$ @   keep in 1/240; P! c" V7 h- l- G0 s9 v/ x/ h6 C. b
, R+ H/ t9 T8 R7 J- B
   sum v5 [aw =avol]. ~& O4 a( c- e# t% ~
3 W0 E* A, W: N$ [6 f" M
   gen mean240=r(mean) in 1# ?6 `' b+ ~/ |5 @, X0 l
   
7 {' u0 n4 i# D   *240加权平均值 mean240( ~; H& }9 O7 H, G+ D) S
   7 U5 J5 u1 j0 B' ~% r
   set obs 500 . W; q+ j' i5 O3 T: U
   $ M* q1 U6 [+ _0 U4 i5 e. I& v
   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph1 k% P( k9 }# a1 ]# w9 L
   
8 k' |1 P# m5 W7 y5 M6 w1 X) d   *240 kdensity(dx240 dy240)
# [4 `* A& O5 c   , L+ {) ]/ U; j+ P8 w' b
   sum dy2404 H0 m2 h8 J& u: u/ R. ]
   0 k9 C: N8 \' j
   gen yxis=r(max) in 1
% U5 A6 V: S: b   
8 j& N: t  `" c  H9 N6 D$ ?   gen yxis2=yxis/2/ {8 [* r" F/ Y" G& V# |: c
   
% e, R5 d2 x; n   *yxis
% |0 w1 I5 n& v   + ~  @( J& w; Q2 T3 \3 [7 e( ?
   gen dy240max=r(max)* S' @/ P! ?5 u7 F- v' [7 \5 [( l' J
   
/ F/ F$ g/ c. T9 g  R   gen dy240minp=r(min)
. q" M. Z/ j. b8 a) |) D : X+ `& D: J- W0 K
    gen vtt=_n. m5 k4 B) h' _3 o

. N  H" [- E: d3 m, y( J    tsset vtt
' j: o& b/ p* c8 L! J
5 c! U- E6 n% c   gen ddy240=D1.dy240/D1.dx240: F0 O% T$ d$ A* s5 n5 `! B" m: G* }
   8 N  U/ Z* ], l; k  `* T2 n
   sum ddy2402 `- q1 t2 s: Y
   
2 q/ N- X2 X! S# f0 D* w1 U   gen ddy240max=r(max)
/ Q1 Q; ?$ e- \0 s- A   / G, c+ m& h9 ^6 Y9 u3 e
   gen ddy240min=r(min)
1 F  C  s1 S  r. ^! U1 n     ) d* K: |) D- l( E9 Q
   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min)( {; N0 ?2 X+ s
   " M$ H) G; }& K! N  ^! F+ P+ p
   sum ddy240g
8 ]7 I) o" g5 n7 `3 P   2 d3 ~8 L& h) A3 P; p
   gen yxis3=r(min) in 14 V+ S7 j; ~4 |8 r6 P: c3 S) e, E( K
   - H5 N5 ^9 ~6 n, _, _8 H9 g' U
   gen yxis4=0 in 19 A1 ^/ D; y8 q1 |
  
# s/ h$ ]  c% J! r" F( N/ b% [1 g2 `% m  *ddy240g
& y; Y/ j8 q/ I8 ~, A   
8 j) w5 m& F. ]5 d   : _& c7 r+ `& H! {6 Q4 j& h  C
  preserve 6 t2 i  H  Z) H4 L& w
  8 {8 H% t+ B7 W8 h4 a+ F; ?% o
  sum v5 [aw =avol]
( [: z, w3 V; {, L5 X0 p  
$ z2 u* x9 v8 o; ]: E1 Q/ S$ Q  keep if dx240<r(mean)
' i: C+ e# _; j8 t  
! n2 N: S4 l8 l# V  sum ddy240; J: o* b9 g& L" n
  $ _, I# P1 }( C( ]7 {# m
  if r(min)<0 {* r5 q7 n8 ?0 E# X5 B6 O
        * A/ x' |# c* f! `9 u0 s
                keep if ddy240<=0
( F. D2 Q% O3 w               
6 i* R; I7 X' ^) R9 ]+ q0 n                count2 H# k+ _/ \( D; F4 s* m) i( T, ^
               
- z% h' g$ x" o9 g" \1 m3 o. H                if r(N)>2 {
- _4 M6 c; }; s8 I" z, Z                 9 a: d' I; |& C
                 pkexamine dx240 dy240
0 l( c& Z- H7 {: \8 ~               
: \( {& }& O  Q  T% F9 J0 c                local tempminp=r(tomc)' b0 }' M( `8 i* R* s7 `. }3 t1 u
                restore 0 L" I  D0 ?/ e
                 }
' m& ^! t5 |# ]7 s+ X                 . e4 `0 R' |, V" H
        else {' p, b  _1 b# G
                5 ]7 ~4 y8 o3 S8 B# _2 R
                 di "cannot find minp"
) b: i0 `3 {9 T: {; A* m                 - W1 _% a; J% D+ r) ~
                restore / I5 M" p4 s' O1 s1 \* O
                 sum dx240/ v+ T6 v% u9 z+ D8 S+ `
                 local tempminp=r(mean)9 A) Q# J. b; A3 A5 m  M% U7 F
                   C% o9 c" ~' |
                 }$ \9 i! {$ m" Y7 }3 \& n
                }* k& Y+ s: G5 `, P6 v  m2 B
   else {5 y0 P; D8 u+ _! ^' V0 ~
                 
+ H+ H$ v6 \; i2 o/ l                 keep if ddy240<=r(min)$ J* ]0 g( N4 B. H9 }6 |: C
                 
- v. k, V5 F, f$ |  e  p& m' \                 sum dx240
# k, C4 Y# i7 V) Y; M) `" b                 
. R4 }+ D) y0 m# ?5 R# i                 local tempminp=r(min)
8 G* m1 ^% a8 q% o5 F0 c                 restore
$ _/ d6 U9 j! q6 L, e2 }                 }
% z4 y. C+ O# Y5 |$ }: _: f
$ P7 W) }' W9 {* M& L& X' K' V* ?( p6 i0 ?' v8 ^
# ~' Z  a, A4 r0 |
   gen minp=`tempminp' in 1" b+ o1 O4 k4 b$ s
   *240 minp
: ?, i* j7 _0 k, k3 z
9 c" j! U% G% D
) V/ a, Z0 `+ e9 e% q   ! M4 O- J! Z, {3 d" s
   preserve
" I5 r# |, }) ~. l  [# v   ; `8 n6 O; J+ d. Z& _7 y
   sum v5 [aw =avol]
- ~! q. s8 [! M6 V- }. x2 t" S   
! F; x& p* ]$ H% p9 [+ Y, K   keep if dx240>r(mean)
9 G( Q6 Q' V. e9 v   / V7 B- x7 G) ^
   sum ddy240
  Y9 N+ [, K+ t   % {5 I- N; E1 C
   if r(max)>0 {
* A  F' w" v1 e9 M* R. y                - _/ h: h7 [9 E; G+ s7 q
                keep if ddy240>=0, J; J2 r2 r: U+ s- h
                + ^# u" Y  q8 l' g# N
                count
. n) z3 D+ C( _) Z0 N                ! w7 ]2 o, v1 }
                if r(N)>2 {0 M3 N7 C/ z3 Z& c8 U/ ?$ I
                 
( m' N$ B8 V, l  A                 pkexamine dx240 dy240
6 {1 i) d6 L  Z1 a( n4 X1 ?                ' Q. d( T3 S( c+ K6 y2 E
                local tempmaxp=r(tomc) 4 i8 F3 Q6 r& K! u* A
                restore ; Z. ?* H; y0 P/ D9 }
                 }
4 T' {0 G  v# O1 l; C  A+ t4 C                 / Q# z# p8 Y* C- H$ Q9 `) s8 `$ E
                 
9 r  P- u7 ?. H0 G        else {
4 P8 a) t$ [( e: a" ^2 T                restore 3 h/ H$ ^6 e% T  R; K3 t9 j
                 di "cannot find maxp"  h8 \" P! n& `/ k- |
               
' P) X, Q8 H3 r& l8 b/ {9 V                1 @# G8 r5 x# ^7 k( y( X
                 sum dx240. T6 _1 S0 J$ H: j
                 local tempmaxp=r(mean)0 Q3 f# t5 }. N
                 $ [; L2 z' j3 ^& K0 g& N
                 }
+ l: c" R  A7 p! M4 E- Z                 ( F5 l) p, v' j$ [# i8 c6 X1 H
                 }
: v" D) `: v# a% e                 4 K) k3 G1 A" C* d) T# S5 u( V
    else {, G/ |& _' }0 E& [
        ) X! M$ Y) U/ j& a; V$ I
           keep if ddy240>=r(max)1 a" h4 s! ]1 i; i
           8 a/ M4 X, I3 z: ~
           sum dx240, j5 Y" _! L2 Y. r& k) Y# \
          
, {3 ^, [7 x- S* a           local tempmaxp=r(max) 9 F/ x" z& N7 |0 G4 y
           restore
( U& i2 q) A  M1 l$ S           }! W8 |# ?  }7 K
        : n1 I. e+ ^2 B
( y8 a/ Q" R* w& d9 u
  
: I9 k9 u7 e! J4 Z; h2 U& n, N# Q5 M' _, e7 p# ~
   gen maxp=`tempmaxp' in 1
" c5 t1 `8 @( y9 b   # Q/ K3 Y+ s" T2 G: \
   *240maxp
- W. F& H+ B* ]; F   ) \2 e( k+ `* U, u1 l* u
   
$ ]7 K& c, {7 p* v- @! f7 D   *-------------ddy240pminp左侧高峰值-----
; d1 f( q: H; k- w     B. n4 \! s+ p
    preserve
2 b; o" Q' u5 T" q9 U! Y2 o   & N, ~( j/ s* }- w1 x0 E
   keep if dx240<`tempminp'
. R4 D2 C2 I/ ]) R7 H   
9 @: ^0 S3 p  _8 z9 S5 O1 c6 C   keep if ddy240>00 U  L! `! T% C+ \6 j# l* t
   
# y+ L7 c, e' j# _; D# z: v   count0 [8 a! d( l$ {! |4 Z  \  V* M% G! [+ Q
               
5 Z6 ]! f' h- C. V+ K  H+ u3 c                if r(N)>2 {2 G8 _% s" A) C/ e* m: C1 Q9 n, K
                 0 ^8 ~0 s5 L+ @7 [$ T9 p
                pkexamine dx240 ddy240
" s+ q% B# ?  T1 c               
0 r3 [! X" n" ]' w; o' N                local tempminphddy240=r(tomc) 9 k' ]6 k" W* P4 b7 w% Z. f1 o# _
                restore
$ ^1 b+ P! k6 E$ }! J                 }
  ]" F9 W" A3 Z( C- n                 + q5 ~1 o8 ]( \4 @3 E- H! R  k2 m
        else {
; w: a/ u" \7 y9 O                restore ) Q& a2 R. ?" R
                 di "cannot find pminphddy240"
$ y. X. o+ m3 K! f                 
  h5 w' A* e5 m. N               
: z5 a6 J/ @1 @+ t( }& `& @/ q: Z& H                 sum dx2403 `# G; r; E" x9 i" I
                 local tempminphddy240=r(mean)
4 K  {  M6 Y! J$ F9 F/ ^                ; j, O/ h/ `) s0 D' {8 \2 Z0 d
                 
: `2 l/ I; O2 J! M0 M                 }
$ I" {' w# _# Y) a                 
& g" h, v: G; ?6 h) L" f! V   
- |8 H8 w( ?& L# @    ; v: K; ?. t" ~2 A7 w/ [# e4 ?
   
/ Q& M5 h5 R8 i9 z1 ]( Y+ K& Q3 B0 N   
! p. S, ~% c5 V+ J2 z! O   / V! |; D; ^0 R: u" m  S' r
        gen pminphddy240=`tempminphddy240' in 1
: X- ?4 g8 C9 M2 y2 ]9 [/ b       
! Z+ `, F' W. z* V  r9 K' U6 B        ' L/ Y4 E" [' O4 Q! b/ B+ K: ?7 M
        *-------------ddy240pminp右侧低峰值 -----------------' H& l5 Z" @6 D) L
    preserve
3 q9 D4 I2 R' h- _7 `
# s/ e' E. G" B5 F. \   keep if dx240>`tempminp'% u$ z' Z5 C/ z3 b1 ]2 O
   
/ R8 z1 K+ c+ y$ C1 n( @/ X   keep if dx240<`tempmaxp'
5 z* ^/ {' f- q8 C( t& q! [   
8 m! w# y$ p4 F3 `* a0 n   keep if ddy240<0; F0 A  Q  }2 [& L
   % n9 v+ l! [8 U5 o2 L: o/ S  I3 P
   gen temddy240=-ddy240
) u" i) N. f: U2 x- m8 B   , w+ c4 c7 c5 o4 I; E
    count$ w6 a  M- v; T
                5 A% v( D- e$ e" P) n+ {8 W/ Y
                if r(N)>2 {
3 e9 X- C; r/ r8 r) a                 
9 k+ X6 a! M. T" Y  W  u  N& f* \                 pkexamine dx240 temddy240
- a( l* T; z0 q   4 N+ _/ J" Z: t" c" W
  local tempminplddy240=r(tomc)- ^& d) ^$ \+ x- X1 X* T) r
                restore2 w' x* F0 O/ L4 ~' n+ w8 V
                 }
2 i7 i+ J& a# s; g+ [; t                 8 C) b& g  R) i! F2 D" {' r
        else {- ]' _" c  K  S  z7 ?, b8 v  k8 z3 S
               
& M7 C# k* `- A9 ~9 r' |7 w                 di "cannot find pminplddy240"; R  r5 ?9 v- G5 C/ H+ J# D
                restore7 F# p/ b" f+ N- y4 S7 G
                 + ~# a+ @& H: B6 O% S
                  sum dx2408 D& `5 u3 S8 i7 ]+ W* y' J/ n
                 local tempminplddy240=r(mean)3 n& p. p# }0 G" }6 K  k" Q
                 
5 M7 R0 K6 ^4 y; a                 - {( g0 ~" n0 Y4 D" b9 W# h
                 }/ H1 E& F* ~" m  ^6 m
   
& ]" r# L% `" F   
# @& L' G& ^- }1 K; D# g! u) w' W   4 p, \) d. M& J5 q& @2 Y
   
0 L7 W; _6 u3 ~   ) O5 Q5 ^" _2 f1 O
        gen pminplddy240=`tempminplddy240' in 1
- ^) @" o* D" l+ y        . E) D. [1 _! H. ]/ N9 ]
        *-------------ddy240pmaxp左侧高峰值 -------------------( C4 w) n. ?. t
       
0 k% T1 n: E, Y         preserve
& W# }1 @& X0 D6 Z8 R   
5 ]& y$ ], }" }$ j+ d7 t# L   keep if dx240>`tempminp'- H0 F! T: {; p2 c* V  M
   1 a4 {/ S6 B# a% ?; T' p  k. O
   keep if dx240<`tempmaxp'
5 _4 P& D5 Z$ }7 T4 r5 t& B   ! r% h9 C5 _& \; `- X
   keep if ddy240>07 V) Z/ c) ]9 G- R
   count
0 \  Z4 J$ c, H               
( f7 f$ E! z9 z3 p  }7 l                if r(N)>2 {9 h+ t1 M( z5 J) c7 S# ~4 s) ^
                 
; m8 }' ^4 m4 C& y                 pkexamine dx240 ddy240
0 k. @: r/ D7 T) [& A9 M   
  S3 i0 @# ]# x* ]$ M   local tempmaxphddy240=r(tomc)
. o# K0 H) T) W6 k7 }. Q. {' W   
8 P# }4 Q  S9 z1 F! k   restore- k- e, a' A% M+ I# d
                 }
" E0 W8 o- R. g# n" O9 Z" T- G1 c                 
- Y; n4 b' W$ I# X' z0 J        else {
, ]1 I9 W% @* a: i2 u; \4 \                6 h3 D& K( p4 K0 f$ n
                 di "cannot find pmaxphddy240"9 L; j5 ?3 g" m/ `* j# s
                 restore
6 Q9 [! Y& l- u6 n) Y: i               
8 B& y+ T4 Z5 l% u5 I; Z2 a- D                 sum dx240! c$ e5 G) x0 E
                 local tempmaxphddy240=r(mean) 6 T! e0 w7 a1 u) E
                 1 F4 r, W$ }& O! Q: j
                 ) I$ g/ b: |, d$ I, _) B: z1 J2 Q" P
                 }# t0 `7 ^1 G/ `1 E
   ; R6 E! d1 X. i& U9 W" w4 {: N
   
1 L9 b+ d( K$ j. p5 }% M    6 M6 y* E. j; h# |
   # Q* C1 @1 K4 F
   ; L) u9 l* x, {+ l9 [$ Q* s
   - J, R( E/ x$ H: B3 V( T( u
        gen pmaxphddy240=`tempmaxphddy240' in 17 }  Z: \* M/ ~; d% X+ S4 K% `
        , }( R' ^+ T0 l
          \2 E* p5 J( H! C; U$ d
        *-------------ddy240pmaxp右侧低峰值 -------------------5 _5 f! p, L+ D& n
        - i' q* M, n# }3 D
         preserve 4 Z  _9 `6 i. \" J$ S
  & T6 \9 Y& j! |: D3 t9 G
   keep if dx240>`tempmaxp'/ F& x+ f) ^/ b( g. B( J
   
7 m% b4 z- N/ @  P   gen temddy240=-ddy240( A- c6 l4 V" l/ ^6 g2 x' A
   2 P" V4 i7 u. x2 N
   keep if temddy240>0
& I- J. D0 m2 K: H. E4 R" N   
9 F+ c9 Y) K5 {( ]   count  u' z& n! `  j5 D3 ~7 E
                4 s: e$ h* B4 H9 b% M% n6 [
                if r(N)>2 {
: ?, C8 L  P* P+ ^6 y; R                 * Q8 o3 {) w  W- J! K& n3 L( z
                pkexamine dx240 temddy240
) T7 q4 `$ Q6 h1 ~3 g) s   " ~  q( i* U& ?" R! t* Q4 I7 E
   local tempmaxplddy240=r(tomc) * r4 G+ m1 k8 N8 q/ V6 x
   restore4 L$ m$ T& y, _$ {
                 }# i0 ?8 ~: c& y4 Z$ `5 U
                 " P( i. K, q2 E0 H- P7 ]
        else {$ o; x6 X  b+ H. }* V
                restore( p6 H& O5 E$ D; K
                 di "cannot find pmaxlhddy240"
# F( ?  l% r( _, j1 Q                   y* ?  a6 w$ [. B' A" K
                ' h  X, W* c+ K. h( d4 g
                           sum dx240# l9 Z3 d* k, \8 P
                 local tempmaxplddy240=r(mean) in 1
- ?3 i3 Z7 |" C+ l) B                * \4 R1 `/ u8 I( f6 v
                 , a* T4 e. G2 m/ L- k
                 }' {1 i$ \& B( }8 v8 L3 e
   / ^  _/ s+ ]* X* ^. l, k2 N* s
   ) h4 R& ]# f8 n$ @
    + W3 D3 \2 g3 q9 U7 [+ x$ ^
   
/ Z: ?& X  Q* f- [! B! V. S  z5 |   " J( y- Y) W6 l7 D
   
4 X3 R; ?, \; D$ |- b        gen pmaxplddy240=`tempmaxphddy240' in 1  f6 w" M9 D3 t3 Q8 b6 ?7 k- ?
       
  U2 r0 d$ J: F        *-------------------------------------
- L- {. w/ F+ {7 ]; r   ' q" w$ ?* y5 i# u
   gen price5d=v5 in 1/20
' q/ J5 S( W4 P9 b8 ?! G" D+ n* G) ]      4 |1 X" @# f1 _# [
   gen price5yy=_n in 1/202 s$ P7 F$ I% l8 ~+ I
   3 v9 v" D! \& K: u: X+ h8 V# f0 p
   gen price5y=price5yy*(dy240max-dy240min)/20
+ Y" m3 H7 T6 E$ F* A0 H4 p% K   8 s+ O- S' h( z* x3 X
   *price5y &price5d
4 ~% N1 C; [+ x% Z' [   
6 A7 L- v  A5 e' k( i; b' n   gen priceny=price5y in 1
! e6 c: A' V; G) L7 h1 t3 R   
3 [9 `* F. t6 i0 v( {8 ?   gen pricen=v5 in 1( H3 ?/ a2 ^# h' o+ i! ^: q/ i2 o
; e. [: D) ?2 N2 f1 g
     
7 H' C% M+ n5 T   *priceny &pricen# T) V& a" U3 @& a1 r" l; d
   
( k# P( y" C8 z7 f4 H2 Y: T3 I   
6 h7 \4 u$ m- ^# b6 s  }   *-------------------------graph------------------$ N2 [* q( L& U5 s1 o% _
  
( k7 E! ^& \# i# _  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)
0 d1 ?9 ~8 G4 y( m
. Y' _' x% x' X: |* ---------可选项目----------------------8 }) X5 s2 g* f
*(spike yxis amean,lc(blue))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean))
7 U  u. N% t. e$ D}2 O- ?) s) V  K& d9 A+ B
end2 l8 Z" Y* I9 V& S

该用户从未签到

66#
发表于 2013-2-7 00:03:44 | 只看该作者
awer 发表于 2013-2-5 14:40
# c2 a3 H# i8 M' A% Q抱歉,最近太忙了+ S; y$ F- J, |+ M+ O7 A/ O/ M

9 g" ^8 u' {# [- G300236 我用下面的程序试过,没问题
  T" Q2 M: ]0 k% D& {" c, g3 D3 F
哇,谢谢,我仔细看看,这些字母数字代码晕了
  T: y0 n% K6 q" g

该用户从未签到

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 小时前

( p# U& Z+ h5 |3 P$ f
! A& h0 K" i* n3 L2 p这东西是开源的?知道有个统计软件叫stata,不过要收钱。

点评

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

    [LV.3]辟谷

    69#
    发表于 2013-4-17 17:14:44 | 只看该作者
    准备试一试
    . c/ w* {- _( h' g/ W9 Q先找Stata软件
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    70#
    发表于 2013-4-17 22:21:02 | 只看该作者
    本帖最后由 汉水云潇 于 2013-4-17 22:27 编辑 2 s$ z2 N2 O9 B$ @) e8 }" o
    & J& Y0 @% n. P+ o& Q7 P% ?
    晕呀
    * p- {; X* C) O% p" n论坛复制程序代码
    9 Y8 [6 B. t( T0 J' o' ?- q$ @乱码夹杂在其中& [0 {& K! O1 F! ]5 O
    很烦
    : Z8 b" o6 w2 q对了两次# |0 c/ @9 [6 A! s3 g% L
    以为没问题了* @3 O( K' a  ?% Z( g3 w

    8 C/ W% c; \3 s8 D, U6 x4 C结果. G; P/ J: u! n( w
    执行后
      N# ~% B" Y# s) N6 R还是出现
    ' p& f, e4 Q, z# k0 e+ ~3 wr 199% e) ]0 w# _0 [) Z
    的错误
    % A+ U7 @, _" L4 O# |
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    71#
    发表于 2013-4-18 07:50:56 | 只看该作者
    试验成功,下面是三一重工的图+ N& j. m6 @( N8 v$ ~( e1 p
    4 Q6 h! C4 v* m( {( O; F2 B# ]

    点评

    我的怎么没有红点? 三一上市以来的成本才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
    9 l  w! y- \  |: s' ^程序写的不错.( Z7 C8 G) c. _: \& v- i
    不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...
    6 R2 _5 M! l9 V* p* V/ V- c/ g
    老哥,也是山寨这篇文章找不到了,不知为何?

    点评

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

    [LV.9]渡劫

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

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

    GMT+8, 2026-1-14 22:05 , Processed in 0.041939 second(s), 27 queries , Gzip On.

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

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