B1:=MA(C,1); 
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1); 
SMA2:=MA(B2,3); 
IF(B2>SMA2,B2,DRAWNULL),COLORRED,LINETHICK4; 
IF(B2<SMA2,B2,DRAWNULL),COLORGREEN,LINETHICK4; 
SNAKEA:HHV(MA(B2,1),13),COLORYELLOW; 
VAR1A:=(2*CLOSE+HIGH+LOW)/4; 
VAR2A:=MA(VAR1A,7); 
VAR3A:=VAR2A-MA(VAR1A,7/2)<0; 
VAR4A:=VAR2A-MA(VAR1A,7/2)>0; 
VAR5A:=BARSLAST(VAR3A); 
VAR6A:=0-BARSLAST(VAR4A); 
VAR7A:=IF(VAR3A<=0,VAR5A,VAR6A); 
STICKLINE(SNAKEA>B2 AND B2>SMA2,SNAKEA,B2,0,0),COLORBLUE; 
STICKLINE(SNAKEA>SMA2 AND B2<SMA2,SNAKEA,SMA2,0,0),COLORBLUE; 
A13:=EMA(CLOSE,55); 
A14:=MA(CLOSE,75); 
A15:=EMA(A14,3); 
A16:=EMA(A15,3); 
A17:=(HIGH + LOW) / 5; 
A18:=(MA(A17,4)) - (MA(A17,34)); 
A19:=CROSS(A18,0); 
A20:=CROSS(0,A18); 
A21:=BARSLAST(A19); 
A22:=BARSLAST(A20); 
A23:=REF(A19,1); 
A24:=REF(A20,1); 
A25:=BARSLAST(A23); 
A26:=BARSLAST(A24); 
A27:=IF((A25 < A26),(REF((HHV(HIGH,2)),A25)),(REF((LLV(LOW,2)),A26))); 
A28:=(((REF(CLOSE,1)) <= (REF(A27,1))) AND (CLOSE > A27)) AND (A21 < A22); 
A29:=(((REF(CLOSE,1)) >= (REF(A27,1))) AND (CLOSE < A27)) AND (A22 < A21); 
A30:=A28 AND ((COUNT(A28,A21)) = 1); 
A31:=A29 AND ((COUNT(A29,A22)) = 1); 
A32:=A30 AND ((REF(BARSLAST(A31),1)) < (REF(BARSLAST(A30),1))); 
A33:=A31 AND ((REF(BARSLAST(A31),1)) > (REF(BARSLAST(A30),1))); 
DRAWTEXT(A32,SMA2*0.99,'←═≒∝'),COLORYELLOW; 
AC:=AMOUNT/(VOL); 
YY:=MA(AC,13); 
LLL:=(C-YY)/YY*100; 
MIDC :=  MA(CLOSE,22); 
UPPERC:= MIDC + 2*STD(C,22); 
LOWERC:= MIDC - 2*STD(C,22); 
BBA:=(C-LOWERC)/(UPPERC-LOWERC); 
BBC:=FORCAST(BBA,3); 
LIFENGCYC:=(REF(LLL,1)<-15 AND REF(BBA,1)<0 AND LLL>REF(LLL,1)); 
STICKLINE(LIFENGCYC>0,C,O,2,0),COLOR10ABFF; 
DRAWTEXT(LIFENGCYC>0,LOW*0.99,'☆'),COLORDD00DD; 
VAR326:=IF(CLOSE>REF(CLOSE,1),88,0); 
VAR327:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND VAR326>0, 91, 0); 
{DRAWTEXT(VAR327>90,LOW*0.968,'追涨'),COLORYELLOW;} 
 
