设为首页收藏本站

爱吱声

 找回密码
 注册
搜索
楼主: 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 3002365 W" T6 L6 x/ ~: N# h2 D
statement out of context) p! k  f* C2 {: Y
r(119);
! ~; d" ?7 t" Z3 s0 c" _
" \( Z9 x5 n- s$ F' g! `3 z+ V大师 就是这个

该用户从未签到

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

该用户从未签到

65#
 楼主| 发表于 2013-2-5 14:40:59 | 只看该作者
maodeng 发表于 2013-1-28 13:13 ) X: G! H; `  |2 N" O8 M
. hello 300236+ ]1 Z. D, {/ }% I  `
statement out of context
8 K6 _9 f$ B; v  Q$ O9 ]# Xr(119);
6 `- p: W" A$ H  B& c
抱歉,最近太忙了
# {8 }4 V: ?! i) }9 E) u3 a
3 o# K6 Q% B; I5 @9 _; I+ q300236 我用下面的程序试过,没问题
7 R0 i0 D) x* ~: V% N  v# s( Y1 R- |( ^' ?; X
你把 D:\stock\test\source 改成你导出的数据存放的目录,再试一试# z8 T  h/ e/ m1 I2 S" D' @
% U! j* s+ F* j4 q" {% v
capture program drop hello. d3 }' b5 e6 l* s1 u3 w- B
3 _$ C) |' i3 ^) s, E
program hello1 e1 t3 I2 d$ O9 s# J  K- x4 g

7 c" b, F9 X& M1 q9 i, ?; T- c/ K quietly {
! @3 |/ ]9 `' Q" f7 a
) K: r9 M. t- Q! D4 \7 W  t" iclear$ A3 J' ~, x8 r# g" y2 t' _

$ J6 L$ C* u2 g1 ^4 Y0 |cd D:\stock\test\source/ t' D' y" m; u. X' M
9 ?7 S3 h! w* b& q' X0 A
insheet using `1'.txt# r' p# J3 u$ I6 j4 |$ Y
4 w9 d2 F9 z7 {8 I( q
   keep if v5>0
$ Q6 E4 O, x6 C9 U7 Y4 e    & i! @9 T* a. w* A
   gen vt=_n
% O( J4 X+ I# S2 }7 e6 Y   - ?" L# j3 `. q  h& }* U; @& b  f
   tsset vt
  [9 a3 h  E  H/ b  K4 O
% V" ~9 d4 H( B5 T4 u   gen zf=D1.v5
+ k0 i5 s+ h- V
) n8 N3 f' r$ A7 e) e% j  Z/ @   gsort -v17 F1 x& k8 W3 f' @. M

) I, a) R* e( }0 c* J' }3 E; A   gen avol=v7/v5# f6 ~5 P& Q0 r* E- q
   
# ]% w3 q$ r. x$ L9 k   keep if avol>0* h+ j' U8 L; D6 }3 j3 G! I2 t
   6 q- J# \& }% Y0 h$ b
   drop vt6 `8 i' ?4 @2 g
  5 t6 k( Z1 m- S
   gen vt=_n6 {1 h$ p8 H* ?/ ?
   7 \7 ~' k" f& P$ r
   tsset vt
( x3 I: x9 P% ^0 ^) T# {   
7 J6 m6 |+ P& Q; j  W2 L    sum v5 [aw =avol]5 D, x/ J1 v  d* O7 O/ J

. W; V$ d! a# H' v   gen amean=r(mean) in 1! e6 G! b, H6 F5 K! Z
   
% U% H: a7 {4 D+ E8 |" l( u   * 总加权平均值 amean
3 w' f; p0 h2 Y; R' N! G2 e   
1 s4 t7 _+ d. V9 M; _9 W7 j* y   ( v  a- z) R! l8 o% Q. P8 c
   keep in 1/240
( @+ ]  f* }* `) S! X+ g- {+ `! U8 A( W( Y
   sum v5 [aw =avol]9 A5 N  e+ M, U0 J$ e. O

) l, t+ n0 P0 ]% o   gen mean240=r(mean) in 1
- l$ U+ @* G- {5 ~( p# M   
* k6 b. O6 h6 Z9 F- d* K   *240加权平均值 mean240, Q$ V" G) S) m5 c* G& Y; M9 {- {
   7 `+ |! G0 a" @' G7 P; }: L% x
   set obs 500 1 i3 d# Q6 y! q. A+ y3 W
   : d8 z3 U, F4 g+ g: A6 R
   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph
% ]8 @& s# ^+ Y3 \. z3 S& j   & c0 P8 ]; f- i2 f
   *240 kdensity(dx240 dy240)
