通达信四合主图源码
{可见K线 N=75条}; N:=89;
{可见K线 最高价}; HH:=CONST(HHV(H,N));
{可见K线 最低价}; LL:=CONST(LLV(L,N));
{可见K线 中间价}; MM:=CONST(HH/2+LL/2);
{最后
{浮动线&0.2差值}; YY:=CONST(IF(CC>=MM,LL-(HH-LL)*0.2,HH+(HH-LL)*0.2)),POINTDOT;
{MACD:-----------------------------------------------------------------};
{MACD
{MACD
{MACD
{MACD N内最高线}; MHH:=CONST(HHV(MACD,N));
{MACD N内最低线}; MLL:=CONST(LLV(MACD,N));
{MACD N内均顶底}; MMM0:=MHH/2-MLL/2; MMM:=IF(MMM0<(HH-LL)*0.1,(HH-LL)*0.1,MMM0);
{浮动线
{浮动线上红MACD}; STICKLINE(MACD>=0 AND MACD>REF(MACD,1),YY,YY+MACD,0.2,0),COLORRED; {颠倒图};
STICKLINE(MACD>=0 AND MACD
{浮动线下蓝MACD}; STICKLINE(MACD<0 AND MACD
STICKLINE(MACD<0 AND MACD>REF(MACD,1), YY,YY+MACD,0.2,0),COLOR00FFFF;
{KDJ3------------------------------------------------------------------};
{KDJ3
{KDJ3
{KDJ3
{KDJ3
{浮动线上 取J值}; JJ:=(J/0.005)*MMM;{放在MACD后面};
{浮动线上 画J线}; STICKLINE(J>REF(J,1),YY+REF(JJ,1),YY+JJ,2.0,0),COLORMAGENTA;
{浮动线上 画J线}; STICKLINE(J
{SAR-------------------------------------------------------------------};
{SAR 快下抛物线}; SAR1:=IF(CLOSE
{SAR 下行抛物线}; SAR2:=IF(CLOSE
{SAR 快上抛物线}; SARE:=IF(CLOSE>SAR(3,3,20),SAR(3,3,20),0);
{SAR 上行抛物线}; SARA:=IF(CLOSE>SAR(4,2,10),SAR(4,2,10),0);
{SAR 合画抛物线}; 空仓:IF(MIN(SAR1,SAR2)>0,(SAR1+SAR2)/2,IF(SAR1+SAR2=0,DRAWNULL,SAR1+SAR2)),CIRCLEDOT,COLORGREEN;
{SAR 合画抛物线}; 持股:IF(MIN(SARE,SARA)>0,(SARE+SARA)/2,IF(SARE+SARA=0,DRAWNULL,SARE+SARA)),CIRCLEDOT,COLORMAGENTA;
{MA--------------------------------------------------------------------};
{MA1
{MA3天均线:4K价}; MA3:MA(((3*C+L+O+H)/6),3),COLORYELLOW,NODRAW;
{MA3上穿SAR提示}; {DRAWICON(CROSS(MA3,SAR(4,2,20))=1,SAR(4,2,20),7);};
{MA3下穿SAR提示}; {DRAWICON(CROSS(SAR(4,2,20),MA3)=1,SAR(4,2,20),8);};
{BBI-------------------------------------------------------------------};
{BBI
{BB5
{BB5
{BB5
{重影指示--------------------------------------------------------------};
{MACD
{MACD
{JJ
{JJ
{重叠区
{重叠区
{重叠区
{
DRAWTEXT(BACKSET(C>BB5,CURRBARSCOUNT)=1 AND CURRBARSCOUNT=16,IF(CC>MM,LL,HH),'收BB5上,还有好市'),COLORRED;
DRAWTEXT(BACKSET(CMM,LL,HH),'收BB5下,保本要紧'),COLORLIBLUE;
}
DRAWTEXT(CURRBARSCOUNT=16 AND BACKSET(C>BB5,CURRBARSCOUNT)=1 AND BACKSET(CROSS(MA1,BBI)=1,CURRBARSCOUNT)=1,IF(CC>MM,LL,HH),'收BB5上,上穿BBI'),COLORRED;
DRAWICON(CROSS(DIF,DEA), YY-MMM,1);
DRAWICON(CROSS(DEA,DIF), YY+MMM,2);