文华财经指标之神龙指标
 
效果图如上 
评价：该指标为少数比较好的指标之一 
这里公布其源代码 
注意：仅供学习，请勿将其用于商业，谢谢 
指标不在于长短，在于的是思路 
代码如下 
[P,0.000000,1.000000,1.000000] 
TMP:=OPEN-CLOSE; 
DRAWLINE(TMP>0.00001,HIGH,TMP>0.00001,OPEN,COLORCYAN); 
DRAWLINE(TMP>0.00001,LOW,TMP>0.00001,CLOSE,COLORCYAN); 
DRAWLINE(TMP<-0.00001,HIGH,TMP<-0.00001,CLOSE,COLORRED); 
DRAWLINE(TMP<-0.00001,LOW,TMP<-0.00001,OPEN,COLORRED); 
DRAWLINE(ABS(TMP)<0.00001,LOW,ABS(TMP)<0.00001,OPEN,COLORWHITE); 
DRAWLINE(ABS(TMP)<0.00001,HIGH,ABS(TMP)<0.00001,OPEN,COLORWHITE); 
STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0); 
STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,1); 
J:=MA(MA(LOW,2),13),COLORYELLOW; 
JM:=IF(J>REF(J,1),1,-1); 
JM2:=IF(J<REF(J,1),-1,1); 
JJ:=(HIGH+4*LOW+OPEN+CLOSE)/7; 
JJC:= EMA(JJ,13) - EMA(JJ,34); 
YDJJ:= EMA(JJC,5); 
X:=(JJC-YDJJ)*5; 
AA:=IF(X<=JJ,JJ,X); 
FGS:=FORCAST(FORCAST(AA,31),10),COLORBLACK; SD:=IF(AA>FGS,1,-1);CC:=CLOSE;OO:=OPEN; 
XD:=IF(AA<FGS,AA,FGS),COLORGREEN; 
DRAWSL(SD=1 ,FGS ,FGS-REF(FGS,1) ,1 ,0 ,COLORRED) ; DRAWSL(SD=-1 ,FGS ,FGS-REF(FGS,1) ,1 ,0 ,COLORCYAN) ; DRAWSL(ISLASTBAR,CLOSE,0,8,0,COLORWHITE); 
DRAWNUMBER(ISLASTBAR&&CC>OO ,C ,C ,2 ,COLORYELLOW ); DRAWNUMBER(ISLASTBAR&&C<OO ,C ,C ,2 ,COLORLIGHTGREY ); DRAWNUMBER(ISLASTBAR&&C=OO ,C ,C ,2 ,COLORWHITE ); 
VAR1:=(CLOSE-MA(CLOSE,37))/MA(CLOSE,37)*(-100); 
LL:=LOW;HH:=HIGH; 
VV:=(3*C+LL+O+HH)/6; 
BQ:=(20*VV+19*REF(VV,1)+18*REF(VV,2)+17*REF(VV,3)+16*REF(VV,4)+15*REF(VV,
5)+14*REF(VV,6)+13*REF(VV,7)+12*REF(VV,8)+11*REF(VV,9)+10*REF(VV,10)+9*REF
(VV,11)+8*REF(VV,12)+7*REF(VV,13)+6*REF(VV,14)+5*REF(VV,15)+4*REF(VV,16)+3*
REF(VV,17)+2*REF(VV,18)+REF(VV,20))/210,COLORGREEN; BG:=MA(C,23),COLORLIGHTGREEN; 
VAR2:=(CLOSE-MA(CLOSE,37))/MA(CLOSE,37)*(-100); 
FG:EMA(VAR2/IF(C<13000,IF(C<2000 ,IF(C<1500, IF(C<500,2,0.25) ,0.065) ,0.025) 
,0.005)+EMA(CLOSE,45),3),COLORWHITE ; 
FG11:=EMA(COS(VAR2)+EMA(CLOSE,45),3) ; 
FG2:=EMA(VAR2/6+EMA(CLOSE,45),3); 
FG1:=IF(C>100,FG11,FG2),COLORLIGHTGREY ; 
DRAWTEXT(CROSS(FG1,FG),C,'多'); 
DRAWTEXT(CROSS(FG,FG1),C,'空'); 
DRAWTEXT( SUM(C>FG||C>FG1 ,6 )>1&&CROSS(FG1,FG),L ,'' ); DRAWTEXT( SUM(C<FG||C<FG1 ,6 )>1&&CROSS(FG,FG1),L ,'' ); A1:=IF(FG<FG1,1,-1); 
A2:=IF(FG<FG1,1,-1); 
DRAWSL(A1=1,FG1,FG1-REF(FG1,1),1,0,COLORGREEN); DRAWSL(A2=-1,FG1,FG1-REF(FG1,1),1,0,COLORBLUE); SS:EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55); 
FGS5:EMA(ACOS(VAR2)+EMA(CLOSE,45),5) ; 
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100; 
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100; 
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100; 
VAR6:=(VAR3+VAR4+VAR5)/3; 
VAR7:=EMA(VAR6,5); 
K:=EMA(VAR7,5)*2*2; 
D:=EMA(K,5); 
DRAWTEXT(CROSS(D,0) ,H , ''); 
DRAWTEXT(CROSS(0,D) ,L , ''); 
STICKLINE(SS>FGS&&CROSS(FGS,FG) , HIGH, LOW, COLORYELLOW, 1); 
STICKLINE(SS<FGS&&CROSS(FG,FGS) , HIGH, LOW, COLORMAGENTA, 1); 
RSVR:=(C-LLV(L,21))/(HHV(H,21) - LLV(L,21))*100; 
QUSHI:=MA((3*SMA(RSVR,6,1)-2*SMA(SMA(RSVR,5,1),5,1)),2),COLORYELLOW; VAR24:=3*(SMA(((OPEN - LLV(LOW,89))/(HHV(HIGH,89) - LLV(LOW,89)))*(100),20,1))-2*(SMA(SMA(((OPEN - LLV(LOW,89))/(HHV(HIGH,89) - LLV(LOW,89)))*(100),20,1),15,1)); 
VAR34:=VAR24-100; 
BEILI:=FORCAST(-1*VAR34,21),COLORGREEN; 
TIANSHU:=BARSLAST(QUSHI < BEILI),COLORRED; 
DRAWSL( C>1,VALUEWHEN(CROSS(TIANSHU,BEILI) ,C ) , 0,5,2, COLORWHITE); AR:=CROSS(TIANSHU,BEILI); 
BR:=IF(AR,1,0); 
DRAWSL( CLOSE>1, REF( CLOSE,SUMBARS(BR,2)-1), 0, 5,2 , COLORBLACK); DRAWSL( C>1,VALUEWHEN(CROSS(BEILI,TIANSHU) ,C ) , 0,5,2, COLORYELLOW); ER:=CROSS(BEILI,TIANSHU); 
FR:=IF(ER,1,0); 
DRAWSL( CLOSE>1, REF( CLOSE,SUMBARS(FR,2)-1), 0, 5,2 , COLORBLACK); 
YJ:=(LOW+HIGH+CLOSE)/3; 
GAO:=HHV(YJ,10),COLORYELLOW; 
DI:= LLV(YJ,13),COLORWHITE; 
A1R:=IF(GAO<REF(GAO,1) || GAO=REF(GAO,1),1,-1); 
A2R:=IF(DI>REF(DI,1) || DI=REF(DI,1),1,-1); 
DRAWNUMBER(ISLASTBAR&&A1R=1 ,GAO ,GAO,1 ,COLORGREEN ); 
DRAWNUMBER(ISLASTBAR&&A2R=1 ,DI ,DI,1 ,COLORGREEN );