& q; s) O: i8 N3 f5 ~$ Y   6 o% d3 |8 e9 u# s+ l0 l: |
   sum dy240$ G9 @/ I9 ]5 M4 S
   
4 w, \, E8 \! W  O, p6 l   gen yxis=r(max) in 15 z$ s  M/ c$ V0 m4 O
   
& K# K' N' i' y2 J+ ^- n   gen yxis2=yxis/2
( q: E& I  S, p6 B0 ?6 N% Z* R   ! }3 J3 a: z( m; j1 ]$ H
   *yxis: [$ Y) Z8 h/ j8 Z
   
9 @* {# m# k' ~3 t6 ~2 K0 v   gen dy240max=r(max)' L' u) j! r7 {# q1 f
   
$ N! U0 n7 b) `   gen dy240minp=r(min)
% r% z+ S4 e. o# Q0 Q$ Y  h / r: H$ y; A' a, g4 v+ q
    gen vtt=_n
7 E/ x1 u6 N3 r5 B: Y
; m% ]7 g" `5 ]& Z  ]; e    tsset vtt
0 u1 k$ M' e& e; }2 O9 y" O8 P  P2 l  r" A
   gen ddy240=D1.dy240/D1.dx2402 w9 g" D  W; Y" t* a4 q9 z0 H% Q9 X
   
# F; y  g" T9 q# n/ P   sum ddy240
8 a" ^. o" N  |0 [* C) O   2 l6 F8 T, N7 H4 _( E# S
   gen ddy240max=r(max): X$ ~" ~$ V3 F7 b3 j0 r
   & u0 u. i% }* m, O# R, Y  w2 J$ W3 S8 S
   gen ddy240min=r(min)# C) t8 C) J1 o+ \$ O
     - o7 h% Q! u. D+ t: p
   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min)
