通达信红绿反扣 副图源码

以下是通达信红绿反扣 副图源码

相互佐证股价的买卖点，我的操作习惯是短线操作。这些指标基本上能满足短线错做的需要。强势股拿住就好了，但要实时把握形势。总之想拿长线好票还是要靠运气和眼光的。
{ 红绿反扣 }

DIF:=EMA(CLOSE,20)-EMA(CLOSE,5);
 DEA:=EMA(DIF,10);
 MACD:=300*(DIF-DEA)*2/EMA(C,30);
 VARA:=EMA(REF(CLOSE,1),4);
青山:=(SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100);
绿水:=青山<3.5,COLORDBDBDB;
火红的:=FILTER(MACD<0 AND MACD>REF(MACD,1) AND 青山<20,5);
太阳:=CROSS(青山,90),COLOR00FF00;
 {STICKLINE(青山,0,120,4,0),COLOR8B30FF;}
 DD:=IF(MACD>=0,MACD,DRAWNULL)*1.5;
 STICKLINE(DD AND DD>REF(DD,1),0,DD*0.8,4,0),COLOR0000FF;
 STICKLINE(DD AND DD<REF(DD,1),0,DD*0.8,3,1),COLOR0000FF;
 (青山-25)*1.5,COLOR5BE000,LINETHICK6;
 STICKLINE((青山-25)*1.5>0,0,(青山-25)*1.5,4,0),COLOR5BE000;
 STICKLINE(青山,0,-50,4,0),COLORBLACK{COLORABA400};
 IF(绿水,-10,DRAWNULL),CROSSDOT,CIRCLEDOT,LINETHICK1,COLOR688EC1;
 DRAWTEXT(CROSS( 0,MACD)AND 青山>75 OR 太阳,98,’ヲ’),COLORDBDBDB;
 AR1:=LLV(LOW,10);
 AR2:=HHV(H,25);
 AR3:=EMA((C-AR1)/(AR2-AR1)*4,4);
 STICKLINE(CROSS(AR3,0.3),-50,-30,3,0),COLORRED,LINETHICK1;
 STICKLINE(CROSS(3.5,AR3),100,120,2,0), COLORRED,LINETHICK2;
红红的天:=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(红红的天>10,-50,DRAWNULL),CIRCLEDOT,COLORGREEN;
 IF(红红的天<=10,-50,DRAWNULL),CIRCLEDOT,COLOR0000CC;
 L1:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*200-60;
龙Ｋ:SMA(L1,3,1),COLORBBFFBB;
凤Ｄ:SMA(龙Ｋ,3,1),COLORBBFFBB;
有心就有:IF(CROSS(红红的天,2),-20,DRAWNULL),CROSSDOT,LINETHICK6,COLORFF33FF;
好运！:IF(CROSS(红红的天,2),-20,DRAWNULL),POINTDOT,LINETHICK4,COLOR00CCFF;
 VAR26:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
 VAR27:=REVERSE(VAR26);
 VAR28:=SMA(VAR26,3,1);
波段王: SMA(VAR28,3,1),LINETHICK2,COLORYELLOW ;
波段鬼: SMA(波段王,3,1),LINETHICK2 , COLORYELLOW;
地狱: IF(CROSS(波段王,波段鬼) AND 波段王<40,35,0),COLORFF0080;
天堂: IF(CROSS(波段鬼,波段王) AND 波段鬼>75,70,100),COLORFF0080;
 {神秘买点}
SM01:=MA((2*C+H+L)/4,5);
 SM02:=SM01*(200-102)/100;
 SM03:=(1-7/100)*DMA(C,ABS((2*C+H+L)/4-MA(C,20))/MA(C,20));
 SM04:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
 SM05:=3*SMA(SM04,3,1)-2*SMA(SMA(SM04,3,1),3,1);
 SM06:=((H+L+C)/3-MA((H+L+C)/3,14))/(0.015*AVEDEV((H+L+C)/3,14));
 SM07:=SM02<SM03&&SM05>REF(SM05,1)&&REF(SM05,1)<REF(SM05,2)&&SM06<-100&&SM06>REF(SM06,1);
 STICKLINE(SM07,0,50,0.5,0),COLORYELLOW;
 {神秘买点:SM07,COLORRED,LINETHICK3;};
 {RSI二线差}
N:=5;
 AA:=”RSI.RSI1″(3,14,24);
 BB:=”RSI.RSI2″(3,14,24);
二线差RSI:IF((BB-AA)/AA>N,50,0),STICK,LINETHICK2,COLORFF0080;

MA1:=(H+L+C+O)/4;
 MA5:=MA(MA1,5);
 PL:=(MA1/MA5-1)*800;
警报:IF(PL<=-10,0-PL-30,0),COLORSTICK;
急跌:PL<=-12;