{买卖点} 
MVAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2); 
MVAR2:=REF(MVAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR3:=REF(MVAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR4:=REF(MVAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR5:=REF(MVAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR6:=REF(MVAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR7:=REF(MVAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR8:=REF(MVAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR9:=REF(MVAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVARA:=REF(MVAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVARB:=REF(MVARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVARC:=REF(MVARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2); 
MVARE:=REF(MVARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVARF:=REF(MVARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR10:=REF(MVARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR11:=REF(MVAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR12:=REF(MVAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR13:=REF(MVAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR14:=REF(MVAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR15:=REF(MVAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR16:=REF(MVAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR17:=REF(MVAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2); 
MVAR18:=REF(MVAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2); 
MVAR19:=REF(MVARD OR MVARE OR MVARF OR MVAR10 OR MVAR11 OR MVAR12 OR MVAR13 OR MVAR14 OR MVAR15 OR MVAR16 OR MVAR17 OR MVAR18,1) AND MVAR1; 
MVAR1A:=REF(MVAR1 OR MVAR2 OR MVAR3 OR MVAR4 OR MVAR5 OR MVAR6 OR MVAR7 OR MVAR8 OR MVAR9 OR MVARA OR MVARB OR MVARC,1) AND MVARD; 
DRAWTEXT(FILTER(MVAR19=1,5),LOW*0.99,'●买'),COLORFF00FF; 
DRAWTEXT(FILTER(MVAR1A=1,5),HIGH*1.01,'●逃'),COLOR00FF00; 
 
{止损线} 
止损:REF(HHV(H,13),1)*0.95,COLORGREEN,DOTLINE; 
A002:STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),止损,止损*0.9996,15,0),COLORGREEN; 
DRAWTEXT(CURRBARSCOUNT=1,止损*0.996,'止损线'),COLORGREEN; 
{价咯预测} 
DRAWTEXT_FIX(1,0.01,0.02,0,'★================操盘纪律===================★'),COLORRED; 
DRAWTEXT_FIX(1,0.14,0.06,0,'T+0 操 作'),COLORFFFFFF; 
DRAWTEXT_FIX(1,0.01,0.08,0,'|'),COLOR0000FF; 
DRAWTEXT_FIX(1,0.01,0.11,0,'| '),COLOR0000FF; 
DRAWTEXT_FIX(1,0.32,0.08,0,'| '),COLOR0000FF; 
DRAWTEXT_FIX(1,0.32,0.11,0,'| '),COLOR0000FF; 
DRAWTEXT_FIX(1,0.01,0.16,0,'★================坚决执行===================★'),COLORRED; 
{预测当天最低价公式} 
A1:=REF(O,1); 
A2:=ABS((REF(C,1)-A1)/A1); 
A3:=ABS((REF(H,1)-A1)/A1); 
A4:=ABS((REF(L,1)-A1)/A1); 
BU1:=ABS((A2+A3+A4)/3); 
BU2:=O*BU1; 
预测今低:=O-BU2; 
预测今高:=O+BU2; 
DRAWTEXT_FIX(1,0.04,0.10,0,'预测今低:'),COLOR8080FF,LINETHICK1; 
DRAWNUMBER_FIX(1,0.10,0.10,0,CONST(预测今低)),COLOR8080FF; 
DRAWTEXT_FIX(1,0.15,0.10,0,'元'),COLOR8080FF,LINETHICK1; 
DRAWTEXT_FIX(1,0.18,0.10,0,'预测今高:'),COLOR8080FF,LINETHICK1; 
DRAWNUMBER_FIX(1,0.24,0.10,0,CONST(预测今高)),COLOR8080FF; 
DRAWTEXT_FIX(1,0.29,0.10,0,'元'),COLOR8080FF,LINETHICK1; 
{波浪2} 
A01:DRAWLINE(HIGH>=HHV(HIGH,5),HIGH,LOW<=LLV(LOW,5),LOW,0); 
B01:DRAWLINE(LOW<=LLV(LOW,5),LOW,HIGH>=HHV(HIGH,5),HIGH,0); 
A02:DRAWLINE(HIGH>=HHV(HIGH,13),HIGH,LOW<=LLV(LOW,13),LOW,0),COLORCYAN; 
B02:DRAWLINE(LOW<=LLV(LOW,13),LOW,HIGH>=HHV(HIGH,13),HIGH,0); 
A03:DRAWLINE(HIGH>=HHV(HIGH,34),HIGH,LOW<=LLV(LOW,34),LOW,0); 
B03:DRAWLINE(LOW<=LLV(LOW,34),LOW,HIGH>=HHV(HIGH,34),HIGH,0); 
A04:DRAWLINE(HIGH>=HHV(HIGH,55),HIGH,LOW<=LLV(LOW,55),LOW,0); 
B04:DRAWLINE(LOW<=LLV(LOW,55),LOW,HIGH>=HHV(HIGH,55),HIGH,0); 
{【天堂分笔】-接近完美的通达信分笔公式 
        2011-8-28        地藏 
        最终版 
        说明: 
----------------------------         
        参数:老笔=1,使用老笔定义,默认为0,使用新笔定义 
        缺口:反向缺口不破前笔,只看成一根K线 
        包含:使用近似算法可处理80%的情况 
        运行环境:需要通达信内核为5.68以上 
} 
 
老笔:=0; 
G:=MA(C,5);D:=MA(C,10); 
HHL:=REF(H,5)=HHV(H,11); 
LLK:=REF(L,5)=LLV(L,11); 
FG01:=BACKSET(HHL,6)>BACKSET(HHL,5) ; 
FD01:=BACKSET(LLK,6)>BACKSET(LLK,5) ; 
FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND G>D,FG01,IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0)); 
FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND D>G,FD01,IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0)); 
FG0:=FG02 AND H=HHV(H,BARSLAST(FD02)); 
FD0:=FD02 AND L=LLV(L,BARSLAST(FG02)); 
GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN; 
DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN; 
GQ:=L>REF(H,1) AND DA
  |