{方框黄金分割}

Q1:=IF(C>=O,255,0);

DRAWRECTREL(988,0,1000,990,RGB(Q1,0,55));

DRAWRECTREL(988,189,1000,807,RGB(250,255,5));

DRAWRECTREL(988,374,1000,610,RGB(0,5,255));

DRAWRECTREL(888,506,1000,500,RGB(255,0,0));

DRAWRECTREL(500,510,990,500,RGB(255,0,0));

DRAWTEXTrel(500,500,'中线-0.50'),colorgreen;

{内通道}

乾坤分水岭:=WMA((H+L)/2,2);

UPPERS:乾坤分水岭*1.05,COLOR990099;

LOWERS:乾坤分水岭*0.95,COLORFF9900;

FILLRGN(uPPERS,LOWERS,UPPERS>LOWERS,RGB(60,60,60), UPPERS<LOWERS,RGB(0,40,255));

中心:乾坤分水岭*1.05,COLOR990099;

HTD:乾坤分水岭*0.95,COLORFF9900;

 

{中通道}

UP:乾坤分水岭*1.075,COLOR0044FF,LINETHICK2;

DN:乾坤分水岭*0.925,COLOR00FF00,LINETHICK2;

{外通道}

LUP:乾坤分水岭*1.1,COLORFF00FF,DOTLINE;

LDN:乾坤分水岭*0.9,COLORFF9900,DOTLINE;

{外通道UP}

UPL:=LUP-UP;

FILLRGN(UP+UPL*0.02,UP+UPL*0.02,UP+UPL*0.2>UP+UPL*0.2, RGB(200,0,255),UP+UPL*0.2<UP+UPL*0.2,RGB(200,0,255));

FILLRGN(UP+UPL*0.2,UP+UPL*0.4,UP+UPL*0.2>UP+UPL*0.4, RGB(180,0,220),UP+UPL*0.2<UP+UPL*0.4,RGB(180,0,220));

FILLRGN(UP+UPL*0.4,uP+UPL*0.5,uP+UPL*0.4>uP+UPL*0.5, RGB(150,0,180),uP+UPL*0.4<uP+UPL*0.5,RGB(150,0,180));

FILLRGN(UP+UPL*0.5,uP+UPL*0.6,uP+UPL*0.5>uP+UPL*0.6, RGB(120,0,150),uP+UPL*0.5<uP+UPL*0.6,RGB(120,0,150));

FILLRGN(UP+UPL*0.6,uP+UPL*0.8,uP+UPL*0.6>uP+UPL*0.8, RGB(100,0,120),uP+UPL*0.6<uP+UPL*0.8,RGB(100,0,120));

FILLRGN(UP+UPL*0.8,uP+UPL,uP+UPL*0.8>uP+UPL, RGB(80,0,80),uP+UPL*0.8<uP+UPL,RGB(80,0,80));

{外通道DN}

DPL:=DN-LDN;

FILLRGN(DN-DPL*0.02,DN-DPL*0.2,DN-DPL*0.02>DN-DPL*0.2,RGB(0,180,180),DN-DPL*0.02<DN-DPL*0.2,RGB(0,180,180));

FILLRGN(DN-DPL*0.02,DN-DPL*0.4,DN-DPL*0.02>DN-DPL*0.4, RGB(0,150,150),DN-DPL*0.02<DN-DPL*0.4,RGB(0,150,150));

FILLRGN(DN-DPL*0.04,DN-DPL*0.6,DN-DPL*0.04>DN-DPL*0.6, RGB(0,120,100),DN-DPL*0.06<DN-DPL*0.6,RGB(0,120,100));

FILLRGN(DN-DPL*0.06,DN-DPL*0.8,DN-DPL*0.04>DN-DPL*0.6, RGB(0,100,80),DN-DPL*0.06<DN-DPL*0.8,RGB(0,100,80));

FILLRGN(DN-DPL*0.08,DN-DPL,DN-DPL*0.08>DN-DPL, RGB(0,80,50),DN-DPL*0.08<DN-DPL,RGB(0,80,50));

{K线}

STICKLINE(C>O OR C=O AND C>REF(C,1),L,H,0,0),COLORRED;

STICKLINE(C<O OR C=O AND C<=REF(C,1),L,H,0,0),COLORCYAN;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00DD00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00FF00;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000088;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000DD;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000FF;

{买入三角}

