引用:Originally posted by 南山雾 at 2005-9-3 15:23 代码来自于网上 INPUT:m(9,1,100),n(3,2,30),m2(3,2,30); u:=(HHV(H,m)-LLV(L,m))/100; Rc:=(C-LLV(L,m))/u; Rh:=(h-LLV(L,m))/u; Ro:=(o-LLV(L,m))/u; RL:=(L-LLV(L,m))/u; Kc:SMA(Rc,n,1),LINETHICK1,COLORWHITE; Ko:(ro+(N-1)*ref(kc,1))/N,LINETHICK0,COLORMAGENTA; KL:(rL+(N-1)*ref(kc,1))/N,LINETHICK0,COLORGREEN; Kh:(rh+(N-1)*ref(kc,1))/N,LINETHICK0,COLORRED; STICKLINE(kc>ko or (kc=ko and kc>=ref(kc,1)),kh,kL,0.1,0),COLORMAGENTA; STICKLINE(kc>ko or (kc=ko and kc>=ref(kc,1)),kc,ko,5,1),COLORMAGENTA; STICKLINE(kc<ko or (kc=ko and kc<ref(kc,1)),kh,kL,0.1,0),COLORGREEN; STICKLINE(kc<ko or (kc=ko and kc<ref(kc,1)),kc,ko,5,0),COLORGREEN; PARTLINE(1,kc),COLORWHITE; Dc:SMA(Kc,M2,1),COLORYELLOW; |
|