设为首页收藏本站

爱吱声

 找回密码
 注册
搜索
楼主: 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: p3 {# _; v# ^( Q! Y
statement out of context8 D4 H7 p- C# q9 _* `% d
r(119);
$ `3 d( X* N: J4 M; x+ l2 y# H+ Q
( Q0 }9 C4 f/ o% W2 ?大师 就是这个

该用户从未签到

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

该用户从未签到

65#
 楼主| 发表于 2013-2-5 14:40:59 | 只看该作者
maodeng 发表于 2013-1-28 13:13
2 T, `% B0 x( T. hello 300236# W: F8 [2 W! G/ _1 Y- Q* X- P
statement out of context
. B- Y8 z8 d, _0 J0 I$ M: Z  Mr(119);

, X0 @& _& |; [& g" b抱歉,最近太忙了' o: w) `& O  T. E# F
4 H# Q6 D: s# g
300236 我用下面的程序试过,没问题2 ~6 D: l5 N! I+ S
$ Z# H6 O! a5 u5 F
你把 D:\stock\test\source 改成你导出的数据存放的目录,再试一试
4 T0 y( K5 W+ w3 j3 a2 Q
$ r' x0 u8 v" k! j1 r. n* Q: \6 Ucapture program drop hello: M9 ?; W" S+ ^+ Y( }" t
8 B* y) X9 k1 r; F
program hello1 }* f* z! Z# H  H0 F( [

. M5 f9 t1 g* j4 q- l( m quietly {
: T0 E5 m' @5 q4 g& H" N  i) h2 z; Z" O
clear% `8 C$ v- F* W/ m2 z

: R: {- P5 v$ y* \6 Wcd D:\stock\test\source; F, Y% M0 u+ I% h1 y
; ~; u/ d  C& ~  C% E5 R
insheet using `1'.txt$ z# o5 F: V9 Z/ m

2 ]8 {' h  H5 C8 C7 t! h) ?- Z   keep if v5>0
9 j/ B6 Z* r5 H# j2 N    % P6 u& \- k$ z3 E$ w5 @
   gen vt=_n
3 m  d& `+ K; C# V0 D# R# n   4 g! X* O/ k; j: h
   tsset vt
& P# }6 V- \0 g, r2 A6 v
9 W* h" ?) ~; l2 N   gen zf=D1.v5
% d8 A6 T$ P, f+ I9 P2 u
8 J$ ]+ A' c6 S/ M( A   gsort -v1
8 ]9 A$ M0 o6 t+ E3 [+ q# ]! z( f5 X4 S; v0 b5 c! R* I
   gen avol=v7/v5
2 [. T. E6 S* u$ z# G; A   
2 ?0 B& t( T( }" s2 u   keep if avol>0
/ a( |+ g& [' H( K# n8 I   / n( D+ {* l$ @, R
   drop vt
. v0 S2 Q; S3 V( Y) l! \% n  
4 P6 D9 d- P- R7 W+ A   gen vt=_n
) P4 v9 c3 M( L$ S2 p   : h4 T+ E" ]2 ]2 h+ G
   tsset vt8 g! ?; A( X$ Z2 _* ~. Q
   . S% w" g. w! U9 H
    sum v5 [aw =avol]
0 o& U# w/ W1 `- \' b2 {
' I4 I* m; s) J   gen amean=r(mean) in 1- Q+ F! Y! ?/ s
   2 a! h8 l$ Y7 u  P6 U6 o1 K0 y' m
   * 总加权平均值 amean) W$ Q6 t+ `1 i# m2 a
   " v" W7 i" E  B' [; o* u
   
  o2 Q; }8 R# I% r% m   keep in 1/240
) @0 d; f8 w- {- Y, v. I3 W
& V' J4 j9 C- M   sum v5 [aw =avol]3 E0 m, {' J/ x+ J5 T

  g( V- g: U# P8 [" _* ~& U   gen mean240=r(mean) in 1
" K8 l7 H) s) j9 E* d   ' Z: V. X: J" S
   *240加权平均值 mean240
, f7 w0 }3 I, Y* ^5 G  R0 @   
5 S4 x' Z, b/ E. k/ c   set obs 500
) I$ K9 W) e8 Y9 \; @   : J" y5 n  s* R1 K! I6 k& D  Y
   kdensity v5 [aw =avol],gaussian n(500) generate(dx240 dy240) nograph
& c6 f3 C. H( A; f8 X- I   
; m2 ~6 l8 E8 G   *240 kdensity(dx240 dy240)
; L: j0 q& u" l# E1 o, |   
+ g4 @8 K  l7 b   sum dy240) G; g7 B+ L% I& C# s" t) [" m
   
$ U3 i+ }, e# `% R' o8 _+ W. F   gen yxis=r(max) in 1
' P. _/ C$ E+ Z# {2 x2 v8 L$ a   ! F/ e# R- |7 d- p6 e
   gen yxis2=yxis/2! B6 G9 U' m: b- ?* h( C5 B
     D1 O# v; R8 c) \& J' J
   *yxis$ X5 }* a. z. Z. P7 B7 ?
   
" o, v* p3 f% e, o) k7 Y   gen dy240max=r(max)
  ?; g0 `3 l: _$ r1 Y; V! F! [2 W   % b! v- \7 P: I8 W% W9 @
   gen dy240minp=r(min)
1 D7 _. z: X  b( l% y9 l' ] # G' x1 E; N! o, A- X" J: t& u
    gen vtt=_n' f1 v; c& N; f% r8 Z4 D9 i/ }/ Y
* y8 b# F. Y1 n
    tsset vtt; m9 v. I$ e' d; }8 J7 q0 O2 ]

5 I1 j- \2 {' I; y- I1 p, `   gen ddy240=D1.dy240/D1.dx240
; l" c) ?6 \  r1 h3 V   # u; i+ f. ^- N0 x) ?: O
   sum ddy240! [/ t: Y2 C& k' f2 ^
   
3 J2 ]; C1 F9 K! E   gen ddy240max=r(max)4 D1 f0 X9 }/ |) g
   
