大智慧超牛全屏指標公式源碼（明日阻力支撐位）

作者：大智慧來源：cxh99.com 發布時間：2013年04月10日

相關標簽: dnf牛牛穩定全屏版、牛牛全屏怎么用、超高仿全屏qcc 、求全屏武俠超爽游戲、全屏美女圖片大全大圖、寵物連連看2.5全屏、寵物連連看3.1全屏、電腦桌面壁紙高清全屏、性感美女6.0全屏大圖、

大智慧超牛全屏指標公式源碼

{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;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');
IF BARSTATUS=2 and c>=今日支撐 THEN
DRAWTEXTREL(600,40,'今日支撐=：'+NUMTOSTRN(今日支撐 ,2 )),Color00FF00;
IF BARSTATUS=2 and c<今日支撐 THEN
DRAWTEXTREL(600,40,'今日支撐=：'+NUMTOSTRN(今日支撐 ,2 )),ColorFF0000;
IF BARSTATUS=2 and c>=今日阻力 THEN
DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;
IF BARSTATUS=2 and c<今日阻力 THEN
DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;
IF BARSTATUS=2 and c>=明日支撐 THEN
DRAWTEXTREL(750,40,'明日支撐=：'+NUMTOSTRN(明日支撐 ,2 )),Color00FF00;
IF BARSTATUS=2 and c<明日阻力 THEN
DRAWTEXTREL(750,80,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FF00;
DRAWTEXTREL(600,110,'------------------------------------'),ColorFFFFFF;
IF BARSTATUS=2 and v>ref(v,1) and MA(v,5)>ref(MA(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量大于昨日,且有繼續增大趨勢'),Color8285FF;
IF BARSTATUS=2 and v<ref(v,1) and MA(v,5)>ref(MA(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量小于昨日，但有放大跡象'),Color8285FF;
IF BARSTATUS=2 and v>ref(v,1)and MA(v,5)<ref(MA(v,5),1) THEN
DRAWTEXTREL(600,150,'今日成交量大于昨日, 但有縮小跡象'),Color8285FF;
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;
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(51),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,45,''+DYNAINFO(50)),COLORffffff;
DRAWTEXTABS(2,60,IFS(DYNAINFO(44)>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(44),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,65,''+DYNAINFO(43)),COLORffffff;
DRAWTEXTABS(2,80,IFS(DYNAINFO(36)>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(36),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,85,''+DYNAINFO(33)),COLORffffff;
DRAWTEXTABS(2,100,IFS(DYNAINFO(35)>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(35),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,105,''+DYNAINFO(32)),COLORffffff;
DRAWTEXTABS(2,120,IFS(DYNAINFO(34)>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(34),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,125,''+DYNAINFO(31)),COLORffffff;
DRAWTEXTABS(2,130,'---------------'),LINETHICK3,COLOR00ff00;
DRAWTEXTABS(2,140,IFS(DYNAINFO(28)>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(28),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,145,''+DYNAINFO(25)),COLORffffff; {本文來至程序化交易網 cxh99.com}
DRAWTEXTABS(2,160,IFS(DYNAINFO(29)>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(29),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,165,''+DYNAINFO(26)),COLORffffff;
DRAWTEXTABS(2,180,IFS(DYNAINFO(30)>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(30),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,185,''+DYNAINFO(27)),COLORffffff;
DRAWTEXTABS(2,200,IFS(DYNAINFO(42)>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(42),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,205,''+DYNAINFO(41)),COLORffffff;
DRAWTEXTABS(2,220,IFS(DYNAINFO(49)>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)<DYNAINFO(3),'買五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR00FF00;
DRAWTEXTABS(95,225,''+DYNAINFO(48)),COLORffffff;

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

WCW:=BARSLAST(WEEKDAY>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)<ref(D ,1) and J>=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點預測} {文章來至程序化交易網 cxh99.com}
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 ,d4,9);
DRAWICON(cross(diff,d1) 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 A,收,開,8,1),COLORYELLOW;
STICKLINE(開> 收 AND B,低,高,0,0),COLORRED;
STICKLINE(開> 收 AND B,收,開,8,0),COLORRED;
STICKLINE(開<=收 AND B,低,高,0,0),COLORRED;
STICKLINE(開<=收 AND B,收,開,8,1),COLORRED;
STICKLINE(開> 收 AND D,低,高,0,0),COLORGREEN;
STICKLINE(開> 收 AND D,收,開,8,0),COLORGREEN;
STICKLINE(開<=收 AND D,低,高,0,0),COLORGREEN;
STICKLINE(開<=收 AND D,收,開,8,1),COLORGREEN;
KS:=(C-SMA(C,13,1))/SMA(C,13,1)*(-100); {內容來至程序化交易網 CXH99.COM}
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;

{本文來至程序化交易網 cxh99.com}

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