相关简介:通达信顶底分型主图公式源码 通达信顶底分型主图公式源码概况: 指标类别:通达信指标公式 授权方式:免费版 指标评级:★★★★★ 指标分类:策略 画线方法:主图通达信顶底分型主图公式源码: 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* rsi.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( macd.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( kdj.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); {dmi底背: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日指数移动平均 当满足条件B 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0ANDB-B1 =0,79,80,6,0),画红色 当满足条件B 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0ANDB-B1 0,79,80,6,0),COLOR00FF00 当满足条件B 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0ANDB-B1 =0,49,50,6,0),画红色 当满足条件B 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0ANDB-B1 0,49,50,6,0),COLORFF8899 当满足条件B 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0ANDB-B1 =0,19,20,6,0),画红色 当满足条件B 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0ANDB-B1 0,19,20,6,0),COLOR00FF00 当满足条件B-B1 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,B,B1,8,1),画红色 当满足条件B-B1 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱. 0,B,B1,8,1),COLOR00FF00 输出流通盘:当前流通股本(手)/1000000,NODRAW 输出量比:量比,NODRAW 输出利润率:利润同比%,NODRAW 当满足条件1时,在横轴0纵轴0位置书写文字 输出X1:2* RSI的RSI1 (6,12,24),画白色 X2赋值:2* RSI的RSI2 (6,12,24) 150,画红色 输出底:-50 输出顶:50 TRR赋值:最高价-最低价和最高价-1日前的收盘价的绝对值的较大值和最低价-1日前的收盘价的绝对值的较大值的14日累和 HD赋值:最高价-1日前的最高价 LD赋值:1日前的最低价-最低价 PDM赋值:如果HD 0ANDHD LD,返回HD,否则返回0的14日累和 MDM赋值:如果LD 0ANDLD HD,返回LD,否则返回0的14日累和 PDI赋值:PDM*100/TRR MDI赋值:MDM*100/TRR A1赋值:上次1日前的 平滑异同平均线的DIF (12,26,9)上穿 平滑异同平均线的DEA (12,26,9)距今天数 B1赋值:A1+1日前的收盘价 CANDREF( 平滑异同平均线的DIF (12,26,9),A1+1) 平滑异同平均线的DIF (12,26,9)ANDCROSS( 平滑异同平均线的DIF (12,26,9), 平滑异同平均线的DEA (12,26,9)) A2赋值:上次1日前的 KDJ的K (9,3,3)上穿 KDJ的D (9,3,3)距今天数 B2赋值: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赋值:上次1日前的 RSI的RSI1 (6,12,24)上穿 RSI的RSI2 (6,12,24)距今天数 B3赋值: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赋值:上次1日前的 平滑异同平均线的DEA (12,26,9)上穿 平滑异同平均线的DIF (12,26,9)距今天数 D1赋值:C1+1日前的收盘价 CANDREF( 平滑异同平均线的DIF (12,26,9),C1+1) 平滑异同平均线的DIF (12,26,9)ANDCROSS( 平滑异同平均线的DEA (12,26,9), 平滑异同平均线的DIF (12,26,9)) C2赋值:上次1日前的 KDJ的D (9,3,3)上穿 KDJ的K (9,3,3)距今天数 D2赋值: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赋值:上次1日前的 RSI的RSI2 (6,12,24)上穿 RSI的RSI1 (6,12,24)距今天数 D3赋值: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赋值:上次1日前的MDI上穿PDI距今天数 D4赋值:收盘价+1日前的收盘价 CANDREF(MDI,C4+1) MDIANDCROSS(MDI,PDI) A4赋值:上次1日前的PDI上穿MDI距今天数 B4赋值:A4+1日前的收盘价 CANDREF(PDI,A4+1) PDIANDCROSS(PDI,MDI) 输出MACD底背:如果B1 0,返回-30,否则返回0,画红色,POINTDOT 当满足条件B1 0时,在-20位置书写文字,画红色 输出MACD顶背:如果D1 0,返回30,否则返回0,COLOR00FF00,POINTDOT 当满足条件D1 0时,在20位置书写文字,COLOR00FF00 输出KDJ底背:如果B2 0,返回-20,否则返回0,COLORFF00FF,POINTDOT 当满足条件B2 0时,在-10位置书写文字,COLORFF00FF 输出KDJ顶背:如果D2 0,返回20,否则返回0,COLORFFCC66,POINTDOT 当满足条件D2 0时,在10位置书写文字,COLORFFCC66 输出RSI底背:如果B3 0,返回-40,否则返回0,画黄色,POINTDOT 当满足条件B3 0时,在-30位置书写文字,画黄色 输出RSI顶背:如果D3 0,返回40,否则返回0,COLORFFFFFF,POINTDOT 当满足条件D3 0时,在30位置书写文字,COLORFFFFFF 当满足条件B1 0时,在-40和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,画红色 当满足条件B2 0时,在-35和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFF00FF 当满足条件B3 0时,在-50和0位置之间画柱状线,宽度为4,0不为0则画空心柱.,画黄色 当满足条件D1 0时,在40和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00FF00 当满足条件D2 0时,在35和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFCC66 当满足条件D3 0时,在50和0位置之间画柱状线,宽度为4,0不为0则画空心柱.,画白色 DIFFD赋值:大盘的收盘价/100的12日指数移动平均-大盘的收盘价/100的26日指数移动平均 DEAD赋值:DIFFD的9日指数移动平均 MACDD赋值:2*(DIFFD-DEAD) LCD赋值:1日前的大盘的收盘价 RSID1赋值:大盘的收盘价-LCD和0的较大值的6日[1日权重]移动平均/大盘的收盘价-LCD的绝对值的6日[1日权重]移动平均*100 RSID2赋值:大盘的收盘价-LCD和0的较大值的12日[1日权重]移动平均/大盘的收盘价-LCD的绝对值的12日[1日权重]移动平均*100 AD1赋值:上次1日前的DIFFD上穿DEAD距今天数 BD1赋值:AD1+1日前的大盘的收盘价 INDEXCANDREF(DIFFD,AD1+1) DIFFDANDCROSS(DIFFD,DEAD) CD1赋值:上次1日前的DEAD上穿DIFFD距今天数 DD1赋值:CD1+1日前的大盘的收盘价 INDEXCANDREF(DIFFD,CD1+1) DIFFDANDCROSS(DEAD,DIFFD) MACDD底背赋值:如果BD1 0,返回-50,否则返回0,画红色,POINTDOT 当满足条件BD1 0时,在-50位置书写文字,画红色 当满足条件BD1 0时,在-50和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,画红色 MACDD顶背赋值:如果DD1 0,返回50,否则返回0,COLOR00FF00,POINTDOT 当满足条件DD1 0时,在50位置书写文字,COLOR00FF00 当满足条件DD1 0时,在50和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00FF00 AD3赋值:上次1日前的RSID1上穿RSID2距今天数 BD3赋值:AD3+1日前的大盘的收盘价 INDEXCANDREF(RSID1,AD3+1) RSID1ANDCROSS(RSID1,RSID2) CD3赋值:上次1日前的RSID2上穿RSID1距今天数 DD3赋值:CD3+1日前的大盘的收盘价 INDEXCANDREF(RSID1,CD3+1) RSID1ANDCROSS(RSID2,RSID1) RSID底背赋值:如果BD3 0,返回-50,否则返回0,画黄色,POINTDOT 当满足条件BD3 0时,在-40位置书写文字,画红色 当满足条件BD3 0时,在-40和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,画黄色 RSID顶背赋值:如果DD3 0,返回50,否则返回0,COLORFFFFFF 当满足条件DD3 0时,在40位置书写文字,COLORFFFFFF 当满足条件DD3 0时,在40和0位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFFFFF H1赋值:昨收盘价和最高价的较大值 L1赋值:昨收盘价和最低价的较小值 P1赋值:H1-L1 阻力赋值:L1+P1*7/8 支撑赋值:L1+P1*0.5/8 中线赋值:(支撑+阻力)/2,画白色,POINTDOT V11赋值:3*(收盘价-55日内最低价的最低值)/(55日内最高价的最高值-55日内最低价的最低值)*100的5日[1日权重]移动平均-2*(收盘价-55日内最低价的最低值)/(55日内最高价的最高值-55日内最低价的最低值)*100的5日[1日权重]移动平均的3日[1日权重]移动平均 趋势线赋值:V11的3日指数移动平均,线宽为2,画淡洋红色 BB0赋值:1日前的趋势线 11ANDCROSS(趋势线,11)ANDC 中线 当满足条件BB0时,在0位置书写文字,画红色 DD0赋值:1日前的趋势线 89ANDCROSS(89,趋势线)ANDC 中线 当满足条件DD0时,在0位置书写文字,画绿色 ZTTT赋值:收盘价 =1日前的收盘价*1.07 输出MMTT:50*(统计1日中满足 MACD.DIF (12,26,9)上穿 MACD.DEA (12,26,9)的天数=1ANDZTTT),画黄色今天的分享就到这里啦,大家感觉怎么样呢?有什么意见建议的朋友欢迎在下方评论区写下你的看法,我们共同学习进步,还请大家多多关注支持哦!!敬请期待明天的分享!