通达信买卖监控主图源码，无未来

MA5:MA(CLOSE,5);   
短趋势:MA(CLOSE,13),COLORRED,LINETHICK2;   
MA20:MA(CLOSE,20);   
MA30:MA(CLOSE,30);   
MA60:MA(CLOSE,60);   
MA120:MA(CLOSE,120);   
MA250:MA(CLOSE,250);   
AA10:=MA(CLOSE,8);   
AA12:=MA(CLOSE,12);   
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);   
VAR01:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);   
中期大底:=LLV(LOW,30),COLORCDFFBB;   
短底:=EMA(VAR01,5);   
支撑:=HHV(短底,60);   
压力1:=HHV(LOW,20),COLORFAABEC;   
中线:=MA(CLOSE,3);   
天:=(MA(LOW,15) * 0.985);   
人:=(MA(LOW,15) * 0.96);   
地:=(((HIGH + LOW) + CLOSE) / 3);   
B1:=HHV(地,(4 * 15));   
B6:=LLV(地,(4 * 15));   
B7:=(B1 - B6);   
B8:=(MA(((地 - B6) / B7),2) * 80);   
VAR1:=(((CLOSE - LLV(LOW,100)) / (HHV(HIGH,100) - LLV(LOW,100))) * 200);   
飞龙顶底线1:=SMA(VAR1,3,1);   
VAR2:=SMA(飞龙顶底线1,3,1);   
VAR3:=((3 * 飞龙顶底线1) - (2 * VAR2));   
VAR4:=LLV(LOW,5);   
VAR5:=HHV(HIGH,5);    {股海网提供：www.guhai.com.cn}
VAR6:=(EMA((((CLOSE - VAR4) / (VAR5 - VAR4)) * 100),4) * 2);   
VAR7:=EMA(((0.667 * REF(VAR6,1)) + (0.333 * VAR6)),2);   
VAR8:=((3 * VAR6) - (2 * VAR7));   
VAR9:=(POW(MA(CLOSE,5),2) + MA(CLOSE,5));   
VARA:=(POW(MA(LOW,5),2) + MA(LOW,5));   
VARB:=(POW(MA(HIGH,5),2) + MA(HIGH,5));   
VARC:=(((((VAR9 - LLV(VARA,64)) / (HHV(VARB,64) - LLV(VARA,64))) * 150) + 65) - 10);   
VARD:=((SMA(VARC,3,1) * 1.5) - 100);   
VARE:=SMA(VARD,3,1);   
VARF:=((3 * VARD) - (2 * VARE));   
VAR10:=(((HIGH + LOW) + (CLOSE * 2)) / 4);   
VAR11:=EMA(VAR10,13);   
VAR12:=STD(VAR10,13);   
VAR13:=(((VAR10 - VAR11) * 100) / VAR12);   
VAR14:=EMA(VAR13,5);   
VAR15:=EMA(VAR14,13);   
VAR16:=((EMA(VAR14,13) + 200) - 100);   
VAR17:=EMA(VAR16,10);   
VAR18:=((3 * VAR16) - (2 * VAR17));   
VAR19:=(((飞龙顶底线1 + VAR6) + VARD) + VAR16);   
VAR1A:=(((VAR2 + VAR7) + VARE) + VAR17);   
VAR1B:=(((VAR3 + VAR8) + VARF) + VAR18);   
VAR1C:=(((HIGH + LOW) + CLOSE) / 3);   
VAR1D:=((AMOUNT / VOL) / 100);   
VAR1E:=((SUM(AMOUNT,5) / SUM(VOL,5)) / 100);   
VAR1F:=((VAR1C - MA(VAR1C,34)) / (0.015 * AVEDEV(VAR1C,34)));   
VAR21:=((((HIGH + LOW) + CLOSE) + VAR1C) / 4);   
VAR22:=EMA(VAR21,24);   
VAR23:=STD(VAR21,24);   
VAR24:=(((VAR21 - VAR22) / VAR23) * 100);   
VAR25:=((VAR1C - MA(VAR1C,24)) / (0.015 * AVEDEV(VAR1C,24)));   
VAR26:=EMA(VAR24,5);   
VAR27:=((VAR1D - MA(VAR1D,21)) / (0.015 * AVEDEV(VAR1D,21)));   
VAR28:=((VAR1E - MA(VAR1E,90)) / (0.015 * AVEDEV(VAR1E,90)));   
VAR29:=(((((((VAR28 + VAR27) + VAR26) + VAR25) + VAR1F) / 5) + 165) / 4);   
VAR2A:=(((((VAR19 + VAR1A) + (VAR1B * 30)) / 32) / 5) - 15);   
VAR2B:=(((VAR29 + VAR2A) / 2) / 1.1);   
VAR2C:=VAR2B;   
短线:=MA(VAR2C,26);   
UPPER:=(短线 - (2 * STD(VAR2C,26)));   
XY:=MA(CLOSE,5);   
M80:=MA(CLOSE,80);   
短期底部:=(LLV(HIGH,30) * 0.93),COLOR0000FF;   
MA80:=LLV(HIGH,30);   
短期底部2:=SMA(CLOSE,2,1);   
趋势:=(MA(LOW,10) * 0.96);   
MAN:=(SMA(HIGH,21,2) * 1.05);   
上1:=(HHV(短底,60) * 0.92);   
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);   
RSV:=SMA(下档线,3,1);   
K:=SMA(RSV,3,1);   
D:=((3 * RSV) - (2 * K));   
J:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);   
VAR2P:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);   
VAR3P:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);   
VAR4P:=(((J + (2 * VAR2P)) + (3 * VAR3P)) / 6);   
VAR5P:=MA(VAR4P,3);   
VAR6P:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);   
RSV12:=SMA(VAR6P,3,1);   
K12:=SMA(RSV12,3,1);   
D12:=((3 * RSV12) - (2 * K12));   
J12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);   
RSV24:=SMA(J12,3,1);   
K24:=SMA(RSV24,3,1);   
D24:=((3 * RSV24) - (2 * K24));   
J24:=IF(CROSS(D,D24),LOW,REF(LOW,BARSLAST(CROSS(D,D24))));   
压力位:=IF(CROSS(D24,D),HIGH,REF(HIGH,BARSLAST(CROSS(D24,D)))),COLORFFFFFF;   
U2L:=IF((CLOSE >= MA(CLOSE,20)),50,20);   
RH5:=IF(((D > U2L) AND (REF(D,1) <= U2L)),LLV(REF(LOW,1),(BARSLAST(((D <= U2L) AND (REF(D,1) > U2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((D <= U2L) AND (REF(D,1) > U2L))) - 1)),BARSLAST(((D > U2L) AND REF(D,1)))));   
RL1:=IF((LOW < RH5),HIGH,REF(HIGH,BARSLAST((LOW < RH5))));   
RL4:=IF((LOW < RH5),D,REF(D,BARSLAST((LOW < RH5))));   
RL42:=IF((((LOW < RL1) AND (D > RL4)) AND (D > D24)),LOW,REF(LOW,BARSLAST((((LOW < RL1) AND (D > RL4)) AND (D > D24)))));   
长期底部:=LLV(HIGH,30),COLORFF0000;   
DRAWTEXT(FILTER(((((RL42 = J24) AND (CLOSE > OPEN)) AND (CLOSE > 长期底部)) AND (LOW <= J24)),20),(LOW - 0.12),'底成'),COLOR0EABFF;   
上:=(SMA(LOW,5,2) * 0.96);   
中:=(((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6);   
X1:=EMA(中,10);   
X2:=REF(X1,1);   
X3:=((REF(HIGH,1) + REF(LOW,1)) / 2);   
X4:=(MA(CLOSE,21) + (2 * STD(CLOSE,21)));   
X5:=REF(CLOSE,1);   
X6:=((SMA(MAX((CLOSE - X5),0),7,1) / SMA(ABS((CLOSE - X5)),7,1)) * 100);   
X7:=CROSS(79,X6);   
X8:=FILTER(X7,4);   
X9:=MA(CLOSE,115);   
VAR001:=EMA(CLOSE,8);   
飞龙顶底线:=EMA(VAR001,20);   
VAR002:=CROSS(VAR001,飞龙顶底线);   
VAR003:=(VAR001 < MA(CLOSE,20));   
VAR004:=(((HHV(HIGH,36) - CLOSE) / (HHV(HIGH,36) - LLV(LOW,36))) * 100);   
VAR005:=SMA(VAR004,5,1);   
VAR006:=SMA(VAR005,8,1);   
VAR007:=(CROSS(VAR005,VAR006) AND (VAR006 < 5));   
VAR008:=((CLOSE > (LLV(CLOSE,60) + (0.3 * LLV(CLOSE,60)))) AND VAR007);   
VAR009:=IF((CLOSE > 1000),VAR007,VAR008);   
VAR00F:=CROSS(X1,X2);   
MA115:=VAR00F;   
低买:=(VAR002 AND VAR003);   
黑马起步:=VAR009;   
DRAWTEXT((黑马起步 > 0),(HIGH * 1.04),'逃命'),COLORFF0000;   
逃遁:=(SMA(HIGH,21,2) * 1.05);   
阻挡:=(SMA(LOW,21,2) * 0.94);   
DRAWTEXT((((((低买 > 0) AND ((X1 - REF(X1,1)) > 0)) AND (HIGH < 压力位)) AND (HIGH < X9)) AND ((X2 - REF(X2,1)) > 0)),LOW,'黑马'),COLORRED;   
DRAWTEXT((((((CROSS(VAR2C,短线) AND ((CLOSE - REF(HIGH,1)) > 0)) AND ((中线 - REF(中线,1)) > 0)) AND (HIGH <= 压力1)) AND (CLOSE < MA20)) AND (LOW <= 中线)),(LOW - 0.06),'关注'),COLOR00FF00;   
DRAWTEXT((((CROSS(VAR2C,UPPER) AND (HIGH < 压力1)) AND ((XY - REF(XY,1)) > 0)) AND (HIGH < 支撑)),LOW,'买'),COLORFFFFFF;   
DRAWTEXT(FILTER(((((((LOW <= 天) AND (CLOSE >= MA20)) AND (HIGH < 压力1)) AND ((天 - REF(天,1)) > 0)) AND (CLOSE < 压力1)) AND ((MA20 - REF(MA20,1)) > 0)),6),(LOW - 0.12),'全仓'),COLOR00FFFF;   
DRAWTEXT(FILTER((((((MA115 AND (CLOSE < 压力位)) AND ((人 - REF(人,1)) > 0)) AND ((X1 - REF(X1,1)) > 0)) AND (HIGH < 上1)) AND ((CLOSE / OPEN) > 1.03)),5),LOW,'●买'),COLOR93EE7D;   
DRAWTEXT(((((LOW <= 上) AND (HIGH >= 短期底部)) AND (CLOSE >= 长期底部)) AND ((CLOSE / OPEN) > 1.03)),(LOW - 0.08),'★抄底'),COLOR0000FF;   
DRAWTEXT(FILTER((((((B8 <= 1) AND (LOW <= 阻挡)) AND (CLOSE > OPEN)) AND (LOW <= 中期大底)) AND (CLOSE >= 长期底部)),3),(LOW - 0.08),'短抄'),COLORA100FF;   
DRAWTEXT((((CROSS(D,0) AND (HIGH < 压力位)) AND (VAR5P <= (0 - 7))) AND (CLOSE < XY)),(LOW - 0.11),'半仓'),COLORFFFF00;   
DRAWTEXT(FILTER((((CROSS(趋势,趋) AND (HIGH < M80)) AND (HIGH < 压力1)) AND LLV(LOW,0)),10),LOW,'果断买'),COLOR668800;   
DRAWTEXT(FILTER(((CROSS(中线,人) AND (LOW <= 人)) AND (CLOSE >= 人)),4),(LOW - 0.06),'买'),COLOR00FF00;   
DRAWTEXT(((CROSS(阻挡,长期底部) AND (BB10 > 1)) AND (HIGH < 支撑)),LOW,'出击'),COLORRED;   
DRAWTEXT(FILTER((((((((MA20 - REF(MA20,1)) > 0) AND (HIGH < 支撑)) AND ((AA10 - REF(AA10,1)) > 0)) AND (HIGH < 压力1)) AND (VOL >= REF(VOL,1))) AND CROSS(CLOSE,MA20)),57),LOW,'突破生命线'),COLOR0000FF;   
DRAWTEXT(FILTER(((((LOW <= MA80) AND (CLOSE > MA80)) AND (CLOSE > OPEN)) AND (短期底部2 <= MA80)),8),LOW,'底'),COLORFFFF00;   
DRAWTEXT(((CROSS(MA20,压力位) AND (LOW <= MA20)) AND ((MA20 - REF(MA20,1)) > 0.02)),(LOW - 0.03),'●绝佳买点'),COLORAFA0AF;   
DRAWTEXT((((((((CROSS(CLOSE,MA20) AND (HIGH < 压力位)) AND (OPEN < MA20)) AND (HIGH < 支撑)) AND ((MAN - REF(MAN,1)) > 0)) AND ((X1 - REF(X1,1)) > 0)) AND (D < 63)) AND ((MA20 - REF(MA20,1)) > 0)),(LOW - 0.05),'●大牛浮水'),COLORBLUE;   
DRAWTEXT(CROSS(MA(CLOSE,13),C) AND INDEXC>MA(INDEXC,13) AND MA(CLOSE,13)>REF(MA(CLOSE,13) ,1) AND V<REF(V,1) AND MA(CLOSE,13)>MA(CLOSE,55) ,L*0.9,'买'),COLORRED,LINETHICK2;   
VAR011:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;   
VAR012:=HHV(VAR011>20,10);    
DRAWTEXT(FILTER(VAR011<-9 AND VAR011>REF(VAR011,1),18),L*0.9,'反弹'),COLORRED,LINETHICK2;   
DRAWTEXT(VAR011<-20 AND INDEXC<MA(INDEXC,13) AND FILTER(VAR011> REF(VAR011,1),5),L*0.93,'抄底'),COLORYELLOW,LINETHICK2;   
DRAWTEXT(VAR012 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),H*1.1,'危险'),COLORYELLOW;   
  
B36:=MA(CLOSE,3) - MA(CLOSE,6);   
B612:=MA(CLOSE,6) - MA(CLOSE,12);   
W:=((B36)/(CLOSE))*(10);   
J1:=((B612)/(CLOSE))*(10);   
DRAWTEXT((W < (-0.2)) AND (J1 < (-0.2)) AND CROSS(W,J1),(LOW)*0.93,'庄影'),COLORBROWN;   
  
EMA13:=EMA(C,13);   
EMA34:=EMA(C,34);   
EMA55:=EMA(C,55);   
EMA120:=EMA(C,120);   
AR1:=EMA55>EMA34 AND EMA34>EMA13;   
AR2:=BARSLAST((C-EMA13)/EMA13*100<-6);   
AR3:=EMA13>=REF(EMA13,2);   
AR4:=COUNT(CROSS(C,EMA13),AR2)=1;   
AR5:=AR1 AND AR2 AND AR3 AND AR4;   
AR6:=AR5 AND FILTER(AR5,10);   
A1AA:=9;   
A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);   
DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.04),'清仓'),COLORGREEN;   
LOCK:=1;   
M8:=EMA(CLOSE,8);   
VARP21:=EMA(短趋势,62);   
VARP22:=(CLOSE+HIGH+LOW)/3;   
VARP23:=EMA(VARP22,10)*LOCK;   
VARP24:=REF(VAR23,1)*LOCK;   
DRAWTEXT(AR6,L-0.25,'杏'),COLOR00CCFF;   
量价背离:=VAR15*40,STICK,COLORF5CCEB,LINETHICK2;   
DRAWTEXT(量价背离,HIGH * 1.02,'离'),COLORYELLOW;   
VAR60:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);   
VAR61:=VARF<REF(VAR60,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);   
大资金:=(VAR61 AND COUNT(VAR61,30)=1);   
DRAWTEXT(大资金,LOW*0.85,'▲大资金');   
{做空}   
RSV11:=(C - LLV(LOW,27))/(HHV(HIGH,3) - LLV(LOW,27)) * 100;   
F := SMA(RSV11, 3, 1);   
K11 := SMA(F,3, 1);   
D11 := SMA(K11,3, 1);   
WAV:=3*K11-2*D11;   
A41:=IF(1,C,IF(C<REF(O,1) AND L<REF(L,1),L,C));   
A42:=IF(C<REF(L,1),L,A41);   
A43:=IF(H<REF(O,1),L,A42);   
A44:=IF(O<=REF(C,1) AND C<REF(O,1),L,A43);   
A:=IF(C<O AND O<REF(O,1) AND L<REF(L,1),L,A44);   
AJ1:=ATAN((A/REF(A,1)-1)*100)*180/3.1416;   
LJIAO:=ATAN((VOL/REF(VOL,1)-1)*100)*180/3.1416;   
DSLJ:=LJIAO>0 AND ABS(LJIAO-AJ1)<30;   
JIA5:=WAV-REF(WAV,4)>50;   
DSALE:=DSLJ AND (JIA5 OR WAV>90);   
涨幅:=(C-LLV(C,10))/LLV(C,10)*100;   
DING2:=涨幅>20;   
DING:=DSALE OR DING2;   
QSA:=(MA(C,60)-REF(MA(C,60),10))/REF(MA(C,60),10)*100;   
QS:=SMA(QSA,10,1);   
DS:=QS<-3 OR MA(C,60)<REF(MA(C,60),1);   
QC:=DS AND DING AND DING!=REF(DING,1);   
DRAWTEXT(QC,H*1.08,'◇做空'),COLORRED;   
  
