设为首页收藏本站

爱吱声

 找回密码
 注册
搜索
楼主: 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$ f8 P. `& Y* N  K3 s( Z& ^
statement out of context
( [8 T7 I6 t: z! w1 \( Z- Yr(119);
/ H  [' s: C- P8 Z' J% m+ p; o. i& u. ^$ Q6 L( t
大师 就是这个

该用户从未签到

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

该用户从未签到

65#
 楼主| 发表于 2013-2-5 14:40:59 | 只看该作者
maodeng 发表于 2013-1-28 13:13
9 \% B3 `8 q; z! t( U6 D. ^; Z. hello 300236
; G+ \/ T7 x* s0 Lstatement out of context
, l+ I5 l* S; a9 q4 s& t7 F6 v. er(119);
6 ]* Z. _0 `2 |* @+ I+ x
抱歉,最近太忙了: K! R$ O# o. e

' }: D) L* d+ b* a. D. H; M1 ?7 R300236 我用下面的程序试过,没问题
# I9 t# R% d5 ]1 v7 Y
. p: o' C6 E& X& S* G4 [+ @3 Y你把 D:\stock\test\source 改成你导出的数据存放的目录,再试一试: u( `' J( S, z& i" n( Z# ~4 ~0 k
- Y+ F2 o/ F( k# U
capture program drop hello; {! p' |' D: ?9 L9 S
# p9 L- I2 U  k* ]2 N5 C# L# T
program hello
- {' z/ Q6 O- I/ _7 E* j6 r! b+ {5 w  ]$ f: M
quietly {
+ T3 \. p1 M/ O3 A, S3 ?/ {6 }0 X
. V+ c% G; v6 h1 z8 \1 ~8 Gclear) G9 o( ?+ }/ r( I
; y0 L6 ^) s7 x* n3 e) M4 ~
cd D:\stock\test\source
  C% m# V5 d, S: }, C7 |) [6 E
2 a7 k( |0 h9 k) dinsheet using `1'.txt3 S( A' I8 F: N% W; Y& _- B
% B8 [1 l+ i/ H( e! l; f
   keep if v5>0+ q. W9 ^& P; C# w9 W  f8 R1 _
   
" Y% M/ f- G/ d1 c   gen vt=_n
- z0 |) ~" E+ z+ `! V# A   
* B- q  C% w) B, M2 V# V, ~7 S* J   tsset vt! f: l5 ~( n7 n
) Y- f, `: @( ?* o5 v, W! Q+ ~+ D
   gen zf=D1.v56 s8 i- x6 ?! l7 g$ H- O
- Y6 ?* {, S( G  M0 N, _
   gsort -v1: Z3 I! y2 E, b0 L# k5 i4 l

4 T# N' l2 q! P3 m+ K/ ?   gen avol=v7/v51 r) s- h0 A! r2 H* q5 E( m0 T
   
9 l3 E5 N+ N6 J2 E   keep if avol>04 U1 q: w6 Z' w- V( b  G
   , `4 e5 M1 N- f0 \. j3 H. d4 l
   drop vt: Z4 `8 d+ l. N- N4 ]/ ?" \! t, x
  
( Y: w" X7 h, Y# s- x2 P2 r3 _* W   gen vt=_n* t" Y* d* K1 T3 _: i7 [
   
: o; ?0 \0 q; U8 v4 u6 {7 P1 F3 i   tsset vt7 z6 M8 k4 m; A  k4 `$ c
   & O5 r( ]$ C; U
    sum v5 [aw =avol]6 p+ A5 U8 O9 R

  e6 R, f+ ~; w   gen amean=r(mean) in 1
3 W& @2 z! Q, U' J8 V! C" ^   
2 p* f( f+ C1 t/ Z+ o* Z   * 总加权平均值 amean; a  s3 \* r' f
   4 M8 [; A7 P8 I  O$ Q; e8 }
     F, L4 \" k5 n* Z% O& b* x
   keep in 1/240. A& p  p# M" h6 J% u

, \$ u0 L) k: y9 G# f   sum v5 [aw =avol]. N, V2 d; r, F. _8 b. ]3 [
5 G' {! O3 ~  ]- q6 K( M) R( e
   gen mean240=r(mean) in 1
