通达信神级指标“神龙入海”和“红凤报喜”源码 使用说明

　　A1:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,3)+EMA((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3;

　　A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3;

　　A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3;

　　A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3;

　　A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3;

　　A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3;

　　A7:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,21)+EMA((OPEN+HIGH+LOW+CLOSE)/4,34)+EMA((OPEN+HIGH+LOW+CLOSE)/4,68))/3;

　　VAR1:=FORCAST(A1,6);

　　VAR2:=FORCAST(A2,6);

　　VAR3:=FORCAST(A3,6);

　　VAR4:=FORCAST(A4,6);

　　VAR5:=FORCAST(A5,6);

　　VAR6:=FORCAST(A6,6);

　　VAR7:=FORCAST(A7,6);

　　IF(VAR1>REF(VAR1,1),VAR1,DRAWNULL),POINTDOT,COLORFF00FF;

　　IF(VAR1<REF(VAR1,1),VAR1,DRAWNULL),POINTDOT,COLOR00FF00;

　　IF(VAR2>REF(VAR2,1),VAR2,DRAWNULL),POINTDOT,COLORFF00FF;

　　IF(VAR2<REF(VAR2,1),VAR2,DRAWNULL),POINTDOT,COLOR00FF00;

　　IF(VAR3>REF(VAR3,1),VAR3,DRAWNULL),POINTDOT,COLORFF00FF;

　　IF(VAR3<REF(VAR3,1),VAR3,DRAWNULL),POINTDOT,COLOR00FF00;

　　IF(VAR4>REF(VAR4,1),VAR4,DRAWNULL),POINTDOT,COLORFF00FF;

　　IF(VAR4<REF(VAR4,1),VAR4,DRAWNULL),POINTDOT,COLOR00FF00;

　　IF(VAR5>REF(VAR5,1),VAR5,DRAWNULL),POINTDOT,COLORFF00FF;

　　IF(VAR5<REF(VAR5,1),VAR5,DRAWNULL),POINTDOT,COLOR00FF00;

　　IF(VAR6>REF(VAR6,1),VAR6,DRAWNULL),POINTDOT,COLORFF00FF;

　　IF(VAR6<REF(VAR6,1),VAR6,DRAWNULL),POINTDOT,COLOR00FF00;

　　IF(VAR7>REF(VAR7,1),VAR7,DRAWNULL),LINETHICK2,COLORFF00FF;

　　IF(VAR7<REF(VAR7,1),VAR7,DRAWNULL),LINETHICK2,COLOR00FF00;

　　TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6);

　　DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1));

　　DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1));

　　STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,4,0),COLOR0000FF;

　　STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,4,0),COLOR00FF00;

　　神龙入海源码

　　变量00:=N;变量01:=N1;

　　A02:=(WINNER((CLOSE * 1.100)) * 100.000);

　　A03:=(WINNER((CLOSE * 0.9)) * 100.000);

　　A04:=MA(A03,变量00);

　　STICKLINE( 1.000,0,A04, 1.000,0),COLORRED;

　　获利:MA(A03,变量00),COLORRED;

　　A06:=( 100.000 - MA(A02,变量00));

　　STICKLINE( 1.000, 100.000,MA(A02,变量00), 1.000,0),COLOR2F4F2F;

　　套牢: ( 100.000 - MA(A02,变量00)),COLORWHITE,LINETHICK2;

　　A08:=(MA(A02,变量00) - MA(A03,变量00));

　　STICKLINE( 1.000,A04,MA(A02,变量00), 1.000,0),COLORYELLOW;

　　浮动: (MA(A02,变量00) - MA(A03,变量00)),COLORYELLOW;

　　A0A:=(((((HHV(A04, 15.000) - A03) / A03) * 100.000) > 变量01) AND (HHV(A04, 15.000) > 50.000));

　　STICKLINE(A0A,(0 - 2.000), 2.000, 10.000,0);

　　STICKLINE(NOT(A0A),(0 - 2.000), 2.000, 10.000,0),COLORBLUE;