分享一个同花顺的量能指标,
自用。
U:80;
MID:50;
D:20;
m:-10;
n:=-27;
LC := REF(CLOSE,1);
var1:WINNER(C)*100;
STICKLINE( 1.000,0,var1, 8,0),colormagenta;
VARA:=COST(75);
VARB:=COST(25);
VARC:=VARA-VARB;
VARD:=(VARA-VARB)/2;
VARE:=VARC/VARD*100<10;
STICKLINE(var1>REF(var1,1) AND var1>90,102,104,8,0);
STICKLINE(var1<REF(var1,1) AND var1>90,102,104,8,0),colorgreen;
STICKLINE(var1>REF(var1,1)AND var1<90 AND var1>20,var1+2,var1+4,8,0),coloryellow;
STICKLINE(var1<REF(var1,1)AND var1<90 AND var1>20,var1+2,var1+4,8,0),colorgreen;
STICKLINE(var1>REF(var1,1) AND var1<=20,-2,-4,8,0),coloryellow;
STICKLINE(var1<REF(var1,1) AND var1<=20,-2,-4,8,0),colorgreen;
DRAWTEXT(CROSS(var1,50),var1,'★');
DRAWTEXT(CROSS(80,var1)AND (REF(C,1)-C)/REF(C,1)*100>4,var1,'▽');
DRAWTEXT(CROSS(50,var1),var1,'▼');
成本空间:=VARC;
成本均价:=(COST(85)-COST(15));
//1
DRAWTEXT(CROSS(var1,20),-10,'x'); //第一天上穿20
//2
DRAWTEXT(CROSS(REF(var1,1),20) AND VAR1>20 ,-10,'*');//第二天维持20
//3
DRAWTEXT(CROSS(REF(var1,2),20) AND REF(var1,1)>20 AND var1>20 ,-10,'in');//第三天维持20,高于昨日收盘价买
DRAWTEXT(CROSS(REF(var1,2),20) AND REF(var1,1)>20 AND var1<20 ,-10,'s');//没维持撤离
//4
DRAWTEXT(CROSS(REF(var1,3),20) AND REF(var1,2)>20 AND REF(var1,1)>20 AND var1>20,-10,'kep');//第四天维持,则持有
DRAWTEXT(CROSS(REF(var1,3),20) AND REF(var1,2)>20 AND REF(var1,1)>20 AND var1<20 ,-10,'out');//第四天没有维持则无效退场
//5
DRAWTEXT(CROSS(REF(var1,4),20) AND REF(var1,3)>20 AND REF(var1,2)>20 AND REF(var1,1)>20 AND var1>50 AND C>REF(C,1),-10,'K');//第五日上50,留
DRAWTEXT(CROSS(REF(var1,4),20) AND REF(var1,3)>20 AND REF(var1,2)>20 AND REF(var1,1)>20 AND var1<50 AND C<REF(C,1),-10,'P');//第五日没50,且比昨日低,停
//end
DRAWTEXT( var1<20 AND REF(var1,1)>20 AND REF(var1,2)>20 AND REF(var1,3)>20 AND REF(var1,4)>20 ,-10,'end');//周期结束,次日重新看走势
DRAWTEXT( var1<50 AND REF(var1,1)>80 ,10,'pau');//状况不对低于上一个同期条件价位,先撤离,次日稳住追进
WJ:=REF(C,BARSLAST(CROSS(var1,50)));
WD:=REF(C,BARSLAST(CROSS(50,var1)));
BD:=REF(C,BARSLAST(CROSS(80,var1)));
//WJ
DRAWTEXT(WJ>REF(WJ,1),var1-10,'高');
DRAWTEXT(WJ<REF(WJ,1),var1+10,'低');
//WD
DRAWTEXT(WD>REF(WD,1),var1-10,'高');
DRAWTEXT(WD<REF(WD,1),var1+10,'低');
DRAWTEXT(WD<REF(WD,1),10,'pau');
//BD
DRAWTEXT(BD>REF(BD,1),var1-10,'高');
DRAWTEXT(BD<REF(BD,1),var1+10,'低');
DRAWTEXT(BD<REF(BD,1),10,'pau');
TYP := (IF(ISNULL(HIGH),CLOSE,HIGH) + IF(ISNULL(LOW),CLOSE,LOW) + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
CCI84:=(TYP-MA(TYP,84))/(0.015*AVEDEV(TYP,84));
STICKLINE(CCI>REF(CCI,1) AND CCI>100,m,m+4,8,1),colorred;
STICKLINE(CCI<=REF(CCI,1) AND CCI>100,m,m+4,8,0),colorred;
STICKLINE(CCI>REF(CCI,1) AND CCI<-100,m,m-4,8,1),colorgreen;
STICKLINE(CCI<=REF(CCI,1) AND CCI<-100,m,m-4,8,0),colorgreen;
DRAWTEXT(CROSS(CCI84,100),n,'△'),coloryellow;
DRAWTEXT(CROSS(100,CCI84),n,'▽'),coloryellow;
DRAWTEXT(CROSS(CCI84,-100),n,'△'),colorgreen;
DRAWTEXT(CROSS(-100,CCI84),n,'▽'),colorgreen;
|
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!