{DT0:=(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,7),3),4),3)AND NOT(FILTER(BACKSET(FILTER(REF(L,3)=LLV(L,7),3),4),3)AND (REF(LLV(L,6),1)+REF(HHV(H,6),1))/2>=(H+L)/2))OR BARSTATUS=2 OR BARSCOUNT(C)=1;

DT1:=(FILTER(BACKSET(FILTER(REF(L,3)=LLV(L,7),3),4),3)AND NOT(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,7),3),4),3)AND (REF(LLV(L,6),1)+REF(HHV(H,6),1))/2=(H+L)/2));

}

{红绿三角【副图】}

DT0:=(FILTER(BACKSET(FILTER(REF(H,2)=HHV(H,3),3),3),2)AND NOT(FILTER(BACKSET(FILTER(REF(L,2)=LLV(L,3),2),3),3)AND (REF(LLV(L,3),1)+REF(HHV(H,3),1))/2>=(H+L)/2))OR BARSTATUS=2 OR BARSCOUNT(C)=1;

DT1:=(FILTER(BACKSET(FILTER(REF(L,2)=LLV(L,3),3),3),2)AND NOT(FILTER(BACKSET(FILTER(REF(H,2)=HHV(H,3),2),3),3)AND (REF(LLV(L,3),1)+REF(HHV(H,3),1))/2=(H+L)/2));

DT2:=BACKSET(DT0 AND COUNT(DT1,REF(BARSLAST(DT0),1)+1)>0,LLVBARS(IF(DT1,L,10000),REF(BARSLAST(DT0),1)+1));

DT3:=BACKSET(DT2>REF(DT2,1),2)>REF(BACKSET(DT2>REF(DT2,1),2),1);

XD3:=BACKSET(BARSTATUS=2,BARSLAST(DT3)+1);

XD6:=BACKSET(BARSTATUS=2,BARSLAST(BACKSET(FILTER(REF(H,3)=HHV(H,7),3),4)>REF(BACKSET(FILTER(REF(H,3)=HHV(H,7),3),4),1))+1)>REF(BACKSET(BARSTATUS=2,BARSLAST(BACKSET(FILTER(REF(H,3)=HHV(H,7),3),4)>REF(BACKSET(FILTER(REF(H,3)=HHV(H,7),3),4),1))+1),1);

底:REF(L,BARSLAST(XD3>REF(XD3,1))),COLORgreen,LINETHICK1;

顶2:REF(H,BARSLAST(XD6)),COLORYELLOW,LINETHICK1;

{上涨三角形：红色三角形画完出局}

STICKLINE(XD6,顶2,底,1,0),COLORred,LINETHICK4;

DRAWLINE(XD3>REF(XD3,1),L,XD6,H,0),COLORred,LINETHICK4;{斜}

DRAWLINE(XD3>REF(XD3,1),L,XD6,底,0),COLORred,LINETHICK4;

{下跌三角形：绿色三角形画完介入}

STICKLINE(XD3>REF(XD3,1),顶2,底,1,0),COLORgreen,LINETHICK4;

DRAWLINE(XD6,H,XD3>REF(XD3,1),L,0),COLORgreen,LINETHICK4;{斜}

DRAWLINE(XD6,H,XD3>REF(XD3,1),顶2,0),COLORgreen,LINETHICK4;

 

乾坤分水岭1:乾坤分水岭,COLORGREEN,LINETHICK2;

partline(乾坤分水岭1,乾坤分水岭1>REF(乾坤分水岭1,1),rgb(200,200,0)),LINETHICK5;

现价:DYNAINFO(4),POINTDOT,LINETHICK4,colorgreen;

{分析家公式网 WWW.70822.com 整理}

{自动画止损线}

顶:=IF(IF(PEAKBARS(3,15,1)<10=1,2,0)=2,2,0);

中线卖出:=IF(顶>REF(顶,1),1,0);

N:=0.95;{N:=0.9就是比最高收盘价跌10个点，跌5个点就是N:=0.95}

止损价:=IF(中线卖出=1,C*N,0);

DRAWTEXT(中线卖出=1 and currbarscount<=30,止损价*0.99,'.黄线高位止损线'),COLORyellow;

STICKLINE(止损价 and currbarscount<=30,C*N,C*N+0.025,200,0),COLOR00FFFF;

STICKLINE(dispstatus=2,HHV(C,15)*0.95-0.01,HHV(C,15)*0.95,150,0),COLORWHITE;

DRAWTEXT(currbarscount=7,HHV(C,15)*0.95,'白线低位止损价'),COLORWHITE;