量化趋势源码加贴图
一个小指标【量化趋势】，大家短信向我索要源码。
只因这个指标一直还没有达到让我十分满意的程度、所以在‘阳光股道’中以服务器定向加密方式提供给朋友们使用。
其实源码和思路很简单，就是分别统计股价在中期均线上下的天数，然后再加以运算以达到研判中期趋势的功能。
闲话少说，上源码！
公式名称：量化趋势
使用软件：飞狐交易师
公式源码：
注：
正版【阳光股道】【大交易师】可以直接导入使用。
盗版【飞狐】需要删除最上面的两句源码，改用大括号内的那两句源码。
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;
