通达信极品分时主图 源码

LTA:=FINANCE(7)+300000000;
 GB:=2*IF(FINANCE(7)<100000000000,FLOOR(ABS((FINANCE(7)/1000000000-1))),FLOOR(ABS((FINANCE(7)/1000000000-1)))/10),NODRAW ;
 C1:=CLOSE;
 V1:=TIME;
 A1:=COUNT(BARSCOUNT(C)=1 AND TIME<102000 ,0 );
 T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
 (FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW;
 成交额:AMOUNT,NODRAW;
 大额线:=50*3+300*GB,COLOR00FFFF;
 VV2:=SUM(AMOUNT,T),NODRAW;
 初正1:=IF(T=1 AND DYNAINFO(4)>=DYNAINFO(3),VV2,0);
 初负1:=IF(T=1 AND DYNAINFO(4)  初正2:=CONST(SUM(IF(T=1,初正1,0),T)),NODRAW;
 初负2:=CONST(SUM(IF(T=1,初负1,0),T)),NODRAW;
 初正:=CONST(SUM(IF(初正1>大额线 AND T=1,初正1,0),T)),NODRAW;
 初负:=CONST(SUM(IF(初负1>大额线 AND T=1,初负1,0),T)),NODRAW;
 T00:=IF(C1>REF(C1,1),0.9,-0.9);
 T01:=IF(C1  T02:=T00+T01;
 TT1:=BARSLAST(CROSS(T02,0));
 TT2:=BARSLAST(CROSS(0,T02));
 TT:=IF(T02=1.8,1,IF(T02=-1.8,-1,0));
 正V1:=IF(TT=1 OR (TT=0 AND TT1>TT2),成交额,0);
 负V1:=IF(TT=-1 OR (TT=0 AND TT1  正总1:=初正1+SUM(正V1,T),NODRAW,COLOR0000FF;
 负总1:=初负1+SUM(负V1,T),NODRAW,COLOR00FF00;
 总:=(正总1+负总1)+初正2+初负2,NODRAW;
 正V:=IF(正V1>大额线,正V1,0);
 负V:=IF(负V1>大额线,负V1,0);
 正总:初正+SUM(正V,T),NODRAW,COLOR0000FF;
 负总:初负+SUM(负V,T),NODRAW,COLOR00FF00;
 差％:(正总-负总)/总*100,COLOR00FF00,NODRAW;
 TTA:=INTPART(2*T/5);
 KP30:=T<240;
 KPGD:=H=HHV(H,0) AND KP30;
 GDSJ:=BARSLAST(KPGD);
 {强弱界}
 MMA30:=EMA(CLOSE,30);
 强弱界定:=EMA(CLOSE,900);
 DRAWBAND(MMA30,RGB(100,0,0),强弱界定,RGB(0,255,0));
 DRAWICON(CROSS(MMA30,强弱界定),H,1);
 CC:=CLOSE,COLORWHITE,LINETHICK2;
 VAR7:=SMA(CC,6.18,1);
 VAR8:=SMA(VAR7,3.14,1);
 RCC:=DYNAINFO(3);
 S2:=SMA(C,3,1);
 S6:=SMA(C,5,1);
 DK:=4*(S2-S6);
 KK:=1;
 {暗轨}
 {AA1:=PLOYLINE(CLOSE5,COST(20));
 BB1:=PLOYLINE(CLOSE5,COST(80));
 DRAWBAND(BB1,RGB(50,50,50),AA1,DRAWNULL);
 {CYC}
 VAR1:=AMOUNT/VOL/100;
 VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
 VAR3:=SUM(AMOUNT,5)/VAR1/100;
 VAR4:=SUM(AMOUNT,13)/VAR1/100;
 VAR5:=SUM(AMOUNT,34)/VAR1/100;
 CYC5:=DMA(VAR2,VOL/VAR3);
 CYC13:=DMA(VAR2,VOL/VAR4);
 CYC34:=DMA(VAR2,VOL/VAR5);
 DRAWBAND(CYC5,RGB(00,50,50),CYC13,DRAWNULL);
 DRAWBAND(CYC13,RGB(00,150,150),CYC34,DRAWNULL);
 {分时MACD}
 昨收:=DYNAINFO(3);
 HH:=DYNAINFO(5);
 LL:=DYNAINFO(6);
 FK:=MAX(HH-昨收,昨收-LL)*0.1;
 ZS:=昨收-FK*3.2;
 Q1:=昨收-FK*3.22;
 Q2:=昨收-2*FK*3.22;
 Q3:=昨收-3*FK*3.2;
 MA5:=MA(CLOSE,5);
 MA10:=MA(CLOSE,10);
 MA20:=MA(CLOSE,20);
 MA30:=MA(CLOSE,30);
 DIF:=(EMA(CLOSE,13) - EMA(CLOSE,24));
 DEA:=(EMA(DIF,6));
 MACD:=5*(DIF-DEA);
 STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORFF00FF,LINETHICK3;
 STICKLINE(MACD>=0 AND MACD< REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORBLUE,LINETHICK3;
 STICKLINE(MACD<0 AND MACD>=REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLOR4ABEFF,LINETHICK3;
 STICKLINE(MACD<0 AND MACD< REF(MACD,1),RCC*KK,MACD*4+RCC*KK,3,0),COLORBLUE,LINETHICK3;
 STICKLINE(DK>0,RCC*KK,RCC*KK+DK,0,1),COLORRED;
 STICKLINE(DK<0,RCC*KK,RCC*KK+DK,0,1),COLORCYAN;
 {多头MACD}
 DIFF:=EMA(CLOSE,240)-EMA(CLOSE,240)*100;
 DEAA:=EMA(DIFF,18);
 多头MACD:=(-3*(DIFF-DEAA))*20,NODRAW;
 ZD:=HHV(多头MACD,0);
 ZX:=LLV(多头MACD,0);
 CZ:=(Q2-Q3)/6;
 FDM:=MAX(ABS(ZD),ABS(ZX))*1.5;
 RB:=(Q2+Q3)/2+2*(Q2-Q3)/3/FDM*多头MACD;
 STICKLINE(多头MACD>0,RB,(Q2+Q3)/2,2,1),LINETHICK1,COLOR0000FF;
 STICKLINE(多头MACD<0,RB,(Q2+Q3)/2,2,1),LINETHICK1,COLOR00FF00;
 
{火焰山及底部信号}
 FAA:=WINNER(CLOSE+CLOSE*15/100)*100;
 FBB:=WINNER(CLOSE+CLOSE*0/100)*100;
 FCC:=FAA-FBB;
 FDD:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100;
 FEE:=FCC<3 AND FDD<0.5 AND OPEN!=LOW;
 FA1:=DYNAINFO(6);
 FA2:=IF(LOW>FA1,0,IF(HIGH  FA3:=VOL/WINNER(LOW);
 FA4:=REF(HHV(CLOSE,120),1);
 FA5:=REF(LLV(CLOSE,120),1);
 FA6:=100*(CLOSE-FA5)/(FA4-FA5);
 FA7:=FA2>0 OR FA2=1;
 FA8:=FA7 AND FA3/REF(FA3,3)>=3 AND FA6<80;
 FA9:=REF(FA8,1) OR REF(FA8,2) OR REF(FA8,3) OR REF(FA8,4);
 FA10:=FA8 AND FA9;
 FA11:=IF(FILTER(FA8,3),5,0);
 FA12:=IF(FILTER(FA10,3) OR FEE,10,0);
 EEEE:=(RCC-ZS)/5;
 FVAR1:=REF(LOW,1);
FVAR2:=SMA(ABS(LOW-FVAR1),13,1)/SMA(MAX(LOW-FVAR1,0),13,1);
FVAR3:=EMA(FVAR2,13);
 FVAR4:=LLV(LOW,34);
 FVAR51:=EMA(IF(LOW<=FVAR4,FVAR3,0),3);
 FVAR5:=IF(FVAR51>20,20,FVAR51);
 DRAWTEXT(FA11,(Q2+Q3)/2*1.02,'↑进'),COLOR00FFFF;
 DRAWTEXT(FA12,(Q2+Q3)/2*1.03,',↑加');
 主力进场:STICKLINE(FVAR5>REF(FVAR5,1),(Q2+Q3)/2,(Q2+Q3)/2+FVAR5*EEEE,10,0 ),COLORRED;
 洗盘:IF(FVAR5  STICKLINE(FVAR5<