博尔趋势

 

N:=80;

M:=3;

短5日趋势线:MA(C,5),COLORWHITE,LINETHICK2;

 IF(短5日趋势线>REF(短5日趋势线,1),短5日趋势线,DRAWNULL),COLOR0080FF,LINETHICK2;

 IF(短5日趋势线<REF(短5日趋势线,1),短5日趋势线,DRAWNULL),COLORGREEN,LINETHICK2;

 X:=(3*C+L+O+H)/6;

中20日趋势线:(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)

 +13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)

 +7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+

 REF(X,20))/210,COLORRED,LINETHICK2;

 DD:=中20日趋势线<REF(中20日趋势线,1);

 IF(DD,中20日趋势线,DRAWNULL),COLORGREEN,LINETHICK2;

 A:=(短5日趋势线>中20日趋势线);

 IF(A,中20日趋势线,DRAWNULL),COLORYELLOW,POINTDOT,LINETHICK4;

 B:=(短5日趋势线<中20日趋势线);

 IF(B,中20日趋势线,DRAWNULL),COLORBLUE,POINTDOT,LINETHICK4;

 PL05:=HHV(H,18);

 DRAWTEXT(C AND CURRBARSCOUNT=50 ,PL05*0.98, ),COLORYELLOW;

 DRAWTEXT(C AND CURRBARSCOUNT=50 ,PL05*0.99, ),COLORRED;

长60日趋势线:MA(C,60),COLORRED,CIRCLEDOT;

IF(长60日趋势线<REF(长60日趋势线,1),长60日趋势线,DRAWNULL),COLOR408000,CIRCLEDOT;

SJTJ:=DATE<1590301;

 MAH:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;

 MAL:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;

 MA5:=MA(CLOSE,5);

 MA10:=MA(CLOSE,10);

 MA20:=MA(CLOSE,20);

 MA60:=MA(CLOSE,60);

 DK:= SJTJ AND( CLOSE>=MAH OR (C>MA5 AND C>MA10 AND C>MA20 AND C>MA60));

 KK:= SJTJ AND( MAL>CLOSE OR (C<MA5 AND C<MA10 AND C<MA20 AND C<MA60));

 DK1:=BARSLAST(DK);

 KK1:=BARSLAST(KK);

 DK2:=BARSLAST(CROSS(KK1,DK1));

 KK2:=BARSLAST(CROSS(DK1,KK1));

 HS:=DK2<KK2;

 LS:=KK2<DK2;

 W2:=OPEN-CLOSE;

 HT:=IF(OPEN>CLOSE,OPEN,CLOSE);

 LT:=IF(OPEN<CLOSE,OPEN,CLOSE);

 DRAWNUMBER(ISLASTBAR AND LS,MAH,MAH),COLORYELLOW;

 DRAWNUMBER(ISLASTBAR AND HS,MAL,MAL),COLORYELLOW;

 最新价:IF(SJTJ, C,DRAWNULL),LINETHICK0,COLORYELLOW;

DRAWNUMBER(ISLASTBAR  ,C,C),COLORWHITE;

 AAA:=CONST(HHV(H,50));PL5:=HHV(H,45); 

F:=100*(C-REF(C,1))/REF(C,1);

博尔:=IF(C<REF(O,1) AND F<0,1,0);

P1:=博尔;

量化:=IF(C<REF(O,2) AND F<0,1,0);

P2:=量化;

STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,3,0),COLOR0055FF;

STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1  AND REF(P2,1)=0,OPEN,CLOSE,3,0),COLORGREEN;

最新:C,COLORFFFFFF,CIRCLEDOT;

 IF(C>=REF(C,1),C,DRAWNULL),COLORRED,CIRCLEDOT;

 AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));

 BB:=BETWEEN(C/AA,C+H,C-H);

 DRAWICON(ISLASTBAR AND C>REF(C,1),C,1);

 DRAWICON(ISLASTBAR AND C<REF(C,1),C,2);

ZT:=C/REF(C,1)>1.097;

XH:=FILTER(ZT,13);

BH:=BARSLAST(ZT);

CZ:=REF(H,BH)-REF(L,BH);

