K线+KDJ主图超牛全屏界面(大智慧)

K线+KDJ主图超牛全屏界面(大智慧)

源码正文：

gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100){XG51};
明日阻力:=l+(gj-l)+(c-l){XG51};
明日支撑:=l+(c-gj){XG51};
明日阻力:=l+(gj-l)+(c-l){XG51};
明日支撑:=l+(c-gj){XG51};
今日阻力:=REF(明日阻力 , 1){XG51};
今日支撑:=REF(明日支撑 , 1){XG51};
stICKLINE(DISPSTATUS=2  and c>=今日阻力,今日阻力,今日阻力,30,0),Color00FF00{XG51};
STICKLINE(DISPSTATUS=2  and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00{XG51};
STICKLINE(DISPSTATUS=2  and c>=今日支撑,今日支撑,今日支撑,30,0),Color00FF00{XG51};
STICKLINE(DISPSTATUS=2  and c<今日支撑,今日支撑,今日支撑,30,0),Color00FF00{XG51};
DRAWTEXTREL(600,10,'------------------------------------'),ColorFFFFFF{XG51};
IF BARSTATUS=2 and c>=今日支撑 THEN  
DRAWTEXTREL(600,40,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FF00{XG51};
IF BARSTATUS=2 and c<今日支撑 THEN  
DRAWTEXTREL(600,40,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),ColorFF0000{XG51};
IF BARSTATUS=2 and c>=今日阻力 THEN  
DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00{XG51};
IF BARSTATUS=2 and c<今日阻力 THEN  
DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00{XG51};
IF BARSTATUS=2 and c>=明日支撑 THEN  
DRAWTEXTREL(750,40,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )),Color00FF00{XG51};
IF BARSTATUS=2 and c<明日阻力 THEN  
DRAWTEXTREL(750,80,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FF00{XG51};
DRAWTEXTREL(600,110,'------------------------------------'),ColorFFFFFF{XG51};
IF BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF{XG51};
IF BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量小于昨日，但有放大迹象'),Color8285FF{XG51};
IF BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量大于昨日, 但有缩小迹象'),Color8285FF{XG51};
IF BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;

DRAWGBK(c>=0),Color2B5516;平衡:ema(C,20),CIRCLEDOT,COLORwhite{XG51};
STICKLINE((CLOSE >平衡),平衡,平衡,1,0),LINETHICK6,color0000ff{XG51};
STICKLINE((平衡 > CLOSE),平衡,平衡,1,0),LINETHICK6,colorff6600;

DRAWGBKLAST(v>1,STRIP(RGB(0,0,205),RGB(60,179,113),0)){XG51};
DRAWTEXTREL(350,35,''+STKLABEL+' '+STKNAME),LINETHICK4,COLORyellow{XG51};
DRAWTEXTAbs(2,10,'现价:'+CLOSE),LINETHICK3,COLOR0000ff{XG51};
DRAWTEXTABS(95,10,'涨幅:'+NUMTOSTRN(DYNAINFO(14)*100,2)+'%'),LINETHICK3,COLOR0000ff;

DRAWTEXTABS(2,40,IFS(DYNAINFO(51)>DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,40,IFS(DYNAINFO(51)=DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,40,IFS(DYNAINFO(51)<DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,45,''+DYNAINFO(50)),COLORffffff{XG51};
DRAWTEXTABS(2,60,IFS(DYNAINFO(44)>DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,60,IFS(DYNAINFO(44)=DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,60,IFS(DYNAINFO(44)<DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,65,''+DYNAINFO(43)),COLORffffff{XG51};
DRAWTEXTABS(2,80,IFS(DYNAINFO(36)>DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,80,IFS(DYNAINFO(36)=DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,80,IFS(DYNAINFO(36)<DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,85,''+DYNAINFO(33)),COLORffffff{XG51};
DRAWTEXTABS(2,100,IFS(DYNAINFO(35)>DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,100,IFS(DYNAINFO(35)=DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,100,IFS(DYNAINFO(35)<DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,105,''+DYNAINFO(32)),COLORffffff{XG51};
DRAWTEXTABS(2,120,IFS(DYNAINFO(34)>DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,120,IFS(DYNAINFO(34)=DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,120,IFS(DYNAINFO(34)<DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,125,''+DYNAINFO(31)),COLORffffff{XG51};
DRAWTEXTABS(2,130,'---------------'),LINETHICK3,COLOR00ff00{XG51};
DRAWTEXTABS(2,140,IFS(DYNAINFO(28)>DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,140,IFS(DYNAINFO(28)=DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,140,IFS(DYNAINFO(28)<DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,145,''+DYNAINFO(25)),COLORffffff{XG51};
DRAWTEXTABS(2,160,IFS(DYNAINFO(29)>DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,160,IFS(DYNAINFO(29)=DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,160,IFS(DYNAINFO(29)<DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,165,''+DYNAINFO(26)),COLORffffff{XG51};
DRAWTEXTABS(2,180,IFS(DYNAINFO(30)>DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,180,IFS(DYNAINFO(30)=DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,180,IFS(DYNAINFO(30)<DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,185,''+DYNAINFO(27)),COLORffffff{XG51};
DRAWTEXTABS(2,200,IFS(DYNAINFO(42)>DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,200,IFS(DYNAINFO(42)=DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,200,IFS(DYNAINFO(42)<DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,205,''+DYNAINFO(41)),COLORffffff{XG51};
DRAWTEXTABS(2,220,IFS(DYNAINFO(49)>DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR0000FF{XG51};
DRAWTEXTABS(2,220,IFS(DYNAINFO(49)=DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLORFFFFFF{XG51};
DRAWTEXTABS(2,220,IFS(DYNAINFO(49)<DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR00FF00{XG51};
DRAWTEXTABS(95,225,''+DYNAINFO(48)),COLORffffff;

上轨:(SMA(HIGH,21,2) * 1.092),POINTDOT,colorFFFFFF{XG51};
中轨道:(SMA(HIGH,21,2) * 1.017),POINTDOT,colorFFFFFF{XG51};
下轨道:(SMA(LOW,21,2) * 0.969),POINTDOT,color00FFFF;

WCW:=BArslAST(WEEkdAY>REF(WEEKDAY,1)){XG51};
CAW:=IF(WCW>0,LLV(C,WCW),LLV(C,WEEKDAY)){XG51};
周涨幅:=(C/CAW-1)*100{XG51};
WCM:=BARSLAST(MONTH>REF(MONTH,1)){XG51};
CAM:=IF(WCM>0,LLV(C,WCM),LLV(C,MONTH)){XG51};
月涨幅:=(C/CAM-1)*100{XG51};
WCY:=BARSLAST(YEAR>REF(YEAR,1)){XG51};
CAY:=IF(WCY>0,LLV(C,WCY),LLV(C,YEAR)){XG51};
年涨幅:=(C/CAY-1)*100{XG51};
DRAWFLAGTEXT(周涨幅,LOW*0.95,'周涨幅:'+NUMTOSTRN(周涨幅,2)+'%'){XG51};
DRAWFLAGTEXT(月涨幅,LOW*0.95,'月涨幅:'+NUMTOSTRN(月涨幅,2)+'%'){XG51};
DRAWFLAGTEXT(年涨幅,LOW*0.95,'年涨幅:'+NUMTOSTRN(年涨幅,2)+'%');

JJ:=(OPEN+LOW+HIGH+CLOSE*2)/5{XG51};
JJ2:=MA(JJ,2){XG51};
V2:=MA(vol,2){XG51};
D:sMA((JJ*VOL+JJ2*V2)/(VOL+V2),3,1),LINETHICK2,colormagenta{XG51};
K:6*D-5*sMA(JJ2,3,1),COLORyellow{XG51};
J:5*K-4*D,colorgreen{XG51};
买入:=ref(J,1)<ref(D ,1) and J>=D{XG51};
drawicon(买入,J*1,1){XG51};
partline(J,J>=ref(J,1),rgb(255,0,0),J<ref(J,1),rgb(0,250,0)),linethick3;

a:="LTFunc5@FORLT2";  
s1:="LTFunc5@LT_S1";  
hs:="LTFunc5@LT_HS";  
ls:="LTFunc5@LT_LS";  
p1:="LTFunc5@LT_P1";  
upp:="LTFunc5@LT_UPP"{XG51};
udd:="LTFunc5@LT_UDD"{XG51};
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0{XG51};
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2{XG51};
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0{XG51};
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;

difF : EMA(CLOSE,12) - EMA(CLOSE,26),colorred{XG51};
DEA : EMA(DIFF,9),colorgreen{XG51};
MacD :4*(DIFF-DEA), COLORSTICK{XG51};
D1:=EMA(C,3)-EMA(C,8){XG51};
D3:=EMA(H,3)-EMA(H,8){XG51};
D4:=EMA(L,3)-EMA(L,8){XG51};
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4,9){XG51};
DRAWICON(cross(diff,d1) and diff>0.1 ,d3,10){XG51};
Var1:=REF(MA(C,20),10){XG51};
开:=O-Var1{XG51};
高:=H-Var1{XG51};
低:=L-Var1{XG51};
收:=C-Var1{XG51};
MID:=MA(C,20){XG51};
UPPER:=MID+2*STD(C,20){XG51};
LOWER:=MID-2*STD(C,20){XG51};
V1:=(C-LOWER)/(UPPER-LOWER)*100{XG51};
V2:=V1-EMA(V1,5){XG51};
K1:=SUM(LLV(V2,4),4)/4{XG51};
V3:=EMA(V2,64)*10{XG51};
V4:=EMA(0.4*V2*(-1),3){XG51};
V5:=-1*EMA(V2,39)*10{XG51};
A:=V3>10{XG51};
B:=V2>V4{XG51};
D:=V5>10{XG51};
E:=V3<=10 OR V2<=V4 OR V5<=10{XG51};
STICKLINE(C,0,0,6,0),coloryellow{XG51};
STICKLINE(收>=开 AND E,高,低,0,0), COLORred{XG51};
STICKLINE(收>=开 AND E,收,开,8,0) ,COLORred{XG51};
STICKLINE(收< 开 AND E,高,低,0,0) ,COLORgreen{XG51};
STICKLINE(收< 开 AND E,收,开,8,0) ,COLORgreen{XG51};
STICKLINE(开> 收 AND A,低,高,0,0),COLORBLUE{XG51};
STICKLINE(开> 收 AND A,收,开,8,0),COLORBLUE{XG51};
STICKLINE(开<=收 AND A,低,高,0,0),COLORBLUE{XG51};
STICKLINE(开<=收 AND A,收,开,8,1),COLORBLUE{XG51};
STICKLINE(开> 收 AND B,低,高,0,0),COLORWHITE{XG51};
STICKLINE(开> 收 AND B,收,开,8,0),COLORWHITE{XG51};
STICKLINE(开<=收 AND B,低,高,0,0),COLORWHITE{XG51};
STICKLINE(开<=收 AND B,收,开,8,1),COLORWHITE{XG51};
STICKLINE(开> 收 AND D,低,高,0,0),COLORCYAN{XG51};
STICKLINE(开> 收 AND D,收,开,8,0),COLORCYAN{XG51};
STICKLINE(开<=收 AND D,低,高,0,0),COLORCYAN{XG51};
STICKLINE(开<=收 AND D,收,开,8,1),COLORCYAN{XG51};
KS:=(C-SMA(C,13,1))/SMA(C,13,1)*(-100){XG51};
RKS:=REF(KS,1){XG51};
MLS:=RKS/KS>1.23 AND RKS>13 AND C/REF(C,1)>1.03{XG51};
超跌:STICKLINE(KS>13,高,低,0,1),colorwhite,linethick2{XG51};
反弹:STICKLINE(MLS=1,高,低,0,1),colormagenta,linethick2{XG51};
STICKLINE(KS>13,开,收,8,1),colorwhite,linethick2{XG51};
STICKLINE(MLS=1,开,收,8,1),colormagenta,linethick2{XG51};
开盘价:c,linethick0,precis2,coloryellow{XG51};
最高价:h,linethick0,precis2,colorred{XG51};
最低价:L,linethick0,precis2,colorcyan{XG51};
即时价:c,linethick0,precis2,colorgreen{XG51};
DRAWTEXTABS(10,5,'所属板块：'+BKNAME),COLOR00FF00,linethick1{XG51};
DRAWGBK(DATE>900101,STRIP(RGB(18,160,0),RGB(25,8,0),0));

yy1:=WEEKDAY{XG51};
IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,'■星期五■'),LINETHICK2,Color191970;end{XG51};
IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,'■星期四■'),LINETHICK2,ColorEEE8AA;end{XG51};
IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,'■星期三■'),LINETHICK2,ColorBA55D3;end{XG51};
IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,'■星期二■'),LINETHICK2,Color0000CD;end{XG51};
IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,'■星期一■'),LINETHICK2,ColorADFF2F;end{XG51};
IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,'■星期六■'),LINETHICK2,Color00008B;end{XG51};
IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,'■星期日■'),LINETHICK2,ColorFF0000;end{X.G?5_1.C.N.{};