{宝塔在手源码}
放塔:CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)<REF(CLOSE,3) AND IF(REF(CLOSE,3)<REF(CLOSE,4),1,IF(REF(CLOSE,4)<REF(CLOSE,5),REF(CLOSE,1)<REF(CLOSE,4) OR (REF(CLOSE,2)<REF(CLOSE,4) AND REF(CLOSE,3)>=REF(CLOSE,5)),IF(REF(CLOSE,5)<REF(CLOSE,6),1,REF(CLOSE,6)<REF(CLOSE,7))))AND CROSS(C,MA(C,5)) AND MA(C,5)>REF(MA(C,5),1),COLORRED;
收塔:CLOSE<REF(CLOSE,1) AND REF(CLOSE,1)<REF(CLOSE,2) AND REF(CLOSE,1)>REF(CLOSE,3) AND IF(REF(CLOSE,3)>REF(CLOSE,4),1,IF(REF(CLOSE,4)>REF(CLOSE,5),REF(CLOSE,1)>REF(CLOSE,4) OR (REF(CLOSE,2)>REF(CLOSE,4) AND REF(CLOSE,3)<=REF(CLOSE,5)),IF(REF(CLOSE,5)>REF(CLOSE,6),1,REF(CLOSE,6)>REF(CLOSE,7))))AND CROSS(MA(C,5),C) AND MA(C,5)<REF(MA(C,5),1),COLORGREEN;
 DRAWBAND(0>放塔,RGB(0,0,0),0<放塔,RGB(250,0,0));
 DRAWBAND(0>收塔,RGB(0,0,0),0<收塔,RGB(0,250,0));
 DRAWTEXT(放塔,放塔,’放塔’),COLOR00FFFF;
 DRAWTEXT(收塔,收塔,’收塔’),COLORFFFF00;

{A1:=(DVOL/C)/2,NODRAW;
 A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
 A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
 A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
 A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
 A6:=A2+A3+A4+A5;
机买:(A2/A6)*100,LINETHICK2,COLORRED;
机卖:(A3/A6)*100,LINETHICK2,COLORGREEN;
散买:(A4/A6)*100,LINETHICK0;
散卖:(A5/A6)*100,LINETHICK0;
主力差:机买-机卖,LINETHICK2,NODRAW;
散户差:散买-散卖,LINETHICK0,NODRAW;
 DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,’●机构‘),COLORRED;
 DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.85,’○机构’),COLORWHITE;
 DRAWTEXT(散户差>0 AND REF(散户差,1)<=0,C*0.15,’▲散户’),COLORCYAN;
 DRAWTEXT(散户差<0 AND REF(散户差,1)>=0,-C*0.15,’△散户’),COLORWHITE;}

V1:=(C*2+H+L)/4*10;
 V2:=EMA(V1,13)-EMA(V1,34);
 V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5;
主力撤:= IF(V4<=0,V4,0),COLORGREEN;
主力进:= IF(V4>=0,V4,0);
 V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
 V6:=EMA(3*V5-2*SMA(V5,18,1),5);
 V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
 V8:=(INDEXC*2+INDEXH+INDEXL)/4;
 V9:=EMA(V8,13)-EMA(V8,34);
 VA:=EMA(V9,3);
 VB:=(V9-VA)/2;
大盘资金进场:
IF(VB>=0,VB,0),COLORYELLOW;
大盘资金撤走:
IF(VB<=0,VB,0),COLORRED;
 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(趋势线<=13,0,20,5,0),COLORCC9900;}
 AA1:=(趋势线<=13) AND FILTER((趋势线<=13),15);
 DRAWTEXT (AA1,120,’准备’),COLORCC9900;
 {买入股票: STICKLINE(趋势线<=13 AND V12>13,0,50,5,0),COLOR0099FF; }
 BB1:= (趋势线<=13 AND V12>13) AND FILTER((趋势线<=13 AND V12>13),10) ;
 DRAWTEXT (BB1,90,’○买入’),COLORWHITE;
 {见顶清仓: STICKLINE(趋势线>=90 AND V12,0,30,5,0),COLORWHITE;}
 CC:=(趋势线>=90 AND V12) AND FILTER((趋势线>=90 AND V12),10);
 DRAWTEXT (CC,-30,’△见顶’),COLORWHITE;
 {“通达信薛斯撑压主图”指标的源代码：}
N9:=5;N1:=30;N2:=3;P1:=15;P2:=3;
 LOWERL:=MA(L,N1)*(1-P1/100),COLOR00FF00;
 AA11:=CROSS(MA(C,5),MA(C,10));
 AC:=BARSLAST(AA11);
上穿值:=REF(C,AC),NODRAW;
大底:=CROSS(LOWERL,L) ,NODRAW ;
 DRAWTEXT (大底,110,’△大底’),COLORWHITE;
顶:=REF(HHV(H,90),3),NODRAW;
绝顶:=REFDATE(顶,DATE),NODRAW;
跑:=绝顶=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
 DRAWTEXT (跑,-10,’△绝顶’),COLORWHITE;