以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  公式修改  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=181001)
--  作者：zygq
--  发布时间：2020/7/3 7:26:17
--  公式修改

老师请将下面通达信公式 改为金字塔公式，谢谢了：

 

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);
机构买:(A2),LINETHICK3,COLORRED;
机构卖:(A3),LINETHICK3,COLORGREEN;
机构进出:=机构买-机构卖,NODRAW;
散户买:(A4),COLOR5555FF;
散户卖:(A5),COLORCYAN;
散户进出:=散户买-散户卖,,COLORWHITE,NODRAW;
强势:((100*A2)/A6>50);
STICKLINE(强势,机构买*1.02,机构买*1.1,3,0),COLORYELLOW;
拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,机构买*1.1,机构买*1.2,3,0),COLORRED;
DRAWTEXT(ISLASTBAR=1,机构买*0.95,\'\'),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR=1,机构卖*0.95,\'\'),LINETHICK2,COLORFFFF55;
Q:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))),1.05,0.95);
Q2:=IF(Q=0,MA(C,BARSCOUNT(C)),(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))));
DRAWICON(CROSS((C/Q2),1.03),机构买,5);
XG:C/Q2;
DD1:=1;
AAA1:=STRCAT(STRCAT(\'机构买入\',CON2STR((100*A2)/A6,0)),\'%\');
AAA2:=STRCAT(STRCAT(\'机构卖出\',CON2STR((100*A3)/A6,0)),\'%\');
AAA0:=STRCAT(STRCAT(\'机构总买入\',CON2STR((100*(A2-A3))/A6,0)),\'%\');
AAA3:=STRCAT(STRCAT(\'散户买入\',CON2STR((100*A4)/A6,0)),\'%\');
AAA4:=STRCAT(STRCAT(\'散户卖出\',CON2STR((100*A5)/A6,0)),\'%\');
AAA5:=STRCAT(STRCAT(\'散户总买入\',CON2STR((100*(A4-A5))/A6,0)),\'%\');
DRAWTEXT_FIX(DD1=1,0.001,0.05,0,AAA1),COLORYELLOW;
DRAWTEXT_FIX(DD1=1,0.001,0.15,0,AAA2),COLORYELLOW;
DRAWTEXT_FIX(DD1=1,0.001,0.25,0,AAA3),COLORYELLOW;
DRAWTEXT_FIX(DD1=1,0.001,0.35,0,AAA4),COLORYELLOW;
DRAWTEXT_FIX(DD1=1,0.001,0.45,0,AAA0),COLORYELLOW;
DRAWTEXT_FIX(DD1=1,0.001,0.55,0,AAA5)COLORYELLOW;
主力净买额:=(机构进出+散户进出)/成交额,NODRAW;
AAA6:=STRCAT(STRCAT(\'主力净买额\',CON2STR(主力净买额,0)),\'%\');
DRAWTEXT_FIX(DD1=1,0.14,0.05,0,AAA6),COLORMAGENTA,LINETHICK1;
--  作者：FireScript
--  发布时间：2020/7/3 8:56:24
--  
 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);
机构买:(A2),LINETHICK3,COLORRED;
机构卖:(A3),LINETHICK3,COLORGREEN;
机构进出:=机构买-机构卖,NODRAW;
散户买:(A4),COLOR5555FF;
散户卖:(A5),COLORCYAN;
散户进出:=散户买-散户卖,,COLORWHITE,NODRAW;
强势:((100*A2)/A6>50);
STICKLINE(强势,机构买*1.02,机构买*1.1,3,0),COLORYELLOW;
拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,机构买*1.1,机构买*1.2,3,0),COLORRED;
DRAWTEXT(ISLASTBAR=1,机构买*0.95,\'\'),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR=1,机构卖*0.95,\'\'),LINETHICK2,COLORFFFF55;
Q:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))),1.05,0.95);
Q2:=IF(Q=0,MA(C,BARSCOUNT(C)),(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))));
DRAWICON(CROSS((C/Q2),1.03),机构买,5);
XG:C/Q2;
DD1:=1;
AAA1:=STRCAT(STRCAT(\'机构买入\',NUMTOSTR((100*A2)/A6,0)),\'%\');
AAA2:=STRCAT(STRCAT(\'机构卖出\',NUMTOSTR((100*A3)/A6,0)),\'%\');
AAA0:=STRCAT(STRCAT(\'机构总买入\',NUMTOSTR((100*(A2-A3))/A6,0)),\'%\');
AAA3:=STRCAT(STRCAT(\'散户买入\',NUMTOSTR((100*A4)/A6,0)),\'%\');
AAA4:=STRCAT(STRCAT(\'散户卖出\',NUMTOSTR((100*A5)/A6,0)),\'%\');
AAA5:=STRCAT(STRCAT(\'散户总买入\',NUMTOSTR((100*(A4-A5))/A6,0)),\'%\');

DRAWTEXTEX(DD1=1,100,1,50,AAA1),COLORYELLOW;
DRAWTEXTEX(DD1=1,1,1,150,AAA2),COLORYELLOW;
DRAWTEXTEX(DD1=1,1,1,250,AAA3),COLORYELLOW;
DRAWTEXTEX(DD1=1,1,1,350,AAA4),COLORYELLOW;
DRAWTEXTEX(DD1=1,1,1,450,AAA0),COLORYELLOW;
DRAWTEXTEX(DD1=1,1,1,550,AAA5)COLORYELLOW;
主力净买额:=(机构进出+散户进出)/成交额,NODRAW;
AAA6:=STRCAT(STRCAT(\'主力净买额\',NUMTOSTR(主力净买额,0)),\'%\');
DRAWTEXTEX(DD1=1,0.14,0.05,0,AAA6),COLORMAGENTA,LINETHICK1;