【第一私募论坛】www.simu001.cn】灵通信 涨停板 副图指标源码( J4 r/ j0 ^' x( N0 v' ]
 
0 c" L4 W \4 e/ T) I, Z; b* a* A' A" A0 b
f4 A3 }" V; b8 {4 K) `源码如下:
1 y6 x7 K5 M0 V% b8 s0 O4 ^ 6 K! l4 E0 g: c5 ^0 [! R) [
趋势:SMA(((CLOSE-LLV(LOW,28))/(HHV(HIGH,28)-LLV(LOW,28))*100),3,1) ,COLORGREEN;5 U. \( T. |" R, r- V0 x5 ?! v
STICKLINE(趋势>50,趋势,50,4,0),COLOR32329B;
; c6 {# i0 u4 V" t; M8 gSTICKLINE(50>趋势,趋势,50,4,0),COLOR326400;
' V6 E7 {" _- |' jIF(趋势>50, 趋势,DRAWNULL), COLORRED;
0 }9 ?2 t6 ]! c8 aRSV:=(CLOSE-LLV(CLOSE,9))/(HHV(CLOSE,9)-LLV(CLOSE,9))*100;( g6 E8 Y" R$ G
K:=SMA(RSV,3,1);3 P; w3 t) P$ d- V4 e6 m3 i
D:=SMA(K,3,1);
7 ?3 J* h, m9 ^. I! lTYP:=(HIGH+LOW+CLOSE)/3;
) _" t6 L/ M2 }9 @8 QCCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));: @( P) x. b6 D4 S, f5 F7 a
DIFF:=EMA(CLOSE,2)-EMA(CLOSE,55);% P( o* F0 S8 u) W, L4 v8 r! H
DEA:=EMA(DIFF,6);/ [, m0 ?! b* Y( p, G$ y
MACD:=2*(DIFF-DEA);
6 u: l2 v% U. ^! {; G/ @, k8 W转点:=IF(K>D AND CCI>0 AND DIFF>DEA AND MACD>0,1,0);+ D% x4 z, K( C
STICKLINE(转点=1,50,50,6,0),COLORYELLOW;
}7 Z" V; C( X9 W, ~2 eSTICKLINE(转点=0,50,50,6,0),COLORCYAN;
t& C/ N( v. f8 `顶部:90,COLORYELLOW;* Z' l6 A) `9 H: f! {
底部:10,COLORCYAN;+ r" i% x; E5 m& g
判定:SMA(趋势,3,1),COLORFF00FF, LINETHICK2;+ q4 x$ x$ I; u( |: i9 `6 Y, |6 Y
IF( 趋势>判定,判定,DRAWNULL), COLORYELLOW, LINETHICK2;
7 i9 k5 g* w' Y) `7 f8 JIF( 趋势<判定,判定,DRAWNULL) ,COLORFFF000,LINETHICK2;
1 c* M* j* a' v6 jDRAWICON(CROSS(趋势,判定),判定,1);$ t' `. z6 ?- D) q
DRAWICON(CROSS(趋势,顶部),顶部,2);
( |6 S; \# K0 c: p+ cLC:= REF(CLOSE,1);( R/ O$ p5 Y- w0 t% g, X
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;3 o" [# ] x5 v1 e7 R
VAR1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
' ]9 |3 W$ g9 aVAR2:=SMA(VAR1,9,1)+100;
' d, B! d7 o0 s& N% OVAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
0 g4 u3 d, R3 c6 ^VAR4:=SMA(VAR3,3,1);2 X$ t% c7 T9 E5 V# `8 F
VAR5:=SMA(VAR4,3,1)+100;, |# s5 M& h& m
VAR6:=VAR5-VAR2;) E( R& k, W- p* P2 n
趋势1: IF(VAR6>45,VAR6-45,0),COLOR00FFFF;. {" g, J! b, w+ K/ ]6 a+ M
VAR2Q:=REF(LOW,1);
H' \7 U4 ^. C0 hVAR3Q:=SMA(ABS(LOW-VAR2Q),3,1)/SMA(MAX(LOW-VAR2Q,0),3,1)*100;
, A0 d) {$ e0 |5 h9 mVAR4Q:=EMA(IF(CLOSE*1.3,VAR3Q*10,VAR3Q/10),3);: s5 h/ B1 s Q+ r# J! v& s, N, O
VAR5Q:=LLV(LOW,30);: M- n) b; {: g) c
VAR6Q:=HHV(VAR4Q,30);! d; `$ c( B" A8 p4 G! w1 l+ U
VAR7Q:=IF(MA(CLOSE,58),1,0);
/ C* G3 _3 e7 _- yVAR8Q:=EMA(IF(LOW<=VAR5Q,(VAR4Q+VAR6Q*2)/2,0),3)/999*VAR7Q; e P) N5 ]% g+ M
火焰山:=IF(VAR8Q>100,100,VAR8Q);
' b/ P+ L/ @4 t7 e% a: f8 ASTICKLINE(火焰山>0,0 ,火焰山*1.2,5,0 ),COLOR4444FF;
; d6 o0 E5 E) d+ K r ~( gSTICKLINE(火焰山>0,0 ,火焰山*1.2,4,0 ),COLOR5555FF;
7 N! p: _9 @1 i. @STICKLINE(火焰山>0,0 ,火焰山*1.2,3,0 ),COLOR7777FF;
. x6 }' h- r( y9 W( iSTICKLINE(火焰山>0,0 ,火焰山*1.2,2,0 ),COLOR9999FF;
$ }" Y; g, f" l3 \; p9 D* |$ wSTICKLINE(REF(趋势1,1)< 趋势1, 趋势1,REF(趋势1,1),5,0),COLOR000033;
9 u7 R {; X9 S% T0 cSTICKLINE(REF(趋势1,1)< 趋势1, 趋势1,REF(趋势1,1),4,0),COLOR000055;
5 R8 R: W& L4 S2 p, @1 L$ v+ pSTICKLINE(REF(趋势1,1)< 趋势1, 趋势1,REF(趋势1,1),3,0),COLOR000077;! Q( r# H( U1 R& O
STICKLINE(REF(趋势1,1)< 趋势1, 趋势1,REF(趋势1,1),2,0),COLOR000099;8 u( {* P: m6 T4 ~* J; P7 Z
STICKLINE(REF(趋势1,1)< 趋势1, 趋势1,REF(趋势1,1),1.5,0),COLOR0000BB;
; M7 |1 t% d3 Q ^8 w$ M, g% xSTICKLINE(REF(趋势1,1)< 趋势1, 趋势1,REF(趋势1,1),1,0),COLOR0000DD;
3 c" r8 x0 r3 ] B$ Q/ H' MSTICKLINE(REF(趋势1,1)> 趋势1, 趋势1,REF(趋势1,1),5,0),COLOR003300;4 p6 X7 h1 g7 ~* f7 W, M
STICKLINE(REF(趋势1,1)> 趋势1, 趋势1,REF(趋势1,1),4,0),COLOR005500;9 E. i# q' w2 h. H+ D3 ]
STICKLINE(REF(趋势1,1)> 趋势1, 趋势1,REF(趋势1,1),3,0),COLOR007700;" C/ ~3 P. A& `7 l
STICKLINE(REF(趋势1,1)> 趋势1, 趋势1,REF(趋势1,1),2,0),COLOR009900;" B1 h$ ` ?: [1 z! g
STICKLINE(REF(趋势1,1)> 趋势1, 趋势1,REF(趋势1,1),1,0),COLOR00DD00;% t2 J; d7 J7 x F
逃顶:=CROSS(82,RSI);; }7 s4 O( I, T; Z
STICKLINE( 逃顶,逃顶,20,5,0),COLORFF5500;
# X3 d; M8 z7 e% V4 kSTICKLINE( 逃顶,逃顶,30,3,0),COLORFF8800;
; m0 x$ l) b$ a7 M& c0 T7 g) GSTICKLINE( 逃顶,逃顶,30,2,0),COLORFFAA00;
( U/ J4 l" O/ _6 ESTICKLINE( 逃顶,逃顶,30,1,0),COLORFFCC00;
0 x- }/ d; B: ]! o$ n; tD1:=(C+L+H)/3;% x$ f: F2 h1 b/ x
D2:=EMA(D1,6);, Y6 V" N, `4 q4 v9 Z2 n5 {
D3:=EMA(D2,5);
0 f g# u, ]6 T) y1 c4 bBBUY:=CROSS(D2,D3);
& t( I% y% \. A0 ^9 Y' v风险区:80,COLORFF85FF;. _1 ?8 F4 j1 \# e7 f$ [& G; E
平安区:20,COLORYELLOW,POINTDOT;4 q1 l C2 e; R& x) q$ h
天线:100,COLORFFFF00;
' F& j% G2 ]/ S' R强弱线:50,COLORGREEN,POINTDOT;
) N' N1 o3 V- l& WDRAWICON(BBUY,(LOW *1),1);
2 G8 y4 _/ [. f. \, I* a8 B+ vVARR1:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;5 w3 Z7 n/ g" D0 d6 D( ~! l% Y' U
DRAWICON(CROSS(82,VARR1),HIGH,15);% T% i# k; z+ T+ i; @5 ]1 ^9 d% K. ~
DRAWTEXT(CROSS(82,VARR1),35,'逃'),COLORYELLOW;# c' W1 \2 w. [) H1 Z8 E
{用法:副图指标,红色K线持有待涨,绿色K线观望。蓝色立柱 出逃。}  tdxjietu1.JPG (277.4 KB)
7 z8 _6 L* i4 S# e0 }0 b5 H时间:2015-9-4 20:07
, I& T9 u- Y4 i/ u2 G股票论坛 www.simu001.cn【第一私募论坛】www.simu001.cn】 |