通达信变色分时主图指标 源码 贴图
图片
图片
M:=8;获利比例:=WINNER(C)*100,NODRAW;基点:=获利比例>50 AND 获利比例<59,NODRAW;选:IF(REF(基点,1)=1,C>REF(H,1),IF(REF(获利比例,1)<=50,C>REF(REF(H,BARSLAST(基点)),1),0))AND BARSLAST(基点)<M AND REF(BARSLAST(基点),1)<M-1,NODRAW;筹码参数:=TOTALCAPITAL*100/FINANCE(46) NODRAW;筹码获利率:=WINNER(C)*100 NODRAW;TTT:=DRAWSL(基点,H,0,IF(REFX(BARSNEXT(基点),1)=DRAWNULL,CURRBARSCOUNT,REFX(BARSNEXT(基点),1)+1),0)COLORBLUE,LINETHICK2;A:=WINNER(C)*100;B:=BETWEEN(A,50,59);Q1:=BACKSET(BARSTATUS=2,BARSLAST(B)+1);前期:=Q1>REF(Q1,1);向右水平线:=REF(H,BARSLAST(前期))COLORBLUE,LINETHICK2;E:=(HIGH+LOW+OPEN+2*CLOSE)/5;分时底:LLV(L,380),COLORGREEN,POINTDOT,NODRAW;最新:C,COLORWHITE,NODRAW;IF( C>=REF(TTT,1),C,DRAWNULL),LINETHICK2,COLORCYAN;IF( C>=REF(向右水平线,1) ,C,DRAWNULL),LINETHICK2,COLORRED;IF( C<=REF(分时底,1),C,DRAWNULL),LINETHICK2,COLORGREEN;量价:=(VOL/CLOSE)/3;A2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);A3:=SUM((IF(((量价>0.20) AND (CLOSE< (REF(CLOSE,1)))),量价,0)),0);A6:=A2+A3;DD1:=1;比:=A2/A3;AA1:=STRCAT(STRCAT('买= ',CON2STR((100*A2)/A6,0)),' ');AA2:=STRCAT(STRCAT('卖= ',CON2STR((100*A3)/A6,0)),' ');AA3:=STRCAT(STRCAT('差= ',CON2STR((100*(A2-A3))/A6,0)),' ');DRAWTEXT_FIX(DD1=1,0.8,0.87,0,AA1),COLORRED;DRAWTEXT_FIX(DD1=1,0.8,0.92,0,AA2),COLORGREEN;DRAWTEXT_FIX(DD1=1,0.8,0.99,0,AA3),COLOR00FFFF;现价:=C,COLORWHITE,LINETHICK2;均价11:=SUM(C*V,240)/SUM(V,240),COLORRED,LINETHICK2;TT:=BARSCOUNT(C);前高:=REF(HHV(H,TT),1);突破:=CROSS(C,REF(HHV(H,TT),1)) AND C/均价11<1.09 AND TT>1 AND TT<240;王力扫盘:=COUNT(突破,13)>=3 AND CROSS(C,REF(HHV(H,TT),1));已王力扫盘:=BARSLAST(王力扫盘)<13;HJ_2:=DYNAINFO(4)>0 AND HHV(HIGH,2)/LLV(LOW,2)<1.25 AND REF(CLOSE,1)<LLV(LOW,3)+(HHV(HIGH,3)-LLV(LOW,3))*0.85;HJ_9:=EMA(CLOSE,2);HJ_10:=EMA(CLOSE,3);HJ_11:=MAX(HJ_9,HJ_10);X2:=CLOSE>HJ_11AND HJ_2 AND (CLOSE>REF(HHV(HIGH,2),1) AND(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.015) AND (V/CAPITAL<=0.2) ANDC/REF(C,1)<1.07;NX:=MA(((SLOPE(C,20)*5)+C),10);{中枢}B1:=HOUR=09 AND MINUTE=45;B20:=LLV(L,15);B30:=BARSLAST(B1);B4:=REF(B20,B30);B5:=CONST(B4),COLORFF80FF,CIRCLEDOT,LINETHICK2;C1:=HOUR=09 AND MINUTE=45;C2:=HHV(H,15);C3:=BARSLAST(C1);C4:=REF(C2,C3);C5:=CONST(C4),COLORFF80FF,CIRCLEDOT,LINETHICK2;DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA:=EMA(DIF,9);MACD10:=(DIF-DEA)*2;AA0:=MACD10>00 AND DIF>0 AND DEA>0;A100:=HOUR=10 AND MINUTE=0;A20:=HHV(H,30);A30:=BARSLAST(A100);A40:=REF(A20,A30);A50:=CONST(A40);A80:=CLOSE>A50 AND REF(C<=A50,1) AND CLOSE>NX;AB:=FILTER(A80,100);A90:=DYNAINFO(3);AC:=CLOSE<=A90*1.04 AND CLOSE>A90;量比:=V/REF(MA(V,5),1);XG:=AA0 AND AB AND AC AND A40>A90 AND 量比>=1;HJ_4:=CLOSE;HJ_5:=(CLOSE-REF(CLOSE,5))/REF(CLOSE,5);BAB1:=STICKLINE(HJ_5>0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_5),0.1,0);BAB2:=STICKLINE(HJ_5<0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_5),0.1,0);HJ_6:=CLOSE/DYNAINFO(3);HJ_7:=FILTER(HJ_5>0.015 AND HJ_5>REF(HJ_5,1)*2 AND VOL>REF(VOL,1)*2 AND CLOSE>REF(CLOSE,1) OR HJ_5>0.025,240);H1:=MAX(DYNAINFO(3),DYNAINFO(5));L1:=MIN(DYNAINFO(3),DYNAINFO(6));P1:=H1-L1;阻力:L1+P1*8/9,COLORLIRED,DOTLINE;支撑:L1+P1*0.5/9,COLORGREEN,DOTLINE;DRAWTEXT(FILTER(CROSS(C,支撑),240),L-0.01,'吸筹'),COLOR0000FF;DRAWTEXT(FILTER(CROSS(阻力,C),240),H-0.01,'压'),COLOR0000FF;WA1:=V*C/100;WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);JG买盘:=(WA2);JG卖盘:=(WA3);散户买盘:=(WA4);散户卖盘:=(WA5);BU:=BARSLAST(CLOSE=HHV(CLOSE,60));SE:=BARSLAST(CLOSE=LLV(CLOSE,60));KK1:=SE;KK2:=BU;LM1:=SE;LM2:=BU;OK:=KK1>KK2 AND LM1>LM2;OK1:=KK1>KK2 AND LM1<LM2;NOK:=KK2>KK1 AND LM2>LM1;NOK1:=KK2>KK1 AND LM2<LM1;DRAWICON(FILTER(CROSS(KK1,KK2),240),OPEN*1,5);DRAWTEXT(FILTER(CROSS(KK1,KK2),240) ,OPEN*0.995,'抓'),COLORYELLOW;TT1:=BARSCOUNT(C);均价黄:=SUM(C*V,TT1)/SUM(V,TT1);量两步:=MA(V,5)>REF(MA(V,5),1) AND REF(MA(V,5),1)>REF(MA(V,5),2);价两步:= C>=REF(C,1) AND REF(C,1)>REF(C,2);价上岗量破5:=C>均价黄 AND V>MA(V,5);量起爆:=V>=REF(V,1)*1;价创新高:=C>=HHV(C,0);量创新高:=V>=HHV(V,0);对昨日涨幅:=(C/DYNAINFO(3)-1)*100<=2.50;{涨幅控制2个点以内}每日一点:=量两步 AND 价两步 AND 价上岗量破5 AND 量起爆 AND 价创新高 AND 量创新高 AND 对昨日涨幅;VV:=BARSSINCE(每日一点)+1;起爆时间:=REF(TIME/10000,VV),NODRAW;已爆分钟:=VV-1,NODRAW;DRAWICON(每日一点,C,25);DRAWTEXT(每日一点,L-0.01,'←分时起爆'),COLOR0000FF;ACX:=FILTER(CROSS(KK1,KK2),240);ACX1:=BARSSINCE(ACX)+1;X1:=IF(MA(C,5)>MA(C,10),20,0);X21:=IF(MA(C,20)>MA(C,60),10,0);X3:=IF(KDJ.J>KDJ.K,10,0);X4:=IF(MACD.DIF>MACD.DEA,10,0);X5:=IF(MACD.MACD>0,10,0);X6:=IF(V>MA(V,60),10,0);X7:=IF(WINNER(C)>0.5,10,0);X8:=IF(C/REF(C,1)>1.03,10,0);XX:=X1+X21+X3+X4+X5+X6+X7+X8;DRAWTEXT_FIX(V>O,0.90,0.99,0,STRCAT('量化评分:',STRCAT(CON2STR(XX,2),' '))),COLORYELLOW;A11:=(VOL/CLOSE)/3;A21:=SUM((IF(((A11>40) AND (CLOSE>(REF(CLOSE,1)))),A11,0)),0);A31:=SUM((IF(((A11>40) AND (CLOSE<(REF(CLOSE,1)))),A11,0)),0);A41:=SUM((IF(((A11<40) AND (CLOSE>(REF(CLOSE,1)))),A11,0)),0);A51:=SUM((IF(((A11<40) AND (CLOSE<(REF(CLOSE,1)))),A11,0)),0);A61:=((A21+A31)+A41)+A51;W1:=V*C/100;W22:=SUM((IF(((W1/8>20) AND (CLOSE>(REF(CLOSE,1)))),W1,0)),0);W32:=SUM((IF(((W1/8>20) AND (CLOSE<(REF(CLOSE,1)))),W1,0)),0);W42:=SUM((IF(((W1/8<20) AND (CLOSE>(REF(CLOSE,1)))),W1,0)),0);W52:=SUM((IF(((W1/8<20) AND (CLOSE<(REF(CLOSE,1)))),W1,0)),0);W6:=((A21+A31)+A41)+A51;W7:=IF((ISLASTBAR),((100*W22)/W6),0);W8:=IF((ISLASTBAR),((100*W32)/W6),0);W9:=IF((ISLASTBAR),((100*W42)/W6),0);W10:=IF((ISLASTBAR),((100*W52)/W6),0);JG买盘1:=(W22);JG卖盘1:=(W32);散户买盘1:=(W42);散户卖盘1:=(W52);机买差:=JG买盘1-JG卖盘1;散差:=散户买盘1-散户卖盘1;DRAWTEXT_FIX(1,0,0.9,0,STRCAT(STRCAT('【机买】',CON2STR(JG买盘1,2)),' 万')),COLORLIMAGENTA;DRAWTEXT_FIX(1,0,0.99,0,STRCAT(STRCAT('【机卖】',CON2STR(JG卖盘1,2)),' 万')),COLORGREEN;DRAWTEXT_FIX(1,0.10,0.9,0,STRCAT(STRCAT('【散买】',CON2STR(散户买盘,2)),' 万')),COLORMAGENTA;DRAWTEXT_FIX(1,0.10,0.99,0,STRCAT(STRCAT('【散卖】',CON2STR(散户卖盘,2)),' 万')),COLORCYAN;HS:=100*DYNAINFO(8)/CAPITAL;ZHWS:=STRCAT(VAR2STR(DYNAINFO(8)/10000,2),'万手');JHS:=STRCAT('今换手:',STRCAT(VAR2STR(HS,2),' '));JHS1:=STRCAT(JHS,' ≈ ');DRAWTEXT_FIX(1,0.20,0.99,0,STRCAT(JHS1,ZHWS))COLORYELLOW;LTPDW:=IF((FINANCE(46))/1000000>1,'亿股','万股');LTP:=IF((FINANCE(46))/1000000>1,CON2STR((FINANCE(46))/100000000,2),CON2STR((FINANCE(46))/10000,0));LTP1:=STRCAT(STRCAT('自由流通盘:',LTP),LTPDW);LTPWS:=STRCAT(VAR2STR(FINANCE(46)/1000000,2),'万手');LTP2:=STRCAT(LTP1,' ≈ ');DRAWTEXT_FIX(1,0.37,0.99,0,STRCAT(LTP2,LTPWS))COLORMAGENTA;DRAWTEXT_FIX(1,0.37,0.92,0,STRCAT(STRCAT('自由流通市值:',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORMAGENTA;KP:=(DYNAINFO(4)-DYNAINFO(3))/DYNAINFO(3)*100;DRAWTEXT_FIX(1,0.2,0.65,0,STRCAT('开盘:',STRCAT(VAR2STR(KP,2),' ')))COLORYELLOW;DRAWTEXT_FIX(1,0.2,0.85,0,STRCAT('最高价:',CON2STR(DYNAINFO(5),2)))COLORYELLOW;DRAWTEXT_FIX(1,0.2,0.90,0,STRCAT('最低价:',CON2STR(DYNAINFO(6),2)))COLORYELLOW;今日竞价股数:=DYNAINFO(15)/DYNAINFO(4);开盘换手Z:=DYNAINFO(15)/DYNAINFO(4)/FINANCE(46)*100;DRAWTEXT_FIX(1,0.2,0.7,0,STRCAT(STRCAT('开盘换手Z:',CON2STR(开盘换手Z,2)),''))COLORYELLOW;CJE:=DYNAINFO(8)*DYNAINFO(11);DW:=IF(CJE/1000000>1,'亿','万');ABT:=IF(CJE/1000000>1,CJE/1000000,CJE/100);DRAWTEXT_FIX(1,0.2,0.75,0,STRCAT(STRCAT('成交额:',CON2STR(ABT,2)),DW))COLORYELLOW;市盈率:=STRCAT('市盈率:',CON2STR(C/FINANCE(33),2));DRAWTEXT_FIX(1,0.2,0.80,0,STRCAT(市盈率,'倍'))COLORYELLOW;JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));JJJE1:=STRCAT(JJJE,JJJEDW);JJ:=STRCAT('竞价:',STRCAT(CON2STR(JJCJL,0),'手'));JJ1:=STRCAT(JJ,' = ');DRAWTEXT_FIX(1,0.2,0.55,0,STRCAT(JJ1,JJJE1))COLORMAGENTA;SSJ:=BARSCOUNT(V);今开量:DYNAINFO(15)/DYNAINFO(4)/100/10000,NODRAW;昨大量:IF(SSJ>238,REF(HHV(V,239),SSJ-238),0)/10000,NODRAW;BZ:=今开量/昨大量;DRAWTEXT_FIX(SSJ>239 AND BZ>0.6,0.25,0.1,0,STRCAT(STRCAT('【昨爆今开比】',CON2STR(BZ,2)),'')),COLORRED;DRAWTEXT_FIX(SSJ>239 AND BZ<0.6,0.25,0.1,0,STRCAT(STRCAT('【昨爆今开比】',CON2STR(BZ,2)),'')),COLORYELLOW;DRAWTEXT_FIX(SSJ>239 AND BETWEEN(BZ,0.5,2),0.2,0.2,0,'【开盘量价达标,择机介入】'),COLORYELLOW;DRAWTEXT_FIX(SSJ>239,0,0,0,'昨暴拉板量,一字除外,今比值0.60左右可考虑介入')COLORCYAN;DRAWTEXT_FIX(SSJ>239,0,0.2,0,'比值不达标,须开盘后补量, 过大,出货嫌疑')COLORCYAN;均价线:=DYNAINFO(11);差值:=ABS(CLOSE-DYNAINFO(11));偏离值:=差值/均价线*100;DRAWTEXT_FIX(1,0.6,0.99,0,STRCAT(STRCAT('【乖离率小于3 】= ',CON2STR(偏离值,1)),'%')),COLORYELLOW;竞价额:= DYNAINFO(15);换手Z:= 竞价额/O/FINANCE(46)*100;JJ3:=SUM(IF(BETWEEN(TIME,0930,0930),V,0),FROMOPEN);DRAWTEXT(JJ3/(HHV(V,5),1)*100>=2 AND BETWEEN(TIME,0930,0930) AND 换手Z>=1,C,'爆'),COLORMAGENTA; 本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报。正规在线配资公司提示:文章来自网络,不代表本站观点。