打印本文
關閉窗口
相關標簽: 通達信黃金柱主圖指標 、 黃金分割主圖指標公式 、 黃金分割主圖指標 、 黃金線指標源碼 、 黃金線操盤線系統指標 、 智策黃金線指標原碼 、 黃金短線線指標 源碼 、 黃金線指標選股公式 、 最新凱恩斯黃金線指標 、
使用說明：我從論壇上學習了網友們的許多線’指標，內容豐富：有個股所屬板塊、大盤漲跌家數、黃金分割線、市場成本線、彩色K線（黃色漲停，蘭色跌停）、短波頂低信號提示、股價上穿成本線有笑臉、支撐和壓力參考值、買入賣出天數等。
{大智慧主黃金線主圖指標源碼}
input:K(1,1,3);
T:=BARSLAST(DISPSTATUS=1)+1;
A:=DISPSTATUS=2;HH:=HHV(H, T);LL:=LLV(L, T);HL:=HH-LL;wH:=HHVBARS(H, T);wL:=LLVBARS(L, T);
KK:=wH-wL;mHL:=HH-HL*0.5;
if K=1 then begin
HL191:=(HH-LL)*0.191;HL382:=(HH-LL)*0.382;HL618:=(HH-LL)*0.618;HL809:=(HH-LL)*0.809;
if KK<0 then begin
a1:=HH-HL191;a2:=HH-HL382;a3:=HH-HL618;a4:=HH-HL809;
end else begin
a1:=LL+HL191;a2:=LL+HL382;a3:=LL+HL618;a4:=LL+HL809;
end end
if k=1 then begin
HL125:=(HH-LL)*0.125;HL250:=(HH-LL)*0.25;HL375:=(HH-LL)*0.375;HL625:=(HH-LL)*0.625;HL750:=(HH-LL)*0.75;HL875:=(HH-LL)*0.875; {內容來至程序化交易網 CXH99.COM}
if kk<0 then begin
b1:=HH-HL125;b2:=HH-HL250;b3:=HH-HL375;b4:=HH-HL625;b5:=HH-HL750;b6:=HH-HL875;
end else begin
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=3 OR CXH=8));
b1:=LL+HL125;b2:=LL+HL250;b3:=LL+HL375;b4:=LL+HL625;b5:=LL+HL750;b6:=LL+HL875;
end end
DRAWTEXT(A and K<>3,HH, '最高價：'+HH),ALIGN2,ColorFF00FF;
DRAWTEXT(A and K<>3,LL, '最低價：'+ll),ALIGN2,VALIGN2,Color00FF00;
DRAWTEXT(A and K<>3,mHL,'50%：'+mHL),ALIGN2,ColorFF8000;
DRAWTEXT(A and K=1, a1, '0.191：'+NUMTOSTRN(a1,2)),ALIGN2,Color4080FF;
DRAWTEXT(A and K=1, a2, '0.382：'+NUMTOSTRN(a2,2)),ALIGN2,Color4080FF;
DRAWTEXT(A and K=1, a3, '0.618：'+NUMTOSTRN(a3,2)),ALIGN2,Color4080FF;
DRAWTEXT(A and K=1, a4, '0.809：'+NUMTOSTRN(a4,2)),ALIGN2,Color4080FF;
DRAWTEXT(A and K=1, b1, '1/8：'+NUMTOSTRN(b1,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K=1, b2, '1/4：'+NUMTOSTRN(b2,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K=1, b5, '3/4：'+NUMTOSTRN(b5,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K=1, b6, '7/8：'+NUMTOSTRN(b6,2)),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K<>3,HH, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,LINETHICK7;
DRAWTEXT(A and K<>3,LL, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,LINETHICK7;
DRAWTEXT(A and K<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,ColorFF8000,LINETHICK7;
DRAWTEXT(A and K=1, a1, '﹊﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊﹊'),ALIGN2,color208FFF,LINETHICK0;
DRAWTEXT(A and K=1, a2, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊'),ALIGN2,color208FFF,LINETHICK0;
DRAWTEXT(A and K=1, a3, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊﹊'),ALIGN2,color208FFF,LINETHICK0;
DRAWTEXT(A and K=1, a4, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊﹊'),ALIGN2,color208FFF,LINETHICK0;
DRAWTEXT(A and K=1, b1, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K=1, b2, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K=1, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;
DRAWTEXT(A and K=1, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;
市場成本:DMA(AMOUNT/V/100,V/CAPITAL),Color0080FF,LINETHICK1;
DRAWICON(CROSS(C,市場成本),L,1),ALIGN1;
PT:= ref(HIGH,1)-ref(LOW,1);
重心:=(HIGH + LOW + CLOSE)/3;
壓力Ⅰ:=2*重心-LOW;壓力Ⅱ:= 重心 + PT;
支撐Ⅰ:=2*重心-HIGH;支撐Ⅱ:= 重心 - PT;
DRAWTEXTABS(50,68,'重心:'+重心),Color208FFF;
DRAWTEXTABS(20,87,' 支撐'),Color00FF00;
DRAWTEXTABS(20,104,' '+支撐Ⅰ),Color00FF00;
DRAWTEXTABS(20,122,' '+支撐Ⅱ),Color00FF00;
DRAWTEXTABS(25,87,' 壓力'),ColorFF00FF;
DRAWTEXTABS(25,104,' '+壓力Ⅰ),ColorFF00FF;
DRAWTEXTABS(25,122,' '+壓力Ⅱ),ColorFF00FF;
DRAWTEXTABS(25,65,'│'),Color00FFFF;
DRAWTEXTABS(25,77,'│'),Color00FFFF;
DRAWTEXTABS(25,89,'│'),Color00FFFF;
DRAWTEXTABS(25,101,'│'),Color00FFFF;
DRAWTEXTABS(25,113,'│'),Color00FFFF;
DRAWTEXTABS(25,125,'│'),Color00FFFF;
DRAWTEXTABS(170,65,'│'),Color00FFFF;
DRAWTEXTABS(170,77,'│'),Color00FFFF;
DRAWTEXTABS(170,89,'│'),Color00FFFF;
DRAWTEXTABS(170,101,'│'),Color00FFFF;
DRAWTEXTABS(170,113,'│'),Color00FFFF;
DRAWTEXTABS(170,125,'│'),Color00FFFF;
DRAWTEXTABS(96,85,'│'),Color00FFFF;
DRAWTEXTABS(96,89,'│'),Color00FFFF;
DRAWTEXTABS(96,101,'│'),Color00FFFF;
DRAWTEXTABS(96,113,'│'),Color00FFFF;
DRAWTEXTABS(96,125,'│'),Color00FFFF;
DRAWTEXTABS(30,60,'──────────'),Color00FFFF;
DRAWTEXTABS(30,80,'──────────'),Color00FFFF;
DRAWTEXTABS(30,97,'──────────'),Color00FFFF;
DRAWTEXTABS(30,114,'──────────'),Color00FFFF;
DRAWTEXTABS(30,131,'──────────'),Color00FFFF;
G:=ZIG(3,5)>ref(ZIG(3,5),1) AND ref(ZIG(3,5),1)<=ref(ZIG(3,5),2) AND ref(ZIG(3,5),2)<=ref(ZIG(3,5),3);
X:=ZIG(3,5)<ref(ZIG(3,5),1) AND ref(ZIG(3,5),1)>=ref(ZIG(3,5),2) AND ref(ZIG(3,5),2)>=ref(ZIG(3,5),3);
ED:=BARSLAST(G);
EF:=BARSLAST(X);
DRAWTEXTREL(25,410,'買入:'+NUMTOSTR(ED) +'天'+'賣出:'+NUMTOSTR(EF) +'天' ),colorFfff00;
{K線優化}
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,8,1),colorred;
STICKLINE(OPEN>CLOSE,CLOSE,OPEN,8,0 ),ColorFFFF00;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.5 ,0 ),colorred;
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.5 ,0),colorred;
STICKLINE(OPEN>CLOSE,CLOSE,LOW,0.5 ,0 ),ColorFFFF00;
STICKLINE(OPEN>CLOSE,OPEN,HIGH,0.5 ,0 ),ColorFFFF00;
C2:=ref(C,1);
漲停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(漲停,OPEN,CLOSE,8,0),Color00FFFF;
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
STICKLINE(跌停,OPEN,CLOSE,8,0),ColorFF8000;
{粉蘭色K線};
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,6,0),COLORMAGENTA;
STICKline(P1=1 AND ref(P1,1)=0 AND P2=1AND ref(P2,1)=0,OPEN,CLOSE,3,0),COLORBLUE;
DRAWTEXT(G,L*0.997,'△'),ALIGN1,VALIGN0,Color00FF00;
DRAWTEXT(G,L,'￣'),ALIGN1,VALIGN0,Color00ff00;
DRAWTEXT(X,H*1.002,'▽'),ALIGN1,VALIGN2,ColorFF00FF;
DRAWTEXT(X,H,'￣'),ALIGN1,VALIGN0,ColorFF00FF;
DRAWTEXTREL(130,25,'所屬板塊:'+BKNAME),COLORFFFFFF;
今市上漲家數:=INDEXADV;
平盤家數:=DYNAINFO(68);
今市下跌家數:=INDEXDEC;
DRAWTEXTABS(30,10,'今市上漲:'+今市上漲家數+' 家'),ColorFFFF00,LINETHICK2;
DRAWTEXTABS(65,25,'平盤:'+平盤家數+' 家'),ColorFFFF00,LINETHICK2;
DRAWTEXTABS(65,40,'下跌:'+NUMTOSTRN(今市下跌家數,0)+' 家'),ColorFFFF00,LINETHICK2;