1 F. M8 s* k: n# g  m8 U   gen ddy240min=r(min)8 G; e/ C' m6 ?7 f+ b/ ?" i
     1 Z1 r/ G: r/ ?; t1 i8 e
   gen ddy240g=ddy240*(dy240max-dy240min)/(ddy240max-ddy240min); Z; |2 d+ @9 N9 q9 y
   0 a7 L0 R* B$ v7 Q
   sum ddy240g
; O: x5 [  s. `5 [# x3 S   
7 ]8 S" r# Y- C; C$ n& p   gen yxis3=r(min) in 1
# K& H$ L( M1 @  U) i   3 v- U  v+ [$ J( {
   gen yxis4=0 in 1  A4 P( V5 R7 u! Q( K
  
1 M" F) N$ N# {) }$ P  *ddy240g
# ~3 ~1 L! i4 v. D$ V   
( F% N4 a3 \6 J/ w2 u0 S- s8 T, X   
: [% Q6 Q; g. e/ L& v0 x  preserve # X9 P9 C3 C, N& ^. y
  
5 X2 M( {) G/ m( A  sum v5 [aw =avol]
* U/ Y! N9 P+ e3 s  
% o) {. F* ^- i& h- L  keep if dx240<r(mean); V. _; {1 f- L# s/ d$ J
  
0 M# J! ^; E. }  sum ddy240: N/ e- o9 o9 l
  " T9 |1 d/ o5 F( v! F! B1 D
  if r(min)<0 {
5 l; b5 r# g$ M( q        
5 ^  }% x! I0 j" [                keep if ddy240<=0
4 c  {! [5 V, t' U               
6 F7 d9 U2 o8 T8 J' V; d                count
. w$ s6 o5 P9 l               
6 `% _& \! i/ Q" J8 |  ]                if r(N)>2 {$ H% v  P, I4 L- g0 x& {! R% d
                 ! Y7 z/ e! j& Y; L3 R
                 pkexamine dx240 dy240. B) W$ d) d- P$ Q1 c: k, H
               
