通达信新六脉神剑主图贴图源码

以下是通达信新六脉神剑主图贴图源码

{ 新六脉神剑主图 }

低1:=REF(LLV(L,150),3);
标底:=REFDATE(低1,DATE)*0.9;

突破:=REF(EMA(C,14),1),DOTLINE;
 A1X:=(EMA(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL),DOTLINE,COLORRED,LINETHICK1;
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL),DOTLINE,COLORGREEN,LINETHICK1;

 { ·········································}
 DRAWRECTREL(0,0,999,990,RGB(18,18,18));
 DRAWRECTREL(0,0,999,100,RGB(90,0,0));

 DRAWBAND(空方,RGB(8,118,8),突破,RGB(0,0,255));
 DRAWBAND(突破,RGB(118,8,8),多方,RGB(0,0,255));

五五线:EMA(C,55),COLORGRAY;
 STICKLINE(C>0,五五线,标底,0.1,0),COLORGRAY;

 DRAWKLINE(H,O,L,C);

丹田能量:EMA(C,55)COLORMAGENTA,CIRCLEDOT,NODRAW;
少商剑:EMA(C,13),COLORRED,LINETHICK2;
商阳剑:EMA(EMA(C,13),2);
中冲剑:EMA(EMA(EMA(C,13),2),2);
关冲剑:EMA(EMA(EMA(EMA(C,13),2),2),2);
少冲剑:EMA(EMA(EMA(EMA(EMA(C,13),2),2),2),2);
少泽剑:EMA(EMA(EMA(EMA(EMA(EMA(C,13),2),2),2),2),2);
 IF(少商剑<REF(少商剑,1),少商剑,DRAWNULL),COLORYELLOW,LINETHICK2;
 IF(商阳剑<REF(商阳剑,1),商阳剑,DRAWNULL),COLORYELLOW;
 IF(中冲剑<REF(中冲剑,1),中冲剑,DRAWNULL),COLORYELLOW;
 IF(关冲剑<REF(关冲剑,1),关冲剑,DRAWNULL),COLORYELLOW;
 IF(少冲剑<REF(少冲剑,1),少冲剑,DRAWNULL),COLORYELLOW;
 IF(少泽剑<REF(少泽剑,1),少泽剑,DRAWNULL),COLORYELLOW;

 TJ1:=少商剑>=REF(少商剑,1);
 TJ2:=商阳剑>=REF(商阳剑,1);
 TJ3:=中冲剑>=REF(中冲剑,1);
 TJ4:=关冲剑>=REF(关冲剑,1);
 TJ5:=少冲剑>=REF(少冲剑,1);
 TJ6:=少泽剑>=REF(少泽剑,1);

 ZTJ:=(TJ1 AND TJ2 AND TJ3 AND TJ4 AND TJ5 AND TJ6)=1
 AND REF((TJ1 AND TJ2 AND TJ3 AND TJ4 AND TJ5 AND TJ6),1)=0;
 DRAWICON(ZTJ,少泽剑*0.96,9);

 STICKLINE(C>0,标底,标底*0.95,2,-1),COLORGREEN;
 STICKLINE(TJ6,标底,标底*0.95,2,0),COLORLIRED;

 STICKLINE(C>0,标底*0.92,标底*0.87,2,-1),COLORGREEN;
 STICKLINE(TJ5,标底*0.92,标底*0.87,2,0),COLORLIRED;

 STICKLINE(C>0,标底*0.84,标底*0.79,2,-1),COLORGREEN;
 STICKLINE(TJ4,标底*0.84,标底*0.79,2,0),COLORLIRED;

 STICKLINE(C>0,标底*0.76,标底*0.71,2,-1),COLORGREEN;
 STICKLINE(TJ3,标底*0.76,标底*0.71,2,0),COLORLIRED;

 STICKLINE(C>0,标底*0.68,标底*0.63,2,-1),COLORGREEN;
 STICKLINE(TJ2,标底*0.68,标底*0.63,2,0),COLORLIRED;

 STICKLINE(C>0,标底*0.6,标底*0.55,2,-1),COLORGREEN;
 STICKLINE(TJ1,标底*0.6,标底*0.55,2,0),COLORLIRED;

 DRAWTEXT_FIX(1,0.01,0.01,0,HYBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(1,0.15,0.01,0,DYBLOCK),COLORWHITE;