: n/ r( l: I, f   
, z: E, `/ u4 k& U; }' k   sum ddy240g
) }0 e  P% E. ~4 |8 g) v; `" \   
: N0 x! C- [9 `4 A/ d; e   gen yxis3=r(min) in 1
& ]/ _0 }8 c7 k9 U. _$ g     V0 Q* E! y5 X6 D6 e, h8 l
   gen yxis4=0 in 11 a. q; s, _+ B/ V) b3 y; Y5 {
  
7 [* E, c( I; ]* W% N/ K0 O0 \  *ddy240g 6 l7 z  D6 O! ^; o' u" n6 s/ c: {
   
, Q- M, }. j; w, d5 z, M& d: r   % s, j" `6 _1 S/ o2 j- Y
  preserve
2 y. Y. @: Y" m4 j) P1 i  + Y+ d0 B" q9 e. g' b! L. H6 T/ p
  sum v5 [aw =avol]; u! j' n* V7 F/ M- L( `
  ' N3 ^& w/ T/ d' `/ \2 t
  keep if dx240<r(mean)
6 N! c- v. I& x- k. E2 x  9 ~" j* a2 Q) I! l! W( t$ p
  sum ddy240
: O0 f/ o7 D9 i( U7 C4 T  L  
% A" V7 u* I2 Z/ k" v& `# }% Y/ k. x( q  if r(min)<0 {
0 [& U7 p- U! F' Z8 w, R8 {        - A3 i5 z2 m9 Q; _) W0 w5 u
                keep if ddy240<=0
3 a0 V# i5 H* N! x' |8 A2 E4 Z                ) P2 a! o1 N8 f) G7 V* o
                count
6 j7 T. i& f) R. G( |/ A               
9 A1 I/ g* g8 r- D$ J, P: o- {                if r(N)>2 {) f6 H( ~% J) z
                 
1 x9 D0 z+ z  \3 l* {! \0 h8 U7 k                 pkexamine dx240 dy2400 a; E) z& m3 Y6 a, o, z
               
6 U) P9 N: j! [/ V. J. B                local tempminp=r(tomc)2 z7 c/ h$ s  G
                restore
0 p1 y- \2 C6 Y% L' N                 }* k& R" f* A! _8 Q7 f" A2 J* |1 I' l
                 / P( ?" C7 }; n- Q+ p0 i) ~
        else {
) }$ H2 Y4 w; w* m/ n# e7 u4 L5 f2 P               
3 d9 @7 Q5 h- c# o/ T5 Z                 di "cannot find minp"" w7 P  ~; Y1 m. i
                 
' l- }% e6 S4 C2 z                restore / G0 e( t8 |' a' y  G
                 sum dx240
& P5 p0 @' s8 `8 f& }: g  l. u                 local tempminp=r(mean)
7 `" S, `0 m5 C+ ^( U9 j* H                 
8 M4 V( I9 a# y5 |/ Z2 Z                 }4 V" w, o- o* f+ P: q
                }
: ~2 g. M6 ?5 J3 c   else {3 f6 L0 O6 E* n8 ?4 f$ u* Y
                 ( {# R9 x) n! z# q- ^
                 keep if ddy240<=r(min)% ]* [3 A8 Y) ^" `( [5 ?
                   A$ M( x$ y  Y6 O
                 sum dx240
' G! ?5 I' M: X# g9 @                 ( l" T: H8 T" d) L! h
                 local tempminp=r(min)* H! I) p* |. u4 X! V
                 restore 4 {. ^- v  ~; j  E" J& e
                 }
" b) O! w2 Q% v; Y9 k) y# M- s/ u' {; |- U7 i# k, d

- y/ l4 b* K! `1 T+ g
/ P# \* V, V7 L( q! p   gen minp=`tempminp' in 1; `$ e9 e+ a, V6 K- G2 ?
   *240 minp
1 n# M0 p! D$ ^/ ^; C2 y
! T( m  n2 w& F7 |# c0 v5 v6 g% V- Q+ Z7 _  C
   , K9 w0 {$ l5 s) N
   preserve   Q% s2 M& B! h& B" `  n5 [
   
9 p$ ?; j1 m4 O4 x; P- H   sum v5 [aw =avol]: ~# |* V' u4 e
   0 y3 Y' @, P  R1 b
   keep if dx240>r(mean)' I9 H  D' r3 }
   
/ [# T1 ]8 C% h- M) m   sum ddy240
# v. z, M: `% Y   
% E. n) ~7 R5 {9 |   if r(max)>0 {# r, P& H$ y, [6 K8 f- a: o
                1 p- e) p! |% u2 h
                keep if ddy240>=0
4 u& j* V$ V$ i# m               
1 r6 s9 F4 u. `+ M$ m  A1 l/ g1 m! L                count2 F( z5 ~# `2 N  T
                - y$ M3 B- T* G7 c- w
                if r(N)>2 {6 D% W. G! U3 a0 n2 c" J
                 ! W6 r1 s7 e# d# S, i2 }
                 pkexamine dx240 dy240
  q- `0 M1 Y" g                  Z2 w3 c( @+ c9 C9 t$ H
                local tempmaxp=r(tomc)
  r* \' w* ~& F) r% j2 u- Q! r. b- r                restore 4 j4 p) S3 P- s& ^! O7 g
                 }
" G* z0 R  ^& s- {                 % S" T0 i/ E! E+ X1 E' W
                 , s6 m! F' U6 u* |+ m" o+ J' C7 _
        else {6 k# }4 H2 p$ P& y# a9 O2 v9 f
                restore
' w  r8 N- a& T( P9 {& I4 u" p                 di "cannot find maxp"( i6 V; ?( z! x8 T  i0 P
               
  \* x  ]- A9 v) F/ C% v) O7 A) m                & U7 y/ \( o4 v
                 sum dx2405 n6 V9 V1 t+ K4 Q
                 local tempmaxp=r(mean)
2 J6 [, @# b) N7 g) h' L" ?1 l                 
  \* Q+ S" F8 x( `                 }
' c, Y* T% a, b" S$ d6 |1 ~, F: y                 
; L8 v5 V" k  t  F4 S                 }/ m2 J+ f. k5 }; u! o' I' k4 y" ]
                 
( e& H- M5 \8 a" a& ]    else {
4 b% j' P6 R9 w. v$ f: X% D& \       
9 T- S' ?; }' ^, d% {           keep if ddy240>=r(max)
/ [9 e1 X9 f4 U2 ^          
: o9 q3 d) K5 @2 z+ c           sum dx2402 t. j$ L' J$ n. v8 P' V
          
: s: a  \' Z$ }$ P; H           local tempmaxp=r(max) , V9 i5 F8 ]2 ^5 Y
           restore 4 ~, T3 z# _9 F* I+ \/ X+ F
           }2 v. o3 T  F* w3 g( K& _
       
0 Z$ H  Z+ Q& u/ I" ?: }7 |  l2 h2 e- q" h/ y* M; s
  ' n5 d/ z3 O+ O% d6 s

- X, J: x# m/ q+ O# D7 E3 L   gen maxp=`tempmaxp' in 1" i! v0 s: s, S- v
   
6 c; |; c5 X3 n9 s" V6 Q) l   *240maxp
, s% |: `3 c& P; v8 S5 j  ?   5 {+ v8 L6 Z' w" ^4 X) ^: Z1 s! C
   : W2 T: A8 X. F  p
   *-------------ddy240pminp左侧高峰值-----# F# ?3 T6 ~, B" w; Q( ?
     r4 K$ d; ]$ U' X6 {& x+ J1 e! I" g
    preserve * X& m9 E7 Z( q' w7 B, G  S
   
$ Q$ M8 U( _, U( [3 |( a3 F7 V   keep if dx240<`tempminp'
" z+ {; u9 ?+ L" A+ w   & H3 q5 C5 B: C! o& f
   keep if ddy240>04 G5 J; b7 G8 D0 ?$ L$ W
   
$ Q" i$ L" v& ^   count/ ~4 |2 \; S% ?
                % B; z: a% |! [# n+ P! t
                if r(N)>2 {
. `$ i6 k8 i9 N: u; \% U+ O: e$ i                 . N5 f- Y$ o# n/ j
                pkexamine dx240 ddy240
/ J0 O* c; E! j" N* d               
1 `1 ?. [( i5 x1 c, X9 \                local tempminphddy240=r(tomc)
+ C; U6 K# {/ O2 K                restore
  y! k7 G4 O, k$ {                 }& G$ ]/ P3 Q( I$ |; ~4 F
                 
, x: N7 d( x% p0 a8 `        else {7 U; v7 I5 Z7 W+ i9 {7 e1 }
                restore
4 ^2 M" ^: N( C                 di "cannot find pminphddy240"' z5 w; B. }/ `, [& f
                 
% o- Y: \8 P9 J               
1 {5 {% j8 V' B2 U                 sum dx2409 `; t9 W) p6 X& K. K4 P% K3 Q
                 local tempminphddy240=r(mean) % u6 i+ e; }3 r+ o& `0 m: l  }
                ( I' t- j& f+ J' s) Z5 B
                 ) E2 i+ D5 \- T4 t
                 }
6 f6 y) m8 n, o                 
0 R  g4 C) y/ g" |% U$ l9 X% w6 M   # Z( Y# w8 t* f# B5 z+ ~
    % A1 f8 H  O4 b& C
   
' P: X3 i- R% n% ]   
; \; ?# B7 f) h# B* [2 \   * O( b8 N( q: w9 B& y2 t/ u4 [
        gen pminphddy240=`tempminphddy240' in 1
! ^) N9 T; f; |8 G4 ~: X        " v+ ^. E) M; L7 _" i& f0 A+ c
       
# ~7 W/ i# u  ^9 n# e1 `        *-------------ddy240pminp右侧低峰值 -----------------% p, H( w5 k  k$ b
    preserve
4 `7 {8 L2 J4 X) H- F0 x) r" t7 C
" i0 S3 h6 G8 ~   keep if dx240>`tempminp'3 F- p/ W8 l- t" ]& y0 a. j, M
   6 f" A$ Y  T1 ^3 s! _
   keep if dx240<`tempmaxp'0 r3 Y/ S0 W8 G% u
   + P3 t  R2 Y4 K# R& Z
   keep if ddy240<07 G6 Z) B! u" ?# `' ~' I
   
7 P8 V( ]8 R& P2 N   gen temddy240=-ddy240
# e( ^' e# l9 k& O- W7 o   $ Z4 V2 |3 W& X" M- B: m  t9 \
    count
. U; p1 T5 \& z; O               
& m) k& m+ J, X* a                if r(N)>2 {
! P1 r8 O) c. u" Z6 V6 F; ?; R$ o                 4 p' Y9 O0 _* W) n0 Q6 V% k5 t
                 pkexamine dx240 temddy240, {/ Z; Q3 c' Z! Y6 G
   & P0 Y) M( ~, o! `% ~9 J
  local tempminplddy240=r(tomc)  F' a7 a5 h0 _( N1 A
                restore
0 O- q4 B  `: `- `, ]                 }" ?! c0 {' e, k; a; C
                 
; j* b5 j5 N5 N9 Q* q        else {, W6 h9 e/ F& T1 H, Y, ~
                ( [; H$ e" m  M6 f8 E) T( {+ Q, t8 }
                 di "cannot find pminplddy240"
2 f4 i5 L4 |0 c4 l, h" ~                restore! h; t  S& ]% J! x
                 / l# u8 |: u( h
                  sum dx240
5 u/ a! R7 D- T3 i8 h                 local tempminplddy240=r(mean)! e) T" p( n. e
                 
+ L" U( M# e2 ~3 ]                 
# ~6 p7 ^6 d/ o: W7 z                 }
8 R( Z7 ]* k7 f- o% F   ; B" P1 ~6 J- j8 U
    & S( d) l* B5 J& L" G3 j
   , c. S% B+ K" I2 I& C1 ?
   ' R( J; a( i$ @% {
   ; Y: o; n/ X' a8 b+ J& s
        gen pminplddy240=`tempminplddy240' in 1! A% f2 _6 c! U8 L
       
. U, B1 N, b  A        *-------------ddy240pmaxp左侧高峰值 -------------------' |4 J$ I! a* b0 B8 G, E: W
        + ?) M, y# _& J
         preserve
( U/ ~& c$ y$ ~8 K# @   0 j3 a/ W8 V/ i
   keep if dx240>`tempminp'
8 U% h$ P( A+ `9 {1 K   $ ]' E! r& C* F. n- T, @, f
   keep if dx240<`tempmaxp'! j( W+ ]) ]" h3 B% z
   + D7 A2 @% v* k! ?
   keep if ddy240>06 T$ p( G! a" t  @! t
   count# a1 q2 v6 a' J" [  L/ z
                4 b( B6 |* t0 g
                if r(N)>2 {+ Q: H# A: j1 w$ S5 [
                 8 l6 K2 r$ Q+ c: }
                 pkexamine dx240 ddy240
/ @6 _; N$ W" P$ C+ p   2 R+ m" O2 n' q5 D4 ~
   local tempmaxphddy240=r(tomc)
7 P( b2 D2 M# o3 N1 x   # t7 c% S! @. k" g
   restore4 j, q, @6 ^' m: X% s
                 }" _: O% g5 S* L7 o! v3 E9 N  m5 U
                 
  X$ F, e' N* d        else {8 o9 q; G0 G6 r' O
                % E& }! o- H& T, e
                 di "cannot find pmaxphddy240"
8 \" `2 }+ e$ [5 I, s  M                 restore) U' q+ M$ R$ Q- r% P' ~
                0 f+ A% ~& g7 r% ]3 H: c5 S
                 sum dx2406 P  j1 k7 }: r" l6 {& E6 i% }
                 local tempmaxphddy240=r(mean) 3 P8 }0 K: ^- y6 L; i; J2 i
                   G% R, f" }: u( `- l  Y" C- p$ P
                 . U* [4 ~( L1 v) O
                 }# m' j) J+ E* i6 A* }( i. \
   
! R- \7 H# I9 @7 T" @3 Z& S   
( O; W' O# h  x, Q  _) D    ( H* A4 Y5 k* J
   + o* V! E' f4 I: a3 _
   
! B1 \3 m! d- m   
6 {* b) z, d& I0 K/ B( M        gen pmaxphddy240=`tempmaxphddy240' in 1
- N" l" \( L  ^5 D9 B       
, I! P  |5 R5 Y% A8 j, c, Z       
0 U3 j6 B& y$ ^' h$ u        *-------------ddy240pmaxp右侧低峰值 -------------------3 I, S& C/ ^/ N
       
  _4 }4 c" Z7 f         preserve " K/ D, A4 R9 X/ u. J9 P
  
* L& S( _* x2 B) q/ r+ j# M7 o  s   keep if dx240>`tempmaxp'  \* q2 q& R# Q5 f# H- M
   4 d- U" n, k  _) Y
   gen temddy240=-ddy2401 w& c: r: f; S& }- X  k. |' u% S
   
$ C/ Z1 @1 ?8 o! {   keep if temddy240>0
" T7 ~# Y1 ^4 {' Q5 r6 f   
" Q2 O4 ~, Q6 d; ]   count
4 p" f  }3 A5 ~+ S* O# |" q9 D               
) w% `5 O  W5 n1 E3 t+ k3 \                if r(N)>2 {* V, h  l4 Q3 f: G
                 
$ }: S: g# l' Q; T2 N, _" e' q+ w                pkexamine dx240 temddy240
7 t  @! u2 e) ~7 `* z. r  R   
6 [! `6 ?" z( T$ f& y8 j4 }" m   local tempmaxplddy240=r(tomc)
! C$ T5 q6 x+ z( [2 K   restore- j$ m! d+ V+ N
                 }
# v6 b- B/ m+ X  K                 8 T  j/ r' ^- D2 e$ d) n6 C
        else {$ G) y' a$ F1 W9 s
                restore/ N- E0 C& R8 [/ k4 B: e
                 di "cannot find pmaxlhddy240"- k' a# ^6 O$ c- U
                 0 i6 x" g- ~! M- }3 [5 k
               
, v9 W* |1 I6 m                           sum dx2402 H7 n  s+ J6 @) n) G
                 local tempmaxplddy240=r(mean) in 1
( W: |* N& W5 e& Q3 T                ; \6 p$ Y' _- k+ K9 M+ o- A4 U0 U
                 
0 N2 t& c/ E9 k                 }- X0 U& b3 ?- y0 Z, y% S7 {7 N
   
8 d7 I/ Z- H7 K$ U  H. K   3 b8 w/ f& L$ R
   
1 o7 a7 u/ D6 ~& J* b   
3 O7 z" x5 C& [& U, ]- {% |% L( o0 h  o   
+ a9 C* e( n  \6 W" v/ M   
* Z' \/ i( v7 R) I        gen pmaxplddy240=`tempmaxphddy240' in 1/ V( ?# u- x0 Q: T
        , J& `* Y: K* J- o$ [  V5 Q) Z8 {
        *-------------------------------------; L5 y! s. x; W
   ) ?. s+ c2 P% C, l' `; ~. u! d% {
   gen price5d=v5 in 1/20  D6 ]+ t" z, U- p: T$ K
      4 a6 s  u8 b* ]0 h& F' r
   gen price5yy=_n in 1/20
+ |2 @9 z6 W+ n   & W* t) H% [1 T; T2 J) I
   gen price5y=price5yy*(dy240max-dy240min)/20( i/ p0 [& m+ _7 z$ b! U
   1 M' Z# u; V0 Y, \5 C
   *price5y &price5d. @* t; O6 T( n# K, Y7 p& T; y
   " {6 p- _" \% K9 g* y8 L
   gen priceny=price5y in 1- g5 N1 z& [- ?" ]6 H8 m+ q: X( }
   
- V# T. s% \0 [$ d4 G- q7 y# w0 f0 E" C   gen pricen=v5 in 1
% G2 `" ~/ p, z) X* p; ]  c1 W! Y; F' x6 l* U+ x
     
6 `1 Z" D' |) {- t+ D1 B   *priceny &pricen
# b+ A6 T% B$ C9 d8 p6 D7 S; j   $ z" w9 l$ _& l: L  B9 ]! P
   9 A2 n% n3 {# H6 ^; e" q! e
   *-------------------------graph------------------
0 ~9 O- S2 ~$ {* L0 F: E  % W  a$ a6 s* G3 I" s' n
  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)1 u+ F" V0 m# v$ G% e4 q
; ]5 N0 z) v: G5 ]+ U
* ---------可选项目----------------------
% f- ~* c9 [+ M! f*(spike yxis amean,lc(blue))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean))
# r% ]/ t# m+ Q- Y$ e3 ^6 _}
4 _7 T2 m5 d1 ~! @end
0 l2 ?) y* H7 H

该用户从未签到

66#
发表于 2013-2-7 00:03:44 | 只看该作者
awer 发表于 2013-2-5 14:40 2 A! G: F3 p5 d" {. d& a7 M
抱歉,最近太忙了$ L" d8 D$ e$ H% w" A: v  M$ m, v

4 c$ a: i7 Z6 @- x300236 我用下面的程序试过,没问题

; p, [, ?* z. l( O' u' @哇,谢谢,我仔细看看,这些字母数字代码晕了! Q% ], X0 a* B% b

该用户从未签到

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 小时前
+ I2 b9 a% V7 |# |3 h. G+ f' x

. d7 R2 Y/ u0 x' B! R2 g6 h; H5 z这东西是开源的?知道有个统计软件叫stata,不过要收钱。

点评

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

    [LV.3]辟谷

    69#
    发表于 2013-4-17 17:14:44 | 只看该作者
    准备试一试
    3 O# V/ y2 g1 n先找Stata软件
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    70#
    发表于 2013-4-17 22:21:02 | 只看该作者
    本帖最后由 汉水云潇 于 2013-4-17 22:27 编辑 & D4 c/ I+ K. C

    " K3 r7 H* w& K! b. y8 P3 G& }晕呀
    1 v  V1 D7 \8 U4 ?) J论坛复制程序代码
    7 k. t* e' W; \乱码夹杂在其中1 j8 w, |+ r& @
    很烦
    5 y3 W4 j) |! d, p0 N/ _对了两次: E  t6 z6 U; K- J% X3 X+ o0 L
    以为没问题了
    + p$ @) |, s, r" g$ g& L) y$ X; i. t! L- ^( u" C
    结果
    1 ?0 r3 q# X* I  Y0 S7 V- g9 ?执行后7 X8 Q9 Y$ i" [
    还是出现
    : N% V$ Y4 v8 Gr 1991 j" n3 |# B5 H# h& O; H
    的错误8 F/ N2 M: L1 y! p
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    71#
    发表于 2013-4-18 07:50:56 | 只看该作者
    试验成功,下面是三一重工的图
    8 h* j/ C8 G& I4 a
    : e; T/ R3 R; x7 `2 y

    点评

    我的怎么没有红点? 三一上市以来的成本才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:171 f. W$ M8 B  j0 ^# [; K
    程序写的不错.
    4 b, ^( u1 L) p: @2 w不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...

    ( t( w' Z$ p' ]/ u: e! D老哥,也是山寨这篇文章找不到了,不知为何?

    点评

    日久年深,早就忘了。见谅  发表于 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-2-2 18:15 , Processed in 0.080387 second(s), 20 queries , Gzip On.

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

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