4 ~) j; F4 P% W0 u- [; Z   
2 y0 U$ ^8 G- q' ?   *240加权平均值 mean240/ T; ]5 \" y/ l6 l9 X3 X) b, s7 m
   3 [  T4 Q# ^$ s  m% Z7 k  C
   set obs 500
7 I! {4 J- B& i3 a" s  \   
$ w8 W( p- y% Q  t: o   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph2 u8 P1 t2 E, u) L! Y# Y- C
   6 s# i- w$ @: e9 z* p, k
   *240 kdensity(dx240 dy240)
8 P) S8 u) w$ s4 e" R3 P. H   " T5 U/ r: Z, l" o! o
   sum dy240' G3 b4 s( G- L
   + i* e1 i1 @6 w  a* ~
   gen yxis=r(max) in 15 }2 v1 z; }* @# l+ d8 S+ }
   5 F$ n( A+ a: h
   gen yxis2=yxis/2
2 w( I3 s" O# o6 G5 d$ z6 ~8 G3 z   
/ B$ i; k: T1 n+ \7 `, L   *yxis
8 A- O$ Y5 s5 }- u! ?   # D: J/ r0 |" V0 y( L# S8 q( f
   gen dy240max=r(max)
( P, D+ a2 S3 t1 |: M8 A8 y* f$ Y   
5 s* E. q6 g, o4 [3 H1 C) l9 @( X   gen dy240minp=r(min)
# t6 Z" \( \' N1 b6 h# q6 Y1 T . n5 t% t6 G6 i- C2 z( S
    gen vtt=_n. \( G+ A3 C& R5 G$ l% u& D- u
: L1 n" e+ b) m  u; @
    tsset vtt
% @* J+ X& f" `& ~7 J) W( w: }& z8 R0 Q( I* X( }
   gen ddy240=D1.dy240/D1.dx240( `- [# r8 d( E3 o( H) k2 Y& Q
   
# t2 G) Q  y% J! s; x. ~& O   sum ddy240
7 K, |! I- d3 H8 O2 [, p# T& _' v9 o   " {0 e' w4 V  I" ]' l% X/ L3 U9 |9 U
   gen ddy240max=r(max)
8 `$ @/ u/ [" Y2 u, a   5 i! y. |4 I# ?' g* W6 e
   gen ddy240min=r(min)
1 t) ]6 a' E0 w6 `) B% o* a3 o7 M     ' d4 f( ]$ ?9 O
   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min)0 V$ b6 m7 s1 U
     t) B2 x7 z, W: H; X. K9 j/ y
   sum ddy240g
/ Z: l( t: y, j4 l. Z1 p   
) K! s' e" w- A3 D+ L3 T3 t   gen yxis3=r(min) in 1
( w9 n5 C& _8 |' u2 U3 s' N0 R   
7 ]4 K' }" \( q, F) r+ u   gen yxis4=0 in 1
- \% P+ ]6 X, X) p  6 u' m- t3 q+ o, t6 ?' q+ M3 O
  *ddy240g
9 B! O! K  G, k   ) N) Q  @5 y" p) E4 u) f# Y% {4 y, X
   
3 c4 X3 `# Z: F, U+ k6 O  preserve
( c" t& H/ ]6 |6 a" e" c  " D( J, @0 I' p. p
  sum v5 [aw =avol]% |0 q* v; |; \8 Y4 Q/ n4 N; ]
  
( w; h7 C5 m4 l4 T8 V  }  keep if dx240<r(mean)/ f7 m" }) [6 q' z1 L: p7 _" a; N
  
: X4 ^% s4 s) V$ a  sum ddy2406 P# {: i! V7 r! I0 z$ \
  - Q  K3 g, R! Q! V
  if r(min)<0 {
0 Y5 D5 N  S+ j2 `        - r+ A: M3 a. h/ y" q' Z% A
                keep if ddy240<=0
, L6 ~8 |" ]/ p5 ]7 r                7 Y- f) h* o) `! A; A0 z; f; A
                count
