文华财经《量价得分支撑阻力》指标公式源码

参数N := 20;
参数缩量 := 0.8;
参数效率 := 1.8;
参数ATR := 14;
真实波幅1 := H - L;
真实波幅2 := ABS(H - REF(C,1));
真实波幅3 := ABS(L - REF(C,1));
最大波幅 := MAX(真实波幅1, 真实波幅2);
最终波幅 := MAX(最大波幅, 真实波幅3);
平均波幅 := MA(最终波幅, 参数ATR);
中轨值 := MA(C, 20);
上轨值 := 中轨值 + 1.5*平均波幅;
下轨值 := 中轨值 - 1.5*平均波幅;
上轨: 上轨值, COLORRED, LINETHICK1;
中轨: 中轨值, COLORYELLOW, LINETHICK1;
下轨: 下轨值, COLORGREEN, LINETHICK1;
放量阳 := REF(VOL,1) > REF(MA(VOL,参数N),1)*1.2;
收阳线 := REF(C,1) > REF(O,1);
阳实体 := REF(C,1) - REF(O,1);
缩量阴 := VOL < REF(VOL,1)*参数缩量;
收阴线 := C < O;
阴包阳 := C < REF(O,1) AND O > REF(C,1);
阳线效 := 阳实体 / REF(VOL,1) * 10000;
阴线效 := (O - C) / VOL * 10000;
阴效强 := 阴线效 > 阳线效*参数效率;
收下位 := C < (H + L)/2;
阴无影 := (C - L) < (H - O)*0.6;
空方得分 := IF(放量阳,30,0) + IF(收阳线,10,0) + IF(缩量阴,20,0) + IF(收阴线,10,0) + IF(阴包阳,10,0) + IF(阴效强,10,0) + IF(收下位 AND 阴无影,10,0);
空方极值 := MIN(空方得分,100);
空方强 := 空方极值>=80 && 阴包阳 && 阴效强;
空方普 := 空方极值>=60 && 缩量阴 && 收阴线 && 阴效强;
放量阴 := REF(VOL,1) > REF(MA(VOL,参数N),1)*1.2;
收阴线二 := REF(C,1) < REF(O,1);
阴实体 := REF(O,1) - REF(C,1);
缩量阳 := VOL < REF(VOL,1)*参数缩量;
收阳线二 := C > O;
阳包阴 := C > REF(O,1) AND O < REF(C,1);
阴线效 := 阴实体 / REF(VOL,1) * 10000;
阳线效二 := (C - O) / VOL * 10000;
阳效强 := 阳线效二 > 阴线效*参数效率;
收上沿 := C > (H + L)/2;
阳无影 := (H - C) < (O - L)*0.6;
多方得分 := IF(放量阴,30,0) + IF(收阴线二,10,0) + IF(缩量阳,20,0) + IF(收阳线二,10,0) + IF(阳包阴,10,0) + IF(阳效强,10,0) + IF(收上沿 AND 阳无影,10,0);
多方极值 := MIN(多方得分,100);
多方强 := 多方极值>=80 && 阳包阴 && 阳效强;
多方普 := 多方极值>=60 && 缩量阳 && 收阳线二 && 阳效强;
DRAWTEXT(空方强, H,'★反杀'), COLORYELLOW,FONTSIZE15;
DRAWTEXT(空方普 && NOT(空方强), H,'控空'), COLORGREEN,FONTSIZE15;
DRAWTEXT(多方强, L,'★吸筹'), COLORRED,VALIGN0,FONTSIZE15;
DRAWTEXT(多方普 && NOT(多方强), L,'控多'), COLORCYAN,VALIGN0,FONTSIZE15;
空方信号 := 空方强 OR 空方普;
多方信号 := 多方强 OR 多方普;
空阻位 := VALUEWHEN(空方信号, H);
多撑位 := VALUEWHEN(多方信号, L);
阻力线: 空阻位, COLORRED, DOT;
支撑线: 多撑位, COLORGREEN, DOT;
空开盘 := VALUEWHEN(空方信号, O);
空收盘 := VALUEWHEN(空方信号, C);
多开盘 := VALUEWHEN(多方信号, O);
多收盘 := VALUEWHEN(多方信号, C);
空中值 := (空开盘 + 空收盘)/2;
多中值 := (多开盘 + 多收盘)/2;
中枢位 := IF(空方极值>多方极值, 空中值, 多中值);
空跨度 := BARSLAST(空方信号);
多跨度 := BARSLAST(多方信号);
多方窗 := 多跨度>=1 AND 多跨度<=3 AND 多跨度<空跨度;
回踩位 := L>=多撑位*0.999 AND REF(L,1)<=多撑位*1.001;
再向上 := C>中枢位 AND C>O;
多方确 := 多方窗 && 回踩位 && 再向上;
DRAWICON(多方确 && REF(多方确,1)=0, L, 'ICO4'),VALIGN0;
空方窗 := 空跨度>=1 AND 空跨度<=3 AND 空跨度<多跨度;
反抽位 := H<=空阻位*1.001 AND REF(H,1)>=空阻位*0.999;
再向下 := C<中枢位 AND C<O;
空方确 := 空方窗 && 反抽位 && 再向下;
DRAWICON(空方确 && REF(空方确,1)=0, H, 'ICO5');
DRAWTEXT(多跨度>=1 AND 多跨度<=3 AND 多方窗, L,'回踩区'), COLORCYAN,VALIGN0,FONTSIZE15;
DRAWTEXT(空跨度>=1 AND 空跨度<=3 AND 空方窗, H,'反抽区'), COLORGREEN,FONTSIZE15;
得分显示 := IF(空方极值>多方极值, 空方极值, 多方极值);
DRAWNUMBER(ISLASTBAR, H, 得分显示, 0, COLORWHITE);