内蒙古露天煤矿塌方:★发多用超赢模板公式及超赢顺势主图(左右图形)公式原码 - 证券软件及数据交流区 - 理想...

★发多用超赢模板公式及超赢顺势主图(左右图形)公式原码本文来自：理想论坛 www.55188.com 作者：法华镇792 点击1898次
--------------------------------------------------------------------------------
 原文：http://www.55188.com/viewthread.php?tid=3210651
★说明:全部公式已经用雨扬老师DDE数据包接口.方便各方使用.
★共有一个模板公式,二个主图公式,二个主图公式各可分成二个图形.即方案1,方案2,
分别为三柱图,单柱图,分别为左图,右图,朋友们自行选择.左图(超赢顺势A)用于老股票,
右图(超赢顺势B)用于新股票,用键盘上下键调整.朋友们要问下部图形,因为新股票和沪市
601部分股票,银行股大部分图形压抑(不知何因),所以不发了.
★分时超赢监控原码(与日线同步,与SV资金同步)以发,见下方连接
http://www.55188.com/viewthread.php?tid=3182898&extra=page%3D3%26amp%3Bfilter%3Dtype%26amp%3Btypeid%3D47
★样图见下方.
★模板建立:在技术分析页面,鼠标右击,点'重新设计页面',鼠标下拖,在底部(沪指数上方),左击
鼠标,当出现蓝框后,在提示栏中,TOP指标前方框里打勾,保存,退出,提示页面改变,是否保存,
点'是'.完成后,复制公式,在刚的模板处右上角,点'设',在提示栏中,点'新建指标',粘贴公式,
(注意,看一下公式尾部有没有地址连接,请删除,否则通不过),将公式描述后语句粘贴在'公式
描述'中,测试通过后,●点'饼图',确认.上下左右调整即可,保存页面.★模板说明:  模板中'单数比'需L2行情,才能实时,否则盘后,'主动率'只是当天,可移动光标查看
前段时间的情况.其他有顶牛DDE,虎拓主力动向描述数据,在第一行.
圆形图左侧为卖出,右侧买入,超+大=主力,同龙虎看盘一样,开盘前一段时间会隐蔽不见.
1★★{理想监控-公式描述:■■■理想超赢分类及资金进出龙虎榜}
{TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
HS:=vol/capital;
SVOL:=SUM(VOL,1);
小单买:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)));
小单卖:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)));
中单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)));
中单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)));
大单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)));
大单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)));
特单买:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));
特单卖:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));
主单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2));
主单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2));
散户买额:=小单买*AMOUNT/10000;
散户卖额:=小单卖*AMOUNT/10000;
散户净额:=散户买额-散户卖额;
散户买量:=小单买*SVOL;
散户卖量:=小单卖*SVOL;
散户净量:=散户买量-散户卖量;
散户增减:=HS*100*(小单买-小单卖);
散户持仓:=25+SUM(散户增减,0);
散户单差:=(小单买-小单卖)*100;{散户净买比}
散户单数比:=小单卖/小单买;
中户买额:=中单买*AMOUNT/10000;
中户卖额:=中单卖*AMOUNT/10000;
中户净额:=中户买额-中户卖额;
中户买量:=中单买*SVOL;
中户卖量:=中单卖*SVOL;
中户净量:=中户买量-中户卖量;
中户增减:=HS*100*(中单买-中单卖);
中户持仓:=25+SUM(中户增减,0);
中户单差:=(中单买-中单卖)*100;{中户净买比}
中户单数比:=中单卖/中单买;
大户买额:=大单买*AMOUNT/10000;
大户卖额:=大单卖*AMOUNT/10000;
大户净额:=大户买额-大户卖额;
大户买量:=大单买*SVOL;
大户卖量:=大单卖*SVOL;
大户净量:=大户买量-大户卖量;
大户增减:=HS*100*(大单买-大单卖);
大户持仓:=25+SUM(大户增减,0);
大户单差:=(大单买-大单卖)*100;{大户净买比}
大户单数比:=大单卖/大单买;
超大买额:=特单买*AMOUNT/10000;
超大卖额:=特单卖*AMOUNT/10000;
超大净额:=超大买额-超大卖额;
超大买量:=特单买*SVOL;
超大卖量:=特单卖*SVOL;
超大净量:=超大买量-超大卖量;
超大增减:=HS*100*(特单买-特单卖);
超大持仓:=25+SUM(超大增减,0);
超大单差:=(特单买-特单卖)*100;{超大净买比}
超大单数比:=特单卖/特单买;
主力买额:=主单买*AMOUNT/10000;
主力卖额:=主单卖*AMOUNT/10000;
主力净额:=主力买额-主力卖额;
主力买量:=主单买*SVOL;
主力卖量:=主单卖*SVOL;
主力净量:=主力买量-主力卖量;
主力增减:=HS*100*(主单买-主单卖);
主力持仓:=50+SUM(主力增减,0);
主力单差:=(主单买-主单卖)*100;{主力净买比}
主力单数比:=主单卖/主单买;
超大卖额,COLOR5B5BFF;
大户卖额,COLOR00A800;
中户卖额,COLORFEDCBA;
散户卖额,COLORFFF000;
散户买额,COLORFF9911;
中户买额,COLOR999999;
大户买额,COLOR00FF00;
超大买额,COLORFF11FF;
外盘:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;
内盘:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;
主动率:=(外盘-内盘)/(内盘+外盘)*100;
通吃率:=(主单买-主单卖)*VOL/VOL*100;
{机构力道:=(主单买-主单卖)*VOL/VOL*100;}
主力介入:=(主单买-主单卖)*VOL/VOL*100;
散户跟风:=(小单买-小单卖)*VOL/VOL*100;
DRAWTEXTABS(115,4,'主动率:'+NUMTOSTRN(主动率,2)),COLORFFFFFF;
DRAWTEXTABS(195,4,'单数比:'+NUMTOSTRN(ORDER(2)/ORDER(1),2)),COLORFFFFFF;
DRAWTEXTABS(265,4,'通吃率,净买比,主力介入:'+NUMTOSTRN(通吃率,2)),COLORFFFFFF;
DRAWTEXTABS(440,4,'散户跟风:'+NUMTOSTRN(散户跟风,2)),COLORFFFFFF;
{活跃度:主力买卖占流通盘的比例}
{买卖气:主力买入占总成交量比例}
{买入力度：主力5日吸筹情况}
活跃度:=(主单买+主单卖)*VOL/CAPITAL/2*100;
买卖气:=((主单买-主单卖)*VOL/VOL)*100;
买入力度:=sum(散户增减,5)*-1;
DRAWTEXTABS(530,4,'活跃度:'+NUMTOSTRN(活跃度,2)),COLORFFFFFF;
DRAWTEXTABS(605,4,'买卖气:'+NUMTOSTRN(买卖气,2)),COLORFFFFFF;
DRAWTEXTABS(685,4,'买入力度:'+NUMTOSTRN(买入力度,2)),COLORFFFFFF;
DRAWTEXTABS( 0, 0,''+YEAR+'/'+MONTH+'/'+DAY+' '+STKNAME),COLOR00FFFF;
DRAWTEXTABS(120,20,'分  类'),COLORFFFFFF;
DRAWTEXTABS(114,37,'超'),COLORFF11FF;
DRAWTEXTABS(126,36,'大'),COLOR00FF00;
DRAWTEXTABS(139,36,'主力'),COLOR00FFFF;
DRAWTEXTABS(115,52,'■'),COLOR5B5BFF;{买}
DRAWTEXTABS(125,52,'■超大'),COLORFF11FF;{卖}
DRAWTEXTABS(115,68,'■'),COLOR00A800;{买}
DRAWTEXTABS(125,68,'■大户'),COLOR00FF00;{卖}
DRAWTEXTABS(115,84,'■'),COLORFEDCBA;{买}
DRAWTEXTABS(125,84,'■中户'),COLOR999999;{卖}
DRAWTEXTABS(115,100,'■'),COLORFFF000;{买}
DRAWTEXTABS(125,100,'■散户'),COLORFF9911;{卖}
DRAWTEXTABS(170,20,'持仓%'),COLOR1199FF;
DRAWTEXTABS(170,36,NUMTOSTRN(主力持仓,2)),COLOR1199FF;
DRAWTEXTABS(170,52,NUMTOSTRN(超大持仓,2)),COLOR1199FF;
DRAWTEXTABS(170,68,NUMTOSTRN(大户持仓,2)),COLOR1199FF;
DRAWTEXTABS(170,84,NUMTOSTRN(中户持仓,2)),COLOR1199FF;
DRAWTEXTABS(170,100,NUMTOSTRN(散户持仓,2)),COLOR1199FF;
DRAWTEXTABS(210,20,'增减%'),COLORFFFF00;
DRAWTEXTABS(210,36,NUMTOSTRN(主力增减,3)),COLORFFFF00;
DRAWTEXTABS(210,52,NUMTOSTRN(超大增减,3)),COLORFFFF00;
DRAWTEXTABS(210,68,NUMTOSTRN(大户增减,3)),COLORFFFF00;
DRAWTEXTABS(210,84,NUMTOSTRN(中户增减,3)),COLORFFFF00;
DRAWTEXTABS(210,100,NUMTOSTRN(散户增减,3)),COLORFFFF00;
DRAWTEXTABS(255,20,'净额(万)'),COLOR00FFFF;
DRAWTEXTABS(255,36,numtostrn(主力净额,2)),COLOR00FFFF;
DRAWTEXTABS(255,52,numtostrn(超大净额,2)),COLOR00FFFF;
DRAWTEXTABS(255,68,numtostrn(大户净额,2)),COLOR00FFFF;
DRAWTEXTABS(255,84,numtostrn(中户净额,2)),COLOR00FFFF;
DRAWTEXTABS(255,100,numtostrn(散户净额,2)),COLOR00FFFF;
DRAWTEXTABS(315,20,'买额(万)'),COLORFF00FF;
DRAWTEXTABS(315,36,numtostrn(主力买额,2)),COLORFF00FF;
DRAWTEXTABS(315,52,numtostrn(超大买额,2)),COLORFF00FF;
DRAWTEXTABS(315,68,numtostrn(大户买额,2)),COLORFF00FF;
DRAWTEXTABS(315,84,numtostrn(中户买额,2)),COLORFF00FF;
DRAWTEXTABS(315,100,numtostrn(散户买额,2)),COLORFF00FF;
DRAWTEXTABS(380,20,'卖额(万)'),COLOR00FF00;
DRAWTEXTABS(380,36,numtostrn(主力卖额,2)),COLOR00FF00;
DRAWTEXTABS(380,52,numtostrn(超大卖额,2)),COLOR00FF00;
DRAWTEXTABS(380,68,numtostrn(大户卖额,2)),COLOR00FF00;
DRAWTEXTABS(380,84,numtostrn(中户卖额,2)),COLOR00FF00;
DRAWTEXTABS(380,100,numtostrn(散户卖额,2)),COLOR00FF00;
DRAWTEXTABS(445,20,'净量(手)'),COLOR0099FF;
DRAWTEXTABS(445,36,numtostrn(主力净量,0)),COLOR0099FF;
DRAWTEXTABS(445,52,numtostrn(超大净量,0)),COLOR0099FF;
DRAWTEXTABS(445,68,numtostrn(大户净量,0)),COLOR0099FF;
DRAWTEXTABS(445,84,numtostrn(中户净量,0)),COLOR0099FF;
DRAWTEXTABS(445,100,numtostrn(散户净量,0)),COLOR0099FF;
DRAWTEXTABS(495,20,'买量(手)'),COLOR00FFFF;
DRAWTEXTABS(495,36,numtostrn(主力买量,0)),COLOR00FFFF;
DRAWTEXTABS(495,52,numtostrn(超大买量,0)),COLOR00FFFF;
DRAWTEXTABS(495,68,numtostrn(大户买量,0)),COLOR00FFFF;
DRAWTEXTABS(495,84,numtostrn(中户买量,0)),COLOR00FFFF;
DRAWTEXTABS(495,100,numtostrn(散户买量,0)),COLOR00FFFF;
DRAWTEXTABS(550,20,'卖量(手)'),COLORFF9922;
DRAWTEXTABS(550,36,numtostrn(主力卖量,0)),COLORFF9922;
DRAWTEXTABS(550,52,numtostrn(超大卖量,0)),COLORFF9922;
DRAWTEXTABS(550,68,numtostrn(大户卖量,0)),COLORFF9922;
DRAWTEXTABS(550,84,numtostrn(中户卖量,0)),COLORFF9922;
DRAWTEXTABS(550,100,numtostrn(散户卖量,0)),COLORFF9922;
DRAWTEXTABS(605,20,'买单比'),COLOR5B5BFF;
DRAWTEXTABS(605,36,numtostrn(SUM(主单买*100,1),1)+'%'),COLOR5B5BFF;
DRAWTEXTABS(605,52,numtostrn(SUM(特单买*100,1),1)+'%'),COLOR5B5BFF;
DRAWTEXTABS(605,68,numtostrn(SUM(大单买*100,1),1)+'%'),COLOR5B5BFF;
DRAWTEXTABS(605,84,numtostrn(SUM(中单买*100,1),1)+'%'),COLOR5B5BFF;
DRAWTEXTABS(605,100,numtostrn(SUM(小单买*100,1),1)+'%'),COLOR5B5BFF;
DRAWTEXTABS(650,20,'卖单比'),COLOR99FF99;
DRAWTEXTABS(650,36,numtostrn(SUM(主单卖*100,1),1)+'%'),COLOR99FF99;
DRAWTEXTABS(650,52,numtostrn(SUM(特单卖*100,1),1)+'%'),COLOR99FF99;
DRAWTEXTABS(650,68,numtostrn(SUM(大单卖*100,1),1)+'%'),COLOR99FF99;
DRAWTEXTABS(650,84,numtostrn(SUM(中单卖*100,1),1)+'%'),COLOR99FF99;
DRAWTEXTABS(650,100,numtostrn(SUM(小单卖*100,1),1)+'%'),COLOR99FF99;
DRAWTEXTABS(695,20,'单 差'),COLOR999EEF;
DRAWTEXTABS(695,36,numtostrn(主力单差,1)+'%'),COLOR999EEF;
DRAWTEXTABS(695,52,numtostrn(超大单差,1)+'%'),COLOR999EEF;
DRAWTEXTABS(695,68,numtostrn(大户单差,1)+'%'),COLOR999EEF;
DRAWTEXTABS(695,84,numtostrn(中户单差,1)+'%'),COLOR999EEF;
DRAWTEXTABS(695,100,numtostrn(散户单差,1)+'%'),COLOR999EEF;
DRAWTEXTABS(735,20,'单 比'),COLORFFFF99;
DRAWTEXTABS(735,36,numtostrn(主力单数比,1)+'%'),COLORFFFF99;
DRAWTEXTABS(735,52,numtostrn(超大单数比,1)+'%'),COLORFFFF99;
DRAWTEXTABS(735,68,numtostrn(大户单数比,1)+'%'),COLORFFFF99;
DRAWTEXTABS(735,84,numtostrn(中户单数比,1)+'%'),COLORFFFF99;
DRAWTEXTABS(735,100,numtostrn(散户单数比,1)+'%'),COLORFFFF99;★主图A  使用说明:公式中有(方案1,方案2),现默认方案1,三柱图(即买入,卖出,
净买).(方案2)单柱图(即净买),各有千秋,由于使用了比例,有时净买比例看不见,
看数据,如果要放大,调整最大值,将100改200,不过会压K线图,如果要(方案2).
请将(方案1)大刮号{},在'最大值'前,在'COLOR00FFFF;'引号后.去除(方案2)大刮号{},
在'最大值前',在'COLOR00FFFF;'引号后.(方案1)颜色提示:红色,买入.青色,卖出.净买
正值为紫色,负值为黄色.(方案2)颜色提示:净买,正值为紫色,负值为黄色.
也可将(方案1或方案2)移到其他主图中,注意有'variable:p1=0;'等,必须将其放在最前.2★★{超赢顺势A}variable:p1=0;
{TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);ZLLR:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2))*AMOUNT/10000;
ZLLC:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2))*AMOUNT/10000;
主净:ZLLR-ZLLC,LINETHICK0,COLOR00FFFF,PRECIS2;
主增:=(ZLLR-ZLLC)/(AMOUNT/10000)*(vol/capital)*100;
TDLR:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3))*AMOUNT/10000;
TDLC:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3))*AMOUNT/10000;
超净:TDLR-TDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
超增:=(TDLR-TDLC)/(AMOUNT/10000)*(vol/capital)*100;
DDLR:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)))*AMOUNT/10000;
DDLC:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)))*AMOUNT/10000;
大净:DDLR-DDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
大增:=(DDLR-DDLC)/(AMOUNT/10000)*(vol/capital)*100;
ZDLR:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)))*AMOUNT/10000;
ZDLC:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)))*AMOUNT/10000;
中净:ZDLR-ZDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
中增:=(ZDLR-ZDLC)/(AMOUNT/10000)*(vol/capital)*100;
XDLR:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)))*AMOUNT/10000;
XDLC:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)))*AMOUNT/10000;
散净:XDLR-XDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
散增:=(XDLR-XDLC)/(AMOUNT/10000)*(vol/capital)*100;
{超赢A方案1}
最大值:=100/(MAX(ZLLR,ZLLC,TDLC,TDLC,DDLR,DDLC,ZDLR,ZDLC,XDLR,XDLC,散净,中净,大净,超净,主净));
主力买:=0+(ZLLR*最大值);
主力卖:=0+(ZLLC*最大值);
超大买:=0+(TDLR*最大值);
超大卖:=0+(TDLC*最大值);
大户买:=0+(DDLR*最大值);
大户卖:=0+(DDLC*最大值);
中户买:=0+(ZDLR*最大值);
中户卖:=0+(ZDLC*最大值);
散户买:=0+(XDLR*最大值);
散户卖:=0+(XDLC*最大值);
散户净买:=0+(ABS(散净)*最大值);
中户净买:=0+(ABS(中净)*最大值);
大户净买:=0+(ABS(大净)*最大值);
超大净买:=0+(ABS(超净)*最大值);
主力净买:=0+(ABS(主净)*最大值);
DRAWRECTREL(0,0,100,1000,rgb(0,50,0)),color000000,LAYER1;
DRAWRECTREL(0,150,ABS(主力净买),200,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(0,50,ABS(主力买),100,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(0,100,ABS(主力卖),150,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(0,00,'主增'+NUMTOSTRN(主增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,350,ABS(超大净买),400,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(0,250,ABS(超大买),300,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(0,300,ABS(超大卖),350,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(0,200,'超增'+NUMTOSTRN(超增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,550,ABS(大户净买),600,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(0,450,ABS(大户买),500,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(0,500,ABS(大户卖),550,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(0,400,'大增'+NUMTOSTRN(大增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,750,ABS(中户净买),800,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(0,650,ABS(中户买),700,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(0,700,ABS(中户卖),750,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(0,600,'中增'+NUMTOSTRN(中增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,950,ABS(散户净买),1000,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(0,850,ABS(散户买),900,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(0,900,ABS(散户卖),950,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(0,800,'散增'+NUMTOSTRN(散增,3)+'%'),COLOR00FFFF;
{超赢A方案2}
{最大值:=100/(MAX(散净,中净,大净,超净,主净));
散户净买:=0+(ABS(散净)*最大值);
中户净买:=0+(ABS(中净)*最大值);
大户净买:=0+(ABS(大净)*最大值);
超大净买:=0+(ABS(超净)*最大值);
主力净买:=0+(ABS(主净)*最大值);
DRAWRECTREL(0,0,100,750,rgb(0,50,0)),color000000,LAYER1;
DRAWRECTREL(0,50,ABS(主力净买),150,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(0,00,'主增'+NUMTOSTRN(主增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,200,ABS(超大净买),300,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(0,150,'超增'+NUMTOSTRN(超增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,350,ABS(大户净买),450,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(0,300,'大增'+NUMTOSTRN(大增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,500,ABS(中户净买),600,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(0,450,'中增'+NUMTOSTRN(中增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(0,650,ABS(散户净买),750,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(0,600,'散增'+NUMTOSTRN(散增,3)+'%'),COLOR00FFFF;}
{成本均线}
a5:cyc(5),colorwhite,linethick1,LAYER2;
a13:cyc(13),coloryellow,linethick1,LAYER2;
a34:cyc(34),colormagenta,linethick1,LAYER2;
DRAWTEXTABS(135,5,'上涨家数:'+NUMTOSTRN(DYNAINFO(69),0)+'  下跌家数:'+NUMTOSTRN(DYNAINFO(70),0)+'  平盘家数:'+NUMTOSTRN(DYNAINFO(71),0)),COLOR00FFFF;
{TRT}
{variable:p1=0;}
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and cp1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and cSTICKLINE(p1=1 and cSTICKLINE(p1=1 and cSTICKLINE(p1=1 and cSTICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3,LAYER3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3,LAYER3;
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c>0.1,c,'持币');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盘价超过'+str(c1)+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盘价跌破'+str(min(c1,p40))+'卖出');★主图B  使用说明:公式中有(方案1,方案2),现默认方案1,三柱图(即买入,卖出,
净买).(方案2)单柱图(即净买),各有千秋,由于使用了比例,有时净买比例看不见,
看数据,如果要放大,调整最大值,将100改200,不过会压K线图,如果要(方案2).
请将(方案1)大刮号{},在'最大值'前,在'COLOR00FFFF;'引号后.去除(方案2)大刮号{},
在'最大值前',在'COLOR00FFFF;'引号后.(方案1)颜色提示:红色,买入.青色,卖出.净买
正值为紫色,负值为黄色.(方案2)颜色提示:净买,正值为紫色,负值为黄色.
也可将(方案1或方案2)移到其他主图中,注意有'variable:p1=0;'等,必须将其放在最前.3★★{超赢顺势B}
variable:p1=0;
{TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;}
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);ZLLR:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2))*AMOUNT/10000;
ZLLC:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2))*AMOUNT/10000;
主净:ZLLR-ZLLC,LINETHICK0,COLOR00FFFF,PRECIS2;
主增:=(ZLLR-ZLLC)/(AMOUNT/10000)*(vol/capital)*100;
TDLR:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3))*AMOUNT/10000;
TDLC:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3))*AMOUNT/10000;
超净:TDLR-TDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
超增:=(TDLR-TDLC)/(AMOUNT/10000)*(vol/capital)*100;
DDLR:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)))*AMOUNT/10000;
DDLC:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)))*AMOUNT/10000;
大净:DDLR-DDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
大增:=(DDLR-DDLC)/(AMOUNT/10000)*(vol/capital)*100;
ZDLR:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)))*AMOUNT/10000;
ZDLC:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)))*AMOUNT/10000;
中净:ZDLR-ZDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
中增:=(ZDLR-ZDLC)/(AMOUNT/10000)*(vol/capital)*100;
XDLR:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)))*AMOUNT/10000;
XDLC:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)))*AMOUNT/10000;
散净:XDLR-XDLC,LINETHICK0,COLOR00FFFF,PRECIS2;
散增:=(XDLR-XDLC)/(AMOUNT/10000)*(vol/capital)*100;
{超赢B方案1}
最大值:=100/(MAX(ZLLR,ZLLC,TDLR,TDLC,DDLR,DDLC,ZDLR,ZDLC,XDLR,XDLC,散净,中净,大净,超净,主净));
主力买:=1000-(ZLLR*最大值);
主力卖:=1000-(ZLLC*最大值);
超大买:=1000-(TDLR*最大值);
超大卖:=1000-(TDLC*最大值);
大户买:=1000-(DDLR*最大值);
大户卖:=1000-(DDLC*最大值);
中户买:=1000-(ZDLR*最大值);
中户卖:=1000-(ZDLC*最大值);
散户买:=1000-(XDLR*最大值);
散户卖:=1000-(XDLC*最大值);
散户净买:=1000-(ABS(散净)*最大值);
中户净买:=1000-(ABS(中净)*最大值);
大户净买:=1000-(ABS(大净)*最大值);
超大净买:=1000-(ABS(超净)*最大值);
主力净买:=1000-(ABS(主净)*最大值);
DRAWRECTREL(1000,0,900,1000,rgb(0,50,0)),color000000,LAYER1;
DRAWRECTREL(1000,150,ABS(主力净买),200,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(1000,50,ABS(主力买),100,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(1000,100,ABS(主力卖),150,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(900,00,'主增'+NUMTOSTRN(主增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,350,ABS(超大净买),400,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(1000,250,ABS(超大买),300,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(1000,300,ABS(超大卖),350,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(900,200,'超增'+NUMTOSTRN(超增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,550,ABS(大户净买),600,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(1000,450,ABS(大户买),500,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(1000,500,ABS(大户卖),550,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(900,400,'大增'+NUMTOSTRN(大增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,750,ABS(中户净买),800,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(1000,650,ABS(中户买),700,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(1000,700,ABS(中户卖),750,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(900,600,'中增'+NUMTOSTRN(中增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,950,ABS(散户净买),1000,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWRECTREL(1000,850,ABS(散户买),900,RGB(200,0,0)),COLOR000000,LAYER0;
DRAWRECTREL(1000,900,ABS(散户卖),950,RGB(0,220,0)),COLOR000000,LAYER0;
DRAWTEXTREL(900,800,'散增'+NUMTOSTRN(散增,3)+'%'),COLOR00FFFF;
{超赢B方案2}
{最大值:=100/(MAX(散净,中净,大净,超净,主净));
散户净买:=1000-(ABS(散净)*最大值);
中户净买:=1000-(ABS(中净)*最大值);
大户净买:=1000-(ABS(大净)*最大值);
超大净买:=1000-(ABS(超净)*最大值);
主力净买:=1000-(ABS(主净)*最大值);
DRAWRECTREL(1000,0,900,750,rgb(0,50,0)),color000000,LAYER1;
DRAWRECTREL(1000,50,ABS(主力净买),150,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(900,00,'主增'+NUMTOSTRN(主增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,200,ABS(超大净买),300,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(900,150,'超增'+NUMTOSTRN(超增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,350,ABS(大户净买),450,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(900,300,'大增'+NUMTOSTRN(大增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,500,ABS(中户净买),600,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(900,450,'中增'+NUMTOSTRN(中增,3)+'%'),COLOR00FFFF;
DRAWRECTREL(1000,650,ABS(散户净买),750,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER0;
DRAWTEXTREL(900,600,'散增'+NUMTOSTRN(散增,3)+'%'),COLOR00FFFF;}
{成本均线}
a5:cyc(5),colorwhite,linethick1,PRECIS2;
a13:cyc(13),coloryellow,linethick1,PRECIS2;
a34:cyc(34),colormagenta,linethick1,PRECIS2;
DRAWTEXTABS(135,5,'上涨家数:'+NUMTOSTRN(DYNAINFO(69),0)+'  下跌家数:'+NUMTOSTRN(DYNAINFO(70),0)+'  平盘家数:'+NUMTOSTRN(DYNAINFO(71),0)),COLOR00FFFF;
{TRT}
{variable:p1=0;}
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and cp1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and cSTICKLINE(p1=1 and cSTICKLINE(p1=1 and cSTICKLINE(p1=1 and cSTICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c>0.1,c,'持币');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盘价超过'+str(c1)+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盘价跌破'+str(min(c1,p40))+'卖出');[ 本帖最后由 法华镇792 于 2009-12-3 11:53 编辑 ]
附件
 2009-12-02_184650.jpg (532.52 KB)
2009-12-3 08:26 T1  2009-12-02_185948.jpg (517.61 KB)
2009-12-3 08:26 T2  2009-12-02_190903.jpg (500.41 KB)
2009-12-3 08:26 T3  2009-12-03_052813.jpg (529.71 KB)
2009-12-3 08:26 T4  2009-12-03_054211.jpg (471.79 KB)
2009-12-3 08:26 T5
　原文链接：http://www.55188.com/viewthread.php?tid=3210651 　原文链接：http://www.55188.com/viewthread.php?tid=3210651