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;