3 h. l6 B5 D! z* a                local tempminp=r(tomc)
" ]3 V2 ]' J8 C* i5 [$ Q) d6 Z; B                restore 2 t( X  j1 r* [+ @
                 }
: r' O+ v3 B3 r+ X$ r' r                   P8 ~+ B. B* n/ ^1 Z+ p; l
        else {
- `" ~5 `+ I; W5 F               
0 G  p# ~% d  W. z* h/ Q  v2 D( d                 di "cannot find minp"
( o, j# ~( y) N+ z                 2 m( l0 Q2 _* w, I
                restore * _- M- i& t5 `
                 sum dx240
0 U7 }& P' W- R" h                 local tempminp=r(mean)
' x/ |- l: U, G) k1 O                 ' m5 V  a4 b& d
                 }6 V( N% i, Y% [) T$ f
                }
4 n( g8 i/ F0 z   else {& V1 e# t# P6 W# j1 R' }
                 
* n! H3 v+ z' ~% f4 x" J  B                 keep if ddy240<=r(min)
* o( c# y) ]0 N" d. P2 R                 
0 o+ _0 v) {+ \! j# {) `                 sum dx2405 _4 x5 X, m" B" W) f
                 
) [/ @0 D" ?& \/ N: L' x- O: c                 local tempminp=r(min)$ @: [4 V# I  b% Z3 j" h# z! r0 M' ?6 `
                 restore
3 k" |: @0 l' r% J3 M                 }
4 i  L# a  x5 C% ^
6 [! d9 E9 E' f2 T' `5 `6 m
9 v8 W" S0 _, O- N8 R+ k8 s) F4 h; i9 I$ z
   gen minp=`tempminp' in 1
3 D* F" J" q; [# O7 a+ y- `0 F   *240 minp  m* D- U# @" `2 ]: Z8 E

' j: H2 ]" Y3 L: t( u; j' l
' u/ Q' o$ z, C/ @, H   - x0 |5 l5 Y& X3 z
   preserve 9 t7 K/ F. ?" L4 e
   
( {4 V* t+ p7 y* u4 B" c   sum v5 [aw =avol]2 z% ^2 f, Y8 E% Y. {2 U% w
   1 c- H- C( V$ b+ H' G% _) j3 e
   keep if dx240>r(mean)
( B. N# ?4 y( M8 j, ^" v   
+ T& w( k% |8 Y- i) L; g$ U   sum ddy240
4 ^. K! g0 R& c3 H   9 v6 U8 y4 V/ J; e) _
   if r(max)>0 {
9 y3 X" J9 m6 E' b  e                8 o: O/ H# ~5 O6 J9 r% s8 i0 A( B( _# v
                keep if ddy240>=0/ U& X9 V: c. ?) D2 B) R/ G
                3 H7 \. _2 X6 T$ h
                count
/ {  d" A$ Y: r                % D  \# q# B: t
                if r(N)>2 {
* s8 \. s5 T/ g& p: N$ |                 
0 B, C* \7 s& ^4 j                 pkexamine dx240 dy240
) t/ x- s! R2 ~; k) r               
) L: t$ p; X0 B+ A! }                local tempmaxp=r(tomc)
4 G7 J# V: T; q1 b- `                restore ! @$ Y) ]5 |" B+ x! Q, M
                 }5 T$ U! \* V3 k. f7 _7 f2 ]
                 . Q% u! L& g( X; Q& r# U$ P
                 
1 x  U6 f7 h: O5 j        else {
4 q( v- f6 I3 Q5 L9 r; \+ \( R6 E  Y                restore & s& c$ Z) K7 g1 D4 }3 N7 ]; b
                 di "cannot find maxp"
9 A& W" y+ M" s                # e' j$ `% j& I. ]4 Y& x
               
2 ^! C& U: Q1 ]* J# I                 sum dx240
6 l9 Q% M$ u: o  W                 local tempmaxp=r(mean)$ U! X1 V% ]& T
                 
