通达信适合做波段的量能参考副图指标源码_指标之家—公式指标程序代码分享—公式指标网

ihzx 发表于 2021-8-28 00:28:08

通达信适合做波段的量能参考副图指标源码

以下是通达信适合做波段的量能参考副图指标源码（无源码的请下载附件导入）
<div class="con" id="rjsmad1"></div>
主要看MACD那一块，看截图吧，动力线出现红柱同时，MACD也在O轴上方，至于那个预测我是觉得没啥用的 
DRAWRECTREL(0,0,1000,1000,RGB(45,75,45)); 
 DRAWRECTREL(290,20,1000,980,RGB(5,10,15)); 
 MMM:=CURRBARSCOUNT<37; 
 DIFF:=EMA(CLOSE,12)-EMA(CLOSE,27); 
 DIEA:=EMA(DIFF,9); 
零轴:=60; 
 MACDZ:=(DIFF-DIEA),COLORSTICK; 
系数:=CONST(HHV(ABS(MACDZ),150)); 
自由度:=MACDZ*零轴/系数*0.9; 
 STICKLINE((零轴+自由度)>零轴 AND MMM AND (零轴+自由度)<=REF(零轴+自由度,1),零轴,零轴+自由度,2,0),COLOR00FFFF; 
 STICKLINE((零轴+自由度)>零轴  AND MMM AND (零轴+自由度)>REF(零轴+自由度,1),零轴,零轴+自由度,2,0),COLOR0055FF; 
 STICKLINE((零轴+自由度)<=零轴 AND MMM AND (零轴+自由度)<=REF(零轴+自由度,1),零轴,零轴+自由度,2,0),COLORFFFF55; 
 STICKLINE((零轴+自由度)<=零轴 AND MMM AND (零轴+自由度)>REF(零轴+自由度,1),零轴,零轴+自由度,2,0),COLORFF55BB; 
 JCCOUNT:=COUNT(CROSS(DIFF,DIEA),BARSLAST(DIEA>=0)); 
二次金叉:=CROSS(DIFF,DIEA) AND DIEA<0 AND COUNT(JCCOUNT=2,21)=1; 
 STICKLINE(二次金叉 AND MMM=1 ,40,50,1,0),COLORYELLOW; 
 DRAWTEXT(二次金叉 AND MMM=1,40,' 二次金叉'),COLORYELLOW; 
低位金叉:=CROSS(DIFF,DIEA) AND DIFF<-0.1; 
 STICKLINE(低位金叉 AND MMM=1,40,60,1,0),COLORYELLOW; 
 DRAWTEXT(低位金叉 AND MMM=1,50,' 低位金叉'),COLORYELLOW; 
 AQ1:=BARSLAST(REF(CROSS(DIFF,DIEA),1)); 
底背离:=REF(CLOSE,AQ1+1)>CLOSE AND DIFF>REF(DIFF,AQ1+1) AND CROSS(DIFF,DIEA); 
 STICKLINE(底背离 AND MMM=1,60,50,1,0),COLOR00FF00; 
 DRAWTEXT(底背离 AND MMM=1,50,' 底背离'),COLOR00FF00; 
 AQ2:=BARSLAST(REF(CROSS(DIEA,DIFF),1)); 
顶背离:=REF(CLOSE,AQ2+1)<CLOSE AND REF(DIFF,AQ2+1)>DIFF AND CROSS(DIEA,DIFF); 
 STICKLINE(顶背离 AND MMM=1,60,70,1,0),COLORGREEN; 
 DRAWTEXT(顶背离 AND MMM=1,70,' 顶背离'),COLORGREEN; 
 VAR2:=LLV(LOW,10); 
 VAR3:=HHV(HIGH,25); 
卖出:= 3.2,COLORYELLOW; 
清仓:= 3.5,COLORFFFF00; 
动力线:=(EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4))*17; 
 STICKLINE(动力线>REF(动力线,1) AND MMM ,动力线 ,REF(动力线,1),3 ,0),COLORRED; 
 STICKLINE(动力线<=REF(动力线,1) AND MMM  ,动力线 ,REF(动力线,1),3 ,0),COLOR00FF00; 