5 M2 z$ `+ H: y1 O: o' F                9 Q+ J) N9 f8 [+ \7 Q: l
                if r(N)>2 {2 ^5 u9 ~; x& W0 p5 e! n$ Q
                 + D* |$ q+ v! A5 K' w4 z! C! }; K6 v
                 pkexamine dx240 dy240+ u! ~9 K4 M. i9 y1 T7 c
                2 K; Y8 y& |: c% k% L
                local tempminp=r(tomc)
2 B+ ~" [6 v7 N5 B                restore
, ^3 x2 g; r! ?9 e7 ^$ A                 }  L" \3 b: i+ E  _% Z. }- n
                 : v2 t! {3 R3 d2 w7 G. r
        else {
( d2 x4 D3 W/ N               
" l0 g- d0 ~  I3 l% E9 l                 di "cannot find minp"# s& ]3 h- A; C6 r6 O* x
                 
1 U* |" w$ h5 Q# C2 h                restore
/ K" ?: W6 ^$ j( K; Q" X$ H8 w                 sum dx240, x& \. e4 d! c, |
                 local tempminp=r(mean)
- F3 u6 ^7 e' {$ l) m: B" M                 0 S0 z. Y6 t8 W9 d1 h) U
                 }
3 Z0 y0 F+ C, m! Z! ]4 |- d                }2 m( w" n) A0 B, @: F5 q
   else {
$ h& S1 m2 g) }9 C                 4 M( }4 q8 j- S4 A( t8 H9 }7 S
                 keep if ddy240<=r(min)/ J1 u5 O! i* \5 l/ g$ _3 B
                 * ]7 u# }; U' r0 y
                 sum dx240: x/ f5 p7 ]6 d; i- T
                 
* T3 c0 D4 R  H6 i! Q7 g( O                 local tempminp=r(min)$ G5 H7 e* m" k7 A! H
                 restore
% _8 h& o- C0 V+ |                 }, V& ]% }8 i  P1 [
  ?1 r' [+ n8 J8 X0 e

) Q* B# }- M& Z& _1 H2 k/ _3 Q6 v# h0 c, K1 R
   gen minp=`tempminp' in 1
* V& v3 j* X, z  }6 `9 Y   *240 minp" k4 D/ j2 U% a

0 q( S9 `( f2 T) A4 A
7 `. ?8 x8 o( i" ]9 G- ]   
  x: c/ Y1 l9 ]. ?$ G, r& \   preserve 8 r0 E: e+ J. x* z
   1 g$ Z" g# Z# h+ X& f8 e
   sum v5 [aw =avol], P, U$ ]) O- a: ~* n, a7 K
   " `+ S  P' m5 d1 r. C
   keep if dx240>r(mean)" b' u, n" d$ z/ Q" D+ _8 B
   ! R# M5 R$ }0 B0 Q8 \
   sum ddy2408 ]! M3 H7 ^- f
   
/ _$ l2 z' j. r( a   if r(max)>0 {) I' S$ O6 G* U7 _" E" a
               
& M; u* s* {! W% m! \. q1 J                keep if ddy240>=0
- P# g1 n' q. ]4 b& q               
5 N) ]8 `( m  c9 z. {: z                count
9 `4 \9 X" `  o5 A) l& G: T  [                + v, d% c  z: z3 U5 z1 x5 L5 t
                if r(N)>2 {
' K6 V' C! E! t1 L8 r                 ) Y' ^$ D: ?& Q3 Y3 F
                 pkexamine dx240 dy240! Q$ Z2 k; j5 ^2 m% Q- [
                ; z9 {; A7 L* q- L. a
                local tempmaxp=r(tomc)
! l2 @- X  }, t! C. h0 o                restore / E- p8 s% D6 ]3 x
                 }- h" ]6 o* A# D# d& ]5 W5 M
                 6 O; C2 h" R* y' E4 f6 @
                 * [* A/ B; T  V9 ?8 q
        else {- i& I9 `: Q9 T+ q" C1 J, l
                restore   x: l2 X# c, g  V( b2 d" n
                 di "cannot find maxp"1 C3 \) W+ A( O1 g- S. m& `  F, x
               
: V' H/ f* \  _6 G1 R8 S8 l               
. W- v) w4 U0 A  ]* C) Z- Q                 sum dx240
, Y& k8 T) |9 R                 local tempmaxp=r(mean)
& P: V3 s% E4 E                 , Z( k1 Z8 f- T& C+ s
                 }