2 d. [+ @; x0 ?; e, `- o% K. k                 }/ b+ q" n, x: N1 l1 \3 R
                 
1 T8 b* _, S! S$ e" ?/ e1 P' t                 }! h5 Q/ Q7 `) G% W/ M2 z
                 - G% j7 k. \8 U1 J& H2 h" {' s
    else {: v( s. R5 Q5 U) M9 z' Z# z
       
) Q. Z) s8 K' H* C           keep if ddy240>=r(max)
1 s6 R  c+ T3 e: A0 v, m/ j           7 _. A1 r2 A+ Y3 g/ H- u
           sum dx240, y1 \7 _2 o, ~; t
          
* m7 R- ^1 Q, ?7 M, x( n& |           local tempmaxp=r(max)
3 r3 |. s2 n7 M# [* [( ?' A4 u           restore ( I$ A/ P5 \1 }- `
           }
% g" U( s: X4 U* \3 B% A  }& u7 O1 |       
1 R/ w5 c7 X+ ]9 E% ?3 h6 n- z
9 T( q: z3 a4 k; \9 j$ p6 H  1 w* I0 A, q& K# w+ u9 ~) i4 s9 _5 l

8 d" B9 K0 U# \+ h# _( h) J# \+ }/ w. ?   gen maxp=`tempmaxp' in 1& W. }( b3 S. F) `
   ! E: c& G6 D7 j( ]7 ]! R' P6 G
   *240maxp9 ]. @7 {6 ]# O: i( ]
   3 D8 N" j2 y' @# ~& A
   $ R+ T! R4 v5 w0 q( U
   *-------------ddy240pminp左侧高峰值-----
' {" k: ]7 @! O. Q* S   6 n0 R" Y1 @6 _4 }% r& i8 u
    preserve
, D4 s7 B. T4 h   & K# u/ t! U' N0 @  f) h, H
   keep if dx240<`tempminp'
% h( O: b& ^: R. g   
  c7 X7 e! d: e2 y! n   keep if ddy240>0
  a% G& B& v7 u8 e4 u' Z   & R* B$ _, M3 Q8 s/ U
   count: Q1 k/ d  L+ N' C( C
               
( A4 t: j' Y8 e4 k                if r(N)>2 {4 b  }% t( h3 C% g7 p
                 
' r: D5 X% H6 K: ]0 Y8 Y                pkexamine dx240 ddy240* x& Q! C" O  f0 V6 h: y
               
3 X: a: M+ _+ z8 t  u( _                local tempminphddy240=r(tomc)
8 P7 }$ L7 q" V. h+ `                restore
2 V2 _: a4 O, k                 }
% R: |6 c4 t& p  ]7 ^: F                 
5 s! `5 m/ s; p: `7 S4 Q' e) F* x        else {
" {, a# ], q( C5 m% n3 A                restore ! D8 o* h+ _* ?* B( V
                 di "cannot find pminphddy240"
7 e- i2 E3 k5 r& B% j' o2 K                 
$ A# f8 W+ z8 A1 N1 W6 {2 A" ~               
6 }# Z) u. ?5 V' t# N                 sum dx240
/ A4 r) I8 o  ]6 l6 N6 w6 d                 local tempminphddy240=r(mean) 8 a" ?$ }6 Y5 U7 U2 m. e  a
                ! i5 ]0 p) v) R, f8 t- j) P( E6 H
                 . W$ K7 R/ ~8 h% r, v& d8 @
                 }$ X! C' L  c# Y8 \
                 % e/ S+ x1 _" X- W
   
5 l2 Y9 I9 t# P( c   
% A: K+ S+ c+ c1 Q" r   # x# Q* @  f8 _+ i) i) \
   
: y& M% g# c- ~9 v   ) O) H3 P, r0 ?7 m7 {4 M" X
        gen pminphddy240=`tempminphddy240' in 1
1 j4 l  L4 Q. f2 x! R* K5 b        4 O0 J$ D9 O6 [  G; A9 G
       
0 A, v5 X8 `9 T" u& h) r        *-------------ddy240pminp右侧低峰值 -----------------: z2 t( w% [: _
    preserve # F5 y5 P0 l" b8 {

