源码如下!!* f4 \1 t X# P2 G) R$ X
{M 1 30 3}
R* w. }. B" t- B. H
0 h8 S3 @+ m' b1 S0 G1 u7 M0 {VAR1N:=1990131;8 y Q) k8 d+ Y; ]# x+ g
U1:=IF((DATE 0) AND (HD > LD)),HD,0),5) * U1);0 W6 n2 q5 M; n( Q3 i/ B
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);
1 i6 C* s5 ]$ E9 @, A0 u神偷线 ((DMP * U1) * 100) / TR);
/ I; M. Y( Z, w8 H辅助线:=((DMM * 100) / TR);
0 L$ I `; S9 X2 I+ S" q4 w% h动向趋势线:=(MA(((ABS((辅助线 - 神偷线)) / (辅助线 + 神偷线)) * 100),M) * U1);3 `. B1 d; W9 j
ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);
( x* n! k0 x* t" MVAR1:=MA(LOW,1);2 _" v! g- [$ k) T! b
VAR2:=MA(HIGH,2);! h" Q# o4 B7 P+ E3 Q
VAR3:=MA(CLOSE,2);" f' G& M3 n$ B$ o @3 c
VAR7:=REF(VAR3,1);2 V. R6 Q% G6 [3 [6 a! j8 u9 H* M
【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);* ~* z) K$ d- ^2 a
预警:(IF(((动向趋势线 > 88) AND (神偷线 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF; 6 }9 I$ ]0 ^ @% u
短底:5,LINETHICK2,COLORBLUE; 9 y% C3 z8 V3 _( f. s' C- r
短顶:43,COLORGREEN;, X/ W- O9 q- v) T V
绝顶:60,LINETHICK2,COLORFF00FF;
3 M4 K5 S1 I& B1 _! i! |0 ?FILLRGN(神偷线,短底,神偷线=短顶,RGB(255,0,0));9 }- A$ U0 n9 Z1 s3 o' D/ I* ?- h
FILLRGN(神偷线,绝顶,神偷线>=绝顶),colorgreen;9 ~3 Q* c. s+ M9 l# n* \# {% L
/ b& o6 g, W5 M E+ Q1 J. A j" l3 |, ?! X
通达信版
8 |+ N& h$ \( m8 z% d; u{M 1 30 3}
' m$ E, l9 k. c4 m1 D. I# z L$ {VAR1N:=1990131;/ {5 ?* m( Q/ f w% T0 D# e
U1:=IF((DATE 0) AND (HD > LD)),HD,0),5) * U1);5 M$ G* v5 c% m
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);
1 y3 ?' M/ d3 _3 s, G- k. f4 G神偷线1:=(((DMP * U1) * 100) / TR1),NODRAW;
' }: L4 Z1 [7 U! X8 W辅助线:=((DMM * 100) / TR1);
( o6 _" }, ?( ~8 S, V* l; |动向趋势线:=(MA(((ABS((辅助线 - 神偷线1)) / (辅助线 + 神偷线1)) * 100),M) * U1);- v+ x7 P- _' L6 ?' K* [% r
ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);$ N. r1 @/ Q# K V% Z, `' N
VAR1:=MA(LOW,1);& b- ^* I6 R( p$ x/ t/ t7 I
VAR2:=MA(HIGH,2);! u1 L- ]$ {3 N$ H
VAR3:=MA(CLOSE,2);
# }0 a9 w, C* N& r* B+ |( z9 aVAR7:=REF(VAR3,1);8 }* N( ^8 Y9 {: T
【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100); W! u% L& Y/ h h7 [+ |+ i
4 N ?6 C" f i! O短底:5,LINETHICK2,COLORFF3300; ! Z! G- f: a# j7 ]6 D/ z& E1 J) k
短顶:43,COLORGREEN;
3 P `) i* e. Q% R Z+ m3 g0 e! }$ F绝顶:60,LINETHICK2,COLORFF00FF;# O% U0 `& O$ [6 E
STICKLINE(神偷线1=短顶,神偷线1,短顶,1,-1),COLOR779900;
1 ]+ e5 e( C+ M- L" }; f1 c" iSTICKLINE(神偷线1>=绝顶,神偷线1,绝顶,1,-1),COLOR0033FF;- i9 z1 A$ c# ?7 p4 ^$ |
神偷线:神偷线1,COLOR00FFFF;
+ @2 d0 N: c- e预警:(IF(((动向趋势线 > 88) AND (神偷线1 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF;3 l8 u& w( G m. Z! K" O/ b7 x
7 m5 c. R7 e* W* l# a7 R0 \7 s2 |/ _
& l) V4 I. N7 Z9 z5 u; u飞狐版:
V* D) k3 H5 W1 linput:m(3);9 E4 V# T0 [3 N9 b+ O# i# n
VAR1N:=1990131;9 X5 G5 w; v1 ]8 Z' _9 ~- l/ M
U1:=IF((DATE 0) AND (HD > LD)),HD,0),5) * U1);
/ ? I s" v2 _7 I0 j" C( UDMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);0 v( ^- m5 W ~& p: ~: N+ F- c1 b3 q
神偷线1:=(((DMP * U1) * 100) / TR1);/ P3 V+ z; T: @; F
辅助线:=((DMM * 100) / TR1);
( k8 {1 \( ? _% I2 {; Q7 B, K动向趋势线:=(MA(((ABS((辅助线 - 神偷线1)) / (辅助线 + 神偷线1)) * 100),M) * U1);
5 ?& h# |/ ^0 E- [* \ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);
( j, ~# C6 x+ [4 pVAR1:=MA(LOW,1);
" [! k' r3 o$ h1 V- c/ SVAR2:=MA(HIGH,2);# N; y8 _3 |* j5 m
VAR3:=MA(CLOSE,2);; I! E- D2 R* E( Y' d9 @: {" }$ N/ x
VAR7:=REF(VAR3,1);
/ i2 ~$ E+ t6 p1 y3 V【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);
$ X7 O" }6 z9 Q. D' V U S. o2 x+ w! _2 \& u' F, m. }
短底:5,LINETHICK2,COLORFF3300;4 Z' ^) ] I' j' P; Y
短顶:43,COLORGREEN; r) g1 T, u3 d' o" g9 U
绝顶:60,LINETHICK2,COLORFF00FF;
! E5 Z. X2 d6 x' x7 zSTICKLINE(神偷线1=短顶,神偷线1,短顶,8,0),COLOR779900;
s! u$ k& t q& \STICKLINE(神偷线1>=绝顶,神偷线1,绝顶,8,0),COLOR0033FF;
/ m$ u. d8 H# g; z; ~0 M$ E$ t* M! k神偷线:神偷线1,COLOR00FFFF;& e" R2 ^2 r; ]: I7 u. l- c5 f
预警:(IF(((动向趋势线 > 88) AND (神偷线1 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF; |