+ n  g* ?/ m/ h! r( F- t% J3 j4 w                 
7 Y7 \2 e0 y/ b, n' n: s5 X                 }
/ k4 i" A, q. f' e; i8 h+ h) {- ?+ W                 
' f) d( i  h( _5 W! u  a& r    else {5 E8 J1 Z5 s/ ?, b) Z
        8 w2 S5 r+ M# Z
           keep if ddy240>=r(max)
! Z3 r3 z! X- N4 S, K           & h4 t$ F7 {1 F6 N$ \
           sum dx240  f. V) R- ?5 S1 W" F+ B7 Q. a. k
           # S& ?. v7 u4 u: D
           local tempmaxp=r(max)
1 z. R* m  W) G3 B; f( r& h           restore . G# O- v! y; o: g+ D
           }
# Y4 Q4 @* U) ^" M( V! \& C# o  x       
9 e% a. _% U( A! @/ Q! s& j/ T, g5 k
2 n3 h& x/ A( R  C1 h+ Y9 L+ S  
7 M/ o" `+ U' l% N% b1 U- L, U7 P$ N  z5 o3 C
   gen maxp=`tempmaxp' in 1! p+ b  U$ e- ?
   
9 [% ~+ \1 m; L1 r7 Y   *240maxp
5 z, q/ p; S' B$ U+ x7 ?, i7 \: n* S+ p   4 b! V0 `6 Z8 @; m+ Z
   
2 T6 e* x( p- I0 i" ~1 ?   *-------------ddy240pminp左侧高峰值-----
: f3 B: n9 f. V" @+ `3 ~% h   # ?# j* z& S: \- y7 V
    preserve 3 M# H0 n3 R9 g* h, Q* K
   6 D& H+ ?* L* i( r
   keep if dx240<`tempminp'
3 ]+ V; o& W- M( N+ ]   
% @, v6 C: s" @8 G) i9 a' y# j/ L   keep if ddy240>0. o& `4 `7 J# d- H/ Q& O
   
; u# g. }; c5 Z6 Z( H   count
* Y5 V. K+ m5 e                ; H: k# O3 _/ y% c9 \/ t1 ]6 P& }
                if r(N)>2 {
' O& v' V. _+ Q- `+ Z$ t1 ?0 ~' ?                 
3 g1 N6 m% U$ f# i# A9 I                pkexamine dx240 ddy240
3 }$ C" a6 ~4 b$ P0 l2 V7 O                2 D! Q5 K1 n$ Z0 L7 P: [
                local tempminphddy240=r(tomc)
1 b: u9 Y/ h* I; ~) _; K4 S                restore
' G! z4 ^* t- ]/ y* H                 }
& W3 A. G- C# [! l' g! i4 K                 . Y! L" G0 j7 v, j" K
        else {
0 m% u$ M* `0 K. r8 F/ ~# ]                restore
5 h  l  k7 `: n                 di "cannot find pminphddy240") U$ l: B; D  t  t
                 
1 p6 }+ ^- @8 }2 Z7 i$ X               
* I' R% t5 J) o* i8 o) V$ h: X                 sum dx240! D7 R3 }1 @; X4 S2 M# u& N! ?
                 local tempminphddy240=r(mean) 0 r, p: ]" U) |* s! x4 ~
               
, j) D; q6 Y1 p) M- h2 w3 c5 i                 $ S' x' ?% _4 ~2 z3 z$ e
                 }0 u8 h$ R$ J8 E9 Q0 h% ?
                 