STICKLINE(C,(REF(L,BH)+CZ*0.5),(REF(L,BH)+CZ*0.5),7,0),COLORAA00AA;

STICKLINE(C,REF(L,BH),REF(L,BH),5,0),COLOR2F73FF;

STICKLINE(ZT,REF(O,BH),REF(C,BH),5,0),COLORYELLOW;

DRAWTEXT(ZT,L*0.98,★涨停),COLOR4080FF;

VARZT:=BARSLAST(C/REF(C,1)>1.097);

STICKLINE(VARZT=2,L*0.97,L*0.98,1,0),COLOR666666;

DRAWTEXT(VARZT=2,L*0.95,3天),COLORFFFFFF;

STICKLINE(VARZT=4,H*1.03,H*1.02,1,0),COLOR666666;

DRAWTEXT(VARZT=4,H*1.06,5天),COLORFFFFFF;

STICKLINE(VARZT=7,L*0.97,L*0.98,1,0),COLOR666666;

DRAWTEXT(VARZT=7,L*0.95,8天),COLORFFFFFF;

STICKLINE(VARZT=12,H*1.03,H*1.02,1,0),COLOR666666;

DRAWTEXT(VARZT=12,H*1.06,13天),COLORFFFFFF;

STICKLINE(VARZT=20,L*0.97,L*0.98,1,0),COLOR666666;

DRAWTEXT(VARZT=20,L*0.95,21天),COLORFFFFFF;

STICKLINE(VARZT=33,H*1.03,H*1.02,1,0),COLOR666666;

DRAWTEXT(VARZT=33,H*1.06,34天),COLORFFFFFF;

STICKLINE(VARZT=54,L*0.97,L*0.98,1,0),COLOR666666;

DRAWTEXT(VARZT=54,L*0.95,55天),COLORFFFFFF;

STICKLINE(VARZT=88,H*1.03,H*1.02,1,0),COLOR666666;

DRAWTEXT(VARZT=88,H*1.06,89天),COLORFFFFFF;

STICKLINE(VARZT=143,L*0.97,L*0.98,1,0),COLOR666666;

DRAWTEXT(VARZT=143,L*0.95,144天),COLORFFFFFF;

STICKLINE(VARZT=232 ,H*1.03,H*1.02,1,0),COLOR666666;

DRAWTEXT(VARZT=232,H*1.06,233天),COLORFFFFFF;

STICKLINE(VARZT=376,L*0.97,L*0.98,1,0),COLOR666666;

DRAWTEXT(VARZT=376,L*0.95,377天),COLOR666666;

三日最低:=EMA((REF(L,4)+REF(L,3)+REF(L,2))/3,3); 

三日最高:=EMA((REF(H,4)+REF(H,3)+REF(H,2))/3,3),COLORWHITE; 

S:=CROSS(CROSS(三日最高,C),0.6);

B1:=CROSS(CROSS(C,三日最低),0.5);

DRAWICON(B1,LOW*0.995,34);

DRAWICON(S,H*1.00,35);

N1:=10;

T1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;

量能平台:IF(CURRBARSCOUNT<=N1+0,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL)DOTLINE,COLOR00FFFF,LINETHICK1;