6 g% O+ Z. y# _3 A& o   keep if dx240>`tempminp'
. ]6 d9 r0 N1 c1 x7 S1 I   
5 C" s9 Y5 y6 X% {+ u1 ^1 r. J7 c   keep if dx240<`tempmaxp'$ o) w4 z' k1 ^  C. s* R
   ) p% N# |* x, Z, J2 b) G
   keep if ddy240<06 N- y. [6 D7 z: L: b" O1 N4 |0 @
   * c! m2 |3 @( Q2 ]
   gen temddy240=-ddy2405 Y& J$ |- K' N) G& L
   & s7 p2 g8 L7 `5 d" [
    count6 R, E; s& V/ i- K/ |$ M& r2 X+ f
                5 [7 w* Q' K" j7 N6 g8 J8 s; U
                if r(N)>2 {# F5 q) U! m0 u5 p! E7 ^
                 
7 B/ @; X" b, r                 pkexamine dx240 temddy240
% q9 t+ Y! x8 O! p, d/ T6 T   4 z$ B. K% J0 M( h# v
  local tempminplddy240=r(tomc)
7 m" F) ^& ]5 Q- U                restore
% b6 J5 k+ R9 y& _                 }7 c4 q/ G0 [9 H7 }% E* Z. @1 ^9 P
                 4 M& |4 a2 c8 z& i: `* M/ k& Y1 f$ F
        else {4 c; |( q( J, `7 I& d- f" D8 X
                1 u! x# o; c2 Q- o% g+ G
                 di "cannot find pminplddy240"; U- ?$ E7 k: }2 H2 x; o& G
                restore) S. h# D( v4 ^" Q+ f9 z9 ]
                 + h1 W3 e) i3 v
                  sum dx240
% H8 @& _# S5 ~2 U- T9 o                 local tempminplddy240=r(mean)! Q% y6 w5 Y% a. K) c* ]1 M, A* I
                 9 u& |% k- V2 L2 F$ @& L) `# S
                 
5 J1 S+ U+ ]0 w9 `# R% `                 }
& C& O$ a1 ?$ `- |, c* W4 H   6 k& P- ^& i, F0 m- @8 E
   
7 d( R! X( I8 b& z   
! |& \! i! _) P2 p( y  x   
* E6 j# N: C, E( r, n! b; l   3 q% t  u+ f0 z6 @- @! e
        gen pminplddy240=`tempminplddy240' in 1
8 p' o) ?" U& i2 I# N/ t/ j& {8 O       
& Z3 Q+ ~5 k& b: k9 V( U        *-------------ddy240pmaxp左侧高峰值 -------------------
6 D' o3 V( X7 u       
. r) o$ _9 |( Q1 K         preserve
  ]4 x9 a9 N2 Q2 r0 M   ) `0 k4 b& g+ T' _( }6 c% l* Q, p
   keep if dx240>`tempminp'
! V! n- h  a9 C6 R* J   ) u# h" O* D5 m5 x
   keep if dx240<`tempmaxp'
2 T1 [* L5 U2 I  p   ) U- t0 y+ J8 M7 A) G4 [
   keep if ddy240>0
6 @) b* N! x+ Z; `5 V- y* i! l7 n7 i   count
) s! H( H& O% ?5 o* j; o! ]# V                  o* A3 L9 F4 N1 c
                if r(N)>2 {/ F2 Y; h/ g8 C$ e
                 
) T4 Y- c" u! b/ [                 pkexamine dx240 ddy240' z! g- H& P/ O2 |9 T4 t% k' G" s
   
) t, o* a5 r3 A   local tempmaxphddy240=r(tomc)
" e5 n" \. ^1 d0 ^$ D" `   
& n1 T5 G6 f( {- N   restore6 O" @2 G6 |8 D4 U, _
                 }# W5 Y" y7 F$ w' J
                 
7 S3 ?6 I- c8 r        else {
* ~! O) I" Y( f- d+ v               
( P! e1 p) S% u9 P/ Q                 di "cannot find pmaxphddy240"6 ]  m! x- d% o2 _2 |& P
                 restore; k- |) D8 D4 C, `7 }: D1 Z9 ]
               
' z* R/ D1 {2 ^  r9 O, s                 sum dx240" M3 H# E# @! p  f9 g+ F
                 local tempmaxphddy240=r(mean)
' ]1 u6 V7 e; J& S8 X                 
7 l9 b# }- f9 X5 U3 m7 @0 Z( p. f                 
( p# \* F0 I' X1 L/ J                 }. ?- \. R# M2 k7 t/ A" A( _2 l" w
   
! D) C: Z- _* F7 Q. |0 O   
" A( ^  d! \5 h2 Y0 {' s   
. [; k8 j# J5 j. q2 R   ) D  f( p  j0 ~$ h& t
   " W2 i# W8 G1 V# g7 F. K+ m
   ! {9 ~$ ]8 F! H: q$ c  T
        gen pmaxphddy240=`tempmaxphddy240' in 1