{抢钱买入}   
RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;   
K1:=SMA(RSV1,3,1);   
D1:=SMA(K1,3,1);   
J11:=3*K1-2*D1;   
X:=LLV(J11,2)=LLV(J11,8);   
VARR1:=LLV(LOW,10);   
VARR2:=HHV(HIGH,25);   
VARR3:=100*EMA((CLOSE-VARR1)/(VARR2-VARR1),4);   
DRAWTEXT(CROSS(J11,REF(J11+0.01,1)) AND X AND J11<20,LOW*0.95,'抢钱'),COLORRED;   
  
{加仓}   
MA10:=MA(CLOSE,10);   
五日乖离率:=(C-MA5)/MA5*100;   
BB05:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;   
速度5:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1);   
加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;   
SSR:=(C-MA30)/MA30*100,NODRAW;   
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND MA5>REF(MA5,1)  AND SSR>REF(SSR,1) AND MA10>REF(MA10,1) AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)  ,10) ;   
DRAWTEXT(加仓 ,LOW*0.98,'◆加仓'),COLORYELLOW;   
{时间窗,变盘}   
AA:=BARSCOUNT(C);   
AH:=HHV(H,200);   
AL:=LLV(L,200);   
A0:=(AH-AL)/40;   
B11:=L-A0;   
STICKLINE((AA+0)/34=FLOOR((AA+0)/34),B11,B11-1.5*A0,2,0),COLORF00FF0;   
DRAWTEXT((AA+0)/34=FLOOR((AA+0)/34),B11-1*A0,'时间窗,变盘'),COLORF00FF0;   
{出货}   
LC:=REF(CLOSE,1);   
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);   
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.04),'●离开'),COLORRED;   
VARE1:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;   
VAR121:=(HIGH+LOW+CLOSE)/3;   
VAR131:=(VAR121-MA(VAR121,14))/(0.015*AVEDEV(VAR121,14));   
VAR141:=(VAR121-MA(VAR121,70))/(0.015*AVEDEV(VAR121,70));   
VAR171:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;   
VAR181:=100-ABS(VAR171);   
VAR191:=IF(VAR181<90,VAR181,100);   
VAR1A1:=IF(VARE1>0,VARE1,0);   
VAR1B1:=IF(VAR141>=200 AND VAR131>=150,15,IF(VAR141<=-200 AND VAR131<=-150,-15,VAR16))+60;   
VAR1C1:=VAR1A1>48 AND VAR1B1>60 AND VAR191<100;   
DRAWTEXT(VAR1C1 AND COUNT(VAR1C1,30)=1,HIGH*1.02,'大笔出货'),LINETHICK1,COLORFFCC66;   
XXS:=MA(HIGH,5)*(1+5/100);    
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF;
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.06,0,'主题投资：')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.06,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.10,0,'主营业务：')COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.10,0,EXTERNSTR(0,2))COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.14,0,'出千概念：')COLORFF88FF;
DRAWTEXT_FIX(1,0.07,0.14,0,EXTERNSTR(0,3))COLORFF88FF;
DRAWTEXT_FIX(1,0.00,0.18,0,'愚民主题概念：'),COLOR00FFFF;
DRAWTEXT_FIX(1,0.09,0.18,0,EXTERNSTR(0,4)),COLOR00FFFF;