|
// 计算VAR8和VAR9
VAR8 = 600 * (EMA(CLOSE, 3) - EMA(LOW, 30)) / EMA(LOW, 30);
VAR9 = EMA(VAR8, 7);
// 计算VARA和VARB
VARA = (CDF(1.2 * CLOSE) - CDF(1.0 * CLOSE)) * 100;
VARB = (-100) * (CDF(1.2 * CLOSE) - CDF(1.0 * CLOSE)) + 5;
// 条件判断OK1
OK1 = (VARA + VARB < 7) AND CROSS(VAR8, VAR9) AND (VAR9 < -18) AND (VAR9 < VARB);
// 计算VARC到VAR18
VARC = HHV(HIGH, 9) - LLV(LOW, 9);
VARD = HHV(HIGH, 9) - CLOSE;
VARE = CLOSE - LLV(LOW, 9);
VARF = VARD / VARC * 100 - 70;
VAR10 = (CLOSE - LLV(LOW, 60)) / (HHV(HIGH, 60) - LLV(LOW, 60)) * 100;
VAR11 = (2 * CLOSE + HIGH + LOW) / 4;
VAR12 = SMA(VARE / VARC * 100, 3, 1);
VAR13 = LLV(LOW, 34);
VAR14 = SMA(VAR12, 3, 1) - SMA(VARF, 9, 1);
VAR15 = IF(VAR14 > 100, VAR14 - 100, 0);
VAR16 = HHV(HIGH, 34);
VAR17 = EMA((VAR11 - VAR13) / (VAR16 - VAR13) * 100, 8);
VAR18 = EMA(VAR17, 5);
// 计算动力和价差
动力 = VAR17;
价差 = VAR17 - VAR18;
// 条件判断OK2
OK2 = CROSS(VAR17, 15);
// 绘制柱状图
DRAWLINE(价差 > 0 AND 价差 > REF(价差, 1), VAR17, VAR18, COLOR_BLUE);
DRAWLINE(价差 > 0 AND 价差 < REF(价差, 1), VAR17, VAR18, COLOR_BLUE);
DRAWLINE(价差 < 0 AND 价差 < REF(价差, 1), VAR17, VAR18, COLOR_YELLOW);
DRAWLINE(价差 < 0 AND 价差 > REF(价差, 1), VAR17, VAR18, COLOR_YELLOW);
// 计算UP
UP = ZIGZAG(3, 10, 1);
// 绘制UP信号
DRAWLINE(UP == 1, 50, 50, COLOR_RED);
DRAWLINE(UP == 0, 50, 50, COLOR_WHITE);
// 综合条件判断OK
OK = (OK1 == 1 OR OK2 == 1) AND UP == 1;
OKOK = FILTER(OK, 5);
// 绘制OKOK信号
DRAWLINE(OKOK, 30, 70, COLOR_YELLOW); |
|