新量能点:IF(CURRBARSCOUNT=T1+1,量能平台,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK2;

DRAWTEXT(ISLASTBAR,量能平台, 新量点),COLOR00F0F0;

HV:=HHV(V,5)=V OR V/REF(V,1)>=5;

FT:=BARSLAST(HV);

量能平台1:=IF(HV,C,REF(C,FT));

DRAWTEXT(量能平台1>REF(量能平台1,1)AND C<REF(C,1),L,☆带量跌),COLOR00F000;

DRAWTEXT(量能平台1<REF(量能平台1,1) AND C>REF(C,1),L,★缩量涨)COLORFFFFFF;

DRAWTEXT(量能平台1>REF(量能平台1,1) AND C>REF(C,1) AND C>MA(C,13) AND C=HHV(C,20) AND C/REF(C,1)>1.05,L,★突破量),COLOR00FFFF;

MA13:=MA(C,13);

高:=REF(HHV(H,N),M); 

低:=REF(LLV(L,N),M);

H19:=高-(高-低)*0.191; 

H38:=高-(高-低)*0.382; 

H中:=高-(高-低)*0.5; 

H61:=高-(高-低)*0.618; 

H80:=高-(高-低)*0.809;

顶点:REFDATE(高,DATE),DOTLINE,COLOR0000A8;

疯牛0.191:REFDATE(H19,DATE),DOTLINE,COLOR575757;

突破0.382:REFDATE(H38,DATE),DOTLINE,COLOR575757;

平衡0.50:REFDATE(H中,DATE),DOTLINE,COLOR575757;

回落0.618:REFDATE(H61,DATE),DOTLINE,COLOR575757;

次低0.809:REFDATE(H80,DATE),DOTLINE,COLOR575757;

低点:REFDATE(低,DATE),DOTLINE,COLOR575757;

DRAWTEXT(ISLASTBAR,顶点,顶点),COLOR008FF9,NODRAW;

DRAWTEXT(ISLASTBAR,疯牛0.191,疯牛0.191),COLOR008FF9,NODRAW;

DRAWTEXT(ISLASTBAR,突破0.382,突破0.382),COLOR008FF9,NODRAW;

DRAWTEXT(ISLASTBAR,平衡0.50,平衡0.50),COLOR008FF9,NODRAW;

DRAWTEXT(ISLASTBAR,回落0.618,回落0.618),COLOR008FF9,NODRAW;

DRAWTEXT(ISLASTBAR,次低0.809,次低0.809),COLOR008FF9,NODRAW;

DRAWTEXT(ISLASTBAR,低点,低点),COLOR008FF9,NODRAW;

AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/ 

(HHV(HIGH,30)-LLV(LOW,30))*100,8); 

BA:=EMA(AB,5); 

A01{高}:=REFDATE(REF(HHV(H,96),5),DATE); 

B01{低}:=REFDATE(REF(LLV(L,96),5),DATE); 

D{中}:=((A01)+(B01))/2; 

五:MA(C,5),NODRAW,COLOR00FFFF; 

二O:EMA(C,20),COLORMAGENTA,NODRAW; 

空仓:IF(AB-BA<0,五,DRAWNULL),NODRAW,LINETHICK1,COLOR7B7B00; 

持仓:IF(AB-BA>0,五,DRAWNULL),NODRAW,LINETHICK1,COLORRED; 

箱顶:IF(AB>0 AND AB-BA<=0,A01,A01),LINETHICK1,COLOR7B7B00; 

箱腰:IF(AB>0 AND AB-BA<=0,D,D),LINETHICK1,COLOR7B7B00; 

箱低:IF(AB>0 AND AB-BA<=0,B01,B01),LINETHICK1,COLOR7B7B00; 

五日转点:IF(CURRBARSCOUNT=6,L*0.992-0.02,DRAWNULL),NODRAW, 

CIRCLEDOT,COLOR0000FF,LINETHICK3;{五日转点} 

十日转点:IF(CURRBARSCOUNT=11,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLOR0000FF,LINETHICK3;{十日转点} 

二十日转点:IF(CURRBARSCOUNT=21,L*0.992-0.02,DRAWNULL), 

CIRCLEDOT,COLOR00FFFF,LINETHICK3;{二十日转点}; 

三十日转点:IF(CURRBARSCOUNT=31,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLOR00FFFF,LINETHICK3;{三十日转点}; 

六十日转点:IF(CURRBARSCOUNT=61,L*0.992-0.02,DRAWNULL), 

CIRCLEDOT,COLOR1482FA,LINETHICK3;{六十日转点}; 

九十日转点:IF(CURRBARSCOUNT=91,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLOR1482FA,LINETHICK3;{九十日转点}; 

高1:IF(AB>0 AND AB-BA>0,A01,DRAWNULL),LINETHICK1,COLOR2020FF; 

中1:IF(AB>0 AND AB-BA>0,D,DRAWNULL),LINETHICK1,COLOR0000A8; 

低1:IF(AB>0 AND AB-BA>0,B01,DRAWNULL),LINETHICK1,COLOR2020FF;