价位密集公式 指标 选股 源码[其他软件公式]

指标公式源码分析及使用说明:

源码：

{通达信指标
设置如下参数
K----- K=0时考量区间成交价的密集程度
K=1时考量区间成交价的活跃成交的密集程度
P-----:统计方式
M----当P=1时以M周期为考量区域
ZF---当P=0时以大于ZF涨跌幅度的B个Ｖ形波段时间为考量区域
B----选择几个波段,最小2,}
{听雪寻股指标--价位密集}{loy518改飞狐版}
INPUT:K(1,0,1),P(0,0,1),M(43,1,999),ZF(1,1,999),B(2,2,999);
{***********************************************************}
HW:=PEAKBARS(1,ZF,B);
LW:=TROUGHBARS(2,ZF,B);
光标:DATACOUNT-BARPOS+1,LINETHICK;{看光标位置,方便在P=1时自己设置M的大小}
起点:IF(P<1,REFX(MAX(HW,LW),DATACOUNT-BARPOS),M),LINETHICK;
HJ:=REFX(MAX(PEAK(1,ZF,B),PEAK(1,ZF,1)),DATACOUNT-BARPOS),LINETHICK;
LJ:=REFX(MIN(TROUGH(2,ZF,B),TROUGH(2,ZF,1)),DATACOUNT-BARPOS);
N:=起点;
高:=IF(DATACOUNT-BARPOS+1<=N,IF(P<1,REFX(HHV(HJ,N),DATACOUNT-BARPOS),REFX(HHV(H,N),DATACOUNT-BARPOS)),0);
低:=IF(DATACOUNT-BARPOS+1<=N,IF(P<1,REFX(LLV(LJ,N),DATACOUNT-BARPOS),REFX(LLV(L,N),DATACOUNT-BARPOS)),0);
WZ:=REFX(REFX(HHV(C,N+20),DATACOUNT-BARPOS)+REFX(LLV(C,N+20),DATACOUNT-BARPOS),DATACOUNT-BARPOS)/2;
今:=REFX(C,DATACOUNT-BARPOS);
区间:=高-低;区间0:=区间*0/10+低;
区间1:=区间*1/10+低;
区间2:=区间*2/10+低;
区间3:=区间*3/10+低;
区间4:=区间*4/10+低;
区间5:=区间*5/10+低;
区间6:=区间*6/10+低;
区间7:=区间*7/10+低;
区间8:=区间*8/10+低;
区间9:=区间*9/10+低;
区间H:=区间*10/10+低;穿1:=(L<=区间1 AND H>=区间0)*IF(K<1,1,V);
穿2:=(L<=区间2 AND H>=区间1)*IF(K<1,1,V);
穿3:=(L<=区间3 AND H>=区间2)*IF(K<1,1,V);
穿4:=(L<=区间4 AND H>=区间3)*IF(K<1,1,V);
穿5:=(L<=区间5 AND H>=区间4)*IF(K<1,1,V);
穿6:=(L<=区间6 AND H>=区间5)*IF(K<1,1,V);
穿7:=(L<=区间7 AND H>=区间6)*IF(K<1,1,V);
穿8:=(L<=区间8 AND H>=区间7)*IF(K<1,1,V);
穿9:=(L<=区间9 AND H>=区间8)*IF(K<1,1,V);
穿H:=(L<=区间H AND H>=区间9)*IF(K<1,1,V);
和1:=REFX(SUM(穿1,起点),DATACOUNT-BARPOS),LINETHICK;
和2:=REFX(SUM(穿2,起点),DATACOUNT-BARPOS),LINETHICK;
和3:=REFX(SUM(穿3,起点),DATACOUNT-BARPOS),LINETHICK;
和4:=REFX(SUM(穿4,起点),DATACOUNT-BARPOS),LINETHICK;
和5:=REFX(SUM(穿5,起点),DATACOUNT-BARPOS),LINETHICK;
和6:=REFX(SUM(穿6,起点),DATACOUNT-BARPOS),LINETHICK;
和7:=REFX(SUM(穿7,起点),DATACOUNT-BARPOS),LINETHICK;
和8:=REFX(SUM(穿8,起点),DATACOUNT-BARPOS),LINETHICK;
和9:=REFX(SUM(穿9,起点),DATACOUNT-BARPOS),LINETHICK;
和H:=REFX(SUM(穿H,起点),DATACOUNT-BARPOS),LINETHICK;最多:=MAX(和1,MAX(和2,MAX(和3,MAX(和4,MAX(和5,MAX(和6,MAX(和7,MAX(和8,MAX(和H,和9))))))))),LINETHICK;
最少:=MIN(和1,MIN(和2,MIN(和3,MIN(和4,MIN(和5,MIN(和6,MIN(和7,MIN(和8,MIN(和H,和9))))))))),LINETHICK;
STICKLINE(DATACOUNT-BARPOS+1<=N,高,今,13.33,0)COLOR882266;
STICKLINE(DATACOUNT-BARPOS+1<=N,低,今,13.33,0)COLOR886622;STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和1/最多*N),区间0+区间*1/60,区间1-区间*1/60,10.67,0),COLORDD2200;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和2/最多*N),区间1+区间*1/60,区间2-区间*1/60,10.67,0),COLOREE6622;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和3/最多*N),区间2+区间*1/60,区间3-区间*1/60,10.67,0),COLORFF8855;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和4/最多*N),区间3+区间*1/60,区间4-区间*1/60,10.67,0),COLORFF8888;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和5/最多*N),区间4+区间*1/60,区间5-区间*1/60,10.67,0),COLOREE88A0;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和6/最多*N),区间5+区间*1/60,区间6-区间*1/60,10.67,0),COLORF588AA;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和7/最多*N),区间6+区间*1/60,区间7-区间*1/60,10.67,0),COLORFF88CC;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和8/最多*N),区间7+区间*1/60,区间8-区间*1/60,10.67,0),COLORFF99DD;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和9/最多*N),区间8+区间*1/60,区间9-区间*1/60,10.67,0),COLORFF99FF;
STICKLINE(DATACOUNT-BARPOS+1<=ROUND(和H/最多*N),区间9+区间*1/60,区间H-区间*1/60,10.67,0),COLORFF00FF;密集价位:
IF(最多=和1,(区间1+区间0)/2,
IF(最多=和2,(区间2+区间1)/2,
IF(最多=和3,(区间3+区间2)/2,
IF(最多=和4,(区间4+区间3)/2,
IF(最多=和5,(区间5+区间4)/2,
IF(最多=和6,(区间6+区间5)/2,
IF(最多=和7,(区间7+区间6)/2,
IF(最多=和8,(区间8+区间7)/2,
IF(最多=和9,(区间9+区间8)/2,
(区间H+区间9)/2))))))))),COLORFFFFFF,LINETHICK;
STICKLINE(DATACOUNT-BARPOS+1<=N,密集价位,密集价位,10,0),COLORFFFFFF;
密集价上位1:密集价位*(1+16.18/200),COLOR00FFFF,LINETHICK;
STICKLINE(DATACOUNT-BARPOS+1<=N,密集价上位1,密集价上位1,10,0),COLOR00FFFF,LINETHICK3;
密集价下位1:密集价位*(1-16.18/200),COLOR00FFFF,LINETHICK;
STICKLINE(DATACOUNT-BARPOS+1<=N,密集价下位1,密集价下位1,10,0),COLOR00FFFF,LINETHICK3;
密集价上位2:IF(密集价上位1*(1+16.18/200)<高*1.05,密集价上位1*(1+16.18/200),0),COLOR00FFFF,LINETHICK;
STICKLINE(密集价上位2>0,密集价上位2,密集价上位2,0,0),COLOR00FFFF,LINETHICK2,POINTDOT;
密集价上位3:IF(密集价上位2*(1+16.18/200)<高*1.05,密集价上位2*(1+16.18/200),0),COLOR00FFFF,LINETHICK;
STICKLINE(密集价上位3>0,密集价上位3,密集价上位3,0,0),COLOR00FFFF,LINETHICK2,POINTDOT;
密集价下位2:IF(密集价下位1*(1-16.18/200)>低*0.95,密集价下位1*(1-16.18/200),0),COLOR00FFFF,LINETHICK;
STICKLINE(密集价下位2>0,密集价下位2,密集价下位2,0,0),COLOR00FFFF,LINETHICK2,POINTDOT;
密集价下位3:IF(密集价下位2*(1-16.18/200)>低*0.95,密集价下位2*(1-16.18/200),0),COLOR00FFFF,LINETHICK;
STICKLINE(密集价下位3>0,密集价下位3,密集价下位3,0,0),COLOR00FFFF,LINETHICK2,POINTDOT;总换手:REFX(SUM(V,N)/(FINANCE(7)*10000)*10000,DATACOUNT-BARPOS),LINETHICK;
密集换手:最多/(FINANCE(7)*10000)*10000,LINETHICK;
KLINE(O,H,L,C,0);
DRAWTEXT(DATACOUNT-BARPOS+1=ROUND(N/2+2.5),高*0.985,'统 计 区 域'),COLOR00FFFF;DRAWTEXT(DATACOUNT-BARPOS+1=N+10 ,WZ,
' 注 意: 参 数 设 置'),COLOR66FFFF;
DRAWTEXT(DATACOUNT-BARPOS+1=N+10 ,WZ*0.98,
' K=0时考量区间成交价的密集程度'),COLORFFFFFF;
DRAWTEXT(DATACOUNT-BARPOS+1=N+10 ,WZ*0.96,
' K=1时考量区间成交价活跃成交量密集程度'),COLORFFFFFF;
DRAWTEXT(DATACOUNT-BARPOS+1=N+10 ,WZ*0.94,
' P=0时以大于ZF涨跌幅度的B个V形波段时间为考量区域'),COLORFFFFFF;
DRAWTEXT(DATACOUNT-BARPOS+1=N+10 ,WZ*0.92,
' P=1时以M周期为考量区域'),COLORFFFFFF;{程序化交易 www.cxh99.com }

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】