|
源码如下!!
( B9 V5 Y& @) R4 u{M 1 30 3}4 l1 f& v- @* Q. `% d; Q1 {6 B
( x: l% Q% _" O8 ~VAR1N:=1990131;
3 b: t; W+ u( o" fU1:=IF((DATE 0) AND (HD > LD)),HD,0),5) * U1);* T, I$ L9 U! \" |. B
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);5 C9 M, A, f' H5 L7 ^% H
神偷线 ((DMP * U1) * 100) / TR);
. A t! ]$ E4 {- u- ^辅助线:=((DMM * 100) / TR);6 q+ c8 d2 u# I; X
动向趋势线:=(MA(((ABS((辅助线 - 神偷线)) / (辅助线 + 神偷线)) * 100),M) * U1);! i5 _ ~3 z. p0 A
ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);
0 n' T3 x' }3 _. d( n1 N' uVAR1:=MA(LOW,1);
. K* D0 v7 B9 m3 `$ \VAR2:=MA(HIGH,2);
3 x/ J* z. J! r q2 o g% R; `VAR3:=MA(CLOSE,2);/ I2 G% E* y- z! D
VAR7:=REF(VAR3,1);5 N$ }- u5 c% }7 ]) r3 V
【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);
: A: Y& O: w0 r预警:(IF(((动向趋势线 > 88) AND (神偷线 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF;
a$ C2 S* ^% j' b/ V短底:5,LINETHICK2,COLORBLUE; 8 C0 W5 v$ [ Q8 s" L
短顶:43,COLORGREEN;0 f# @4 B$ U$ O0 D! v" F+ ]
绝顶:60,LINETHICK2,COLORFF00FF;
# d. S! Q7 r% W. d5 p$ ^/ u; aFILLRGN(神偷线,短底,神偷线=短顶,RGB(255,0,0));
3 v! h7 J- @ q* }# e" rFILLRGN(神偷线,绝顶,神偷线>=绝顶),colorgreen;) R0 ~4 h2 O1 y9 `! E' U
+ n. A' m: d% X# Q6 L
) P7 v4 P( F: g* |通达信版
r0 w9 V8 q; O7 H) B. a) y{M 1 30 3}' }( o( n) X/ @7 w2 e0 ?+ Z
VAR1N:=1990131;
. b9 V0 v6 B: p0 ]( }4 C1 lU1:=IF((DATE 0) AND (HD > LD)),HD,0),5) * U1);- S# A( J( E% K: T
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);
' s6 t7 ?6 f; _: q神偷线1:=(((DMP * U1) * 100) / TR1),NODRAW;* L! j5 p7 I0 M/ M4 Q7 o
辅助线:=((DMM * 100) / TR1);. X0 C8 H2 C" |: X3 ]2 }
动向趋势线:=(MA(((ABS((辅助线 - 神偷线1)) / (辅助线 + 神偷线1)) * 100),M) * U1);
# e, z$ `# Q) ?ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);' M& c. ?" @7 N" s
VAR1:=MA(LOW,1);% D" _; X4 q! u4 U$ S3 M* o) J
VAR2:=MA(HIGH,2);
6 [2 p5 ?7 ?6 S; M5 @4 c5 I* TVAR3:=MA(CLOSE,2);
, P) Y& D2 x% W2 K0 {9 o5 \VAR7:=REF(VAR3,1);
; B2 d9 }! L2 J【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);4 c1 Y2 k- ~9 p8 X- l
0 K( K# m7 ?# a* E$ `2 s& F; i( s$ ^
短底:5,LINETHICK2,COLORFF3300; 2 p ?4 E: a( _' ?- Q7 i
短顶:43,COLORGREEN;+ l& e% d. {% ~( \4 ]
绝顶:60,LINETHICK2,COLORFF00FF; \0 c2 f9 S( w0 |2 a+ C( }
STICKLINE(神偷线1=短顶,神偷线1,短顶,1,-1),COLOR779900;
. n( K7 `. s4 B% ISTICKLINE(神偷线1>=绝顶,神偷线1,绝顶,1,-1),COLOR0033FF;
L3 u" F& l. m: R2 p7 z神偷线:神偷线1,COLOR00FFFF;3 I# r5 _- U# X F" y1 L1 Z/ f
预警:(IF(((动向趋势线 > 88) AND (神偷线1 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF;1 J0 B" {' Q" j9 a" M
8 S U0 |/ {8 H5 m3 ?
7 U( B: }! u' }! w, \% X. p飞狐版: F& q0 t) }& @+ M# y9 i! V9 Q7 G
input:m(3);; ~. j; F- V( n: ^$ g3 G
VAR1N:=1990131;' k) C& u' x" v4 b
U1:=IF((DATE 0) AND (HD > LD)),HD,0),5) * U1);
- d3 b' [; |2 p5 P# B& R/ eDMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);
( ]$ a4 C; N; w( v- P3 O* S神偷线1:=(((DMP * U1) * 100) / TR1);7 Y# o$ w/ A7 U% u
辅助线:=((DMM * 100) / TR1);
6 y% j# b8 O* ^( f* X动向趋势线:=(MA(((ABS((辅助线 - 神偷线1)) / (辅助线 + 神偷线1)) * 100),M) * U1);9 a5 \9 W1 A5 c
ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);
6 [& U+ T7 c) n7 v! T" vVAR1:=MA(LOW,1);
4 L3 U- F, ^# i) D7 G0 eVAR2:=MA(HIGH,2);/ j9 g! w" o4 x$ i
VAR3:=MA(CLOSE,2); g P$ W1 {6 G
VAR7:=REF(VAR3,1);" D& ]0 X6 ]( V8 V8 B0 G
【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);
: L7 d# F* M+ r5 t( j% g! w4 Z0 J& L( C6 f, J: d) F( W) f( V
短底:5,LINETHICK2,COLORFF3300;
3 Q2 @1 s$ z" W+ f) _短顶:43,COLORGREEN;
; Z& n; Q- h4 r- s- g绝顶:60,LINETHICK2,COLORFF00FF;: |0 }% k h, }$ x7 [
STICKLINE(神偷线1=短顶,神偷线1,短顶,8,0),COLOR779900;( d6 U% H( O2 `" A( L
STICKLINE(神偷线1>=绝顶,神偷线1,绝顶,8,0),COLOR0033FF;( {# r! c6 j$ X, N& s
神偷线:神偷线1,COLOR00FFFF;8 X) H+ V8 |: l- a
预警:(IF(((动向趋势线 > 88) AND (神偷线1 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF; |