天地周期指标 公式 源码[通达信公式]

指标代码分析:

 

根据给定的代码，该指标主要包括以下部分：

 

1. 计算最高价（高）和最低价（低）。

2. 根据最高价和最低价计算一系列不同比例的价格值（H11、H10、H9等）。

3. 绘制柱状线和文本信息，显示不同价格值的位置和数值。

4. 根据设定的高点和低点，计算顶部和底部的位置（顶X和低X）。

5. 根据设定的时间和调点参数，计算额外的价格值。

6. 根据特定条件判断，绘制特定颜色的柱状线。

 

根据以上指标思路，可以得出以下操作建议：

 

1. 观察高点和低点之间的价格波动情况，以确定趋势的强度和方向。

2. 注意价格在不同比例值（H11、H10、H9等）处的反弹和支撑作用。

3. 关注价格是否触及顶部（顶X）或底部（低X），并结合其他技术指标进行确认和验证。

4. 根据时间和调点参数计算的额外价格值，可以作为进一步确认趋势的参考。

5. 在柱状线颜色变化的位置，特别是在红色柱状线附近，注意市场可能出现的转折点或反弹机会。

6. 注意价格接近或穿过特定比例值（如1/8、2/8等）时可能产生的支撑或阻力情况。

 

综上所述，根据指标结果和操作建议，可以结合其他技术分析工具和市场情况进行进一步判断和决策。同时，注意风险控制和资金管理的重要性，合理设置止损和止盈位。

 

源码：

 

