软件名称：[B]本人在用的极品黄金主图（主图+贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：20.0 KB
官方主页：Home Page
更新时间：2011-03-06 05:51:09
软件简介:
本人一直在用的主图，感觉还不错，趋势顶底一目了然。
源码集合了各位大大们的部分源码，清见谅~！
主图：集合135战法，顶底背离，黄金分割，还有千钧老师的弄点钱玩玩。
好了，上源码。
input:K(1,1,3);
DRAWGBKLAST(C>0,STRIP(RGB(90,90,90),RGB(0,0,0),0));
ema13:ema(c,13),colorblue,linethick2;
ema34:ema(c,34),colorred,linethick2;
ema55:ema(c,55),coloryellow,linethick2;
ema89:ema(c,89),colorwhite,linethick2;
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;
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
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,colorgreen;
DRAWTEXT(A and K<>3,LL, ' 最低价：'+ll),ALIGN2,VALIGN2,colorgreen;
DRAWTEXT(A and K<>3,mHL,' 50%：'+mHL),ALIGN2,color00ffff;
DRAWTEXT(A and K=1, a1, ' 0.191：'+NUMTOSTRN(a1,2)),ALIGN2,color00ffff;
DRAWTEXT(A and K=1, a2, ' 0.382：'+NUMTOSTRN(a2,2)),ALIGN2,color00ffff;
DRAWTEXT(A and K=1, a3, ' 0.618：'+NUMTOSTRN(a3,2)),ALIGN2,color00ffff;
DRAWTEXT(A and K=1, a4, ' 0.809：'+NUMTOSTRN(a4,2)),ALIGN2,color00ffff;
DRAWTEXT(A and K=1, b1, ' 1/8：'+NUMTOSTRN(b1,2)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, b2, ' 1/4：'+NUMTOSTRN(b2,2)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, b3, ' 3/8：'+NUMTOSTRN(b3,2)),ALIGN0,colorgreen;
DRAWTEXT(A and K=1, b4, ' 5/8：'+NUMTOSTRN(b4,2)),ALIGN0,colorgreen;
DRAWTEXT(A and K=1, b5, ' 3/4：'+NUMTOSTRN(b5,2)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, b6, ' 7/8：'+NUMTOSTRN(b6,2)),ALIGN2,colorgreen;
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,colorff0000,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,color00FF00;
DRAWTEXT(A and K=1, b2, ' ﹉﹉﹉﹉'),ALIGN2,color00ff00;
DRAWTEXT(A and K=1, b3, '﹉﹉'),ALIGN0,color00ff00;
DRAWTEXT(A and K=1, b4, '﹉﹉'),ALIGN0,color00ff00;
DRAWTEXT(A and K=1, b5, ' ﹉﹉﹉﹉'),ALIGN2,color00ff00;
DRAWTEXT(A and K=1, b6, ' ﹉﹉﹉﹉'),ALIGN2,color00FF00;
OO:=ma(O,22);j:="kdj.j#DAY";
CC:=ma(c,22);hs:=vol/CAPITAL*100;
jj:=(H+L+C)/3;qj0:=vol/IF(H=L,4,H-L);
qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L));
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));
qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj);
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;
DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400));
bbd:=EMA("总0#WEEK",2)/sum(IF(CAPITAL=0,ref(INDEXA,1),ref(vol,1)),5)*100;
XH1:=ref(bbd,1)<-15 and bbd>ref(bbd,1) and bbd>-10;
XH2:=ref(bbd,1)>=15 and bbd<ref(bbd,1) and bbd<10;
Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3;
Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3;
Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3;
STICKLINE(C>=REF(c,1),H,L,0,0),COLOR0000FF;
STICKLINE(C>=REF(c,1),C,O,8,0),COLOR0000bb;
STICKLINE(C>=REF(c,1),C,O,5,0),COLOR0000dd;
STICKLINE(C>=REF(c,1),C,O,3,0),COLOR0000ee;
STICKLINE(C>=RE
[url=http://www.70822.com/soft/sort013/sort03/down-31255.html]本人在用的极品黄金主图（主图+贴图）[/url]