资金风向指标:快线破开盘线才提示(源码)

{取收盘价在六十五日低点与八十日高点之间的位置，再做双层平滑并取反}

QS_FASTVAL:=100-3*SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);

QS_FASTVAL_O:=100-3*SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);

{快线比昨天的开盘线更低、同时放量收阳，就是一个进场的起点}

QS_IN_SIG:=QS_FASTVAL<REF(QS_FASTVAL_O,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

DRAWTEXT(QS_IN_SIG AND COUNT(QS_IN_SIG,30)=1,15,'有大资金进 关注'),LINETHICK1,COLORFF00FF;

{用获利盘比例算一层：现价再涨一成半时，有多少筹码解套}

QS_WIN15:=WINNER(CLOSE+CLOSE*15/100)*100;

QS_WIN0:=WINNER(CLOSE+CLOSE*0/100)*100;

QS_WIN_GAP:=QS_WIN15-QS_WIN0;

{现价往下百分之十五这一段里，获利盘还剩多少}

QS_WIN_TINY:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100;

{两层获利盘都很薄、而且当天低开，说明筹码已经很干净}

QS_TINY_SIG:=QS_WIN_GAP<3 AND QS_WIN_TINY<0.5 AND OPEN!=LOW;

QS_PREV_CLOSE:=DYNAINFO(6);

QS_OPEN_POS:=IF(LOW>QS_PREV_CLOSE,0,IF(HIGH<QS_PREV_CLOSE,1,(QS_PREV_CLOSE-LOW+0.01)/(HIGH-LOW+0.01)));

{成交量除以最低价处的获利盘，得到量能强度}

QS_VOL_WIN:=VOL/WINNER(LOW);

QS_HH120:=REF(HHV(CLOSE,120),1);

QS_LL120:=REF(LLV(CLOSE,120),1);

QS_POS120:=100*(CLOSE-QS_LL120)/(QS_HH120-QS_LL120);

QS_POS_OK:=QS_OPEN_POS>0 OR QS_OPEN_POS=1;

{量能强度是三天前的三倍以上，位置还在八十分位以内}

QS_CHIP_SIG:=QS_POS_OK AND QS_VOL_WIN/REF(QS_VOL_WIN,3)>=3 AND QS_POS120<80;

QS_CHIP_PREV:=REF(QS_CHIP_SIG,1) OR REF(QS_CHIP_SIG,2) OR REF(QS_CHIP_SIG,3) OR REF(QS_CHIP_SIG,4);

{今天满足、前几天也满足，才算加仓}

QS_CHIP_ADD:=QS_CHIP_SIG AND QS_CHIP_PREV;

QS_IN_BAR:=IF(FILTER(QS_CHIP_SIG,3),5,0);

QS_ADD_BAR:=IF(FILTER(QS_CHIP_ADD,3) OR QS_TINY_SIG,10,0);

QS_IN_DAY:IF(QS_IN_BAR>0,8,DRAWNULL),COLOR00FFFF,LINETHICK3,STICK;

QS_ADD_DAY:IF(QS_ADD_BAR>0,15,DRAWNULL),COLORFF00FF,LINETHICK4,STICK;

DRAWTEXT(QS_IN_BAR,8,'资金进场');

DRAWTEXT(QS_ADD_BAR,17,'资金加仓');

{另起一段：加权价放大十倍，后面做快慢两条指数均线}

QS_HL4_10:=(CLOSE*2+HIGH+LOW)/4*10;

QS_DIF:=EMA(QS_HL4_10,13)-EMA(QS_HL4_10,34);

QS_DEA:=EMA(QS_DIF,5);

QS_BAR:=2*(QS_DIF-QS_DEA)*5.5;

QS_MAIN:QS_BAR,COLORRED,LINETHICK2;

{大盘这边换成指数，用八日区间算一条读数}

QS_IDX_RSV8:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;

QS_IDX_RSV_S:=EMA(3*QS_IDX_RSV8-2*SMA(QS_IDX_RSV8,18,1),5);

QS_IDX_POS8:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;

QS_IDX_HL4:=(INDEXC*2+INDEXH+INDEXL)/4;

QS_IDX_DIF:=EMA(QS_IDX_HL4,13)-EMA(QS_IDX_HL4,34);

QS_IDX_DEA:=EMA(QS_IDX_DIF,3);

QS_IDX_BAR:=(QS_IDX_DIF-QS_IDX_DEA)/2;

QS_CHIP_OSC:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

{第四段的起点：典型价，后面两层平均绝对偏差都用它}

QS_TP:=(HIGH+LOW+CLOSE)/3;

QS_DEV14:=(QS_TP-MA(QS_TP,14))/(0.015*AVEDEV(QS_TP,14));

QS_DEV70:=(QS_TP-MA(QS_TP,70))/(0.015*AVEDEV(QS_TP,70));

QS_TOP_EXT:=IF(QS_DEV14>=150 AND QS_DEV14<200 AND QS_DEV70>=150 AND QS_DEV70<200,10,0);

QS_EXT_SIG:=IF(QS_DEV14<=-150 AND QS_DEV14>-200 AND QS_DEV70<=-150 AND QS_DEV70>-200,-10,QS_TOP_EXT);

{再来一条十一日乖离，越接近零说明离均线越近}

QS_BIAS11:=(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100;

QS_BIAS_INV:=100-ABS(QS_BIAS11);

QS_BIAS_OK:=IF(QS_BIAS_INV<90,QS_BIAS_INV,100);

QS_CHIP_POS:=IF(QS_CHIP_OSC>0,QS_CHIP_OSC,0);

QS_EXT_SCORE:=IF(QS_DEV70>=200 AND QS_DEV14>=150,15,IF(QS_DEV70<=-200 AND QS_DEV14<=-150,-15,QS_EXT_SIG))+60;

QS_OUT_SIG:=QS_CHIP_POS>48 AND QS_EXT_SCORE>60 AND QS_BIAS_OK<100;

DRAWTEXT(QS_OUT_SIG AND COUNT(QS_OUT_SIG,30)=1,15,'大笔出货.缩量(低位)则洗.'),LINETHICK1,COLORFFCC66;

QS_T1:(QS_IN_SIG AND COUNT(QS_IN_SIG,30)=1)*28,COLORFFFFFF;

QS_T:(COUNT(QS_CHIP_SIG,30)>=3 AND COUNT(QS_CHIP_ADD,30)>=3)*38,COLORBLUE;