N:=6000;高:=REFDATE(HHV(H,N),DATE);低:=REFDATE(LLV(L,N),DATE);H11:=高-(高-低)*1.000;H10:=高-(高-低)*0.875;H9:=高-(高-低)*0.750;H8:=高-(高-低)*0.666;H7:=高-(高-低)*0.625;H6:=高-(高-低)*0.500;H5:=高-(高-低)*0.375;H4:=高-(高-低)*0.333;H3:=高-(高-低)*0.250;H2:=高-(高-低)*0.125;H1:=高-(高-低)*0.000;STICKLINE(CURRBARSCOUNT=18,高,高,120,1),COLORGREEN;STICKLINE(CURRBARSCOUNT=18,H1,H1,120,1),COLORCYAN;STICKLINE(CURRBARSCOUNT=18,H2,H2,120,1),COLORCCCCCC;DRAWTEXT(CURRBARSCOUNT=10,H1,'0.000'),COLORCYAN;DRAWTEXT(CURRBARSCOUNT=10,H2,' 0.125'),COLORFFFFFF;DRAWTEXT(CURRBARSCOUNT=10,H3,' 0.250'),COLORYELLOW;DRAWTEXT(CURRBARSCOUNT=10,H4,' 0.333'),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=10,H5,' 0.375'),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=10,H6,' 0.500'),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=10,H7,' 0.625'),COLORRED;DRAWTEXT(CURRBARSCOUNT=10,H8,' 0.666'),COLORRED;DRAWTEXT(CURRBARSCOUNT=10,H9,' 0.750'),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=10,H10,' 0.875'),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=10,H11,' 1.000'),COLORGREEN;STICKLINE(CURRBARSCOUNT=18,H3,H3,120,1),COLORYELLOW;STICKLINE(CURRBARSCOUNT=18,H4,H4,120,1),COLORLIRED;STICKLINE(CURRBARSCOUNT=18,H6,H6,120,1),COLORGREEN;STICKLINE(CURRBARSCOUNT=18,H5,H5,120,1),COLORMAGENTA;STICKLINE(CURRBARSCOUNT=18,低,低,120,1),COLORRED;STICKLINE(CURRBARSCOUNT=18,H7,H7,120,1),COLORRED;STICKLINE(CURRBARSCOUNT=18,H8,H8,120,1),COLORRED;STICKLINE(CURRBARSCOUNT=18,H9,H9,120,1),COLORRED;STICKLINE(CURRBARSCOUNT=18,H10,H10,120,1),COLORRED;STICKLINE(CURRBARSCOUNT=18,H11,H11,120,1),COLORRED;DRAWTEXT(CURRBARSCOUNT=35,高*0.99,CON2STR(高,2)),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=35,H11,CON2STR(H11,2)),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=35,H10,CON2STR(H10,2)),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=35,H9,CON2STR(H9,2)),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=35,H8,CON2STR(H8,2)),COLORRED;DRAWTEXT(CURRBARSCOUNT=35,H1,CON2STR(H1,2)),COLORCYAN;DRAWTEXT(CURRBARSCOUNT=35,H2,CON2STR(H2,2)),COLORFFFFFF;DRAWTEXT(CURRBARSCOUNT=35,H3,CON2STR(H3,2)),COLORYELLOW;DRAWTEXT(CURRBARSCOUNT=35,H6,CON2STR(H6,2)),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=35,H4,CON2STR(H4,2)),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=35,H5,CON2STR(H5,2)),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=35,H7,CON2STR(H7,2)),COLORRED;低点:=800;高点:=800;时间:=1;价咯:=1;调点:=1;PURC:=CONST(FINDHIGH(H,0,高点*10,1));PLZ:=CONST(BARSLAST(PURC=H))+1;顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));QQT:=CONST(FINDLOW(L,0,低点*10,1));PLL:=CONST(BARSLAST(QQT=L))+1;低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));ATM:=时间=2 OR 时间=2;QTM:=时间=1 OR 时间=1;BTM:=时间=1 OR 时间=1 OR 时间=1;AAZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.809),DRAWNULL);ABZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.5),DRAWNULL);ACZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.618),DRAWNULL);ADZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.382),DRAWNULL);AEZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*0.236),DRAWNULL);AFZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1),DRAWNULL);AGZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.809),DRAWNULL);AHZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.5),DRAWNULL);AIZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.618),DRAWNULL);AJZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.382),DRAWNULL);AKZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1.236),DRAWNULL);ALZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2),DRAWNULL);AMZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.236),DRAWNULL);ANZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.382),DRAWNULL);AOZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.5),DRAWNULL);APZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.618),DRAWNULL);AQZ:=IF(ATM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2.809),DRAWNULL);ARZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3),DRAWNULL);ASZ:=IF(BTM,ROUND(IF(PLZ>PLL,PLZ,PLL)),DRAWNULL);HXCS1:=CURRBARSCOUNT=AAZ OR CURRBARSCOUNT=ABZ OR CURRBARSCOUNT=ACZ OR CURRBARSCOUNT=ADZOR CURRBARSCOUNT=AEZ OR CURRBARSCOUNT=AFZ OR CURRBARSCOUNT=AGZ OR CURRBARSCOUNT=AHZOR CURRBARSCOUNT=AIZ OR CURRBARSCOUNT=AJZ OR CURRBARSCOUNT=AKZ OR CURRBARSCOUNT=ALZOR CURRBARSCOUNT=AMZ OR CURRBARSCOUNT=ANZ OR CURRBARSCOUNT=AOZOR CURRBARSCOUNT=APZ OR CURRBARSCOUNT=AQZ OR CURRBARSCOUNT=ARZ OR CURRBARSCOUNT=ASZ;QAZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/8),DRAWNULL);QBZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/8),DRAWNULL);QCZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*3/8),DRAWNULL);QDZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*4/3),DRAWNULL);QEZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/8),DRAWNULL);QGZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*6/8),DRAWNULL);QHZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/8),DRAWNULL);QIZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*9/8),DRAWNULL);QJZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*1/3),DRAWNULL);QKZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*2/3),DRAWNULL);QMZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*10/8),DRAWNULL);QNZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*11/8),DRAWNULL);QOZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*5/3),DRAWNULL);QPZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*13/8),DRAWNULL);QQZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*14/8),DRAWNULL);QRZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*15/8),DRAWNULL);QSZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*17/8),DRAWNULL);QTZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*18/8),DRAWNULL);QUZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*19/8),DRAWNULL);QVZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*21/8),DRAWNULL);QWZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*22/8),DRAWNULL);QXZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*23/8),DRAWNULL);QYZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*7/3),DRAWNULL);QZZ:=IF(QTM,ROUND(IF(PLZ>PLL,PLZ,PLL)-ABS(PLZ-PLL)*8/3),DRAWNULL);HXCS2:=CURRBARSCOUNT=QAZ OR CURRBARSCOUNT=QBZ OR CURRBARSCOUNT=QCZOR CURRBARSCOUNT=QDZ OR CURRBARSCOUNT=QEZ OR CURRBARSCOUNT=QGZOR CURRBARSCOUNT=QHZ OR CURRBARSCOUNT=QIZ OR CURRBARSCOUNT=QJZOR CURRBARSCOUNT=QKZ OR CURRBARSCOUNT=QMZ OR CURRBARSCOUNT=QNZOR CURRBARSCOUNT=QOZ OR CURRBARSCOUNT=QPZ OR CURRBARSCOUNT=QQZOR CURRBARSCOUNT=QRZOR CURRBARSCOUNT=QSZ OR CURRBARSCOUNT=QTZ OR CURRBARSCOUNT=QUZOR CURRBARSCOUNT=QVZ OR CURRBARSCOUNT=QWZ OR CURRBARSCOUNT=QXZOR CURRBARSCOUNT=QYZ OR CURRBARSCOUNT=QZZ ;

 

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

 

input: p1(10);
drawtextabs(0,0,'主动筹码收集');
dd:=selfdata('ZDSJPM');
主动筹码排名:dd,linethick0,precis0;
STICKLINE(dd,0,(26-dd),2,0);
连续出现次数:BARSLAST(dd<1),precis0;
十日出现次数:count(dd>0,p1),precis0;
累计出现次数:count(dd>0,0),linethick1,precis0,colorred;16;
DRAWTEXT(dd<=3 and dd>0,27,'*'),COLORff00ff;

 

 

有思路，想编写各种指标公式，交易模型，选股公式，还原公式的朋友

可联系技术人员 QQ: 262069696  或微信：cxhjy888 进行 有偿收费 编写！(注：由于人数限制，QQ或微信请选择方便的一个联系我们就行，加好友时请简单备注下您的需求，否则无法通过。谢谢您！)

（怎么收费，代编流程等详情请点击查阅！）

(注：由于人数限制，QQ或微信请选择方便的一个联系我们就行，加好友时请简单备注下您的需求，否则无法通过。谢谢您！)