编程思路:
A1赋值:如果收盘价>1日前的收盘价,返回成交量(手)/当前流通股本(手)*100,否则返回如果收盘价<1日前的收盘价,返回-成交量(手)/当前流通股本(手)*100,否则返回0的历史累和
成交额赋值:成交量(手)*收盘价/100,NODRAW
A2赋值:(如果((成交额/8>20)AND(收盘价>(1日前的收盘价))),返回成交额,否则返回0)的历史累和
A3赋值:(如果((成交额/8>20)AND(收盘价<(1日前的收盘价))),返回成交额,否则返回0)的历史累和
A4赋值:(如果((成交额/8<20)AND(收盘价>(1日前的收盘价))),返回成交额,否则返回0)的历史累和
A5赋值:(如果((成交额/8<20)AND(收盘价<(1日前的收盘价))),返回成交额,否则返回0)的历史累和
A6赋值:((A2+A3)+A4)+A5
A7赋值:如果(是否最后一个周期),返回((100*A2)/A6),否则返回0
A8赋值:如果(是否最后一个周期),返回((100*A3)/A6),否则返回0
A9赋值:如果(是否最后一个周期),返回((100*A4)/A6),否则返回0
A10赋值:如果(是否最后一个周期),返回((100*A5)/A6),否则返回0
输出增减仓%:A1
输出机构买盘:(A2),线宽为6,画红色
输出机构卖盘:(A3),线宽为6,COLORFFFF55
输出机构进出:机构买盘-机构卖盘,NODRAW
输出散户买盘:(A4),COLOR5555FF
输出散户卖盘:(A5),COLOR55FF55
输出强势:((100*A2)/A6>50)
当满足条件强势时,在机构买盘*1.02和机构买盘*1.1位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色
输出拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18
当满足条件拉升时,在机构买盘*1.1和机构买盘*1.2位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFF00FF
当满足条件是否最后一个周期=1时,在机构买盘*0.95位置书写文字,线宽为2,画红色
当满足条件是否最后一个周期=1时,在机构卖盘*0.95位置书写文字,线宽为2,COLORFFFF55
当满足条件机构进出>0ANDREF(机构进出,1)<=0时,在机构买盘*1.02位置书写文字,画红色
当满足条件机构进出<0ANDREF(机构进出,1)>=0时,在机构买盘*0.98位置书写文字,COLORFFFF55
公式说明:
{机构买卖}
细红线为散户买盘，细绿线为散户卖盘。
粗红线为机构买盘，粗兰线为机构卖盘。
机构买盘出现或机构买盘上穿机构卖盘时出现红字“●机买”。
机构卖盘出现或机构卖盘上穿机构买盘时出现兰字“○机卖”。
“●机构买盘”、“○机构卖盘”会一直伴随两条线至收盘。
机构买盘强势用黄柱显示，机构买盘拉升用紫柱显示。
公式源码:
A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
A9:=IF((ISLASTBAR),((100*A4)/A6),0);
A10:=IF((ISLASTBAR),((100*A5)/A6),0);
增减仓%:A1;
机构买盘:(A2),LINETHICK6,COLORRED;
机构卖盘:(A3),LINETHICK6,COLORFFFF55;
机构进出:机构买盘-机构卖盘,NODRAW;
散户买盘:(A4),COLOR5555FF;{细红线}
散户卖盘:(A5),COLOR55FF55;{细绿线}
强势:((100*A2)/A6>50);
STICKLINE(强势,机构买盘*1.02,机构买盘*1.1,1,0),COLORYELLOW;
拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,机构买盘*1.1,机构买盘*1.2,1,0),COLORFF00FF;
DRAWTEXT(ISLASTBAR=1,机构买盘*0.95,'●机构买盘'),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR=1,机构卖盘*0.95,'○机构卖盘'),LINETHICK2,COLORFFFF55;
DRAWTEXT(机构进出>0 AND REF(机构进出,1)<=0,机构买盘*1.02,'●机买'),COLORRED;
DRAWTEXT(机构进出<0 AND REF(机构进出,1)>=0,机构买盘*0.98,'○机卖'),COLORFFFF55;
联系客服