定位:=38; 
系数A:=CONST(HHV(ABS(VOL),36)); 
成交:=VOL/系数A*60,VOLSTICK; 
条件阳:=C>O OR (C=O AND C>=REF(C,1)); 
条件阴:=C<O OR (C=O AND C<REF(C,1)); 
 STICKLINE(REFX(条件阳 ,定位) AND CURRBARSCOUNT>定位,0,REFX(成交,定位),2,2),COLOR0055FF; 
 STICKLINE(REFX(条件阴 ,定位) AND CURRBARSCOUNT>定位,0,REFX(成交,定位),2,0),COLORFFFF55; 
 DRAWRECTREL(290,0,320,1000,RGB(45,75,45)); 
 DRAWRECTREL(295,30,315,970,RGB(45,75,45)); 
 DRAWRECTREL(600,0,630,1000,RGB(45,75,45)); 
 DRAWRECTREL(605,30,625,955,RGB(45,75,45)); 
 DRAWRECTREL(970,0,1000,1000,RGB(45,75,45)); 
 DRAWRECTREL(975,30,995,970,RGB(45,75,45)); 
 DRAWTEXT_FIX(C>O,0.299,0.15, 0,'成 '),COLORWHITE; 
 DRAWTEXT_FIX(C>O,0.299,0.45, 0,'交 '),COLORWHITE; 
 DRAWTEXT_FIX(C>O,0.299,0.75,0,'量'),COLORWHITE; 
 DRAWTEXT_FIX(C>O,0.609,0.15, 0,'动 '),COLORWHITE; 
 DRAWTEXT_FIX(C>O,0.609,0.45,0,'力'),COLORWHITE; 
 DRAWTEXT_FIX(C>O,0.609,0.75,0,'线 '),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.98,0.12,0,'M'),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.981,0.34,0,'A'),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.98,0.56,0,'C'),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.98,0.78,0,'D'),COLORWHITE; 
 DRAWRECTREL(0,0,290,1000,RGB(45,75,45)); 
 DRAWRECTREL(5,10,70,990,RGB(45,75,45)); 
 DRAWRECTREL(70,10,235,990,RGB(130,110,40)); 
 DRAWRECTREL(125,10,180,990,RGB(45,75,45)); 
 DRAWRECTREL(5,10,290,10,RGB(200,200,200)); 
 DRAWRECTREL(5,150,290,150,RGB(200,200,200)); 
 DRAWRECTREL(5,290,290,290,RGB(200,200,200)); 
 DRAWRECTREL(5,430,290,430,RGB(200,200,200)); 
 DRAWRECTREL(5,570,290,570,RGB(200,200,200)); 
 DRAWRECTREL(5,710,290,710,RGB(200,200,200)); 
 DRAWRECTREL(5,850,290,850,RGB(200,200,200)); 
 DRAWRECTREL(5,990,290,990,RGB(200,200,200)); 
 AX1:=STRCAT(STRCAT(STRCAT(STRCAT('日  期' ,'          测高') ,'          实高') ,'         测低') ,'          实低'); 
DRAWTEXT_FIX(C>0,0.02,0.04,0,AX1),COLORYELLOW; 
 DRAWTEXT_FIX(C>0,0.01,0.88,0,' 今 ' ),COLORWHITE; 
 AAAS:=STRCAT(CON2STR(DAY,0),'日'); 
DRAWTEXT_FIX(C>0,0.03,0.88,0,AAAS),COLORWHITE; 
 BB1:=STRCAT(CON2STR(REF(MONTH,1),0),'月'); 
BB2:=STRCAT(CON2STR(REF(DAY,1),0),'日'); 
BB3:=STRCAT(BB1,BB2); 
 DRAWTEXT_FIX(C>0,0.01,0.74,0,BB3),COLORWHITE; 
 CC1:=STRCAT(CON2STR(REF(MONTH,2),0),'月'); 
