|
正版【阳光股道】【大交易师】可以直接导入使用。
盗版【飞狐】需要删除最上面的两句源码，改用大括号内的那两句源码。
思路:分别统计股价在中期均线上下的天数，然后再加以运算以达到研判中期趋势的功能。
沪昨额:REF("SH000001$AMOUNT",1)/100000000,Color00FF00,LINETHICK,PRECISION2;
沪今额:"SH000001$AMOUNT"/100000000,Color91FFEF,LINETHICK,PRECISION2;
{盗版飞狐删除上面那两句、用下面这两句}
{沪昨额:REF("SH1A0001$AMOUNT",1)/100000000,Color00FF00,LINETHICK,PRECISION2;
沪今额:"SH1A0001$AMOUNT"/100000000,Color91FFEF,LINETHICK,PRECISION2;}
深昨额:REF("SZ399001$AMOUNT",1)/100000000,ColorDDDDDD,LINETHICK,PRECISION2;
深今额:"SZ399001$AMOUNT"/100000000,Color9CFF7A,LINETHICK,PRECISION2;
N:=if(DATATYPE=7,20,if(DATATYPE=8,10,30));
X:=if(DATATYPE=7,ema(c,11),if(DATATYPE=8,ema(c,4),ma(c,22)));
variable:Z[7]='星期六';Z[1]:='星期日';Z[2]:='星期一';Z[3]:='星期二';
Z[4]:='星期三';Z[5]:='星期四';Z[6]:='星期五';
nf:=YEAR;yf:=MONTH;rq:=DAY;xq:=WEEKDAY;p:=SYSPARAM(1);
股票总数:STKCOUNT('A股板块'),LINETHICK;
AA:=count(c>x,n);BB:=n-aa;
强弱:(AA-BB)/n*100,LINETHICK,Color00ddff;
100,LINEDOT,Color939190;90,LINEDOT,Color939190;
70,LINEDOT,Color939190;60,LINEDOT,Color939190;
40,LINEDOT,Color939190;30,LINEDOT,Color939190;
10,LINEDOT,Color939190;0,LINEDOT,Color939190;
x:=SYSPARAM(2)=BARPOS;k:=(SYSPARAM(3)-SYSPARAM(2))/110;
x1:=SYSPARAM(2)+ROUND(26*k)=BARPOS;
x2:=SYSPARAM(2)+ROUND(55*k)=BARPOS;
x3:=SYSPARAM(2)+ROUND(86*k)=BARPOS;
x4:=SYSPARAM(2)+ROUND(110*k)=BARPOS;
VERTLINE(x or x1 or x2 or x3 or x4),Color939190;
FILLRGN(强弱>0,0,abs(强弱)),Color650056;
FILLRGN(强弱<ref(强弱,1) and 强弱>0,0,abs(强弱)),Color005633;
FILLRGN(强弱<0,0,abs(强弱)),Color006533;
FILLRGN(强弱>ref(强弱,1) and 强弱<0,0,abs(强弱)),Color650056;
80,LINEDOT,Color00FF00;50,LINEDOT,Color00FFFF;
20,LINEDOT,Color0000FF;DRAWTEXTEX(c,1,0,0,'100'),ColorFFFFFF;
DRAWTEXTEX(c,1,0,180,' 80'),ColorFFFFFF;
DRAWTEXTEX(c,1,960,180,' 转折区'),ColorFFFFFF;
DRAWTEXTEX(c,1,0,380,' 60'),ColorFFFFFF;
DRAWTEXTEX(c,1,960,480,' 趋势线'),ColorFFFFFF;
DRAWTEXTEX(c,1,0,580,' 40'),ColorFFFFFF;
DRAWTEXTEX(c,1,0,780,' 20'),ColorFFFFFF;
DRAWTEXTEX(c,1,960,780,' 弱势区'),ColorFFFFFF;
DRAWTEXTEX(c,1,0,980,' 0'),ColorFFFFFF;
DRAWTEXTEX(c,1,50,10,STKLABEL+' '+STKNAME+''),Color00feef;
显示:='今天是: '+NUMTOSTR(nf[p],0)+'年'+NUMTOSTR(yf[p],0)+'月'+NUMTOSTR(rq[p],0)+'日 '+Z[xq[p]+1];
DRAWTEXTEX(c,1,200,10,显示),Color00feef;
202108211230.jpg
|
