超越布林

nacdd 2012-09-21

展開全文

N    2 300  20
M1:=((EMA(C,12)-EMA(C,26))/EMA(C,12)+1)*N,NODRAW;
DIF:=MA(((EMA(C,12)-EMA(C,26))/EMA(C,12)+1)*C,M1);

M:EMA("KDJ.K"(9,3,3)/100+"KDJ.D"(9,3,3)/100,N)*N,NODRAW;
M_A:=SUM(C,M)/SUM(1,M);{此式有利看新股}
{M_A:=MA(C,N);備用,當(dāng)上市交易日數(shù)>=N時與上式等值};
CQ:=ABS(C);
SD1:=SQRT(SUM((C-M_A)*(C-M_A)*CQ/SUM(CQ,M),M));
SD2:=SQRT(SUM((C-M_A)*(C-M_A)*CQ,M)/SUM(CQ,M));
SD:=(SD1+SD2)/2;{其實SD1、SD2無原理性區(qū)別，但有個截尾誤差}
頂線:M_A+2*SD;
強線:M_A+SD;
中線:M_A,LINETHICK1;
弱線:M_A-SD;
底線:M_A-2*SD;
;
;GJ:=AMOUNT/100;
E:=(H+L+O+2*C)/5;
明日阻力:=2*E-L;
明日支撐:=2*E-H;
明日突破:=E+(H-L);
明日反轉(zhuǎn):=E-(H-L);
今日阻力:=REF(明日阻力 , 1);
今日支撐:=REF(明日支撐 , 1);

D今日支撐:=STRCAT('今日支撐: ',CON2STR(今日支撐,2));
D今日阻力:=STRCAT('今日阻力: ',CON2STR(今日阻力,2));
D明日支撐:=STRCAT('明日支撐: ',CON2STR(明日支撐,2));
D明日阻力:=STRCAT('明日阻力: ',CON2STR(明日阻力,2));
D明日突破:=STRCAT('明日突破: ',CON2STR(明日突破,2));
D明日反轉(zhuǎn):=STRCAT('明日反轉(zhuǎn): ',CON2STR(明日反轉(zhuǎn),2));

DRAWTEXT_FIX(ISLASTBAR,0.00,0.01,0,D今日支撐),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.08,0,D今日阻力),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.15,0,D明日支撐),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.22,0,D明日阻力),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.29,0,D明日突破),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.36,0,D明日反轉(zhuǎn)),COLORGREEN;

日:=50;昨前:=3;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);



H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;


支撐80.9%:REFDATE(H5,DATE),COLORRED;
支撐61.8%:REFDATE(H4,DATE),COLORGREEN,LINETHICK1;

STICKLINE(CURRBARSCOUNT=1,支撐80.9%,支撐80.9%,500,-1),COLORRED;
STICKLINE(CURRBARSCOUNT=1,支撐61.8%,支撐61.8%,500,-1),COLORGREEN;
{精確的倒數(shù)線［通達(dá)信版］壹瓣杺埖
自設(shè)參數(shù)M 1 999 1}
CURR:=CURRBARSCOUNT;
A3:=HIGH+HIGH*(HIGH-LLV(LOW,10))/LLV(LOW,10);
IF(BETWEEN(CURR,M+3,M-8),REF(H,BARSLAST(CURR=M+3)),DRAWNULL),COLORFFFFFF;
IF(BETWEEN(CURR,M+3,M-8),REF(L,BARSLAST(CURR=M+3)),DRAWNULL),COLOR00FF00,DOTLINE;
IF(BETWEEN(CURR,M+3,M-8),REF(A3,BARSLAST(CURR=M+3)),DRAWNULL),COLOR6699FF,DOTLINE;
DRAWTEXT(CURR=M+1,REF(H,BARSLAST(CURR=M+3)),'CBL'),COLORFFFFFF;
DRAWTEXT(CURR=M+1,REF(L,BARSLAST(CURR=M+3)),'CBL STOP'),COLOR00FF00;
DRAWTEXT(CURR=M+1,REF(A3,BARSLAST(CURR=M+3)),'CBL MAX'),COLOR6699FF;
DRAWTEXT(CURR=M,LOW*0.995,'▲'),COLOR00FF00;VAR3:=LLV(HIGH,240);
VAR4:=100*(CLOSE-VAR3)/VAR3;
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
B:IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
S:IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));
{HTTP://BBS.**.COM/FORUM-1725-1.HTML通達(dá)信股票指標(biāo)公式}
F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF;
DRAWTEXT(CROSS(S,賣１),S,'←逃'),COLORWHITE,LINETHICK1;
DRAWTEXT(CROSS(B,買１),B,'←準(zhǔn)備'),COLORRED,LINETHICK1;
{價:}
{JC1:=(REF(C,3)+REF(C,5)+REF(C,7)+REF(C,8)+REF(C,13)+REF(C,21))/6;
參考價1:SMA(JC1,5,1),CIRCLEDOT,COLORGREEN;
IF(C>=參考價1,參考價1,DRAWNULL),CIRCLEDOT,COLOR0000FF;}
PH:=TROUGHBARS(2,5,1);
LL:=HHV(H,PH);
TJ1:=LL=HIGH AND LL<REF(LL,1);{//=1}
TS:=SUMBARS(TJ1,2);
TJ:=PEAKBARS(2,5,1)=1 AND TS>=PH;
DRAWICON(TJ,HIGH*1.01+0.02,2);
警告燈:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORCYAN;
PL:=BARSLAST(TJ);
支撐:IF(BARSLAST(TJ1),
REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;
壓力:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW;
TJ_2:=LOW>REF(REF(LOW,TS),PL);
DRAWTEXT(ISLASTBAR,壓力,'壓力'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,支撐,'支撐'),COLOREA91B5;
{DRAWICON(COUNT(TJ_2,PL+1)=1,HIGH*1.005,2);{//向下的箭頭表示出局點}
{DRAWICON(BARSLAST(TJ1),REF(LOW*0.995,BARSLAST(TJ1)),1);};