CC2:=STRCAT(CON2STR(REF(DAY,2),0),'日'); 
CC3:=STRCAT(CC1,CC2); 
 DRAWTEXT_FIX(C>0,0.01,0.6,0,CC3),COLORWHITE; 
 DD1:=STRCAT(CON2STR(REF(MONTH,3),0),'月'); 
DD2:=STRCAT(CON2STR(REF(DAY,3),0),'日'); 
DD3:=STRCAT(DD1,DD2); 
 DRAWTEXT_FIX(C>0,0.01,0.46,0,DD3),COLORWHITE; 
 EE1:=STRCAT(CON2STR(REF(MONTH,4),0),'月'); 
EE2:=STRCAT(CON2STR(REF(DAY,4),0),'日'); 
EE3:=STRCAT(EE1,EE2); 
 DRAWTEXT_FIX(C>0,0.01,0.32,0,EE3),COLORWHITE; 
 FF1:=STRCAT(CON2STR(REF(MONTH,5),0),'月'); 
FF2:=STRCAT(CON2STR(REF(DAY,5),0),'日'); 
FF3:=STRCAT(FF1,FF2); 
 DRAWTEXT_FIX(C>0,0.01,0.18,0,FF3),COLORWHITE; 
上涨值:=MA((H+REF(L,1))/2,3); 
下跌值:=MA((REF(H,1)+L)/2,3); 
买进高点:=MA((H+REF(H,1))/2,3); 
卖出低点:=MA((REF(L,1)+L)/2,3); 
买值:=((O+H+L+2*C)/5)*2-L; 
卖值:=((O+H+L+2*C)/5)*2-H; 
突破买入值:=MA(买值,3); 
突破卖出值:=MA(卖值,3); 
测高:=(上涨值+买进高点+突破买入值+H)/4; 
测低:=(下跌值+卖出低点+突破卖出值+L)/4; 
低价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(测高,2),'             '),STRCAT(CON2STR(H,2),'          ')),STRCAT(CON2STR(测低,2),'           ')),CON2STR(L,2)) ; 
低价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,1),2),'             '),STRCAT(CON2STR(REF(H,1),2),'          ')),STRCAT(CON2STR(REF(测低,1),2),'           ')),CON2STR(REF(L,1),2)) ; 
低价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,2),2),'             '),STRCAT(CON2STR(REF(H,2),2),'          ')),STRCAT(CON2STR(REF(测低,2),2),'           ')),CON2STR(REF(L,2),2)) ; 
低价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,3),2),'             '),STRCAT(CON2STR(REF(H,3),2),'          ')),STRCAT(CON2STR(REF(测低,3),2),'           ')),CON2STR(REF(L,3),2)) ; 
低价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,4),2),'             '),STRCAT(CON2STR(REF(H,4),2),'          ')),STRCAT(CON2STR(REF(测低,4),2),'           ')),CON2STR(REF(L,4),2)) ; 
低价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,5),2),'             '),STRCAT(CON2STR(REF(H,5),2),'          ')),STRCAT(CON2STR(REF(测低,5),2),'           ')),CON2STR(REF(L,5),2)) ; 
中价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(测高,2),'          '),STRCAT(CON2STR(H,2),'         ')),STRCAT(CON2STR(测低,2),'        ')),CON2STR(L,2)) ; 
中价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,1),2),'          '),STRCAT(CON2STR(REF(H,1),2),'         ')),STRCAT(CON2STR(REF(测低,1),2),'        ')),CON2STR(REF(L,1),2)) ; 
中价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,2),2),'          '),STRCAT(CON2STR(REF(H,2),2),'         ')),STRCAT(CON2STR(REF(测低,2),2),'        ')),CON2STR(REF(L,2),2)) ; 
中价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,3),2),'          '),STRCAT(CON2STR(REF(H,3),2),'         ')),STRCAT(CON2STR(REF(测低,3),2),'        ')),CON2STR(REF(L,3),2)) ; 
中价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,4),2),'          '),STRCAT(CON2STR(REF(H,4),2),'         ')),STRCAT(CON2STR(REF(测低,4),2),'        ')),CON2STR(REF(L,4),2)) ; 
中价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,5),2),'          '),STRCAT(CON2STR(REF(H,5),2),'         ')),STRCAT(CON2STR(REF(测低,5),2),'        ')),CON2STR(REF(L,5),2)) ; 
中高1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(测高,2),'       '),STRCAT(CON2STR(H,2),'      ')),STRCAT(CON2STR(测低,2),'     ')),CON2STR(L,2)) ; 
中高2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,1),2),'       '),STRCAT(CON2STR(REF(H,1),2),'      ')),STRCAT(CON2STR(REF(测低,1),2),'     ')),CON2STR(REF(L,1),2)) ; 
中高3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,2),2),'       '),STRCAT(CON2STR(REF(H,2),2),'      ')),STRCAT(CON2STR(REF(测低,2),2),'     ')),CON2STR(REF(L,2),2)) ; 
中高4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,3),2),'       '),STRCAT(CON2STR(REF(H,3),2),'      ')),STRCAT(CON2STR(REF(测低,3),2),'     ')),CON2STR(REF(L,3),2)) ; 
中高5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,4),2),'       '),STRCAT(CON2STR(REF(H,4),2),'      ')),STRCAT(CON2STR(REF(测低,4),2),'     ')),CON2STR(REF(L,4),2)) ; 
中高6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,5),2),'       '),STRCAT(CON2STR(REF(H,5),2),'      ')),STRCAT(CON2STR(REF(测低,5),2),'     ')),CON2STR(REF(L,5),2)) ; 
高价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(测高,2),' '),STRCAT(CON2STR(H,2),' ')),STRCAT(CON2STR(测低,2),' ')),CON2STR(L,2)) ; 
高价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(测低,1),2),' ')),CON2STR(REF(L,1),2)) ; 
高价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(测低,2),2),' ')),CON2STR(REF(L,2),2)) ; 
高价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(测低,3),2),' ')),CON2STR(REF(L,3),2)) ; 
高价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(测低,4),2),' ')),CON2STR(REF(L,4),2)) ; 
高价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(测高,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(测低,5),2),' ')),CON2STR(REF(L,5),2)) ; 
 QQ1:=IF(CONST(测高)<10,低价1,IF(CONST(测高)<100,中价1,IF( CONST(测高)<900 ,中高1,高价1))); 
 QQ2:=IF(CONST(REF(测高,1))<10,低价2,IF(CONST(REF(测高,1))<100,中价2,IF(CONST(REF(测高,1))<900,中高2,高价2))); 
 QQ3:=IF(CONST(REF(测高,2))<10,低价3,IF(CONST(REF(测高,2))<100,中价3,IF(CONST(REF(测高,1))<900,中高3,高价3))); 
 QQ4:=IF(CONST(REF(测高,3))<10,低价4,IF(CONST(REF(测高,3))<100,中价4,IF(CONST(REF(测高,1))<900,中高4,高价4))); 
 QQ5:=IF(CONST(REF(测高,4))<10,低价5,IF(CONST(REF(测高,4))<100,中价5,IF(CONST(REF(测高,1))<900,中高5,高价5))); 
 QQ6:=IF(CONST(REF(测高,5))<10,低价6,IF(CONST(REF(测高,5))<100,中价6,IF(CONST(REF(测高,1))<900,中高6,高价6))); 
 DRAWTEXT_FIX(C>0,0.073,0.88,0,QQ1),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.073,0.74,0,QQ2),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.073,0.6,0,QQ3),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.073,0.46,0,QQ4),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.073,0.32,0,QQ5),COLORWHITE; 
 DRAWTEXT_FIX(C>0,0.073,0.18,0,QQ6),COLORWHITE;

页: [1]

指标之家—公式指标程序代码分享—公式指标网's Archiver

通达信适合做波段的量能参考副图指标源码