通达信顶底分型主图公式源码

var1:=(HHV(HIGH,8)-LLV(LOW,8)); Var2:=(HHV(HIGH,8)-CLOSE); Var3:=(CLOSE-LLV(LOW,8)); Var4:=Var2/Var1*100-70; Var5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100; Var6:=(2*C+H+L)/4; Var7:=SMA((Var3/Var1*100),3,1); Var8:=LLV(LOW,30); Var9:=SMA(Var7,3,1)-SMA(Var4,9,1); Var10:=IF(Var9 100,Var9-100,0); VarA:=HHV(HIGH,30); B:EMA((Var6-Var8)/(VarA-Var8)*100,8),COLORred; B1:=EMA(B,5); STICKLINE(B 0ANDB-B1 =0,79,80,6,0),COLORred; STICKLINE(B 0ANDB-B1 0,79,80,6,0),COLOR00ff00; STICKLINE(B 0ANDB-B1 =0,49,50,6,0),COLORred; STICKLINE(B 0ANDB-B1 0,49,50,6,0),COLORff8899; STICKLINE(B 0ANDB-B1 =0,19,20,6,0),COLORred; STICKLINE(B 0ANDB-B1 0,19,20,6,0),COLOR00ff00; STICKLINE(B-B1 0,B,B1,8,1),COLORred; STICKLINE(B-B1 0,B,B1,8,1),COLOR00ff00; 流通盘:CAPITAL/1000000,NODRAW; :DYNAINFO(17),NODRAW; {概念:DYBLOCK,NODRAW;} {地域:GNBLOCK,NODRAW;} 利润率:FINANCE(43),NODRAW; DRAWTEXT_FIX(1,0,0,0,'DYBLOCK'+'GNBLOCK'); X1:2*".RSI1"(6,12,24),COLORWHITE; X2:=2*"RSI.RSI2"(6,12,24); 150,COLORRED; 底:-50; 顶:50; TRR:=SUM(maX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14); HD:=HIGH-REF(HIGH,1); LD:=REF(LOW,1)-LOW; PDM:=SUM(IF(HD 0ANDHD LD,HD,0),14); MDM:=SUM(IF(LD 0ANDLD HD,LD,0),14); pdi:=PDM*100/TRR; mdi:=MDM*100/TRR; A1:=BArslAst(REF(crOSS(".DIF"(12,26,9),"MacD.DEA"(12,26,9)),1)); B1:=REF(C,A1+1) CANDREF("MACD.DIF"(12,26,9),A1+1) "MACD.DIF"(12,26,9)ANDCROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)); A2:=BARSLAST(REF(CROSS(".K"(9,3,3),"kdJ.D"(9,3,3)),1)); B2:=REF(C,A2+1) CANDREF("KDJ.K"(9,3,3),A2+1) "KDJ.K"(9,3,3)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)); A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)); B3:=REF(C,A3+1) CANDREF("RSI.RSI1"(6,12,24),A3+1) "RSI.RSI1"(6,12,24)ANDCROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)); C1:=BARSLAST(REF(CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)),1)); D1:=REF(C,C1+1) CANDREF("MACD.DIF"(12,26,9),C1+1) "MACD.DIF"(12,26,9)ANDCROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)); C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)); D2:=REF(C,C2+1) CANDREF("KDJ.K"(9,3,3),C2+1) "KDJ.K"(9,3,3)ANDCROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)); C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1)); D3:=REF(C,C3+1) CANDREF("RSI.RSI1"(6,12,24),C3+1) "RSI.RSI1"(6,12,24)ANDCROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)); C4:=BARSLAST(REF(CROSS(MDI,PDI),1)); D4:=REF(C,C+1) CANDREF(MDI,C4+1) MDIANDCROSS(MDI,PDI); A4:=BARSLAST(REF(CROSS(PDI,MDI),1)); B4:=REF(C,A4+1) CANDREF(PDI,A4+1) PDIANDCROSS(PDI,MDI); {底背:IF(B4 0,-50,0),COLOR0099FF,POINTDOT; DRAWTEXT(B4 0,-5,'DMI底背'),COLOR0099FF;} {DMI顶背:IF(D4 0,50,0),COLORBLUE,POINTDOT; DRAWTEXT(D4 0,15,'DMI顶背'),COLORBLUE;} MACD底背:IF(B1 0,-30,0),COLORRED,POINTDOT; DRAWTEXT(B1 0,-20,'M底'),COLORRED; MACD顶背:IF(D1 0,30,0),COLOR00FF00,POINTDOT; DRAWTEXT(D1 0,20,'M顶'),COLOR00FF00; KDJ底背:IF(B2 0,-20,0),COLORFF00FF,POINTDOT; DRAWTEXT(B2 0,-10,'K底'),COLORFF00FF; KDJ顶背:IF(D2 0,20,0),COLORFFCC66,POINTDOT; DRAWTEXT(D2 0,10,'K顶'),COLORFFCC66; RSI底背:IF(B3 0,-40,0),COLORYELLOW,POINTDOT; DRAWTEXT(B3 0,-30,'RSI底'),COLORYELLOW; RSI顶背:IF(D3 0,40,0),COLORFFFFFF,POINTDOT; DRAWTEXT(D3 0,30,'RSI顶背'),COLORFFFFFF; STICKLINE(B1 0,-40,0,0,0),COLORRED; STICKLINE(B2 0,-35,0,0,0),COLORFF00FF; STICKLINE(B3 0,-50,0,4,0),COLORYELLOW; STICKLINE(D1 0,40,0,0,0),COLOR00FF00; STICKLINE(D2 0,35,0,0,0),COLORFFCC66; STICKLINE(D3 0,50,0,4,0),COLORWHITE; {STICKLINE(B4 0,-50,0,0,0),COLOR0099FF; STICKLINE(D4 0,50,0,0,0),COLORBLUE;} {STICKLINE("KDJ.J"(80,3,3) 0,25,0,0,0),COLORRED; STICKLINE("KDJ.J"(80,3,3) 100,25,50,0,0),COLORGREEN; DRAWTEXT("KDJ.J"(80,3,3) 0,25,'J小于0'),COLORFFCC66;} {} DIFFD:=EMA(INDEXC/100,12)-EMA(INDEXC/100,26); DEAD:=EMA(DIFFD,9); MACDD:=2*(DIFFD-DEAD); {RSI} LCD:=REF(INDEXC,1); RSID1:=SMA(MAX(INDEXC-LCD,0),6,1)/SMA(ABS(INDEXC-LCD),6,1)*100; RSID2:=SMA(MAX(INDEXC-LCD,0),12,1)/SMA(ABS(INDEXC-LCD),12,1)*100; AD1:=BARSLAST(REF(CROSS(DIFFD,DEAD),1)); BD1:=REF(INDEXC,AD1+1) INDEXCANDREF(DIFFD,AD1+1) DIFFDANDCROSS(DIFFD,DEAD); CD1:=BARSLAST(REF(CROSS(DEAD,DIFFD),1)); DD1:=REF(INDEXC,CD1+1) INDEXCANDREF(DIFFD,CD1+1) DIFFDANDCROSS(DEAD,DIFFD); MACDD底背:=IF(BD1 0,-50,0),COLORRED,POINTDOT; DRAWTEXT(BD1 0,-50,'大盘MACD底背'),COLORRED; STICKLINE(BD1 0,-50,0,0,0),COLORRED; MACDD顶背:=IF(DD1 0,50,0),COLOR00FF00,POINTDOT; DRAWTEXT(DD1 0,50,'大盘MACD顶背'),COLOR00FF00; STICKLINE(DD1 0,50,0,0,0),COLOR00FF00; AD3:=BARSLAST(REF(CROSS(RSID1,RSID2),1)); BD3:=REF(INDEXC,AD3+1) INDEXCANDREF(RSID1,AD3+1) RSID1ANDCROSS(RSID1,RSID2); CD3:=BARSLAST(REF(CROSS(RSID2,RSID1),1)); DD3:=REF(INDEXC,CD3+1) INDEXCANDREF(RSID1,CD3+1) RSID1ANDCROSS(RSID2,RSID1); RSID底背:=IF(BD3 0,-50,0),COLORYELLOW,POINTDOT; DRAWTEXT(BD3 0,-40,'大盘RSI底背'),COLORRED; STICKLINE(BD3 0,-40,0,0,0),COLORYELLOW; RSID顶背:=IF(DD3 0,50,0),COLORFFFFFF; DRAWTEXT(DD3 0,40,'大盘RSI顶背'),COLORFFFFFF; STICKLINE(DD3 0,40,0,0,0),COLORFFFFFF; H1:=MAX(DYNAINFO(3),DYNAINFO(5)); L1:=MIN(DYNAINFO(3),DYNAINFO(6)); P1:=H1-L1; 阻力:=L1+P1*7/8; 支撑:=L1+P1*0.5/8; :=(支撑+阻力)/2,COLORWHITE,POINTDOT; 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),LINETHICK2,COLORLIMAGENTA; BB0:=REF(趋势线,1) 11ANDCROSS(趋势线,11)ANDC DRAWTEXT(BB0,0,'★买'),COLORRED; DD0:=REF(趋势线,1) 89ANDCROSS(89,趋势线)ANDC DRAWTEXT(DD0,0,'★卖'),COLORGREEN; ZTTT:=C =REF(C,1)*1.07; MMTT:50*(COUNT(CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)),1)=1ANDZTTT),COLORYELLOW;

[源码注释]通达信顶底分型主图公式公式解读

VAR1赋值:(8日内最高价的最高值-8日内最低价的最低值)

VAR2赋值:(8日内最高价的最高值-收盘价)

VAR3赋值:(收盘价-8日内最低价的最低值)

VAR4赋值:VAR2/VAR1*100-70

VAR5赋值:(收盘价-60日内最低价的最低值)/(60日内最高价的最高值-60日内最低价的最低值)*100

VAR6赋值:(2*收盘价+最高价+最低价)/4

VAR7赋值:(VAR3/VAR1*100)的3日[1日权重]移动平均

VAR8赋值:30日内最低价的最低值

VAR9赋值:VAR7的3日[1日权重]移动平均-VAR4的9日[1日权重]移动平均

VAR10赋值:如果VAR9 ,返回?,否则返回?

100,VAR9-100,0)

VARA赋值:30日内最高价的最高值

输出B:(VAR6-VAR8)/(VARA-VAR8)*100的8日指数移动平均,画红色

B1赋值:B的5日指数移动平均