通达信【数据MACD】★分时主图★

{【数据MACD】}
 昨收:=DYNAINFO(3);
 HH:=DYNAINFO(5);
 LL:=DYNAINFO(6);
 FK:=MAX(HH-昨收,昨收-LL)*0.1;
 ZS:=昨收-FK*3.2;
 Q1:=昨收-FK*3.22;
 Q2:=昨收-1*FK*3.22;
 Q3:=昨收-5*FK*3.2;
 TJ:=FILTER(C,239)>0,NODRAW;
 TJJ:SUM(TJ,0),NODRAW;
 TJA:=CONST(TJJ),NODRAW;{分时图天数}
 NN:=2400;
 HD:=HHV(C,NN);
 LD:=LLV(C,NN);
 最高:=CONST(HD),NODRAW;
 最低:=CONST(LD),NODRAW;
 HLMAX:=最高;
 HLMIN:=最低;
 HLMN1:=(HLMAX+HLMIN)/2;
 HLMN2:=HLMAX-HLMIN;
 HLMN3:=(100-0)/2*1.3;
 HLMN4:=(100-0)/1*1.3;
 
{时间设置}
 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;
 TJAB:=IF(TJJ>1,(TJJ-2)*240+T,DRAWNULL),NODRAW;
 TTA:=INTPART(2*T/5);
 KP30:=T<240;
 KPGD:=H=HHV(H,0) AND KP30;
 GDSJ:=BARSLAST(KPGD);
 成交额:=AMOUNT,NODRAW;
 VV2:=SUM(AMOUNT,T),NODRAW;
 VV3:=VV2/T;
 SS:=IF(CAPITAL>150000000,0.3,IF(CAPITAL>20000000,0.5,IF(CAPITAL>10000000,0.8,IF(CAPITAL<200000,5,IF(CAPITAL<1000000,3,
 IF(CAPITAL<5000000,1.5,1)))))),NODRAW;
 VV5:=(REF(VV3,T-1)/CEILING(REF(VV3,T-1)/CAPITAL *10000+0.1))*SS,NODRAW;
 大额线:=IF(REF(VV3,T)=REF(VV3,T-1),VV5,REF(VV3,T)),NODRAW;
 起算量:=大额线*100,COLOR00FFFF,NODRAW;
 初正1:=IF(T=1 AND DYNAINFO(4)>=DYNAINFO(3),VV2,0);
 初负1:=IF(T=1 AND DYNAINFO(4)<DYNAINFO(3),VV2,0);
 初正:=SUM(IF(初正1>=大额线 AND T=1,初正1,0),T),NODRAW;{大初正}
 初负:=SUM(IF(初负1>=大额线 AND T=1,初负1,0),T),NODRAW;
 初正2:=SUM(初正1,T),NODRAW;{初正}
 初负2:=SUM(初负1,T),NODRAW;
 T00:=IF(C1>REF(C1,1),0.9,-0.9);
 T01:=IF(C1<REF(C1,1),-0.9,0.9);
 T02:=T00+T01,NODRAW;
 TT1:=BARSLAST(CROSS(T02,+1.5)),NODRAW;
 TT2:=BARSLAST(CROSS(-1.5,T02)),NODRAW;
 TT:=IF(T02=1.8,1,IF(T02=-1.8,-1,0));
 正V1:=IF(TT=1 OR (TT=0 AND TT1<TT2),成交额,0),NODRAW;{正成交}
 负V1:=IF(TT=-1 OR (TT=0 AND TT1>TT2),成交额,0),NODRAW;
 TJAB正:=IF(TJAB>0 AND 正V1>0,正V1,0),NODRAW;
 TJAB正大:=IF(TJAB正>=大额线,TJAB正,0),NODRAW;
 正大:=SUM(TJAB正大,0),NODRAW;
 TJAB负:=IF(TJAB>0 AND 负V1>0,负V1,0),NODRAW;
 TJAB负大:=IF(TJAB负>大额线,TJAB负,0),NODRAW;
 负大:=SUM(TJAB负大,0),NODRAW;
 正负0:=IF(成交额!= 0  AND (正V1=0 AND 负V1=0),成交额,0);
 正V0:=IF(正负0!= 0 AND REF(正V1,1)!= 0 ,正负0,0);
 负V0:=IF(正负0!= 0 AND REF(负V1,1)!= 0 ,正负0,0);
 正V11:=正V1+正V0,NODRAW;{合正成交}
 负V11:=负V1+负V0,NODRAW;
 正V:=IF(正V11>=大额线,正V11,0);{大额}
 负V:=IF(负V11>=大额线,负V11,0);
 正V2:=IF(正V11<大额线,正V11,0);{小额}
 负V2:=IF(负V11<大额线,负V11,0);
 正总:=IF(TJJ<2,初正,0)+SUM(正V,T),NODRAW,COLOR0000FF;
 负总:=IF(TJJ<2,初负,0)+SUM(负V,T),NODRAW,COLOR00FF00;
 正总1:=IF(TJJ<2,初正2,0)+SUM(正V11,T),NODRAW,COLOR0000FF;
 负总1:=IF(TJJ<2,初负2,0)+SUM(负V11,T),NODRAW,COLOR00FF00;
 大差％:(正总-负总)/(正总+负总)*100,COLOR00FF00,NODRAW;
 大小差％:(正总1-负总1)/(正总1+负总1)*100,COLOR00FF00,NODRAW;
 昨1:=REF(正大,T)-IF(TJJ=3,0,REF(正大,T+239)),NODRAW;
 昨2:=REF(负大,T)-IF(TJJ=3,0,REF(负大,T+239)),NODRAW;
 前1:=正大-IF(TJJ=4,0,REF(正大,T+480)),NODRAW;
 前2:=负大-IF(TJJ=4,0,REF(负大,T+480)),NODRAW;
 
