大智慧【七種K線圖】放在一圖上可分可合 指標 源碼[大智慧公式]

相關標簽: 怎么在寶貝主圖上寫字 、 放量在主圖上顯示顏色 、 主圖上下影線公式 、 主圖上標記漲停或跌停 、 圖上有一張臉 、 一幅地圖上 圖上2厘米 、 計數一幅圖上的斑點數 、 在一幅圖中 圖上20cm 、 k線圖捕捉主升浪圖解 、

把我們日常需要看的七種K線圖放在一圖上可合可分方便得很，【0】成本波段K線圖 【1】COST成本均線【2】CYC成本均線【23】普通MA均線【4】費氏MA成本均線【5】黃金分割【6】BOLL
這七種K線圖是我們日常需要看的K線圖，現在有了它不必東翻西找，一圖在手改一下參數要合看，分開看，要對比一目了然起不方便，這才是人人需要寶貝呢，我發的圖是基本【0】其它變化的就不必上圖了

大智慧【七種K線圖】放在一圖上可合可分方便得很

INPUT:N(1,0,1),P(1,0,1),P1(1,0,1),M(1,0,1),Y(1,0,1),W(1,0,1);;
{K線}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,8,0),colorred;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,8,0),colorcyan; {本文來至www.tumamayizhan.com}
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
{賣黃金,RSI=80}
LC:=REF(C,1);
賣黃金:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
STICKLINE(CROSS(80,賣黃金) AND C<O,H,L,2,0),COLOR00ffff,LAYER0;
STICKLINE(CROSS(80,賣黃金) AND C<O,C,O,9,0 ),COLOR007777,LAYER0;
STICKLINE(CROSS(80,賣黃金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0;
STICKLINE(CROSS(80,賣黃金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0;
STICKLINE(CROSS(80,賣黃金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0;
STICKLINE(CROSS(80,賣黃金) AND C<O,C,O,2 ,0 ),COLOR00ffff,LAYER0;
Y5:EMA(CYC(3),5),COLORFFFFFF,LINETHICK1;
PARTLINE(Y5 ,(Y5>REF(Y5,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK2,LAYER0;
IF N=1 THEN BEGIN
{1.成本線A}
CYC1:COST(1),COLORFF66CC;
CYC5:COST(5),COLORFF00CC;
CYC13:COST(13),COLOR00CCCC;
CYC34:COST(34),COLOR00DEEE;
CYC55:COST(55),COLOR00ACCC,LINETHICK2;
CYC79:COST(79),COLORAACC22;
CYC95:COST(95),COLORGREEN;
END
IF P=1 THEN BEGIN
{2.成本線B}
cyc5B:CYC(5),DOTLINE;
cyc13B:cyc(13),DOTLINE;
cyc34B:cyc(34),DOTLINE;
cyc55B:cyc(55),DOTLINE;
cyc89B:cyc(89),DOTLINE;
cyc144B:cyc(144),DOTLINE;
cyc0B:MAXCYC,colorff9900,DOTLINE;
END
{3.均線A}
IF P1=1 THEN BEGIN
MA5:MA(CLOSE,5),COLOR0000ff;
MA10:MA(CLOSE,10),COLOR00ffff;
MA20:MA(CLOSE,20),COLORff00ff;
MA30:MA(CLOSE,30),COLORff99ff;
MA60:MA(CLOSE,60),COLOR00ff00;
MA120:MA(CLOSE,120),COLORff9900;
END
{4.均線B}
IF M=1 THEN BEGIN
MA3B:MA(CLOSE,3); {內容來至程序化交易網 CXH99.COM}
MA5B:MA(CLOSE,5);
MA8B:MA(CLOSE,8);
MA13B:MA(CLOSE,13);
MA21B:MA(CLOSE,21);
MA34B:MA(CLOSE,34);
MA55B:MA(CLOSE,55);
MA89B:MA(CLOSE,89);
MA144B:MA(CLOSE,144);

END
{5.黃金比}
IF Y=1 THEN BEGIN
X:=BARSLAST(DISPSTATUS=1)+1;
ah:=hhvall(hhv(h,X));
al:=llvall(llv(l,X));
nnl:=DISPSTATUS=2;
ahl:=ah-al;
q191:=al+ahl*0.191;
q382:=al+ahl*0.382;
q500:=al+ahl*0.500;
q618:=al+ahl*0.618;
q809:=al+ahl*0.809;

DRAWTEXT(nnl,ah,'￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR0000ff;
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ffff; {本文來至程序化交易網 cxh99.com}
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00;
DRAWTEXT(nnl,al,'￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ff00;

DRAWTEXT(nnl,ah*0.998,'最高.'+ah+''),ALIGN0,Color0047FF,LINETHICK1;
DRAWTEXT(nnl,q809,'80.9%.' +q809+''),ALIGN0,Color00FFff,LINETHICK1;
DRAWTEXT(nnl,q618,'61.8%.'+q618+''),ALIGN0,Color0047FF,LINETHICK1;
DRAWTEXT(nnl,q500,'50%.'+q500+''),ALIGN0,Color00FFff,LINETHICK1;
DRAWTEXT(nnl,q382,'38.2%.'+q382+''),ALIGN0,Color0047FF,LINETHICK1;
DRAWTEXT(nnl,q191,'19.1%.'+q191+''),ALIGN0,Color00FFff,LINETHICK1;
DRAWTEXT(nnl,al*1.01,'最低.'+al+''),ALIGN0,VALIGN2,Color0047FF,LINETHICK1;
END;
IF W=1 THEN BEGIN
{6.BOLL}
BBI:=(3*C+H+L)/5;
MID:EMA(BBI,26),COLOR00ff00,DOTLINE;
UPPER:MID+2*STD(BBI,26),COLORRED,DOTLINE;
LOWER:MID-2*STD(BBI,26),COLORFF9900,DOTLINE;
END;
{本文來至程序化交易網 cxh99.com}

(責任編輯：程序化交易網整理)