[转载]莱昔新编分时均线指标公式(源码、主图、贴图)
公式源码:[code]
tt:=BARSCOUNT(C);
CC:=CLOSE;
zz:=SUM(AMOUNT,tt)/SUM(VOL*100,tt);
zz1:=BETWEEN(C/zz,1.05,0.95);
均线:IF(zz1=0,MA(C,TT),zz),COLOR00FFFF,LINETHICK0;
PARTLINE(均线,均线>ref(均线,1),rgb(250,0,0),均线<=ref(均线,1),rgb(0,250,0)),linethick2;
上均:均线 + AVEDEV(C,tt)*2,COLOR00FF00;
下均:均线 - AVEDEV(C,tt)*2,COLORFF6600;
时长:=if(HOUR>=13 AND HOUR<15 ,1,0);
涨幅:=(close/DYNAINFO(3))>=1.03;
跌幅:=(close/DYNAINFO(3))<=0.97;
涨跌幅:=涨幅 OR 跌幅;
yy:=SMA(vol,30,1);
放量:=(yy-LLV(Llv(yy,1),30))/(HHV(Hhv(yy,1),30)-LLV(Llv(yy,1),30))>0;
横盘:=((HHV(CLOSE,TT)-LLV(CLOSE,TT))/CLOSE)<=0.05;
横涨:=涨跌幅=0 and 横盘 and 时长 and 放量 and CROSS(CC,上均)and DYNAINFO(22)<DYNAINFO(23) ;
横跌:=涨跌幅=0 and 横盘 and 时长 and 放量 and CROSS(下均,CC) ;
PP:= FILTER(横涨,100) ;
UU:= FILTER(横跌,50) ;
DRAWTEXT(PP,上均,'★上突'),colorff00ff;
DRAWTEXT(UU,下均,'★下破'),COLOR00FFFF;
VERTLINE( PP,3),COLORWHITE,LINETHICK2;
VERTLINE( UU,3),COLOR00FF00,LINETHICK2;
gqc:=dYNAINFO(3);{昨收}
个股涨幅:=DYNAINFO(7)/gqc-1;
上证昨收:=hhv(STKINDI('sh000001','001.rc#day'),0);
深证昨收:=hhv(STKINDI('399001','001.rc#day'),0);
上证最新:=STKINDI('1A0001','001.c1#min1');
深证最新:=STKINDI('399001','001.c1#min1');
最新行情:=if(STRCMP(MARKETLABEL,'SH')=0,上证最新,深证最新);
大盘昨收:=if(STRCMP(MARKETLABEL,'SH')=0,上证昨收,深证昨收);
大盘涨幅:=最新行情/大盘昨收;
虚拟大盘:=gqc*大盘涨幅;
[/code]
[attach]4514[/attach]
页:
[1]