按照要求重新修改标题。
这个指标源码的公布,算是2012年发的数低点研究指标贴的终结。这只是一个辅助指标,从到论坛到至今,我个人经历,没有找到和研究编写出神奇买卖点的指标,但是指标对我的投资辅助起到了很大作用。
这个指标思路是来自于买三跌的经典故事,低点设计为自动数到第8个点,九(9)为数之极,取六爻三三衍生之数,易有云:一生二,二生三,三生万物。又有所谓太极生两仪,两仪生四相,四相生八卦,八卦而变六十四爻,从此周而复始变化无穷。可以在不同周期应用,月线,周线应用更佳,极端的低点产生,将会发生变化,特别是板块个股共振。
{--- 参数定义 ---}
HIGHN:=20; {定义顶部周期参数,可根据需要调整}
{--- 顶部识别 ---}
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H),NODRAW; {顶部价格}
{--- 高点连线(修正) ---}
{方法1:使用DRAWLINE正确绘制}
高点:DRAWLINE(DDD=0,H,ISLASTBAR,H,1),COLORRED,LINETHICK2;
{方法2:或者使用折线连接顶部}
TOP_PRICE:=IF(CC,H,DINGBU);
DRAWNUMBER(ISLASTBAR,TOP_PRICE,TOP_PRICE),COLORRED;
{--- 低点序列分析 ---}
GDCS1:=CONST(GDTS),NODRAW; {顶部位置}
L0:=IF(DDD,REF(L,DDD),L),NODRAW;
{--- 寻找顶部后的低点序列 ---}
L1T:=FILTER(L<L0 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L11:=IF(REF(L1T,1)!=L1T AND L1T,L,0);
L1:=REF(L,BARSLAST(L=L11)),NODRAW;
L2T:=FILTER(L<L1 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L21:=IF(L2T,L,0),NODRAW;
L2:=REF(L,BARSLAST(L21)),NODRAW;
L3T:=FILTER(L<L2 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L31:=IF(L3T,L,0),NODRAW;
L3:=REF(L,BARSLAST(L31)),NODRAW;
L4T:=FILTER(L<L3 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L41:=IF(L4T,L,0),NODRAW;
L4:=REF(L,BARSLAST(L41)),NODRAW;
L5T:=FILTER(L<L4 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L51:=IF(L5T,L,0),NODRAW;
L5:=REF(L,BARSLAST(L51)),NODRAW;
L6T:=FILTER(L<L5 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L61:=IF(L6T,L,0),NODRAW;
L6:=REF(L,BARSLAST(L61)),NODRAW;
L7T:=FILTER(L<L6 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L71:=IF(L7T,L,0),NODRAW;
L7:=REF(L,BARSLAST(L71)),NODRAW;
L8T:=FILTER(L<L7 AND CURRBARSCOUNT<GDCS1,GDCS1),NODRAW;
L81:=IF(L8T,L,0),NODRAW;
L8:=REF(L,BARSLAST(L81)),NODRAW;
{--- 标记低点 ---}
DRAWTEXT(REF(L1T,1)!=L1T AND L1T,L-0.1,'1'),COLORYELLOW;
DRAWTEXT(L2T,L-0.1,'2'),COLORYELLOW;
DRAWTEXT(L3T,L-0.1,'3'),COLORYELLOW;
DRAWTEXT(L4T,L-0.1,'4'),COLORYELLOW;
DRAWTEXT(L5T,L-0.1,'5'),COLORYELLOW;
DRAWTEXT(L6T,L-0.1,'6'),COLORYELLOW;
DRAWTEXT(L7T,L-0.1,'7'),COLORYELLOW;
DRAWTEXT(L8T,L-0.1,'8'),COLORYELLOW;
{--- 跳空缺口显示 ---}
UPQK:=LOW-REF(HIGH,1); {向上跳空}
DOWNQK:=REF(LOW,1)-HIGH; {向下跳空}
STICKLINE(CLOSE>REF(CLOSE,1) AND UPQK>0,REF(HIGH,1),LOW,0.8,1),COLORMAGENTA;
STICKLINE(CLOSE<REF(CLOSE,1) AND DOWNQK>0,REF(LOW,1),HIGH,0.8,1),COLORBLUE;
{--- 指标计算 ---}
LF:(HHV(H,0)-LLV(L,0))/HHV(H,0)*100,NODRAW; {振幅百分比}
DF:(HHV(H,0)-C)/HHV(H,0)*100,NODRAW; {下跌幅度百分比}
{--- 可选:绘制低点连线 ---}
LOW_POINTS:=IF(L1T,L1,IF(L2T,L2,IF(L3T,L3,IF(L4T,L4,IF(L5T,L5,IF(L6T,L6,IF(L7T,L7,IF(L8T,L8,DRAWNULL))))))));
DRAWLINE(L1T,L1,ISLASTBAR,L1,1),COLORGREEN;
DRAWLINE(L2T,L2,ISLASTBAR,L2,1),COLORGREEN;
DRAWLINE(L3T,L3,ISLASTBAR,L3,1),COLORGREEN;