超級(jí)神奇BOLL
N:=20;
MID:=MA(C,N);
VART1:=POW((C-MID),2);
VART2:=MA(VART1,N);
VART3:=SQRT(VART2);
UPPER:=MID+2*VART3;
LOWER:=MID-2*VART3;
BOLL:REF(MID,1),COLORFFFFFF;
上升:IF(BOLL>REF(BOLL,1),BOLL,DRAWNULL),COLORRED,LINETHICK2;
下降:IF(BOLL<REF(BOLL,1),BOLL,DRAWNULL),COLORGREEN,LINETHICK2;
UB:REF(UPPER,1),COLOR00FFFF;
LB:REF(LOWER,1),COLORFF00FF;
X_1:=VOL/CAPITAL;
X_2:=IF(DATE<1181230 AND DATE>900101,1,0);
X_3:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
X_4:=2.8*MAX(X_1,X_3);
X_5:=DMA(CLOSE,X_4);
X_6:=20*(X_5/REF(X_5,1)-1)*38;
X_7:=EMA(X_6,2);
X_8:=EMA(X_6,2);
X_9:=EMA(X_8,2);
X_10:=EMA(X_8,8);
X_11:=1.1*(MAX(INDEXH,REF(INDEXC,1))/MIN(INDEXL,REF(INDEXC,1))-1);
X_12:=2.5*MAX(X_1,X_11);
X_13:=DMA(INDEXC,X_12);
X_14:=EMA(20*(X_13/REF(X_13,1)-1),1)*38;
X_15:=EMA(X_14,2);
X_16:=EMA(X_14,3);
STICKLINE( MA(CLOSE,60)>MA(CLOSE,120),MA(CLOSE,60),MA(CLOSE,120),8,0),RGB(221,160,221);
STICKLINE( MA(CLOSE,60)<MA(CLOSE,120),MA(CLOSE,60),MA(CLOSE,120),8,0),RGB(152,251,152);
DRAWKLINE(H,O,L,C);
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'★底部')
,LINETHICK2,COLORRED;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'★高位');
VAR1:=ZIG(3,13);
STICKLINE((REF(VAR1,2) < REF(VAR1,1)) AND (VAR1 < REF(VAR1,1)),
CLOSE,OPEN,3,0),COLORBLUE;
DRAWICON(CROSS(REF(ZIG(3,12),1),ZIG(3,12)),HIGH*1.02,2);
STICKLINE((REF(VAR1,2) > REF(VAR1,1)) AND (VAR1 >REF(VAR1,1)),
CLOSE,OPEN,3,0),COLORYELLOW;
DRAWICON(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,1);
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED,NODRAW;
ZK1:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORBLUE,NODRAW;
ZD1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,DOTLINE,COLORGREEN,NODRAW;
ZD2:EMA(ZD1,25),LINETHICK2,NODRAW;
DRAWBAND(ZD1,RGB(55,0,0),ZD2,RGB(0,91,0)),NODRAW;
DRAWKLINE(H,O,L,C),NODRAW;
STICKLINE(ZD1>LOW AND ZD1<HIGH,ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(ZD1>MIN(C,O) AND ZD1<MAX(C,O),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(ZD1>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(ZD1>HIGH,HIGH,LOW,0,0),COLORYELLOW;
均價(jià)線:=AMOUNT/V/100;
C2:=REF(C,1);
漲停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(漲停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(漲停,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(漲停,H,L,0,0),COLORYELLOW;
DRAWTEXT_FIX(1,0.2,0.1,0,STRCAT('【漲停原因】',EXTERNSTR(0,888))),COLORYELLOW;
{黃色}
CIN:=MIN(REF(CLOSE,2),REF(CLOSE,1));
{STICKLINE(VAR1AMZ,CIN,O,3,0),COLOR00AAFF;
STICKLINE(VAR1AMZ,CIN,O,2,0),COLOR00CCFF;
STICKLINE(VAR1AMZ,CIN,O,1,0),COLOR00EEFF};
牛節(jié)點(diǎn):=CROSS(EMA(C,5),EMA(C,30))AND CROSS(EMA(C,10),EMA(C,20));
DRAWICON(牛節(jié)點(diǎn),L*0.99,25);
CSAR:=SAR(10,2,20);
持股:=IF(CSAR<=L,CSAR,0),CIRCLEDOT,COLORRED{持股};
短期趨勢(shì):=EMA(SLOPE(C,21)*20+C,42),POINTDOT,LINETHICK1,COLORYELLOW;
STICKLINE(1,短期趨勢(shì),短期趨勢(shì),1,0),COLORYELLOW,NODRAW;
止損:=EMA(C,5),COLORYELLOW,LINETHICK1;
VVAR1D:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);
短底:=EMA(VVAR1D,5);
支撐:=HHV(短底,60);
MAN:=(SMA(HIGH,21,2) * 1.05);
下檔線:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
中D:=(((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6);
X1D:=EMA(中D,10);
RSVD:=SMA(下檔線,3,1);
K大:=SMA(RSVD,3,1);
D大:=((3 * RSVD) - (2 * K大));
J12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(J12,3,1);
K24:=SMA(RSV24,3,1);
D24:=((3 * RSV24) - (2 * K24));
壓力位:=IF(CROSS(D24,D大),HIGH,REF(HIGH,BARSLAST(CROSS(D24,D大)))),COLORFFFFFF;
{STICKLINE(ISLASTBAR,ZC1,ZC1,120,0),LINETHICK1,COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=15,ZC1*1.02,'關(guān)鍵價(jià)位'),COLORGREEN;
DRAWNUMBER(ISLASTBAR,ZC1*1.02,ZC1+000),COLORGREEN;
STICKLINE(ISLASTBAR,ZC2,ZC2,120,0),LINETHICK1,COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=15,ZC2*0.99,'支撐價(jià)位'),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,ZC2*0.99,ZC2+000),COLORYELLOW};
決策:=IF(ISLASTBAR,壓力位,DRAWNULL),COLORMAGENTA;
{STICKLINE(ISLASTBAR ,決策,決策,60,1),LINETHICK3,COLORFFFFFF};
底部:=LLV(HIGH,30),COLOR00FF00;
超跌:=IF(ISLASTBAR,底部,DRAWNULL),COLORRED;
{STICKLINE(ISLASTBAR ,超跌,超跌,60,1),LINETHICK3,COLORRED;
STICKLINE(ISLASTBAR,REF(今重心,1),REF(今重心,1),10,0),COLORGREEN};
{頂?shù)仔盘?hào)}
{LC:=REF(C,1);
RSI5:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
逃命:=CROSS(80,RSI5);
DRAWICON(逃命,H*1.005,15);
TJ1:=REF('CCI.CCI',1)>90 AND 'CCI.CCI'<REF('CCI.CCI',1);
TJ2:=REF('KDJ.J'(9,3,3),1)>90 AND 'KDJ.J'(9,3,3)<REF( 'KDJ.J'(9,3,3),1);
TJ3:=REF('RSI.RSI1',1)>70 AND 'RSI.RSI1'<REF('RSI.RSI1',1);
TJ4:=COUNT(TJ1,5) AND COUNT(TJ2,5) AND COUNT(TJ3,5);
大頂:=CROSS(TJ4,0.5);
DRAWTEXT(大頂,H*1.01,'頂');
TJ5:=REF('CCI.CCI',1)<-100 AND 'CCI.CCI'>REF('CCI.CCI',1);
TJ6:=REF('KDJ.J'(9,3,3),1)<20 AND 'KDJ.J'(9,3,3)>REF( 'KDJ.J'(9,3,3),1);
TJ7:=REF('RSI.RSI1',1)<20 AND 'RSI.RSI1'>REF('RSI.RSI1',1);
TJ8:=COUNT(TJ5,5) AND COUNT(TJ6,5) AND COUNT(TJ7,5);
大底:=CROSS(TJ8,0.5);
DRAWTEXT(大底,L*0.991,'底');}
{漲停標(biāo)注}
STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW;
{漲停天數(shù)}
VARZT:=BARSLAST(C/REF(C,1)>1.094);
DRAWTEXT(VARZT=2,L*0.95,'3T'),COLORWHITE;
DRAWTEXT(VARZT=4,H*1.06,'5T'),COLORWHITE;
DRAWTEXT(VARZT=7,L*0.95,'8T'),COLORWHITE;
DRAWTEXT(VARZT=12,H*1.06,'13T'),COLORWHITE;
DRAWTEXT(VARZT=20,L*0.95,'21T'),COLORWHITE;
DRAWTEXT(VARZT=33,H*1.03,'34T'),COLORWHITE;
DRAWTEXT(VARZT=54,L*0.95,'55T'),COLORWHITE;
DRAWTEXT(VARZT=88,H*1.06,'89T'),COLORWHITE;
DRAWTEXT(VARZT=143,L*0.95,'144T'),COLORWHITE;
DRAWTEXT(VARZT=232,H*1.06,'233T'),COLORWHITE;
DRAWTEXT(VARZT=376,L*0.95,'377T'),COLORWHITE;
