 
等级: 超级版主
- 注册:
- 2021-5-18
- 曾用名:
|
// CCI五波震荡下跌选股公式(金字塔简化版)
INPUT: N(14, 1, 100); // CCI计算周期
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
// 检测五波结构
WaveFound := 0;
// 检测第一波:下跌1-4天
FOR D1 = 1 TO 4 DO
BEGIN
IF REF(CCI, D1+4) > REF(CCI, D1+3) AND // 下跌前高点
EVERY(CCI < REF(CCI,1), D1) THEN // 连续下跌
BEGIN
D1_Start := D1 + 4;
D1_Low := REF(LLV(CCI, D1), D1_Start); // 第一波低点
// 检测第二波:反弹1-3天
FOR U1 = 1 TO 3 DO
BEGIN
U1_Start := D1_Start + D1;
IF EVERY(CCI > REF(CCI,1), U1) AND // 连续反弹
REF(HHV(CCI, U1), U1_Start) <= REF(CCI, U1_Start) THEN // 幅度不突破
BEGIN
// 检测第三波:下跌1-4天
FOR D2 = 1 TO 4 DO
BEGIN
D2_Start := U1_Start + U1;
IF EVERY(CCI < REF(CCI,1), D2) AND // 连续下跌
REF(CCI, D2_Start) > REF(CCI, D2_Start+D2) THEN // 有实际跌幅
BEGIN
D2_Low := REF(LLV(CCI, D2), D2_Start); // 第三波低点
// 检测第四波:反弹1-3天
FOR U2 = 1 TO 3 DO
BEGIN
U2_Start := D2_Start + D2;
IF EVERY(CCI > REF(CCI,1), U2) AND // 连续反弹
REF(HHV(CCI, U2), U2_Start) <= REF(CCI, U2_Start) THEN // 幅度不突破
BEGIN
// 检测第五波:下跌1-4天
FOR D3 = 1 TO 4 DO
BEGIN
D3_Start := U2_Start + U2;
IF EVERY(CCI < REF(CCI,1), D3) AND // 连续下跌
REF(CCI, D3_Start) > REF(CCI, D3_Start+D3) AND // 有实际跌幅
// 验证整体结构:五波震荡下跌
REF(CCI, D1_Start) > REF(CCI, D1_Start+D1) AND // 第一波下跌
REF(CCI, D1_Start+D1) < REF(CCI, U1_Start) AND // 第二波反弹
REF(CCI, U1_Start) > REF(CCI, D2_Start+D2) AND // 第三波下跌
REF(CCI, D2_Start+D2) < REF(CCI, U2_Start) AND // 第四波反弹
REF(CCI, U2_Start) > REF(CCI, D3_Start+D3) // 第五波下跌
THEN
BEGIN
WaveFound := 1;
BREAK;
END;
END;
IF WaveFound THEN BREAK;
END;
END;
IF WaveFound THEN BREAK;
END;
END;
IF WaveFound THEN BREAK;
END;
END;
IF WaveFound THEN BREAK;
END;
END;
// 输出结果
OUTPUT: WaveFound;
使用序列模式
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?
x
|