！【心态-纪律】！
一段时间以来、尤其是在这熊气慢慢的时刻、用什么依据可以窥视出市场各方的心理、这是我们比较关注的。
也曾用乾隆的心理线做过测试，但都不太理想。
于是我想什么能比较贴切的体现市场各方心态？
这个指标只是做个尝试、能不能贴近市场的真实，目前还在探索中。
今天发出源码，一是迎接新年，二是希望能有与千钧同样思路的朋友，大家来一起完善这个指标。
指标中使用了三个样本来探索，
1、涨跌幅
2、振幅
3、换手率
指标源码：
a:=vol/if(CAPITAL=0,ESTDATA(8),CAPITAL)*100;
b:=(c/ref(c,1)-1)*100;d:=(h-l)/l*100;
STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,8,0),COLOR440044;
STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,5,0),COLOR880088;
STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,3,0),COLORaa00aa;
振幅大于10:STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,1,0),COLORff00FF;
STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,8,0),COLOR444400;
STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,5,0),COLOR888800;
STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,3,0),COLORaaaa00;
振幅小于10:STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,1,0),COLORffFF00;
STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,8,0),COLOR004444;
STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,5,0),COLOR00aaaa;
STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,3,0),COLOR00dddd;
换手大于5:STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,1,0),COLOR00FFFF;
STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,8,0),COLOR444400;
STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,5,0),COLOR884400;
STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,3,0),COLORAA8800;
换手小于5:STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,1,0),COLORffcc00;
STICKLINE(b>0,0,0+b,8,0),COLOR000044;
STICKLINE(b>0,0,0+b,5,0),COLOR000088;
STICKLINE(b>0,0,0+b,3,0),COLOR0000AA;
上涨:STICKLINE(b>0,0,0+b,1,0),COLOR0000FF;
STICKLINE(b<0,0,0+b,8,0),COLOR004400;
STICKLINE(b<0,0,0+b,5,0),COLOR008800;
STICKLINE(b<0,0,0+b,3,0),COLOR00AA00;
下跌:STICKLINE(b<0,0,0+b,1,0),COLOR00FF00;
心理线:ma(a+b+d,4)*2;预期值:wma(心理线,8);
预期:cross(心理线,预期值),LINETHICK;纪律:cross(预期值,心理线),LINETHICK;
流通手.alg 是用来横向统计数据--8【这是为观察大盘换手率的】大智慧1版本
a:=vol/CAPITAL*100;
b:=(c/ref(c,1)-1)*100;d:=(h-l)/l*100;
STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,5,0),COLOR880088;
STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,3,0),COLORaa00aa;
振幅大于10:STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,1,0),COLORff00FF;
STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,5,0),COLOR888800;
STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,3,0),COLORaaaa00;
振幅小于10:STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,1,0),COLORffFF00;
STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,5,0),COLOR00aaaa;
STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,3,0),COLOR00dddd;
换手大于5:STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,1,0),COLOR00FFFF;
STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,5,0),COLOR884400;
STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,3,0),COLORAA8800;
换手小于5:STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,1,0),COLORffcc00;
STICKLINE(b>0,0,0+b,5,0),COLOR000088;
STICKLINE(b>0,0,0+b,3,0),COLOR0000AA;
上涨:STICKLINE(b>0,0,0+b,1,0),COLOR0000FF;
STICKLINE(b<0,0,0+b,5,0),COLOR008800;
STICKLINE(b<0,0,0+b,3,0),COLOR00AA00;
下跌:STICKLINE(b<0,0,0+b,1,0),COLOR00FF00;
心理线:ma(a+b+d,4)*2,COLOREE00EE;
预期值:ema(心理线,9),COLOR00EE00;
预期:cross(心理线,预期值),LINETHICK0;
纪律:cross(预期值,心理线),LINETHICK0;
通达信版本
a:=vol/CAPITAL*100;
b:=(c/ref(c,1)-1)*100;d:=(h-l)/l*100;
振幅大于10:STICKLINE(d>if(CAPITAL=0,4,10),30,30+d,3,0),COLORff00FF;
振幅小于10:STICKLINE(d<if(CAPITAL=0,4,10),30,30+d,3,0),COLORffFF00;
换手大于5:STICKLINE(a>if(CAPITAL=0,1,5),15,15+a,3,0),COLOR00FFFF;
换手小于5:STICKLINE(a<if(CAPITAL=0,1,5),15,15+a,3,0),COLORff6600;
上涨:STICKLINE(b>0,0,0+b,3,0),COLOR0000FF;
下跌:STICKLINE(b<0,0,0+b,3,0),COLOR00FF00;
心理线:ma(a+b+d,4)*2,COLOREE00EE;
预期值:ema(心理线,9),COLOR00EE00;
预期:cross(心理线,预期值);
纪律:cross(预期值,心理线);{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