- b4 x" Z3 o+ ^7 G! B' ^1 v" v$ ?       
5 C. O3 G' y4 Z  K5 d        ; @: A" f$ d5 j1 m/ [3 d( H! ]
        *-------------ddy240pmaxp右侧低峰值 -------------------
' D8 s+ G0 ^& k: |8 R9 [/ U1 U1 K       
- Y" h1 S+ `1 Y* E  a2 |! b         preserve
$ x: z" {. C, g8 m+ y" z  ' A8 p  K2 z$ Z, o8 R
   keep if dx240>`tempmaxp'8 z) X( f% n0 ^, x
   
6 o. S* K1 F' k# E4 F% V   gen temddy240=-ddy240
7 u  `% J6 x- {   
. V3 S. t- `9 B   keep if temddy240>0
( W  W) C  {3 o% D, k( Z1 t2 _" _+ `   
8 a3 \9 K: m- C6 k) ^   count
! t8 e% _3 N8 p- \2 b! K                ( s  H. B9 i' U+ w" b3 h0 a4 R, m
                if r(N)>2 {
2 t5 Q1 G* ^- Q' e                 
  r# O: V# j( S) ^; C                pkexamine dx240 temddy240
" M3 z& K3 q" Q' A; M* L   " P& {, G; I3 Y# J, R  o2 b
   local tempmaxplddy240=r(tomc)
( m6 ^+ w( J, L- S$ b+ M5 \* N2 X  O   restore4 Z/ x4 B0 ]1 Y9 L, P
                 }
- @% r* G1 c% l+ V$ K                 ( |4 g4 b/ T, U" E
        else {
6 `3 [2 O- ?4 r                restore& G3 t; `* C. G: \& o, ^9 g
                 di "cannot find pmaxlhddy240"  O/ |* u8 M- i' S# x9 A
                 
6 J6 j& m4 P: m3 Z# F% f( u               
0 g8 A* ?6 @: e: S; [2 I                           sum dx240
' e1 n# @; \* \" p/ g                 local tempmaxplddy240=r(mean) in 1/ H) C, G. {  U2 ^- m  X: B' e3 V
                ) J7 S5 h% v  j3 I* I  }0 u  m
                 % [6 D3 m0 v4 a, |2 E
                 }
' k, k" z. E) L( r   7 }4 B$ r5 R5 @9 i0 W; h
   
- ^# Q( Q' w) K: X4 o    4 O+ @5 B& Q$ j9 C
   . ]  x7 ?, t3 Z# v
   : a/ I5 C  b7 C0 \/ a0 Y
   
3 O6 Y7 z2 P7 c9 H# F        gen pmaxplddy240=`tempmaxphddy240' in 17 }8 l+ n2 s% ]2 u4 y( {  m
        % ]: j! }( J, m0 c
        *-------------------------------------6 X6 j0 A0 a+ H  ^/ [
   % i) k2 [( y) m% `) q/ n* V; b; P
   gen price5d=v5 in 1/20
* |0 a& i7 A1 d. ^      3 q& I. x  X- x5 R
   gen price5yy=_n in 1/20
  X) I* A: \( C  @' q" k   
, T! J6 j+ O/ Q9 G* J   gen price5y=price5yy*(dy240max-dy240min)/20
1 w6 J  K9 l) O) x8 s+ z9 m' P     ?% H, U. |$ y3 o- z. \
   *price5y &price5d
! m% x1 V7 i8 j" u) z8 H   
8 I8 i# n6 }: S+ F   gen priceny=price5y in 1
, g  t+ {) x6 g- m) v7 h   % A/ r& v+ B4 j
   gen pricen=v5 in 1
9 I) @5 p; `; @8 l8 L2 ^& J, E
% s$ g& S# v, u" j     ) {+ R; m4 v6 s" R
   *priceny &pricen  q/ s: w2 ~6 M5 k0 Y2 T* _
   
0 S# D& A9 d' y' U7 O! V& o8 R+ s   ! Z) g9 Z6 [7 N' t( O
   *-------------------------graph------------------
1 }: \* c9 g7 }- B9 s  
( y% b7 l+ n+ x( k( j0 W) X  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)8 s* `! d# t4 G$ S! t7 E
$ `3 i0 F; q% R% V- [
* ---------可选项目----------------------  F7 m0 p8 p' E5 J: p
*(spike yxis amean,lc(blue))(scatter yxis2 amean, lc(blue) msymbol(+) mlabel(amean)). a. m8 G- o/ b1 B8 k/ K
}2 U6 Z- `8 I- o2 u) g) d4 H% x
end" e/ e6 l% y' t+ x. l7 @9 H2 V( C

该用户从未签到

66#
发表于 2013-2-7 00:03:44 | 只看该作者
awer 发表于 2013-2-5 14:40
7 p4 U4 n+ b* l, P抱歉,最近太忙了+ l. ?% f( C$ X  M

' a. d1 N1 P. l3 Y* }. A- y300236 我用下面的程序试过,没问题
0 a& F4 i! j8 f/ j- d
哇,谢谢,我仔细看看,这些字母数字代码晕了
& t1 U6 y$ t+ y( j. y1 ?

该用户从未签到

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 小时前
# w2 e# ^4 m0 r2 |, G9 N
8 _; h+ q# B2 r$ V
这东西是开源的?知道有个统计软件叫stata,不过要收钱。

点评

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

    [LV.3]辟谷

    69#
    发表于 2013-4-17 17:14:44 | 只看该作者
    准备试一试& S# V( x4 y" m+ ]: Z
    先找Stata软件
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    70#
    发表于 2013-4-17 22:21:02 | 只看该作者
    本帖最后由 汉水云潇 于 2013-4-17 22:27 编辑
    ' F# O9 a: _6 z7 V& t- l  C0 A! m
    : ~& Y- Y* P, q! n  C* g4 c晕呀% E0 S* ^' d: v, b  y' e3 W$ M
    论坛复制程序代码5 I% E( s5 S! }" U4 T" O4 K% z; K. a
    乱码夹杂在其中
    ) @0 O. U2 D1 c& `+ n  {+ U很烦3 }; F9 o3 i* F! O! U: y1 K6 ]  o
    对了两次
    . B: C5 Q1 Q2 N9 U) h以为没问题了
    , w/ x! m; L) u& I7 I3 C
    & p, `6 \) G' m; s结果0 `* ~0 U2 E5 h8 g0 _0 R
    执行后9 o! E% l! a, X8 H" j" S
    还是出现+ I2 m0 {1 H, `8 h
    r 199
    : E4 H* z+ r2 A: X! i; N; o. U5 |的错误' f: n' A8 Z9 U4 d$ T) L9 H/ E1 @- r
  • TA的每日心情
    郁闷
    2018-10-21 12:19
  • 签到天数: 7 天

    [LV.3]辟谷

    71#
    发表于 2013-4-18 07:50:56 | 只看该作者
    试验成功,下面是三一重工的图* D6 t/ @8 ^7 _5 H: s
    ( M$ h* H( z. K5 B3 b' t

    点评

    我的怎么没有红点? 三一上市以来的成本才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! r5 Q3 @, O. d: e, Y7 c* G
    程序写的不错.1 l4 O; [- D6 p8 h
    不过有一点要注意.通达信导出的数据,只对价格复权,并没有对成交量复权.所以数据需要手工处理 ...
    * x' [' a% G% F5 _$ z
    老哥,也是山寨这篇文章找不到了,不知为何?

    点评

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

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

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