N:=4;N1:=20;N2:=100;
涨停:=(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 AND REF(BIDVOL(1),1)>0;
跌停:=(BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 AND REF(ASKVOL(1),1)>0;
买入:=IF(跌停,SELLVOL,IF(涨停=0,BUYVOL,0));
卖出:=IF(涨停,BUYVOL,IF(跌停=0,SELLVOL,0));
主买:=SUM(买入,0);
主卖:=SUM(卖出,0);
净买:主买-主卖,LINETHICK0;
中单:=10000*N/C/100;
大单:=10000*N1/C/100;
特大单:=10000*N2/C/100;
主买中单:=IF(买入>=中单 AND 买入<大单,买入,0);
主卖中单:=IF(卖出>=中单 AND 卖出<大单,卖出,0);
中单买:=SUM(主买中单,0);
中单卖:=SUM(主卖中单,0);
净中单:中单买-中单卖,LINETHICK0;
主买大单:=IF(买入>=大单 AND 买入<特大单,买入,0);
主卖大单:=IF(卖出>=大单 AND 卖出<特大单,卖出,0);
大单买:=SUM(主买大单,0);
大单卖:=SUM(主卖大单,0);
净大单:大单买-大单卖,LINETHICK0;
主买特大单:=IF(买入>=特大单,买入,0);
主卖特大单:=IF(卖出>=特大单,卖出,0);
特大单买:=SUM(主买特大单,0);
特大单卖:=SUM(主卖特大单,0);
净特大单:特大单买-特大单卖,LINETHICK0;
主买小单:=IF(买入<中单,买入,0);
主卖小单:=IF(卖出<中单,卖出,0);
小单买:=SUM(主买小单,0);
小单卖:=SUM(主卖小单,0);
净小单:小单买-小单卖,LINETHICK0;
用分笔数据生成净买、净中单、净大单、净特大单及净小单五个扩展数据,设置扩展数据唐老师的贴中已有说明。(净小单可以不生成扩展数据,在持仓量公式中用 小单:=净增-净中单-净大单-净特大单;来替代,这样就少生成一个扩展数据)
看到下面有人问扩展数据生成,工具--扩展数据管理--点击(空)--修改--选择大单指标--选用分笔数据--净买--除权方式--确定,
自用持仓量公式:{公式中的扩展数据序号是按照我自已的扩展数据来排的,需要此公式的已有扩展数据的自已调整序号}
DRAWGBKLAST(DATE>900101,STRIP(RGB(65,65,65),RGB(0,0,0),0));
净增:EXTDATA(3),LINETHICK0;{这里对应净买扩展数据序号,请自行修改}
中单:=EXTDATA(6);{这里对应净中单扩展数据序号,请自行修改}
大单:=EXTDATA(9);{这里对应净大单扩展数据序号,请自行修改}
特大单:=EXTDATA(12);{这里对应净特大单扩展数据序号,请自行修改}
小单:=EXTDATA(15);{这里对应净小单扩展数据序号,请自行修改,不生成此项扩展的用 小单:=净增-净中单-净大单-净特大单;这句来替换}
散户:小单,COLORFFFF00,LINETHICK0;
中户:中单,COLOR09BAFD,LINETHICK0;
大户:大单,COLORRED,LINETHICK0;
机构:特大单,COLOR9F009F,LINETHICK0;
STICKLINE(散户>0,0,散户,8,0),COLOR303000;
STICKLINE(散户>0,0,散户,7,0),COLOR353500;
STICKLINE(散户>0,0,散户,6,0),COLOR404000;
STICKLINE(散户>0,0,散户,5,0),COLOR454500;
STICKLINE(散户>0,0,散户,4,0),COLOR525200;
STICKLINE(散户>0,0,散户,3,0),COLOR595900;
STICKLINE(散户>0,0,散户,2,0),COLOR666600;
STICKLINE(散户>0,0,散户,1,0),COLOR737300;
STICKLINE(散户>0,0,散户,0,0),COLOR929200;
STICKLINE(散户<0,0,散户,8,0),COLOR303000;
STICKLINE(散户<0,0,散户,7,0),COLOR353500;
STICKLINE(散户<0,0,散户,6,0),COLOR404000;
STICKLINE(散户<0,0,散户,5,0),COLOR454500;
STICKLINE(散户<0,0,散户,4,0),COLOR525200;
STICKLINE(散户<0,0,散户,3,0),COLOR595900;
STICKLINE(散户<0,0,散户,2,0),COLOR666600;
STICKLINE(散户<0,0,散户,1,0),COLOR737300;
STICKLINE(散户<0,0,散户,0,0),COLOR929200;
AA1:=IF(散户>0,散户,IF(散户<0,0,IF(散户>0,散户+中户,中户)));
AA2:=IF(散户>0,散户+中户,IF(散户<0,中户,IF(散户>0,散户,0)));
STICKLINE(中户>0,AA1,AA2,8,0),COLOR023D53;
STICKLINE(中户>0,AA1,AA2,7,0),COLOR024D68;
STICKLINE(中户>0,AA1,AA2,6,0),COLOR025473;
STICKLINE(中户>0,AA1,AA2,5,0),COLOR025A7B;
STICKLINE(中户>0,AA1,AA2,4,0),COLOR026286;
STICKLINE(中户>0,AA1,AA2,3,0),COLOR02688E;
STICKLINE(中户>0,AA1,AA2,2,0),COLOR026F97;
STICKLINE(中户>0,AA1,AA2,1,0),COLOR027EAE;
STICKLINE(中户>0,AA1,AA2,0,0),COLOR018DC2;
AA3:=IF(散户<0,散户,IF(散户>0,0,IF(散户<0,散户+中户,中户)));
AA4:=IF(散户<0,散户+中户,IF(散户>0,中户,IF(散户<0,散户,0)));
STICKLINE(中户<0,AA3,AA4,8,0),COLOR023D53;
STICKLINE(中户<0,AA3,AA4,7,0),COLOR024D68;
STICKLINE(中户<0,AA3,AA4,6,0),COLOR025473;
STICKLINE(中户<0,AA3,AA4,5,0),COLOR025A7B;
STICKLINE(中户<0,AA3,AA4,4,0),COLOR026286;
STICKLINE(中户<0,AA3,AA4,3,0),COLOR02688E;
STICKLINE(中户<0,AA3,AA4,2,0),COLOR026F97;
STICKLINE(中户<0,AA3,AA4,1,0),COLOR027EAE;
STICKLINE(中户<0,AA3,AA4,0,0),COLOR018DC2;
AA5:=IF(中户>0 AND 散户>0,散户+中户,IF(中户>0 AND 散户<0,中户,IF(中户<0 AND 散户>0,散户,IF(中户<0 AND 散户<0,0,IF(中户>0 AND 散户>0,散户+中户+大户,IF(中户>0 AND 散户<0,中户+大户,IF(中户<0 AND 散户>0,散户+大户,大户)))))));
AA6:=IF(中户>0 AND 散户>0,散户+中户+大户,IF(中户>0 AND 散户<0,中户+大户,IF(中户<0 AND 散户>0,散户+大户,IF(中户<0 AND 散户<0,大户,IF(中户>0 AND 散户>0,散户+中户,IF(中户>0 AND 散户<0,中户,IF(中户<0 AND 散户>0,散户,0)))))));
STICKLINE(大户>0,AA5,AA6,8,0),COLOR000042;
STICKLINE(大户>0,AA5,AA6,7,0),COLOR000055;
STICKLINE(大户>0,AA5,AA6,6,0),COLOR000064;
STICKLINE(大户>0,AA5,AA6,5,0),COLOR000075;
STICKLINE(大户>0,AA5,AA6,4,0),COLOR000086;
STICKLINE(大户>0,AA5,AA6,3,0),COLOR000094;
STICKLINE(大户>0,AA5,AA6,2,0),COLOR0000AA;
STICKLINE(大户>0,AA5,AA6,1,0),COLOR0000BB;
STICKLINE(大户>0,AA5,AA6,0,0),COLOR1717FF;
AA7:=IF(中户<0 AND 散户<0,散户+中户,IF(中户<0 AND 散户>0,中户,IF(中户>0 AND 散户<0,散户,IF(中户>0 AND 散户>0,0,IF(中户<0 AND 散户<0,散户+中户+大户,IF(中户<0 AND 散户>0,中户+大户,IF(中户>0 AND 散户<0,散户+大户,大户)))))));
AA8:=IF(中户<0 AND 散户<0,散户+中户+大户,IF(中户<0 AND 散户>0,中户+大户,IF(中户>0 AND 散户<0,散户+大户,IF(中户>0 AND 散户>0,大户,IF(中户<0 AND 散户<0,散户+中户,IF(中户<0 AND 散户>0,中户,IF(中户>0 AND 散户<0,散户,0)))))));
STICKLINE(大户<0,AA7,AA8,8,0),COLOR000042;
STICKLINE(大户<0,AA7,AA8,7,0),COLOR000055;
STICKLINE(大户<0,AA7,AA8,6,0),COLOR000064;
STICKLINE(大户<0,AA7,AA8,5,0),COLOR000075;
STICKLINE(大户<0,AA7,AA8,4,0),COLOR000086;
STICKLINE(大户<0,AA7,AA8,3,0),COLOR000094;
STICKLINE(大户<0,AA7,AA8,2,0),COLOR0000AA;
STICKLINE(大户<0,AA7,AA8,1,0),COLOR0000BB;
STICKLINE(大户<0,AA7,AA8,0,0),COLOR1717FF;
AA9:=IF(大户>0 AND 中户>0 AND 散户>0,散户+中户+大户,IF(大户<0 AND 中户>0 AND 散户>0,散户+中户,IF(大户>0 AND 中户<0 AND 散户>0,散户+大户,IF(大户>0 AND 中户>0 AND 散户<0,中户+大户,IF(大户<0 AND 中户<0 AND 散户>0,散户,IF(大户>0 AND 中户<0 AND 散户<0,大户,IF(大户<0 AND 中户>0 AND 散户<0,中户,0)))))));
AA10:=IF(大户>0 AND 中户>0 AND 散户>0,散户+中户+大户+机构,IF(大户<0 AND 中户>0 AND 散户>0,散户+中户+机构,IF(大户>0 AND 中户<0 AND 散户>0,散户+大户+机构,IF(大户>0 AND 中户>0 AND 散户<0,中户+大户+机构,IF(大户<0 AND 中户<0 AND 散户>0,散户+机构,IF(大户>0 AND 中户<0 AND 散户<0,大户+机构,IF(大户<0 AND 中户>0 AND 散户<0,中户+机构,机构)))))));
STICKLINE(机构>0,AA9,AA10,8,0),COLOR300030;
STICKLINE(机构>0,AA9,AA10,7,0),COLOR350035;
STICKLINE(机构>0,AA9,AA10,6,0),COLOR400040;
STICKLINE(机构>0,AA9,AA10,5,0),COLOR450045;
STICKLINE(机构>0,AA9,AA10,4,0),COLOR520052;
STICKLINE(机构>0,AA9,AA10,3,0),COLOR590059;
STICKLINE(机构>0,AA9,AA10,2,0),COLOR650065;
STICKLINE(机构>0,AA9,AA10,1,0),COLOR730073;
STICKLINE(机构>0,AA9,AA10,0,0),COLOR980098;
AA11:=IF(大户<0 AND 中户<0 AND 散户<0,散户+中户+大户,IF(大户>0 AND 中户<0 AND 散户<0,散户+中户,IF(大户<0 AND 中户>0 AND 散户<0,散户+大户,IF(大户<0 AND 中户<0 AND 散户>0,中户+大户,IF(大户>0 AND 中户>0 AND 散户<0,散户,IF(大户<0 AND 中户>0 AND 散户>0,大户,IF(大户>0 AND 中户<0 AND 散户>0,中户,0)))))));
AA12:=IF(大户<0 AND 中户<0 AND 散户<0,散户+中户+大户+机构,IF(大户>0 AND 中户<0 AND 散户<0,散户+中户+机构,IF(大户<0 AND 中户>0 AND 散户<0,散户+大户+机构,IF(大户<0 AND 中户<0 AND 散户>0,中户+大户+机构,IF(大户>0 AND 中户>0 AND 散户<0,散户+机构,IF(大户<0 AND 中户>0 AND 散户>0,大户+机构,IF(大户>0 AND 中户<0 AND 散户>0,中户+机构,机构)))))));
STICKLINE(机构<0,AA11,AA12,8,0),COLOR300030;
STICKLINE(机构<0,AA11,AA12,7,0),COLOR350035;
STICKLINE(机构<0,AA11,AA12,6,0),COLOR400040;
STICKLINE(机构<0,AA11,AA12,5,0),COLOR450045;
STICKLINE(机构<0,AA11,AA12,4,0),COLOR520052;
STICKLINE(机构<0,AA11,AA12,3,0),COLOR590059;
STICKLINE(机构<0,AA11,AA12,2,0),COLOR660066;
STICKLINE(机构<0,AA11,AA12,1,0),COLOR730073;
STICKLINE(机构<0,AA11,AA12,0,0),COLOR980098;
S3:=SUM(散户,3);
Z3:=SUM(中户,3);
D3:=SUM(大户,3);
J3:=SUM(机构,3);
S5:=SUM(散户,5);
Z5:=SUM(中户,5);
D5:=SUM(大户,5);
J5:=SUM(机构,5);
S10:=SUM(散户,10);
Z10:=SUM(中户,10);
D10:=SUM(大户,10);
J10:=SUM(机构,10);
S20:=SUM(散户,20);
Z20:=SUM(中户,20);
D20:=SUM(大户,20);
J20:=SUM(机构,20);
DRAWRECTREL(0,0,315,1000,RGB(30,30,30));
DRAWTEXTREL(10,50,'今日'),COLORDDFFFF;
DRAWTEXTREL(45,50,NUMTOSTRN(散户,0)),COLORFFFF00;
DRAWTEXTREL(105,50,NUMTOSTRN(中户,0)),COLOR09BAFD;
DRAWTEXTREL(165,50,NUMTOSTRN(大户,0)),COLORRED;
DRAWTEXTREL(235,50,NUMTOSTRN(机构,0)),COLOR9F009F;
DRAWTEXTREL(10,290,'三日'),COLORDDFFFF;
DRAWTEXTREL(45,290,NUMTOSTRN(S3,0)),COLORFFFF00;
DRAWTEXTREL(105,290,NUMTOSTRN(Z3,0)),COLOR09BAFD;
DRAWTEXTREL(165,290,NUMTOSTRN(D3,0)),COLORRED;
DRAWTEXTREL(235,290,NUMTOSTRN(J3,0)),COLOR9F009F;
DRAWTEXTREL(10,550,'五日'),COLORDDFFFF;
DRAWTEXTREL(45,550,NUMTOSTRN(S5,0)),COLORFFFF00;
DRAWTEXTREL(105,550,NUMTOSTRN(Z5,0)),COLOR09BAFD;
DRAWTEXTREL(165,550,NUMTOSTRN(D5,0)),COLORRED;
DRAWTEXTREL(235,550,NUMTOSTRN(J5,0)),COLOR9F009F;
DRAWTEXTREL(10,770,'十日'),COLORDDFFFF;
DRAWTEXTREL(45,770,NUMTOSTRN(S10,0)),COLORFFFF00;
DRAWTEXTREL(105,770,NUMTOSTRN(Z10,0)),COLOR09BAFD;
DRAWTEXTREL(165,770,NUMTOSTRN(D10,0)),COLORRED;
DRAWTEXTREL(235,770,NUMTOSTRN(J10,0)),COLOR9F009F;
柱状输出的逻辑排列费了一个多小时边排边写,中间曾经忘排了两个逻辑辑出形态,又检测了两遍才找出来。郁闷!!
自用主力监控(横向统计公式,生成自定义数据.用于统计A股增仓主力动态,以此区分大盘趋势)
VAR1:=EXTDATA(3)>0;{对应净买扩展数据序号}
VAR2:=EXTDATA(3)<0;{对应净买扩展数据序号}
仓位:=IF(VAR1,1,IF(VAR2,-1,0));
增仓:IF(仓位=1 AND V>1,1,0);
减仓:IF(仓位=-1 AND V>1,1,0);
生成增仓、减仓两个自定义数据
新建自定义数据-->名称:增仓 属性:无关序列值 描述:主力监控 与指标横向统计关联-->再点指标--全部A股--选择指向主力监控指标--分析周期:日线 指标线:增仓.然后一路确定
减仓照上法添加
主力监控(副图)
DRAWGBKLAST(DATE>900101,STRIP(RGB(65,65,65),RGB(0,0,0),0));
流入:=SUM(SELFDATA('增仓'),3);
流出:=SUM(SELFDATA('减仓'),3);
总流:=流入+流出;
增仓:=流入/总流*100;
减仓:=流出/总流*100;
FILLRGN(增仓,50,增仓>减仓,RGB(155,50,50));
FILLRGN(减仓,50,减仓>增仓,RGB(0,100,50));
主力进:增仓,COLORRED;
主力出:减仓,COLORGREEN;
STICKLINE(C>0,50,50,6,0),COLORYELLOW;
两个公式必须有分笔生成的扩展数据才能显示,分笔数据智慧之家有人提供下载,需要的可自行去下载,以后的扩展自行收盘就可以,但刷扩展需要很长时间,很郁闷
[ 本帖最后由 秀山腾龙 于 2009-1-11 11:01 编辑 ]