-- 作者:六窍
-- 发布时间:2017/1/12 10:48:59
-- 麻烦哪位版主和大侠帮忙!!谢谢!!!
麻烦把这个通达信的公式改成金字塔的,谢谢了!!!
攻击量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN; 攻击量A:=SUM(IF(C>REF(C,1),攻击量*V,0),FROMOPEN),COLOR0000FF,LINETHICK0; 攻击量B:=-SUM(IF(C<REF(C,1),攻击量*V,0),FROMOPEN),COLOR00FF00,LINETHICK0; 攻击流量:=攻击量A+攻击量B,COLORSTICK; 攻击比:=攻击流量/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1; 资金攻击度:=IF(攻击比>=0,(攻击比+50),100-ABS((攻击比-50))); 资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED; 资金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00; 资金出入:=资金流入+资金流出,COLORSTICK; 资金比:=资金出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1; 资金流量比:=IF(资金比>=0,(资金比+100)/2,100-ABS((资金比-100)/2)); DRAWTEXT_FIX(1,0.250,0.88,0,STRCAT(STRCAT(\'【资金流量比】\',CON2STR(资金流量比,2)),\'%买\')),COLORCYAN; DRAWTEXT_FIX(1,0.000,0.88,0,STRCAT(STRCAT(\'【资金攻击度】\',CON2STR(资金攻击度,2)),\' %买\')),COLORCYAN; XG:HHV(H,480),DOTLINE,COLORRED; STICKLINE(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,C,8,0),COLORGREEN; DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,\'突破\'),COLORYELLOW; RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1; JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1; MA1:=REF(C,JY); MA2:=REF(MA1,JY); MA3:=REF(MA2,JY); MA4:=REF(MA3,JY); MA5:=REF(MA4,JY); MA6:=REF(MA5,JY); MA7:=REF(MA6,JY); MA8:=REF(MA7,JY); MA9:=REF(MA8,JY); CK:REFDATE((C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10,DATE),COLORAC59FF,CIRCLEDOT; DRAWTEXT(ISLASTBAR,CK,\' 参考线\'),COLOR0000FF; DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3); DEA:=EMA(DIF,9); MACD1:=10*(DIF-DEA); MACD2:=EMA(MACD1,2); STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR0000B4; STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR00B400; STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR5151A2; STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR88743A; XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE)); 主力:=EXPMA(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120); 底:=1;1.02,NODRAW;高:=1.03; DRAWTEXT(CROSS(主力,1.02),C*0.999,\'-拉升\'),COLORCYAN; DRAWICON(CROSS(主力,1.04),C,24); DRAWTEXT(CROSS(主力,1.04),C*0.999,\'-冲涨停\'),COLORLIMAGENTA; A1:=(VOL/CLOSE)/3; A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0); A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0); A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0); A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0); A6:=((A2+A3)+A4)+A5; A7:=IF((BARSTATUS=2),((100*A2)/A6),0); A8:=((IF((BARSTATUS=2),((100*A3)/A6),0))); A9:=((IF((BARSTATUS=2),((100*A4)/A6),0))); A10:=((IF((BARSTATUS=2),((100*A5)/A6),0))); 机构买盘:=(A2),LINETHICK2; 机构卖盘:=(A3),LINETHICK2; 散户买盘:=(A4); 散户卖盘:=(A5); DRAWTEXT_FIX(1,0.000,1-0.05,0,STRCAT(STRCAT(\'【机构买盘】\',CON2STR(机构买盘,2)),\'万\')),COLORRED; DRAWTEXT_FIX(1,0.250,1-0.05,0,STRCAT(STRCAT(\'【机构卖盘】\',CON2STR(机构卖盘,2)),\'万\')),COLOR00FF00; DRAWTEXT_FIX(1,0.500,1-0.05,0,STRCAT(STRCAT(\'【散户买盘】\',CON2STR(散户买盘,2)),\'万\')),COLORRED; DRAWTEXT_FIX(1,0.745,1-0.05,0,STRCAT(STRCAT(\'【散户卖盘】\',CON2STR(散户卖盘,2)),\'万\')),COLOR00FF00; H1:=MAX(DYNAINFO(3),DYNAINFO(5)); L1:=MIN(DYNAINFO(3),DYNAINFO(6)); P1:=H1-L1; 阻力:=L1+P1*7/8,COLORGREEN; 支撑:=L1+P1*0.5/8,COLORMAGENTA; DRAWTEXT(LONGCROSS(支撑,C,2),C,\'买\'),COLORYELLOW; DRAWTEXT(LONGCROSS(C,阻力,2),C,\'卖\'),COLORGREEN; 量价:=(VOL/CLOSE)/3; B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0); B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0); B6:=B2+B3;DD1:=1;比:=B2/B3; BBB1:=STRCAT(STRCAT(\'买= \',CON2STR((100*B2)/B6,0)),\'%\'); BBB2:=STRCAT(STRCAT(\'卖= \',CON2STR((100*B3)/B6,0)),\'%\'); BBB3:=STRCAT(STRCAT(\'差= \',CON2STR((100*(B2-B3))/B6,0)),\'%\'); DRAWTEXT_FIX(DD1=1,0,0.70,0,BBB1),COLORRED; DRAWTEXT_FIX(DD1=1,0,0.75,0,BBB2),COLORGREEN; DRAWTEXT_FIX(DD1=1,0,0.80,0,BBB3),COLOR00FFFF;
|
-- 作者:jinzhe
-- 发布时间:2017/1/12 14:09:29
--
s1:=stricmp(marketlabel,\'SH\'); s2:=stricmp(marketlabel,\'SZ\'); HSL:IF(s1=0 or s2=0,100*VOL,VOL)/(FINANCE(7)/100);
fromopen:=todaybar; 攻击量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN; 攻击量A:=SUM(IF(C>REF(C,1),攻击量*V,0),FROMOPEN),COLOR0000FF,LINETHICK0; 攻击量B:=-SUM(IF(C<REF(C,1),攻击量*V,0),FROMOPEN),COLOR00FF00,LINETHICK0; 攻击流量:=攻击量A+攻击量B,COLORSTICK; 攻击比:=攻击流量/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1; 资金攻击度:=IF(攻击比>=0,(攻击比+50),100-ABS((攻击比-50))); 资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED; 资金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00; 资金出入:=资金流入+资金流出,COLORSTICK; 资金比:=资金出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1; 资金流量比:=IF(资金比>=0,(资金比+100)/2,100-ABS((资金比-100)/2)); DRAWTEXTex(1,0,0.250,0.88,STRCAT(STRCAT(\'【资金流量比】\',numtostr(CONST(资金流量比),2)),\'%买\')),COLORCYAN; DRAWTEXTex(1,0,0.000,0.88,STRCAT(STRCAT(\'【资金攻击度】\',numtostr(CONST(资金攻击度),2)),\' %买\')),COLORCYAN; XG:HHV(H,480),DOTLINE,COLORRED; STICKLINE(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,C,8,0),COLORGREEN; DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,\'突破\'),COLORYELLOW; RQ:=DATETOd1970(DATE)-DATETOD1970(REF(DATE,datacount-CURRBARSCOUNT))+1; JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR datacount-CURRBARSCOUNT=0)+1; MA1:=REF(C,JY); MA2:=REF(MA1,JY); MA3:=REF(MA2,JY); MA4:=REF(MA3,JY); MA5:=REF(MA4,JY); MA6:=REF(MA5,JY); MA7:=REF(MA6,JY); MA8:=REF(MA7,JY); MA9:=REF(MA8,JY); CK:REFDATE((C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10,DATE),COLORAC59FF,CIRCLEDOT; DRAWTEXT(ISLASTBAR,CK,\' 参考线\'),COLOR0000FF; DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3); DEA:=EMA(DIF,9); MACD1:=10*(DIF-DEA); MACD2:=EMA(MACD1,2); STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR0000B4; STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR00B400; STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR5151A2; STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,0),COLOR88743A; XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE)); 主力:=EMA(CLOSE/XX,20);大户:=EMA(CLOSE/XX,60);散户:=EMA(CLOSE/XX,120); 底:=1;1.02,NODRAW;高:=1.03; DRAWTEXT(CROSS(主力,1.02),C*0.999,\'-拉升\'),COLORCYAN; DRAWICON(CROSS(主力,1.04),C,24); DRAWTEXT(CROSS(主力,1.04),C*0.999,\'-冲涨停\'),COLORLIMAGENTA; A1:=(VOL/CLOSE)/3; A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0); A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0); A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0); A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0); A6:=((A2+A3)+A4)+A5; A7:=IF((BARSTATUS=2),((100*A2)/A6),0); A8:=((IF((BARSTATUS=2),((100*A3)/A6),0))); A9:=((IF((BARSTATUS=2),((100*A4)/A6),0))); A10:=((IF((BARSTATUS=2),((100*A5)/A6),0))); 机构买盘:=(A2),LINETHICK2; 机构卖盘:=(A3),LINETHICK2; 散户买盘:=(A4); 散户卖盘:=(A5); drawtextex(1,0,0.000,1-0.05,STRCAT(STRCAT(\'【机构买盘】\',numtostr(CONSt(机构买盘),2)),\'万\')),COLORRED; drawtextex(1,0,0.250,1-0.05,STRCAT(STRCAT(\'【机构卖盘】\',numtostr(CONst(机构卖盘),2)),\'万\')),COLOR00FF00; drawtextex(1,0,0.500,1-0.05,STRCAT(STRCAT(\'【散户买盘】\',numtostr(CONST(散户买盘),2)),\'万\')),COLORRED; drawtextex(1,0,0.745,1-0.05,STRCAT(STRCAT(\'【散户卖盘】\',numtostr(CONST(散户卖盘),2)),\'万\')),COLOR00FF00; H1:=MAX(DYNAINFO(3),DYNAINFO(5)); L1:=MIN(DYNAINFO(3),DYNAINFO(6)); P1:=H1-L1; 阻力:=L1+P1*7/8,COLORGREEN; 支撑:=L1+P1*0.5/8,COLORMAGENTA; DRAWTEXT(LONGCROSS(支撑,C,2),C,\'买\'),COLORYELLOW; DRAWTEXT(LONGCROSS(C,阻力,2),C,\'卖\'),COLORGREEN; 量价:=(VOL/CLOSE)/3; B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0); B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0); B6:=B2+B3;DD1:=1;比:=B2/B3; BBB1:=STRCAT(STRCAT(\'买= \',numtostr(CONSt((100*B2)/B6),0)),\'%\'); BBB2:=STRCAT(STRCAT(\'卖= \',numtostr(const((100*B3)/B6),0)),\'%\'); BBB3:=STRCAT(STRCAT(\'差= \',numtostr(const((100*(B2-B3))/B6),0)),\'%\'); DRAWTEXTex(DD1=1,0,0.70,0,BBB1),COLORRED; DRAWTEXTex(DD1=1,0,0.75,0,BBB2),COLORGREEN; DRAWTEXTex(DD1=1,0,0.80,0,BBB3),COLOR00FFFF;
|