李莜阳---超牛全屏界面 (2010-03-16 12:20:02)
标签： 分类：
注意：
全部合成源码来自网络,非原创.打开十字光标可查周月年涨幅.如果有高手把成交量柱加入副图就更完美了.
{K线+KDJ主图}gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);明日阻力:=l+(gj-l)+(c-l);明日支撑:=l+(c-gj);明日阻力:=l+(gj-l)+(c-l);明日支撑:=l+(c-gj);今日阻力:=REF(明日阻力 , 1);今日支撑:=REF(明日支撑 , 1);STICKLINE(DISPSTATUS=2and c>=今日阻力,今日阻力,今日阻力,30,0),Color00FF00;STICKLINE(DISPSTATUS=2and c<今日阻力,今日阻力,今日阻力,30,0),color00ff00;stickline(dispstatus=2and c="">=今日支撑,今日支撑,今日支撑,30,0),Color00FF00;STICKLINE(DISPSTATUS=2and c<今日支撑,今日支撑,今日支撑,30,0),color00ff00;drawtextrel(600,10,"------------------------------------"),colorffffff;if barstatus="2" and="" c="">=今日支撑 THEN DRAWTEXTREL(600,40,"今日支撑=："+NUMTOSTRN(今日支撑 ,2 )),Color00FF00;IF BARSTATUS=2 and c<今日支撑 2="" then="" if="" barstatus="2" and="" c="">=今日阻力 THEN DRAWTEXTREL(600,80,"今日阻力=："+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;IF BARSTATUS=2 and c<今日阻力 2="" then="" if="" barstatus="2" and="" c="">=明日支撑 THEN DRAWTEXTREL(750,40,"明日支撑=："+NUMTOSTRN(明日支撑 ,2 )),Color00FF00;IF BARSTATUS=2 and c<明日阻力 2="" then="" if="" barstatus="2" and="" v="">ref(v,1) and ma(v,5)>ref(ma(v,5),1) THENDRAWTEXTREL(600,150,"今日成交量大于昨日,且有继续增大趋势"),Color8285FF;IF BARSTATUS=2 and vref(ma(v,5),1) THENDRAWTEXTREL(600,150,"今日成交量小于昨日，但有放大迹象"),Color8285FF;IF BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1) THENDRAWTEXTREL(600,150,"今日成交量大于昨日, 但有缩小迹象"),Color8285FF;IF BARSTATUS=2 and v<ref(v,1)and ma(v,5)=0),Color2B5516;平衡:EMA(C,20),CIRCLEDOT,COLORwhite;STICKLINE((CLOSE >平衡),平衡,平衡,1,0),LINETHICK6,color0000ff;STICKLINE((平衡 > CLOSE),平衡,平衡,1,0),LINETHICK6,colorff6600;DRAWGBKLAST(v>1,STRIP(RGB(0,0,205),RGB(60,179,113),0));DRAWTEXTREL(350,35,""+STKLABEL+" "+STKNAME),LINETHICK4,COLORyellow;DRAWTEXTABS(2,10,"现价:"+CLOSE),LINETHICK3,COLOR0000ff;DRAWTEXTABS(95,10,"涨幅:"+NUMTOSTRN(DYNAINFO(14)*100,2){(c-ref(c,1))/ref(c,1)*100}+"%"),LINETHICK3,COLOR0000ff;DRAWTEXTABS(2,40,IFS(DYNAINFO(51)>DYNAINFO(3),"卖五:"+NUMTOSTRN(DYNAINFO(51),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,40,IFS(DYNAINFO(51)=DYNAINFO(3),"卖五:"+NUMTOSTRN(DYNAINFO(51),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,40,IFS(DYNAINFO(51)DYNAINFO(3),"卖四:"+NUMTOSTRN(DYNAINFO(44),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,60,IFS(DYNAINFO(44)=DYNAINFO(3),"卖四:"+NUMTOSTRN(DYNAINFO(44),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,60,IFS(DYNAINFO(44)DYNAINFO(3),"卖三:"+NUMTOSTRN(DYNAINFO(36),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,80,IFS(DYNAINFO(36)=DYNAINFO(3),"卖三:"+NUMTOSTRN(DYNAINFO(36),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,80,IFS(DYNAINFO(36)DYNAINFO(3),"卖二:"+NUMTOSTRN(DYNAINFO(35),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,100,IFS(DYNAINFO(35)=DYNAINFO(3),"卖二:"+NUMTOSTRN(DYNAINFO(35),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,100,IFS(DYNAINFO(35)DYNAINFO(3),"卖一:"+NUMTOSTRN(DYNAINFO(34),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,120,IFS(DYNAINFO(34)=DYNAINFO(3),"卖一:"+NUMTOSTRN(DYNAINFO(34),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,120,IFS(DYNAINFO(34)DYNAINFO(3),"买一:"+NUMTOSTRN(DYNAINFO(28),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,140,IFS(DYNAINFO(28)=DYNAINFO(3),"买一:"+NUMTOSTRN(DYNAINFO(28),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,140,IFS(DYNAINFO(28)DYNAINFO(3),"买二:"+NUMTOSTRN(DYNAINFO(29),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,160,IFS(DYNAINFO(29)=DYNAINFO(3),"买二:"+NUMTOSTRN(DYNAINFO(29),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,160,IFS(DYNAINFO(29)DYNAINFO(3),"买三:"+NUMTOSTRN(DYNAINFO(30),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,180,IFS(DYNAINFO(30)=DYNAINFO(3),"买三:"+NUMTOSTRN(DYNAINFO(30),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,180,IFS(DYNAINFO(30)DYNAINFO(3),"买四:"+NUMTOSTRN(DYNAINFO(42),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,200,IFS(DYNAINFO(42)=DYNAINFO(3),"买四:"+NUMTOSTRN(DYNAINFO(42),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,200,IFS(DYNAINFO(42)DYNAINFO(3),"买五:"+NUMTOSTRN(DYNAINFO(49),2),"")),LINETHICK3,COLOR0000FF;DRAWTEXTABS(2,220,IFS(DYNAINFO(49)=DYNAINFO(3),"买五:"+NUMTOSTRN(DYNAINFO(49),2),"")),LINETHICK3,COLORFFFFFF;DRAWTEXTABS(2,220,IFS(DYNAINFO(49)REF(WEEKDAY,1));{周}CAW:=IF(WCW>0,LLV(C,WCW),LLV(C,WEEKDAY));{周}周涨幅:=(C/CAW-1)*100;WCM:=BARSLAST(MONTH>REF(MONTH,1));{月}CAM:=IF(WCM>0,LLV(C,WCM),LLV(C,MONTH));{月}月涨幅:=(C/CAM-1)*100;WCY:=BARSLAST(YEAR>REF(YEAR,1));{年}CAY:=IF(WCY>0,LLV(C,WCY),LLV(C,YEAR));{年}年涨幅:=(C/CAY-1)*100;DRAWFLAGTEXT(周涨幅,LOW*0.95,"周涨幅:"+NUMTOSTRN(周涨幅,2)+"%");DRAWFLAGTEXT(月涨幅,LOW*0.95,"月涨幅:"+NUMTOSTRN(月涨幅,2)+"%");DRAWFLAGTEXT(年涨幅,LOW*0.95,"年涨幅:"+NUMTOSTRN(年涨幅,2)+"%");JJ:=(OPEN+LOW+HIGH+CLOSE*2)/5;JJ2:=MA(JJ,2);V2:=MA(VOL,2);D:sMA((JJ*VOL+JJ2*V2)/(VOL+V2),3,1),LINETHICK2,colormagenta;K:6*D-5*sMA(JJ2,3,1),COLORyellow;J:5*K-4*D,colorgreen;买入:=ref(J,1)=D;drawicon(买入,J*1,1);partline(J,J>=ref(J,1),rgb(255,0,0),J<ref(J,1),rgb(0,250,0)),linethick3;a:="LTFunc5@FORLT2";{计算BS点}s1:="LTFunc5@LT_S1";{s1=0,向下; s1=1,向上}hs:="LTFunc5@LT_HS";{短线买入机会}ls:="LTFunc5@LT_LS";{短线卖出机会}p1:="LTFunc5@LT_P1";{p1=1,显示BS,p1上穿0线,B点 ; p1下穿1线,S点}upp:="LTFunc5@LT_UPP";{明日B点预测}udd:="LTFunc5@LT_UDD";{明日S点预测}drawbmp(p1=1 and ref(p1,1)=0,l,"buy1.bmp"),align1,valign0;drawbmp(p1=0 and ref(p1,1)=1,h,"sell1.bmp"),align1,valign2;drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,"bs.bmp"),align1,valign0;drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,"ss.bmp"),align1,valign2;{K线+MACD副图}DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),colorred;DEA : EMA(DIFF,9),colorgreen;MACD :4*(DIFF-DEA), COLORSTICK;D1:=EMA(C,3)-EMA(C,8);D3:=EMA(H,3)-EMA(H,8);D4:=EMA(L,3)-EMA(L,8);DRAWICON(cross(d1,diff) and diff<-0.05 and="" diff="">0.1 ,d3,10);Var1:=REF(MA(C,20),10);开:=O-Var1;高:=H-Var1;低:=L-Var1;收:=C-Var1;MID:=MA(C,20);UPPER:=MID+2*STD(C,20);LOWER:=MID-2*STD(C,20);V1:=(C-LOWER)/(UPPER-LOWER)*100;V2:=V1-EMA(V1,5);K1:=SUM(LLV(V2,4),4)/4;V3:=EMA(V2,64)*10;V4:=EMA(0.4*V2*(-1),3);V5:=-1*EMA(V2,39)*10;A:=V3>10;B:=V2>V4;D:=V5>10;E:=V3<=10 OR V2<=V4 OR V5<=10;stickline(c,0,0,6,0),coloryellow;stickline(收>=开 AND E,高,低,0,0), COLORred;STICKLINE(收>=开 AND E,收,开,8,0) ,COLORred;STICKLINE(收< 开 AND E,高,低,0,0) ,COLORgreen;STICKLINE(收< 开 AND E,收,开,8,0) ,COLORgreen;STICKLINE(开> 收 AND A,低,高,0,0),COLORYELLOW;STICKLINE(开> 收 AND A,收,开,8,0),COLORYELLOW;STICKLINE(开<=收 AND A,低,高,0,0),COLORYELLOW;STICKLINE(开<=收 and=""> 收 AND B,低,高,0,0),COLORRED;STICKLINE(开> 收 AND B,收,开,8,0),COLORRED;STICKLINE(开<=收 AND B,低,高,0,0),COLORRED;STICKLINE(开<=收 and=""> 收 AND D,低,高,0,0),COLORGREEN;STICKLINE(开> 收 AND D,收,开,8,0),COLORGREEN;STICKLINE(开<=收 AND D,低,高,0,0),COLORGREEN;STICKLINE(开<=收 and="" ks:="(C-SMA(C,13,1))/SMA(C,13,1)*(-100);RKS:=REF(KS,1);MLS:=RKS/KS">1.23 AND RKS>13 AND C/REF(C,1)>1.03;超跌:STICKLINE(KS>13,高,低,0,1),colorwhite,linethick2;反弹:STICKLINE(MLS=1,高,低,0,1),colormagenta,linethick2;STICKLINE(KS>13,开,收,8,1),colorwhite,linethick2;STICKLINE(MLS=1,开,收,8,1),colormagenta,linethick2;开盘价:c,linethick0,precis2,coloryellow;最高价:h,linethick0,precis2,colorred;最低价:L,linethick0,precis2,colorcyan;即时价:c,linethick0,precis2,colorgreen;DRAWTEXTABS(10,5,"所属板块："+BKNAME),COLOR00FF00,linethick1;DRAWGBK(DATE>900101,STRIP(RGB(18,160,0),RGB(25,8,0),0));{星期显示}yy1:=WEEKDAY;IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,"■星期五■"),LINETHICK2,Color191970;end;IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,"■星期四■"),LINETHICK2,ColorEEE8AA;end;IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,"■星期三■"),LINETHICK2,ColorBA55D3;end;IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,"■星期二■"),LINETHICK2,Color0000CD;end;IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,"■星期一■"),LINETHICK2,ColorADFF2F;end;IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,"■星期六■"),LINETHICK2,Color00008B;end;
IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,"■星期日■"),LINETHICK2,ColorFF0000;end;
