【通達信】麟龍量能飽合度指標公式源碼

昵稱15272241 2015-06-23

展開全文

哪位老師能改成通達信的？
input:N(20,1,100);
飽和度:IF((AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N))*100),DOTLINE,COLORred;
STICKLINE(((CLOSE > 0) AND BARSTATUS=2),0,100,19,1),colorFFFFFF;
STICKLINE(((飽和度 <= 5) AND BARSTATUS=2),1,(10+ 飽和度),18,0),colorFFFFFF;
STICKLINE((((飽和度 > 5) AND (飽和度 <= 20)) AND BARSTATUS=2),1,(8 + 飽和度),18,0),colorCCFF88;
STICKLINE((((飽和度 > 20) AND (飽和度 <= 40)) AND BARSTATUS=2),1,( 飽和度),18,0),colorFF00FF;
STICKLINE(((飽和度 > 40) AND BARSTATUS=2),1,( 飽和度),18,0),color0000FF;
IF BARSTATUS=2 and (飽和度) THEN BEGIN DRAWTEXTREL(760,800,'量能飽和度：'+NUMTOSTRN(飽和度,0)),LINETHICK5,COLORred;end;
{強勢追蹤}
起點量≤5:STICKLINE(飽和度<=5 AND BARSTATUS=2,1,飽和度+10,5,0),COLORRED;
低量20:STICKLINE((飽和度>5 AND 飽和度< 20) AND BARSTATUS=2,1,飽和度+8,5,0),COLOR5290FF;
溫量80:STICKLINE((飽和度>5 AND 飽和度< 80) AND BARSTATUS=2,1,飽和度,5,0),COLOR5290FF;
警量97:STICKLINE((飽和度>80 AND 飽和度< 97) AND BARSTATUS=2,1,飽和度,5,0),COLORFFCC00;
放量≥97:STICKLINE(飽和度>=97 AND BARSTATUS=2,1,飽和度,8,0),COLORGREEN;
K:=(DATE < 1341230);
XD1:=INDEXO;
XD2:=INDEXH;
XD3:=INDEXL;
XD4:=INDEXC;
對應指數(shù)開盤:=INDEXO;
盤中最高點位:=INDEXH;
盤中最低點位:=INDEXL;
收盤點位:=INDEXC;
大盤資金增減:=(100 * ((INDEXV / REF(INDEXV,1)) - 1));
大盤上漲家數(shù):=INDEXADV;
平盤家數(shù):=DYNAINFO(68);
大盤下跌家數(shù):=INDEXDEC;
昨收盤:=DYNAINFO(3);
今開盤:=DYNAINFO(4);
漲幅:=DYNAINFO(14)*100;
JJ:=(((XD4 + XD2) + XD3) / 3);
A:=EMA(JJ,10);
B:=REF(A,1);
買賣決策:=B;
DRAWTEXTABS(10,10,'【大盤盤口動態(tài)觀察】'),Color00FFFF;
DRAWTEXTABS(10,25,'對應個股開盤:'+對應指數(shù)開盤+'點'),Color00FFFF;
DRAWTEXTABS(10,40,'盤中最高點位:'+盤中最高點位+'點'),Color00FFFF;
DRAWTEXTABS(10,55,'盤中最低點位:'+盤中最低點位+'點'),Color00FFFF;
DRAWTEXTABS(10,70,'■大盤資金增減:'+NUMTOSTRN(大盤資金增減,0)+'%'),Color00FF00;
DRAWTEXTABS(10,85,'大盤今日上漲:'+大盤上漲家數(shù)+'家'),Color00FFFF;
DRAWTEXTABS(10,100,'大盤今日平盤:'+平盤家數(shù)+'家'),Color00FFFF;
DRAWTEXTABS(10,115,'大盤今日下跌:'+NUMTOSTRN(大盤下跌家數(shù),0)+'家'),Color00FFFF;
買入委托成交:=ORDER(1);
賣出委托成交:=ORDER(2);
當日成交總量:=DYNAINFO(8);
成交總金額:=DYNAINFO(10)/10000;
主動賣盤:=DYNAINFO(22);
主動買盤:=DYNAINFO(23);
成交筆數(shù):=TICKCOUNT;
每筆手數(shù):=DYNAINFO(53);
DRAWTEXTABS(150,10,'【個股盤口成交量觀察】'),ColorD3A9FF;
DRAWTEXTABS(150,25,'日成交總量:'+NUMTOSTRN(當日成交總量,0)+'手'),ColorD3A9FF;
DRAWTEXTABS(150,40,'日主動買入量:'+NUMTOSTRN(主動買盤,0)+'手'),ColorD3A9FF;
DRAWTEXTABS(150,55,'日主動賣出量:'+NUMTOSTRN(主動賣盤,0)+'手'),ColorD3A9FF;
DRAWTEXTABS(150,70,'■當前成交概況:'+NUMTOSTRN(成交筆數(shù),0)+'筆'),Color00FF00;
DRAWTEXTABS(150,85,'每筆成交:'+NUMTOSTRN(每筆手數(shù),1)+'手'),ColorD3A9FF;
DRAWTEXTABS(150,100,'買入下單委托:'+NUMTOSTRN(買入委托成交,0)+'單'),ColorD3A9FF;
DRAWTEXTABS(150,115,'賣出下單委托:'+NUMTOSTRN(賣出委托成交,0)+'單'),ColorD3A9FF;
{換手率--成交量--委賣委買量：綜合分析}
n1:=barslast(cross(c,MA(c,60)));
n2:=barslast(cross(MA(c,60),c));
強股排序:if(n1<N2,N1+1,0),PRECIS0,COLOR00FFFF,LINETHICK0;
日換手率:=DYNAINFO(37)*100;
５日換手率:sum(100*v/capital,5),ColorFFFFFF,PRECIS0,LINETHICK0;
５日均量:DYNAINFO(38),ColorFFFFFF,PRECIS0,LINETHICK0;
大單20萬買入:DYNAINFO(94)*100,ColorFFFFFF,PRECIS0,LINETHICK0;
大單20萬賣出:=DYNAINFO(97)*100;
５０萬大單買入:BIGORDER(1,3)*100,ColorFFFFFF,PRECIS0,LINETHICK0;
賣出50萬委托單:=BIGORDER(2,3)*100;
建倉成本:=MAXCYC;
壓力位:=DMA(AMOUNT/(100*VOL),VOL/(100*FINANCE2(37)))*1.12;
avgbpx:=DYNAINFO(87);
avgopx:=DYNAINFO(88);
tbqty:=DYNAINFO(89);
toqty:=DYNAINFO(90);
bq:=DYNAINFO(89)/capital;
oq:=DYNAINFO(90)/capital;
bm:=tbqty/((DYNAINFO(7)-avgbpx)*2/DYNAINFO(7)*100);
om:=toqty/((avgopx-DYNAINFO(7))*2/DYNAINFO(7)*100);
bd:=(DYNAINFO(7)-avgbpx)/(avgopx-avgbpx)*120;
od:=(avgopx-DYNAINFO(7))/(avgopx-avgbpx)*120;
gy:=max(bm,om);
DRAWTEXTABS(290,10,'【換手率--成交量--委賣委買量：綜合分析】'),ColorFFFF00;
DRAWTEXTABS(290,25,'委賣→總量:'+str(toqty)+' 占流通盤比例:'+str(oq*100)+'%'+' 密度:'+str(INTPART(om))+'手價寬:'+str(max(0,avgopx*2-DYNAINFO(7)*2))+'元 '+str(max(0,avgopx/DYNAINFO(7)*200-200))+'%'),ColorFFFF00,layer0;
DRAWTEXTABS(290,40,'委買→總量:'+str(tbqty)+' 占流通盤比例:'+str(bq*100)+'%'+' 密度:'+str(INTPART(bm))+'手價寬:'+str(if(avgbpx=0,0,DYNAINFO(7)*2- avgbpx*2))+'元 '+str(max(0,DYNAINFO(7)/avgbpx*200-200))+'%'),ColorFFFF00,layer0;
DRAWTEXTABS(290,55,'委賣委買比:'+str((tbqty-toqty)/(tbqty+toqty)*100)+'%→'),layer0,Color0000FF;
DRAWTEXTABS(290,70,'■個股對應大盤買賣決策點位:'+NUMTOSTRN(買賣決策,2)+'點'),Color00FF00;
DRAWTEXTABS(290,115,'日換手率:'+NUMTOSTRN(日換手率,1)+'%'),ColorFFFF00;
DRAWTEXTABS(290,85,'日成交總金額:'+NUMTOSTRN(成交總金額,0)+'萬元'),ColorFFFF00;
DRAWTEXTABS(445,85,'20萬大單買入:'+NUMTOSTRN(大單20萬買入,0)+'%'),ColorFFFF00;
DRAWTEXTABS(550,85,'20萬大單賣出:'+NUMTOSTRN(大單20萬賣出,0)+'%'),ColorFFFF00;
DRAWTEXTABS(445,100,'50萬大單買入:'+NUMTOSTRN(５０萬大單買入,0)+'%'),ColorFFFF00;
DRAWTEXTABS(550,100,'50萬大單賣出:'+NUMTOSTRN(賣出50萬委托單,0)+'%'),ColorFFFF00;
DRAWTEXTABS(370,115,'5日換手率:'+NUMTOSTRN(５日換手率,1)+'%'),ColorFFFF00;
DRAWTEXTABS(445,115,'5日均量:'+NUMTOSTRN(５日均量,0)+'手'),ColorFFFF00;
DRAWTEXTABS(550,115,'平均成本:'+NUMTOSTRN(建倉成本,2)+'元'),ColorFFFF00;
DRAWTEXTABS(650,55,STKLABEL+' '+STKNAME),Colorred,LINETHICK4;
DRAWTEXTABS(650,80,'■股價上穿60均線:'+NUMTOSTRN(強股排序,0)+'天'),Colorgreen,LINETHICK2;
DRAWTEXTABS(650,100,'■心理成本壓力位:'+NUMTOSTRN(壓力位,2)+'元'),Color00FFFF,LINETHICK2;股票論壇 www.55188.com