牛年好運指標 龍虎看盤指標源碼[大智慧公式]

相關標簽: 牛年好運指標源碼，龍虎看盤指標源碼，牛年好運指標公式， 龍虎看盤指標公式，虎年好運指村源碼、

{牛年好運指標源碼}
A:=AMOUNT/V/100;
VARA:=EMA((((A-EMA(A,13))/EMA(A,13))*(0-100)),5);
操盤線:=EMA(((VARA/10)+EMA(A,10)),3);行情線:=EMA(A,3);
重心:=(C+0.618*ref(C,1)+0.382*ref(C,2)+0.236*ref(C,3)+0.146*ref(C,4))/2.382;
趨勢線:=EMA(((SLOPE(C,22)*20)+C),55),COLORYELLOW,LINETHICK2;
紅升:DRAWICON(重心>=趨勢線,趨勢線,10),COLORRED,LINETHICK2;
藍降:DRAWICON(重心<趨勢線,趨勢線,11),COLORBLUE,LINETHICK2;
持股線:=EMA(CLOSE,26),Colorff00ff,LINETHICK2;
Var1:=(4*CLOSE+HIGH+LOW)/6;
Var2:=LLV(LOW,34);
Var3:=HHV(HIGH,34);
dif:= EMA((Var1-Var2)/(Var3-Var2)*100,13);
dea:= EMA(0.667*ref(dif,1)+0.333*dif,2);
多頭:STICKLINE(dif>dea,CLOSE,OPEN,8,0),color0000ff;
STICKLINE(dif>dea,HIGH,LOW,0,0),color0000ff;
空頭:STICKLINE(dif<=dea,CLOSE,OPEN,8,0),color00ff00;
STICKLINE(dif<=dea,HIGH,LOW,0,0),color00ff00;
關注:STICKLINE(dif>dea and c<持股線,CLOSE,OPEN,8,0),color00ffff;
STICKLINE(dif>dea and c<持股線,HIGH,LOW,0,0),color00ffff;
回踩:STICKLINE(dif<dea and c>持股線,CLOSE,OPEN,8,0),colorff0066;
STICKLINE(dif<dea and c>持股線,HIGH,LOW,0,0),colorff0066;
壓力:MA(ref(HHV(C,30),1),2),COLOR9DFFFF;
支撐:MA(ref(LLV(C,30),1),2),COLORABFF46;

LC:=ref(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
抓大牛:=CROSS(RSI,11);
DRAWTEXT(抓大牛,L-0.3,'抓大牛'),COLORRED;
VAR7:=EMA(AMOUNT/VOL/100,3);
VAR8:=EMA(VAR7,88);
VAR9:=EMA(VAR7,88)*0.85;
VARA:=VAR9*0.87;
VARB:=LOW<VARA AND CLOSE>ref(CLOSE,1)*1.02;
DRAWTEXT(FILTER(VARB,6),L-0.05,'牛動'),COLORFF00FF;
VARF:=(2*CLOSE+HIGH+LOW)/4;
VA4:=LLV(LOW,34);
VA5:=HHV(HIGH,34);
VA6:=EMA((VARF-VA4)/(VA5-VA4)*100,6);
VA7:=EMA(0.667*ref(VA6,1)+0.333*VA6,4);
DRAWTEXT(IF(COUNT(CLOSE<ref(CLOSE,1),8)/8>0.3 AND COUNT(VA6>VA7,3) AND ref(LOW,1)=LLV(LOW,120) AND
CLOSE>OPEN,1,0),L-0.05,'牛好運'),COLORYELLOW;
A:=(3*CLOSE+LOW+OPEN+HIGH)/6;
D1:=(20*A+19*ref(A,1)+18*ref(A,2)+17*ref(A,3)+16*ref(A,4)+15*ref(A,5)+14*ref(A,6)
+13*ref(A,7)+12*ref(A,8)+11*ref(A,9)+10*ref(A,10)+9*ref(A,11)+8*ref(A,12)
+7*ref(A,13)+6*ref(A,14)+5*ref(A,15)+4*ref(A,16)+3*ref(A,17)+2*ref(A,18)+
ref(A,20))/211;
D2:=EMA(D1,2);
D3:=EMA(D2,2);
K1:=EMA(D3,2); {文章來至程序化交易網 cxh99.com}
DRAWTEXT(CROSS(D1,K1),L-0.05,'牛買入'),COLOR0099FF;
多方趨勢:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
,3,1),2,1);
天線:=78.89;
DRAWTEXT(CROSS(天線,多方趨勢),H*1.01,'牛回頭'),COLOR00FF00;

