很实用的分时主图指标，上图不说话，感觉有用多推荐，多评分，源码分享
{DD:=100;}
A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>DD) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>DD) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<DD) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<DD) 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;
DD1:=1;
AAA1:=STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%');
AAA3:=STRCAT(STRCAT('净买入',CON2STR((100*(A2-A3))/A6,0)),'%');
DRAWTEXT_FIX(DD1=1,0,1-0.20,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,1-0.15,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,1-0.10,0,AAA3),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR, 0.25, 1-0.15, 0 ,EXTERNSTR(0,1)),COLORCYAN;
突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL);
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);
STICKLINE(A1X>=0,多方,突破,0,0),COLORRED;
STICKLINE(A1X<0,空方,突破,0,0),COLORGREEN;
最新:CLOSE,LINETHICK1,COLORWHITE;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
{DRAWTEXT( ISLASTBAR AND 最新>REF(最新,1),最新,STRCAT(' 涨▲',CON2STR(最新,2))),COLORMAGENTA;
DRAWTEXT( ISLASTBAR AND 最新<REF(最新,1),最新,STRCAT(' 跌▼',CON2STR(最新,2))),COLOR00FF00;}
{DRAWICON(ISLASTBAR AND 最新>REF(最新,1),最新*0.992,38);
DRAWICON(ISLASTBAR AND 最新<REF(最新,1),最新*1.008,39);}
均价:SUM(C*V,240)/SUM(V,240),DRAWNULL;
DXJP:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100;
FSZX:=(EMA(DXJP,3)-50)*2,COLORGRAY;
BGTYU:=IF(DATE<=1150530,1,0);
GHYJKU:=BETWEEN((DCLOSE*BGTYU)/(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU)))),1.05,0.95);
VBNH:=IF(GHYJKU=0,MA((DCLOSE*BGTYU),BARSCOUNT((DCLOSE*BGTYU))),(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU)))));
{DRAWICON(FSZX<=-95,C*0.992,38);}
DRAWTEXT(CROSS(EXPMA((DCLOSE/VBNH),20),1.04),C,'板'),COLORCYAN;
DRAWTEXT(CROSS(EXPMA((DCLOSE/VBNH),20),1.02),C,'追'),COLORYELLOW;
{DRAWICON(CROSS(EXPMA((DCLOSE/VBNH),120),1.004),C,17);}
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;
{DRAWICON(LONGCROSS(支撑,C,2),C*0.992,5);
DRAWICON(LONGCROSS(C,阻力,2),C*1.008,6);}
VARJ1:=EMA(EMA(CLOSE,13),13);
控盘2:=(VARJ1-REF(VARJ1,1))/REF(VARJ1,1)*1000;
STJ01:=控盘2<REF(控盘2,1) AND 控盘2>0.5;
STJ02:=控盘2>0;
BTJ2:=控盘2>REF(控盘2,1) AND 控盘2<-0.2;
BTJ22:=控盘2>REF(控盘2,1) AND 控盘2<0 ;
JJ:=DYNAINFO(11);
P:=55;S:=8;M1:=3;
能量:=(EMA(CLOSE,S)-EMA(C,P))*10;
空头:=EMA(能量,M1),COLOR00FF00;
BTJ1:=(CLOSE-JJ)/JJ<-0.005;
BTJ11:=(CLOSE-JJ)/JJ<-0.03;
BTJ12:=COUNT(JJ>=REF(JJ,1),5)>=4 AND (CLOSE-JJ)/JJ<0.005;
STJ1:=(C-JJ)/JJ>0.005;
BTJ3:=CROSS(能量,空头) AND 能量<-0.3;
BTJ32:=CROSS(能量,空头) AND 能量<-0.1;
STJ31:=CROSS(空头,能量);
STJ32:=CROSS(空头,能量) AND 能量>1.618;
A:=8;
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,A);
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,A);
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,A);
时长:=IF(HOUR>=9 AND HOUR<14 ,1,0);{9点至 14点}
捡钱:=BTJ811 AND TIME>15 AND 时长;
DRAWICON(捡钱,C*0.992,27);
AYGB1:=(VOL/C)/3,NODRAW;
AYGB2:=SUM(IF(AYGB1>DD AND CLOSE>REF(CLOSE,1),AYGB1,0),0);
AYGB3:=SUM(IF(AYGB1>DD AND CLOSE<REF(CLOSE,1),AYGB1,0),0);
AYGB4:=SUM(IF(AYGB1<DD AND CLOSE>REF(CLOSE,1),AYGB1,0),0);
AYGB5:=SUM(IF(AYGB1<DD AND CLOSE<REF(CLOSE,1),AYGB1,0),0);
AYGB6:=AYGB2+AYGB3+AYGB4+AYGB5;
机买:=(AYGB2/AYGB6)*100-100,LINETHICK1,COLORRED;
机卖:=(AYGB3/AYGB6)*100-100,LINETHICK1,COLORGREEN;
主力差:=机买-机卖;
LQH:=主力差>0 AND REF(主力差,1)<=0;
{DRAWICON(LQH,C*0.992,25);}
JJXX:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORYELLOW;
JJXXH:=(JJXX*1.007 ),COLORFF6600;
FFLL:=SUM(VOL,6)>REF(MA(VOL,30),1)*10;
HHPP:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1;
HHZZ:=HHPP AND FFLL AND (C>JJXXH);
TTPP2:=FILTER(HHZZ,100);
{DRAWICON(TTPP2,C*0.992,26);}
ZS:=DYNAINFO(3);
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
ZG:=DYNAINFO(5);
ZD:=DYNAINFO(6);
{MA5:=FSKY.MA5#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.2,0,STRCAT('A5 : ',CON2STR(MA5,2))),COLORWHITE;
MA10:=FSKY.MA10#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.15,0,STRCAT('A10 : ',CON2STR(MA10,2))),COLORWHITE;
MA20:=FSKY.MA20#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.9,1-0.1,0,STRCAT('A20 : ',CON2STR(MA20,2))),COLORWHITE;
MA60:=FSKY.MA60#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.9,1,0,STRCAT('A60 : ',CON2STR(MA60,2))),COLORWHITE;
}
{分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW;}
昨高:=FSKY.ZH#DAY;
昨低:=FSKY.ZL#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.25,0,STRCAT('昨低 : ',CON2STR(昨低,2))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.3,0,STRCAT('昨高 : ',CON2STR(昨高,2))),COLORWHITE;
分时顶:HHV(H,480),COLORGREEN,DOTLINE;
{强势线:ZS*1.02, COLORCYAN, DOTLINE;}
{DRAWLINE(C>ZS*1.02,ZS*1.02,C>ZS*1.02,ZS*1.02,3)COLORYELLOW;
DRAWLINE(C<ZS*1.02,ZS*1.02,C<ZS*1.02,ZS*1.02,3)COLORGREEN;}
DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,ZS*1.02,CURRBARSCOUNT=1 AND C>ZS*1.02,ZS*1.02,3)DOTLINE, COLORMAGENTA;
DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,ZS*1.02,CURRBARSCOUNT=1 AND C<ZS*1.02,ZS*1.02,3)DOTLINE, COLORCYAN;
{CONST(DYNAINFO(3)*1.02);}
{DRAWICON(BARSLAST(TIME=0936)=0,REF(C, BARSLAST(TIME=0936))*0.992,15);}
STICKLINE(BARSLAST(TIME=0936)=0,CONST(HHV(C,0)),CONST(LLV(C,0)),0,-1),COLORYELLOW;
STICKLINE(BARSLAST(TIME=0941)=0,CONST(HHV(C,0)),CONST(LLV(C,0)),0,-1),COLORYELLOW;
DRAWTEXT(BARSLAST(TIME=0935)=0,ZS*1.02,'○'),COLORRED;
流通盘大小:=CAPITAL/1000000;
流通市值:=C*CAPITAL*100/100000000;
DRAWTEXT_FIX(ISLASTBAR, 0.25, 1-0.2, 0, STRCAT(STRCAT('流通盘大小: ', CON2STR(流通盘大小,2)), ' 亿')), LINETHICK1,COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR, 0.5, 1-0.2, 0, STRCAT(STRCAT('流通市值: ', CON2STR(流通市值,2)), ' 亿元')), COLORGREEN;
{Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);}
{Z3:=STRCAT(Z2,' ');}
Z4:=STRCAT('',GNBLOCK);
Z5:=STRCAT(Z4,' / ');
DRAWTEXT_FIX(ISLASTBAR,0, 1-0.97, 0,STRCAT(Z5,FGBLOCK)),COLORCYAN;
{DRAWTEXT_FIX(ISLASTBAR,0, 1-0.97, 0,STRCAT(STRCAT(GNBLOCK, ' / '),FGBLOCK)),COLORFF50FF;}
{DRAWTEXT_FIX(ISLASTBAR,0.4, 1-0.97, 0,FGBLOCK),COLORCYAN;}
DRAWTEXT_FIX(ISLASTBAR,0.860, 1-0.97, 0,DYBLOCK),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.940, 1-0.97, 0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR, 0, 1-0.9, 0,ZDBLOCK),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.780, 1-0.97, 0,CODE);
{量比}
{SUM(V,0)*240/"WRJL.五日均量#DAY"/(BARSSINCE(C)+1)*100;}
{JJL:=IF(1,SUM(V,TIME<=092600),0);}
{LBA:=IF(TIME<=092600,SUM(V,0)*240/"WRJL.五日均量#DAY"*100,0);}
{竞价量比:=JJL*240/WRJL.五日均量#DAY;}
{开盘量:=SUM(IF(TIME<93000,VOL,0),0);}
{SJ:=IF(TIME>=93000 AND TIME<=100000,1,0);}
SJ:=IF(TIME>=93000 AND TIME<=93100,1,0);
OPENVOL:=SUM(AMO,SJ);
{
DRAWTEXT_FIX(ISLASTBAR,0, 1-0.3, 0,STRCAT('竞价量: ',CON2STR(OPENVOL,2)));
DRAWTEXT_FIX(ISLASTBAR,0, 1-0.25, 0,STRCAT('竞价量比: ',CON2STR(竞价量比,2)));
}
{DD:=10;
A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>DD) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>DD) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<DD) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<DD) 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);}
{DRAWBAND(机构买盘/(机构买盘+机构卖盘)*(ZS-DYNAINFO(55))+DYNAINFO(55), RGB(255,0,0), 机构卖盘/(机构买盘+机构卖盘)*(ZS-DYNAINFO(55))+DYNAINFO(55), RGB(0,255,0));}
{强势回调线:CONST(HHV(C,0))*0.5, COLORYELLOW, DOTLINE;};
{DRAWBAND(ZS, RGB(255,0,0), DYNAINFO(55), RGB(0,255,0));};
{STICKLINE(机构买盘>=机构卖盘,DYNAINFO(55),DYNAINFO(55) + (ZS - DYNAINFO(55)) * 机构买盘/(机构买盘+机构卖盘) ,0,0),COLOR000099;
STICKLINE(机构买盘<机构卖盘,DYNAINFO(55),DYNAINFO(55) + (ZS - DYNAINFO(55)) * 机构买盘/(机构买盘+机构卖盘) ,0.8,1),COLORGREEN;};
昨收:=FSKY.昨收#DAY;
AAA:=(C-REF(C,1))/REF(C,1)*100;
ZST:=(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('S')) AND AAA>=4.945;
DST:=(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('S')) AND AAA<=-4.945;
涨停价:=IF(ZST,昨收*1.05,昨收*1.1);
跌停价:=IF(DST,昨收*0.95,昨收*0.9);
均线:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0)));
均线H:=(均线*1.007 );
放量:=SUM(VOL,5)>REF(MA(VOL,10),1)*10;
{TIMEC:=BARSCOUNT(放量);
放量2:=IF(REF(C,TIMEC)>0 AND REF(C,TIMEC)<5, 放量, 0);}
横盘:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1;
横涨:=横盘 AND 放量 AND (C>均线H) AND (C>REF(C,1));
突破2:=FILTER(横涨,30);
突破3:IF(突破2, C, 跌停价),COLORMAGENTA;
{量能:=IF(突破2, SUM(VOL,5)/REF(MA(VOL,10),1)/5, 0);}
量能:=IF(突破2, SUM(VOL,5)/REF(MA(VOL,10),1)/5, 0);
量比:=SUM(VOL,5)/REF(MA(VOL,10),1)/5+跌停价;
昨量:=FSKY.昨量#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.2,0,STRCAT('昨量 : ',CON2STR(昨量,2))),COLORWHITE;
{拉升量:=FSKY.拉升量#DAY;
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.15,0,STRCAT('拉升量 : ',CON2STR(REF(拉升量,1),2))),COLORWHITE;
}
{拉升总量:=RXYY.拉升总量#MIN1;
昨天拉升总量:=REF(拉升总量,1);
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.15,0,STRCAT('拉升总量 : ',CON2STR(REF(拉升总量,1),2))),COLORWHITE;
}
拉升量:=IF(C>REF(C,1),VOL,0);
打压量:=IF(C<REF(C,1),VOL,0);
{平价量:=IF(C=REF(C,1),VOL,0);}
今拉升总量:=SUM(拉升量,0);
今打压总量:=SUM(打压量,0);
{今平价总量:=SUM(平价量,0);}
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.15,0,STRCAT('拉量 : ',CON2STR(REF(今拉升总量,1),2))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.10,0,STRCAT('压量 : ',CON2STR(REF(今打压总量,1),2))),COLORWHITE;
{DRAWTEXT_FIX(ISLASTBAR,0.85,1-0.35,0,STRCAT('平量 : ',CON2STR(REF(今平价总量,1),2))),COLORWHITE;}
{拉升最高:=FSKY.拉升最高值#DAY;
昨天拉升最高:=REF(拉升最高,1);
}
DRAWTEXT(突破2,C*0.98,' 突破');DRAWICON(突破2,C*0.98,9);
DRAWNUMBER(突破2,C*0.96,量能);
{DRAWNUMBER(突破2,C*0.94,昨天拉升最高);
DRAWNUMBER(突破2,C*0.92,拉升最高);
DRAWNUMBER(突破2,C*0.9,拉升最高/昨天拉升最高);
};
