ARTICLE · 1083295
区间位置加权,触轨买点副图源码

{核心计算:区间位置 / 随机值 / 乖离 / 成本均线四组读数各自平滑后加权成一条主线}
QS_POS100:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*200;
QS_POS100S3:=SMA(QS_POS100,3,1);
QS_POS100S9:=SMA(QS_POS100S3,3,1);
QS_POS100K:=3*QS_POS100S3-2*QS_POS100S9;
QS_LOW5:=LLV(LOW,5);
QS_HIGH5:=HHV(HIGH,5);
QS_RSV5E:=EMA((CLOSE-QS_LOW5)/(QS_HIGH5-QS_LOW5)*100,4)*2;
QS_RSV5ES:=EMA(0.667*REF(QS_RSV5E,1)+0.333*QS_RSV5E,2);
QS_RSV5K:=3*QS_RSV5E-2*QS_RSV5ES;
QS_PW2C5:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
QS_PW2L5:=POW(MA(LOW,5),2)+MA(LOW,5);
QS_PW2H5:=POW(MA(HIGH,5),2)+MA(HIGH,5);
QS_RNG64:=(QS_PW2C5-LLV(QS_PW2L5,64))/(HHV(QS_PW2H5,64)-LLV(QS_PW2L5,64))*150+65-10;
QS_RNG64A:=SMA(QS_RNG64,3,1)*1.5-100;
QS_RNG64S:=SMA(QS_RNG64A,3,1);
QS_RNG64K:=3*QS_RNG64A-2*QS_RNG64S;
QS_TP2:=(HIGH+LOW+CLOSE*2)/4;
QS_TP2E13:=EMA(QS_TP2,13);
QS_TP2D13:=STD(QS_TP2,13);
QS_TP2Z:=(QS_TP2-QS_TP2E13)*100/QS_TP2D13;
QS_TP2Z5:=EMA(QS_TP2Z,5);
QS_TP2Z13:=EMA(QS_TP2Z5,13);
QS_TP2ZP:=EMA(QS_TP2Z5,13)+200-100;
QS_TP2ZP10:=EMA(QS_TP2ZP,10);
QS_TP2ZPK:=3*QS_TP2ZP-2*QS_TP2ZP10;
QS_MIXA:=QS_POS100S3+QS_RSV5E+QS_RNG64A+QS_TP2ZP;
QS_MIXB:=QS_POS100S9+QS_RSV5ES+QS_RNG64S+QS_TP2ZP10;
QS_MIXC:=QS_POS100K+QS_RSV5K+QS_RNG64K+QS_TP2ZPK;
QS_TP3:=(HIGH+LOW+CLOSE)/3;
QS_VWAP:=AMOUNT/VOL/100;
QS_VWAP5:=SUM(AMOUNT,5)/SUM(VOL,5)/100;
QS_BIAS34:=(QS_TP3-MA(QS_TP3,34))/(0.015*AVEDEV(QS_TP3,34));
QS_VWDMA:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
QS_TP4:=(HIGH+LOW+CLOSE+QS_TP3)/4;
QS_TP4E24:=EMA(QS_TP4,24);
QS_TP4D24:=STD(QS_TP4,24);
QS_TP4Z:=(QS_TP4-QS_TP4E24)/QS_TP4D24 * 100;
QS_BIAS24:=(QS_TP3-MA(QS_TP3,24))/(0.015*AVEDEV(QS_TP3,24));
QS_TP4Z5:=EMA(QS_TP4Z,5);
QS_VWB21:=(QS_VWAP-MA(QS_VWAP,21))/(0.015*AVEDEV(QS_VWAP,21));
QS_VW5B90:=(QS_VWAP5-MA(QS_VWAP5,90))/(0.015*AVEDEV(QS_VWAP5,90));
QS_AVGA:=((QS_VW5B90+QS_VWB21+QS_TP4Z5+QS_BIAS24+QS_BIAS34)/5+165)/4;
QS_AVGB:=(QS_MIXA+QS_MIXB+QS_MIXC*30)/32/5-15;
QS_MAIN:=(QS_AVGA+QS_AVGB)/2/1.1;
{轨道:主线的 26 日均值为中轨,上下各加减两个标准差}
QS_SHORT:=QS_MAIN;
QS_MID:=MA(QS_SHORT,26);
QS_UPPER:=QS_MID+2*STD(QS_SHORT,26);
QS_LOWER:=QS_MID-2*STD(QS_SHORT,26);
{买点:主线由下向上穿过中轨时算一次触发}
{原文此处另画一个图标标记买点,交付版只保留信号本身}
QS_BUY:=CROSS(QS_SHORT, QS_MID);
{末行输出 1 代表触发、0 代表未触发}
{下面四个过滤器原文定义了却没接进输出,属备用件}
XG: QS_BUY;
{可选过滤组合:剔 ST、剔停牌、要求放量、要求价位合适}
QS_NOTST:=NOT(NAMELIKE('ST') OR NAMELIKE('*ST'));
QS_NOTSTOP:=DYNAINFO(4)>0;
QS_VOLUP:=VOL>MA(VOL,5)*1.2; {成交量为 5 日均量的 1.2 倍以上}
QS_POSOK:=CLOSE>MA(CLOSE,20) AND CLOSE<MA(CLOSE,60); {站在 20 日均线上方,但仍在 60 日均线之下}
{把它接进输出就得到过滤版;原文以此注释形式保留};