( K, u* Z6 j. X* N4 G   
/ M, t0 F% i" f* t4 t  v& }    2 x$ _# ^- F8 f! O3 X
   ; @0 o9 {. R& A2 \2 E
     k. L" G% j* h
   . Z/ `5 J8 n! H/ B$ }
        gen pminphddy240=`tempminphddy240' in 1
7 P2 K& d+ h1 J* ^% X0 l+ h       
2 m" u# x: L: f1 x* x% t" h       
/ K4 A1 o/ T$ I" {        *-------------ddy240pminp右侧低峰值 -----------------4 _2 ^3 z/ J" i, M; W. d
    preserve , u1 U% |+ M# U$ g+ @: T
- ^$ Y, Q' ^6 L5 n- f4 F! O% z
   keep if dx240>`tempminp': i) s. R) l8 H: s& L- }7 d
   
, l, I1 P) O) b! h( H9 h  y   keep if dx240<`tempmaxp'
" z, v0 F# ?: }  X   * \9 y$ h9 Y& L$ X% F0 Y) b
   keep if ddy240<0
& o' ^1 A, B! Q4 A   ) U- i5 Z1 |" L' l& O, @3 r- }2 N
   gen temddy240=-ddy240& z( \. X& s4 [
   " S" g# }; I% T7 K
    count: y3 f2 R; v9 ^$ a
               
2 t. I" N! |! W$ K                if r(N)>2 {. g9 Y( s6 [7 ~! @$ n, ?
                 
4 h, a' w( s0 W5 X' ^, f                 pkexamine dx240 temddy240" J9 {6 w& \' K" {8 g) }/ @. h
   " @( F/ s0 M- P. p
  local tempminplddy240=r(tomc)
& R; c8 c$ E( k0 V" R; q5 Q                restore$ ^' e9 a, [  p- e
                 }+ z/ L( j% v' p/ S2 s2 N# }. c9 J
                 
9 J6 b/ a9 Z1 e5 T4 o        else {& _/ E, ?3 M( L0 C, K; w- d
               
, W! t8 }7 ?7 L5 t  v1 w                 di "cannot find pminplddy240"  V7 t9 i  N0 }$ k3 d1 Z5 K0 D
                restore
4 c  v$ c* [4 p& ^$ A+ V# u; u                 - ]# z6 A4 p4 v2 X2 o
                  sum dx240
- K* m$ ^+ Z' x                 local tempminplddy240=r(mean)
; [* P* R% Z; \! T. q                 
; g, X8 @$ |2 F" |4 o                 / s, H1 G( e9 ^% K
                 }
! l5 T0 U( ]0 w( [4 s' H   , A, u0 [- t; r9 ?4 Y
    " u2 L9 J7 }8 j- Q3 n
   
9 I+ e1 |+ O$ \- {+ \   . @" z0 U( u( Z3 q: J
   9 G3 Q7 q) }" Z
        gen pminplddy240=`tempminplddy240' in 1* v2 ^, L3 a# J
       
3 u) J1 ~4 {5 W" _' Z& |        *-------------ddy240pmaxp左侧高峰值 -------------------
9 i) r, b# M" O       
& B. G% q% v; R* _         preserve
3 v" a! y- H( e% c3 v  ]  N: r   
) a# C+ u# v7 m' T/ q* w3 P   keep if dx240>`tempminp'& ?1 I- i- z' f; `
   7 @5 Y! I/ F6 N/ ?& {4 c7 c. m* }! r. t
   keep if dx240<`tempmaxp'8 T: P! V" u0 Q* g' r2 _
   2 B2 O/ f" N; h/ r, j
   keep if ddy240>0( j1 V! i. _5 y3 S1 G
   count% ]8 M  b4 m) k! A+ }, X
                5 t0 l6 U: ?' o5 s
                if r(N)>2 {+ u# M: u5 a9 y
                 
: q/ e$ P1 X) |9 `+ h                 pkexamine dx240 ddy240$ {5 H* m$ S+ I1 _& _5 |
   
! R8 w, c9 ~# }/ V  v5 i   local tempmaxphddy240=r(tomc)
: l. B9 j" X" C$ Y) z, R' F   3 ^1 G& q" J" A  Y. e/ q3 a
   restore) l! _( M9 R. V8 \
                 }
1 ~3 J8 ]  N' ~                 4 z0 i4 c, R2 Q9 P! D
        else {
% ~7 F; x6 ]8 t, J1 G7 A                / Z+ u. ]- v) F3 Y% s! z
                 di "cannot find pmaxphddy240"5 c' R1 V1 d+ a; K! X
                 restore1 ~) Q# k$ p. ~3 P5 v" Z* C, z: V
                " \" f" V$ n1 A- u7 t
                 sum dx240
* v1 k+ Z3 A; ?+ F- h                 local tempmaxphddy240=r(mean) % b3 P1 n& n4 x8 m+ H: t
                 
# P  t7 r$ m. c" o                 + A. \% e" d! r( U, q8 }1 }
                 }
0 _7 ?) O3 e1 H" w' Q- U9 y   7 e% B, i4 l7 ?  ^
     G5 P0 c' o& _1 P. x$ @5 B
    7 U7 G( B' }9 ?( Y
   
0 ?, A0 g8 X; s/ E$ @5 Q$ n   
6 X+ t0 o8 J- ^6 C   
& q0 h" d) e( q) r  m        gen pmaxphddy240=`tempmaxphddy240' in 1
# _$ k, L1 p+ M$ q3 N        , D. k* Y: g3 y3 z9 ~6 M: r+ E2 O
        # u- x0 o" U: j/ ]1 e# p9 H4 c
        *-------------ddy240pmaxp右侧低峰值 -------------------0 d$ l/ V8 K' L1 N' B; \
        * z( c8 q2 }- i' G+ j$ C: k
         preserve 7 a' W. {2 ^$ L3 ^
  
! @  }3 L2 j" i& R9 o9 O! l   keep if dx240>`tempmaxp'
" p9 v5 v3 J3 C$ U   
1 a: T. T: P3 a9 c  J; \   gen temddy240=-ddy2404 s4 ?5 x8 I3 U
   
/ k  ~; o4 R, H1 k; @3 j   keep if temddy240>0( n# _8 E$ v6 R
   
7 R( z3 T4 ]' T( W1 B% i   count. {1 ?0 `# p! J8 I
               
. U+ k( ]5 Y- C( S# p                if r(N)>2 {+ v- T1 k  A  s$ A6 g# P
                 
6 L* _) b+ u' R% K$ {; L$ E1 a                pkexamine dx240 temddy240
: H8 n2 I- k8 b   $ |! d4 V( D& J% Y0 F2 A# {9 E
   local tempmaxplddy240=r(tomc)
/ p, d& Q% E1 }9 Z  F2 F; J   restore
+ i. y6 S2 r% Z$ g3 ?# N                 }
6 f5 b5 v3 w4 B( m2 }& ~: g/ \                 9 q( T9 I% G0 k/ l
        else {
, P3 [  k; O8 J( y5 H" m                restore
7 T( v0 z, Z0 h                 di "cannot find pmaxlhddy240"
. }) E- N1 S5 d3 h+ g4 S                 
. [: m2 d! c5 F/ l- A               
0 n# W7 g3 a4 E; j, g                           sum dx240
. Y6 Z6 e+ q4 d1 o) b4 d' M+ _                 local tempmaxplddy240=r(mean) in 1
" K& T2 c/ j1 E8 u               
4 E$ h! F9 J! \# D" k                 
2 H% Z+ S  P" m8 r                 }
. H1 p5 B9 N: [' t   
! ]3 {6 @' T+ q) ?8 M   + n7 h! w1 i* ]: t9 h
    $ }, r6 D" ]# X) Y
   
) v9 n& d! y$ E. w  M0 Y   ! A2 V. K6 h  p1 w
   
; r  Z  C2 E: X+ G5 H7 E* N- M        gen pmaxplddy240=`tempmaxphddy240' in 1$ X6 d. F5 f; \! i
       
+ F+ x! w- v1 P% z2 K        *-------------------------------------" T9 J, e- z/ R" z6 W/ m7 _  M
   - O7 r, L$ |" f' v) {
   gen price5d=v5 in 1/20
7 b; E! e: R) Z      3 r, D  v# ~- u9 P) O
   gen price5yy=_n in 1/20
4 ~- T- p/ R; I, `+ X   
, Y" v% J! c5 F: `/ Y* ^   gen price5y=price5yy*(dy240max-dy240min)/20
7 b+ b; F' D8 I- ]   4 F5 T7 V' B; N, L
   *price5y &price5d
1 b& L7 U" D9 C4 n& S8 k- g   # t/ @% U8 E' _# M- }. [( g
   gen priceny=price5y in 1
% D  X/ y2 Z2 f   
" w3 u. b3 i& V/ ]   gen pricen=v5 in 1( m. U/ O% X9 P7 ^* C4 Y( F/ @
( M) j: H  `' W' O- }
     
, q6 K- N7 o' Z* ]0 E9 s( O   *priceny &pricen
6 y% J' Q9 p- r7 p& C% d   7 @1 U& y" E  l- C- J' y
   $ s$ ]) O7 w# D4 w
   *-------------------------graph------------------. ~$ F3 h# m* K3 T9 @( \' n
  5 B& q4 C& G9 p$ w) |
  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), c  V: Y7 k2 @4 [2 l/ A# L# i$ _
! _0 T0 B1 P% z4 P* Y' c5 i8 {7 s
* ---------可选项目----------------------" D9 j  f* y% e& z4 y+ k- p& S
*(spike yxis amean,lc(blue))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean))- b2 Y4 d0 t/ r: C$ D: I
}
% x# A) t9 a( h/ |$ fend
+ {/ M5 s8 F0 D

该用户从未签到

66#
发表于 2013-2-7 00:03:44 | 只看该作者
awer 发表于 2013-2-5 14:40 $ {  T" n3 a7 V1 T" u
抱歉,最近太忙了" L# }9 B0 ~( g$ p$ r

4 |0 R5 L$ d1 [, Z- a' \4 o300236 我用下面的程序试过,没问题

3 l  H1 k* Q4 \+ D# {. _哇,谢谢,我仔细看看,这些字母数字代码晕了
; V: T- w" F1 \2 V7 C5 H2 X9 I+ M

该用户从未签到

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

1 |. S& z; {  Y; h4 S
! s6 _, v8 I2 p$ V5 [( T" ]这东西是开源的?知道有个统计软件叫stata,不过要收钱。

点评

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

    [LV.3]辟谷

    69#
    发表于 2013-4-17 17:14:44 | 只看该作者
    准备试一试
    6 G6 W2 g& k+ Q: Q先找Stata软件
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    70#
    发表于 2013-4-17 22:21:02 | 只看该作者
    本帖最后由 汉水云潇 于 2013-4-17 22:27 编辑
    ( e- e8 L1 Q! {# I7 G
    / v9 T3 L. V1 W6 g) t4 n/ A2 L晕呀
    + V5 a* m" I# b8 S论坛复制程序代码
    " J3 }8 d% F7 s乱码夹杂在其中/ f0 ]$ }9 O) d. W3 K* N
    很烦! V0 s& }$ T7 N# |2 f
    对了两次
    + w: J. j# I+ o  z- g. f) A" |- o( o' R* M以为没问题了
    % ]+ K$ n. g6 S: F8 a# g* F5 w/ \% h1 B' j' Z% J# g
    结果
    ( C4 a/ B2 f+ X% m. N5 H执行后2 h% c! j0 [0 j, Q
    还是出现
    $ Y9 A- h3 c1 h" p6 H; fr 199; h5 O! p! R3 U2 S6 `4 ?  `
    的错误4 f% C6 y# R$ {
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    71#
    发表于 2013-4-18 07:50:56 | 只看该作者
    试验成功,下面是三一重工的图
    # K1 u& k- U( r/ c+ S, u5 h$ Q. ?+ C8 U6 k) x. O3 q3 p3 d

    点评

    我的怎么没有红点? 三一上市以来的成本才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. f4 [; K2 e5 A- v9 F
    程序写的不错.
    - J9 ?7 V( @, Z; ^/ H; k4 G/ _) a不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...

    3 ]$ Y" E0 R" K老哥,也是山寨这篇文章找不到了,不知为何?

    点评

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

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

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