叠加季K线
C/C++ Code复制内容到剪贴板
- TBS:=POW(10,ABS(LOG(MINDIFF)));
- TJ:=day<ref(day,1)and (MONTH=1 or MONTH=4 or MONTH=7 or MONTH=10);
- JW:barslast(TJ),LINETHICK;
- Jdg:=Jw=0 or ISLASTBAR;
- Jwx:=0*C;
- for JQ=datacount-1 downto lbound(Jdg) do
- if Jdg[JQ] then
- Jwx[JQ]:=0;
- else
- Jwx[JQ]:=Jwx[JQ+1]+1;
- Jr:=BACKSET(ISLASTBAR,Jw+1)-ISLASTBAR;
- Jwx:=refx(Jwx,1)+Jr,LINETHICK;
- Joo:=ref(o,Jw);
- Jhh:=hhv(h,Jw+1);
- JLL:=LLv(L,Jw+1);
- Jzq1:=BARSLAST(ref(Jwx,1)=0 or BARPOS=1)+1;//N天数
- Jyt1:=if(Jzq1=1 and refx(Jzq1,2)=1,13,if(refx(Jzq1,1)=1 or Jzq1=1,7,14));
- J开:ROUND(JOO*TBS)/TBS,LINETHICK,COLOReeee00;
- J高:ROUND(refx(Jhh,Jwx)*TBS)/TBS,LINETHICK,COLOReeaaFF;
- J低:ROUND(refx(JLL,Jwx)*TBS)/TBS,LINETHICK,COLOR00ee00;
- J收:ROUND(refx(c,Jwx)*TBS)/TBS,LINETHICK,COLOR00eeee;
- Jf:=J收>J开 or (J收=J开 and J收>ref(J收,JW));
- Jj:=cross(Jw,Jwx);
- STICKLINE(Jw>0 and JF and Jj ,J低,J高,10,0),Color5055B1;
- STICKLINE(J开<J收 ,J开,J收,JYT1,0),Color5055B1;
- STICKLINE(Jw>0 and not(JF) and Jj ,J低,J高,10,0),Color5A7234;
- STICKLINE(J开>J收 ,J开,J收,JYT1,0),Color5A7234;
- DRAWTEXT(Jw>0 and Jj ,J高*1.01,'季'),COLOR00CCFF,ALIGN0,pxUP15;
- STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
- STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
- STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
- STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
- STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
- STICKLINE(C<=O,C,O,8,0),Color7B7b00;
- STICKLINE(C<=O,C,O,6,0),Color909000;
- STICKLINE(C<=O,C,O,4,0),ColorA8a800;
- STICKLINE(C<=O,C,O,2,0),COLORcece00;
- STICKLINE(C<=O,H,L,0,0),COLORffff00;