★今:(正总-负总)/1000000,NODRAW;
 ★昨:(昨1-昨2)/1000000,NODRAW;
 ★三:(前1-前2)/1000000,NODRAW;
 ★红:(正大-负大)/1000000,NODRAW;
 0000000000,NODRAW;
 {跟庄利器}
 A11:=(DVOL/C)/2,NODRAW;
 A22:=SUM(IF(A11>100 AND CLOSE>REF(CLOSE,1),A11,0),0);
 A33:=SUM(IF(A11>100 AND CLOSE<REF(CLOSE,1),A11,0),0);
 AA22:=(A22+A33)/2+(A22-(A22+A33)/2)*3;
 AA33:=(A22+A33)/2-(A22-(A22+A33)/2)*3;
 A44:=SUM(IF(A11<100 AND CLOSE>REF(CLOSE,1),A11,0),0);
 A55:=SUM(IF(A11<100 AND CLOSE<REF(CLOSE,1),A11,0),0);
 A66:=A22+A33+A44+A55;
 机买:=(A22/A66)*100,NODRAW;
 机卖:=(A33/A66)*100,NODRAW;
 散买:=(A44/A66)*100,NODRAW;
 散卖:=(A55/A66)*100,NODRAW;
 主力差:=机买-机卖,NODRAW;
 散户差:=散买-散卖,NODRAW;
 DDM:=((100-HLMN3)*HLMN2/HLMN4+HLMN1);
 DDL:=((0-HLMN3)*HLMN2/HLMN4+HLMN1);
 (昨1-昨2)/(昨1+昨2)*100,NODRAW;
 Q4:=IF(TJA>1 AND 大差％>=0,HLMAX,HLMIN),NODRAW;
 Q5:=IF(TJA>1 AND 大差％>=0,HLMIN,HLMAX),NODRAW;
 DRAWBAND(Q4,RGB(150,150,150),Q5,RGB(20,50,20));
 STICKLINE(TJA>1 AND CROSS(大差％,0),Q4,Q5,10,0),COLOR777777;
 STICKLINE(TJA>1 AND CROSS(0,大差％),Q4,Q5,10,0),COLOR777777;
 机散:=IF(TJA>1,(((A22/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),LINETHICK2,COLORDDDD00;
 散机:=IF(TJA>1,(((A33/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),LINETHICK2,COLORDDDD00;
 
{强弱界定}
 MMA30:=EMA(CLOSE,30)-(Q2+Q3)/2*0.001;
 强弱界定:=EMA(CLOSE,900)-(Q2+Q3)/2*0.001;
 DRAWBAND(IF(PERIOD=0 AND TJA>1,MMA30,DRAWNULL),RGB(130,50,0),强弱界定,RGB(0,80,80));
 DRAWICON(PERIOD=0 AND CROSS(MMA30,强弱界定),H,1);
 IF(PERIOD=0 AND TJA>2,强弱界定,DRAWNULL),COLOR888800;
 {金龙喜舞}
 日时转换:=IF(PERIOD=5,120,240);
 QZS:=(EMA(CLOSE,10)+EMA(CLOSE,32))/2-(Q2+Q3)/2*0.001;
 VAR1:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2-(Q2+Q3)/2*0.001;
 VAR2:=(EMA(VOL,10)+EMA(VOL,32))/2-(Q2+Q3)/2*0.001;
 VAR3:=(VAR1+VAR2)/2;
 VAR4:=EMA(VAR3,30);
 VAR5:=EMA(VAR3,60);
 VAR6:=EVERY(VAR1>REF(VAR1,1),5) AND EVERY(VAR4>REF(VAR4,1),5);
 DRAWBAND(IF(PERIOD=0 AND TJA>1,MMA30,DRAWNULL),RGB(80,20,20),EMA(VAR1,60),RGB(0,150,30));
 IF(PERIOD=0 AND TJA>2,EMA(VAR1,60),DRAWNULL),COLOR666666;
 IF(PERIOD=0 AND TJA>2,MMA30,DRAWNULL),COLOR666666;
 牵引线:=VAR1,COLORYELLOW;
 强弱线:=EMA(VAR1,日时转换),POINTDOT,COLORFF00FF;
 趋势关注:=IF(CROSS(VAR1,EMA(VAR1,60)) AND VAR6,1,0),NODRAW,COLORRED;
 量价关注:=IF(CROSS(VAR3,VAR5) AND VAR6,1,0),NODRAW,COLORWHITE;
 冲击量:=IF(VAR3>VAR5 AND VAR6,1,0),NODRAW,COLORYELLOW;
 强势区:=IF(VAR1>强弱线,1,DRAWNULL),NODRAW,COLORRED;
 止损区:=IF(VAR1<强弱线,1,DRAWNULL),NODRAW,COLORGREEN;
 IF(PERIOD=0 AND TJA>2, EMA(VAR1,日时转换),DRAWNULL),POINTDOT,COLORFFFFFF;
 IF(PERIOD=0,((50-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),COLOR999999,LINETHICK2;
 {盘龙驸凤};
 望喜1:=IF(PERIOD=0 AND TJA>0,IF(((大小差％+50-HLMN3)*HLMN2/HLMN4+HLMN1)>DDM,DDM,((大小差％+50-HLMN3)*HLMN2/HLMN4+HLMN1)),DRAWNULL),COLOR00FF00,LINETHICK1;
 盘龙1:=IF(PERIOD=0 AND TJA>0,IF(((大差％+50-HLMN3)*HLMN2/HLMN4+HLMN1)>DDM,DDM,((大差％+50-HLMN3)*HLMN2/HLMN4+HLMN1)),DRAWNULL),COLOR00FFFF,LINETHICK2;
 盘龙:IF(PERIOD=0 AND TJA>0,IF(盘龙1<DDL,DDL,盘龙1),DRAWNULL),COLOR00FFFF,LINETHICK2;
 STICKLINE(PERIOD=0 AND FILTER(T,239)>0,((100-HLMN3)*HLMN2/HLMN4+HLMN1),HLMIN,1,0),COLORWHITE;
 红％:=IF(PERIOD=0,IF((((正大-负大)/(正大+负大)*100+50-HLMN3)*HLMN2/HLMN4+HLMN1)>((100-HLMN3)*HLMN2/HLMN4+HLMN1),((100-HLMN3)*HLMN2/HLMN4+HLMN1),(((正大-负大)/(正大+负大)*100+50-HLMN3)*HLMN2/HLMN4+HLMN1)),DRAWNULL),COLORFF00FF,LINETHICK1;
 IF(PERIOD=0 AND TJA>1,IF(红％<DDL,DDL,红％),DRAWNULL),COLORFF00FF,LINETHICK2;
 望喜:=IF(PERIOD=0 AND TJA>0,IF(望喜1<DDL,DDL,望喜1),DRAWNULL),COLOR008800,LINETHICK1;
 YY:=SMA(VOL,30,1),NODRAW;
 量1:=(YY-LLV(LLV(YY,1),30))/(HHV(HHV(YY,1),30)-LLV(LLV(YY,1),30)),NODRAW;
 量:=(YY-LLV(LLV(YY,3),30))/(HHV(HHV(YY,3),30)-LLV(LLV(YY,3),30))>0.92,NODRAW;
 短横1:=IF(((HHV(CLOSE,TTA)-LLV(CLOSE,TTA))/CLOSE)<0.02,1,3),NODRAW;
 短横:=CROSS(短横1,2) OR 短横1=1,NODRAW;
 横后上涨:=CLOSE/DYNAINFO(3)<1.03 AND 短横 AND 量 AND CROSS(C,(MA(C*V,TTA)/MA(V,TTA) + AVEDEV(C,TTA)*2)),NODRAW;
 上涨:=FILTER((横后上涨 AND 量 AND T>60
 OR (T>60  AND CLOSE<DYNAINFO(3)*1.03  AND (量1<0.5 OR 量1=1)
AND BARSLAST(CROSS(C,(MA(C*V,TTA)/MA(V,TTA) + AVEDEV(C,TTA)*2)))<3
AND CROSS(C,MA(HHV(C,TTA),1)))),30),NODRAW;
 HHHH:=REF(H,GDSJ),COLORFFFFFF,LINETHICK1;
 过顶:=IF(CROSS(C,HHHH),1,0),COLOR00FF00,POINTDOT,NODRAW;
 冲高:=IF(FILTER(CROSS(C,HHHH*1.01),15),1,0),COLOR00FFFF,POINTDOT,NODRAW;
 DRAWBAND(IF(TJA<2,HLMAX,DRAWNULL),RGB(10,10,10),HLMIN,DRAWNULL);
 DRAWBAND(IF(TJA<2,(((AA22/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),RGB(100,100,100),(((AA33/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),RGB(20,80,20));
 AR1:=LLV(LOW,10);
 AR2:=HHV(H,25);
 AR3:=EMA((C-AR1)/(AR2-AR1)*4,4);
 红红的天:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
 -2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)
 -LLV(LOW,27))*100,5,1),3,1),LINETHICK0;
 IF(TJA<2 AND CROSS(红红的天,2),((100-HLMN3)*HLMN2/HLMN4+HLMN1),((50-HLMN3)*HLMN2/HLMN4+HLMN1)),COLOR0000CC;
 有心就有:IF(TJA<2 AND CROSS(红红的天,2),((100-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),CROSSDOT,LINETHICK6,COLORFF77FF;
 好运！:IF(TJA<2 AND CROSS(红红的天,2),((100-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),POINTDOT,LINETHICK4,COLOR00CCFF;
 
IF(PERIOD=0 AND TJA<2,盘龙,DRAWNULL),COLOR00AAAA,LINETHICK3;
 ND:=FLOOR(C/10);
 DIF:=IF(TJA<2,EMA(CLOSE,12)-EMA(CLOSE,26),DRAWNULL);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2,COLORSTICK;
 MACD2:=((MACD*INTPART((2500/(1+ND)))+50-HLMN3)*HLMN2/HLMN4+HLMN1);
 STICKLINE(TJA<2 AND MACD>=0,((50-HLMN3)*HLMN2/HLMN4+HLMN1),MACD2,0,0),COLOR0000FF,LINETHICK3;
 STICKLINE(TJA<2 AND MACD<0,((50-HLMN3)*HLMN2/HLMN4+HLMN1),MACD2,0,0),COLORFFFF00,LINETHICK3;
 IF(TJA<2,((DIF*INTPART((2500/(1+ND)))+50-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),COLORFFFFFF;
 IF(TJA<2,((DEA*INTPART((2500/(1+ND)))+50-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),COLOR00FFFF;
 IF(TJA<2,REF(H,GDSJ),DRAWNULL),COLORFFFFFF,LINETHICK1;
 DRAWICON(TJA<2 AND 冲高,HHHH,23);
 DRAWTEXT(TJA<2 AND 过顶,HHHH,'↑'),COLORFFFFFF;
 DRAWTEXT(TJA<3 AND 上涨,((20-HLMN3)*HLMN2/HLMN4+HLMN1),'★涨'),COLORRED,LINETHICK3;
 IF(PERIOD=0 AND TJA<2,望喜,DRAWNULL),COLOR00FF00,LINETHICK2;
 V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势线:=EMA(V11,3);
V12:=(趋势线-REF(趋势线,1))/REF(趋势线,1)*100;
准备现金: STICKLINE(TJA<2 AND 趋势线<=13,((0-HLMN3)*HLMN2/HLMN4+HLMN1),((10-HLMN3)*HLMN2/HLMN4+HLMN1),5,0),COLORLIGREEN;
AA:=(趋势线<=13) AND FILTER((趋势线<=13),15);
买入股票: STICKLINE(TJA<2 AND 趋势线<=13 AND V12>13,((0-HLMN3)*HLMN2/HLMN4+HLMN1),((20-HLMN3)*HLMN2/HLMN4+HLMN1),5,0),COLOR0099FF;
BB:= (趋势线<=13 AND V12>13) AND FILTER((趋势线<=13 AND V12>13),10) ;
见顶清仓: STICKLINE(TJA<2 AND 趋势线>=90 AND V12,((0-HLMN3)*HLMN2/HLMN4+HLMN1),((20-HLMN3)*HLMN2/HLMN4+HLMN1),5,0),COLORRED;
IF(TJA>1,(((A22/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),CROSSDOT,LINETHICK1,COLORDDDD00;
 IF(TJA>1,(((A33/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),CROSSDOT,LINETHICK1,COLORDDDD00;
 IF(TJA>1 AND (A22/A66)>=(A33/A66),(((A22/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),CROSSDOT,LINETHICK1,COLORDDDDDD;
 IF(TJA>1 AND (A22/A66)>=(A33/A66),(((A33/A66)*100+25-HLMN3)*HLMN2/HLMN4+HLMN1),DRAWNULL),CROSSDOT,LINETHICK1,COLORDDDDDD;
 STICKLINE(PERIOD=0 AND FILTER(T,239)>0,HLMAX,HLMIN,1,0),COLORWHITE;