C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- 沪昨额: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;