A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);
牛運線:=EMA(A51,5);A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
趨勢線:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2));
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXT(CROSS(趨勢線,0)AND 牛運線<40,(HIGH*0.97),'▲牛起'),COLORYELLOW; {內容來至程序化交易網 CXH99.COM}

{龍虎看盤指標源碼}
換手率:=VOL/CAPITAL*100;
fsbs:=DYNAINFO(51);
x:=v;
{EXPLAINICON(c>0,'LHKP');}
EXPLAINICON(HIGH>=HHV(HIGH,20),'LHKP');
EXPlain(1,' '+STKLABEL+' '+STKNAME),ColorFFFF80;
yy:=DATE;
EXPLAINEX(1=1,'',date,0,0),COLORffef40;
yy1:=WEEKDAY;
EXPLAIN(yy1=5,'星期五'),COLORffef40;
EXPLAIN(yy1=4,'星期四'),COLORffef40;
EXPLAIN(yy1=3,'星期三'),COLORffef40;
EXPLAIN(yy1=2,'星期二'),COLORffef40;
EXPLAIN(yy1=1,'星期一'),COLORffef40;
EXPLAIN(yy1=6,' 星期六'),COLORffef40;
EXPLAIN(yy1=0,' 星期日'),COLORffef40;

db:stkindi('','LHKP.db',0,0),LINETHICK0;
db1:=stkindi('','LHKP.db1',0,0),LINETHICK2;
db2:=stkindi('','LHKP.db2',0,0),LINETHICK2;
ds:=stkindi('','LHKP.ds',0,0);
ds1:=stkindi('','LHKP.ds1',0,0);
ds2:=stkindi('','LHKP.ds2',0,0);
sb:=stkindi('','LHKP.sb',0,0);
sb1:=stkindi('','LHKP.sb1',0,0);
ss:=stkindi('','LHKP.ss',0,0);
ss1:=stkindi('','LHKP.ss1',0,0);
總:=DYNAINFO( 8);

EXPLAINEX(1,'■■■總成交手：',總,0,0),COLORccffcc;
EXPLAINex(1,'■大單買入：',db,0,0),coloryelLOW;
EXPLAINEX(1,'■大單賣出：',ds,0,0)coloryelLOW;
EXPLAINEX(1,'□■大單買賣凈量：',(db-ds),2,0),COLORccffcc;
EXPLAINEX(1,'■大單買入筆數：',db1,0,0),color5454ff;
EXPLAINEX(1,'■大單賣出筆數：',ds1,0,1)colorffff54; {本文來至CXH99.COM}

EXPLAINEX(1,'□小單買入：',sb,0,0)colorred;
EXPLAINEX(1,'□小單賣出：',ss,0,0)colorred;
EXPLAINEX(1,'□小單買入筆數：',sb1,0,0)colorred;
EXPLAINEX(1,'□小單賣出筆數：',ss1,0,0)colorgreen;
EXPLAINEX(1,'■■■■成交總筆數：',fsbs,0,0),coloryelLOW;
EXPLAINEX(1,'■■大單買入均價：',db2/(db*100),3,0)COLORccffcc;
EXPLAINEX(1,'■■大單賣出均價：',ds2/(ds*100),2,0)COLORccffcc;
散戶跟風系數:=sb/(db+ds)*100;
ht:=if(c>o,1,-1);
EXPLAINEX(1,'□■散戶跟風系數：',散戶跟風系數*ht,2,0),COLORccffcc;
////////////// {內容來至程序化交易網 CXH99.COM}

三日總換手:=SUM(換手率,3);
五日總換手:=SUM(換手率,5);
十日總換手:=SUM(換手率,10);
二十日總換手:=SUM(換手率,20);
EXPLAIN(十日總換手,'■三日總換手■'),colorFFFFFF;
EXPLAIN(1,'今總:'+NUMTOSTR(三日總換手,2)+' %'+'\n'+'昨總:'+NUMTOSTR(ref(三日總換手,1),2)+' %'+'\n'+'前總:'
+NUMTOSTR(ref(三日總換手,2),2)+' %'+'\n'+'前一:'+NUMTOSTR(ref(三日總換手,3),2)+' %'+'\n'+'前二:'+NUMTOSTR(ref(三日總換手,4),2)+' %'),colorFFFF;
EXPLAIN(1,'■五日總換手■'),COLORRED;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
EXPLAIN(1,'今總:'+NUMTOSTR(五日總換手,2)+' %'+'\n'+'昨總:'+NUMTOSTR(ref(五日總換手,1),2)+' %'+'\n'+'前總:'
+NUMTOSTR(ref(五日總換手,2),2)+' %'+'\n'+'前一:'+NUMTOSTR(ref(五日總換手,3),2)+' %'+'\n'+'前二:'+NUMTOSTR(ref(五日總換手,4),2)+' %'),COLORWHITE;
EXPLAIN(十日總換手,'■十日總換手■'),colorFFFFFF;
EXPLAIN(1,'今總:'+NUMTOSTR(十日總換手,2)+' %'+'\n'+'昨總:'+NUMTOSTR(ref(十日總換手,1),2)+' %'+'\n'+'前總:'
+NUMTOSTR(ref(十日總換手,2),2)+' %'+'\n'+'前一:'+NUMTOSTR(ref(十日總換手,3),2)+' %'+'\n'+'前二:'+NUMTOSTR(ref(十日總換手,4),2)+' %'),colorFFFF;

PT:=ref(HIGH,1)-ref(LOW,1);
CDP:=(HIGH+LOW+2*CLOSE)/4;
AH:=CDP+PT;
AL:=CDP-PT;
NH敏感阻力:=2*CDP-LOW;
NL:=2*CDP-HIGH;
EXPLAINEX(AH,'解盤：次日重大阻力價位=',AH,2,0),colorFF00;
EXPLAINEX(NH敏感阻力,'解盤：次日敏感阻力區域=',NH敏感阻力,2,0),colorFFFF;
EXPLAINEX(CDP,'解盤：次日關鍵均衡價位=',CDP,2,0),colorFFFFFF;
EXPLAINEX(NL,'解盤：次日重要支撐區域=',NL,2,0),colorFF0000;
EXPLAINEX(AL,'解盤：次日關鍵支撐價位=',AL,2,0),colorFF;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),AH,AH,12,0),ColoryelLOW,LINETHICK3,shift1;
DRAWNUMBER(BARSCOUNT(C)=SYSPARAM(1),AH,AH,2),shift2,colorYELLOW;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),AL,AL,12,0),,ColorFFBB00,LINETHICK3,shift1;
DRAWNUMBER(BARSCOUNT(C)=SYSPARAM(1),AL,AL,2),shift2,,ColorFFBB00;
 

[1] {本文來至CXH99.COM}

------
{LHKP}{龍虎看盤引用}
if DATATYPE<>0 then exit;

xs:=FINANCE(7)*n/1000;
dbv:=if(v>xs and BUYVOL,v,0);
dsv:=if(v>xs and SELLVOL,v,0);
sbv:=if(v<=xs and BUYVOL,v,0);
ssv:=if(v<=xs and SELLVOL,v,0);
db:SUM(dbv,0);
ds:SUM(dsv,0);
sb:SUM(sbv,0);
ss:SUM(ssv,0);
買賣凈量:(db-ds),STICK;
dbv1:=if(v>xs and BUYVOL,qt,0);
dsv1:=if(v>xs and SELLVOL,qt,0);
sbv1:=if(v<=xs and BUYVOL,qt,0);
ssv1:=if(v<=xs and SELLVOL,qt,0);
db1:SUM(dbv1,0);
ds1:SUM(dsv1,0);
sb1:SUM(sbv1,0);
ss1:SUM(ssv1,0); {本文來至CXH99.COM}

dbv2:=if(v>xs and BUYVOL,AMOUNT,0);
dsv2:=if(v>xs and SELLVOL,AMOUNT,0);
sbv2:=if(v<=xs and BUYVOL,AMOUNT,0);
ssv2:=if(v<=xs and SELLVOL,AMOUNT,0);
db2:SUM(dbv2,0);
ds2:SUM(dsv2,0);
sb2:SUM(sbv2,0);
ss2:SUM(ssv2,0);
{本文來源：}

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

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