股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[大智慧] 无悔波段 主图源码


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2024-3-19 09:56:13
无悔波段 主图源码介绍

无悔波段 主图源码

DRAWGBKlast(c>0,strip(RGB(0,0,0),RGB(0,0,780),0));
{1.K线}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000011;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000033;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,CLOSE,9.5,0) ,COLOR0000FF,LAYER0;
STICKLINE((CLOSE >= OPEN),HIGH,LOW,0.5,0),color0000FF;

STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),color006600;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),color008800;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),color00AA00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),color00BB00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,4,0),color00CC00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3,0),color00DD00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,2,0),color00EE00;
STICKLINE((OPEN >= CLOSE),CLOSE,CLOSE,9.5,0),color00FF00,LAYER0;
STICKLINE((OPEN > CLOSE),HIGH,LOW,0.5,0),color00FF00;

LC:=REF(C,1);
RSI:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
DRAWTEXT(CROSS(80,RSI) ,high*1.02,'RSI→80'),COLOR00ffFF,ALIGN1,LINETHICK1;

{2.波段}
RC:=(H+L+C*2)/4;
R2D:=EMA(RC,21);
R2E:=STD(RC,21);
R3F:=((RC-R2D)/R2E+EMA(C,5));
R40:=EMA(R3F,5);
R41:=EMA(R40,3);
JD: EMA(R41,3),COLORff9900,DOTLINE;
AJ: 3*R41-2*JD,COLOR00FF00,DOTLINE;
PARTLINE(JD,(JD>REF(JD,1)),rgb(255,0,0) ),LINETHICK3,LAYER0;
PARTLINE(AJ,(AJ>REF(AJ,1)),rgb(240,220,0) ),LINETHICK2,LAYER0;

{3.J合力}
J9:EMA("KDJ.J"(9,3,3),5) ,COLOR0000FF,LINETHICK0;
J18:EMA("KDJ.J"(18,3,3),5) ,COLOR00FFFF,DOTLINE,LINETHICK0;
J27:EMA("KDJ.J"(27,3,3),5) ,COLOR00FF00,DOTLINE,LINETHICK0;
J36:EMA("KDJ.J"(36,3,3),5) ,COLOR0077FF,DOTLINE,LINETHICK0;
J45:EMA("KDJ.J"(45,3,3),5) ,COLORFF9900,LINETHICK0;
J54:EMA("KDJ.J"(54,3,3),5) ,COLORFF9900,LINETHICK0;
J合力:(3*J9+2*J18+J27+J36+J45+J54)/9,COLOR00FFCC,LINETHICK0;
合力顶:=J合力>85 ;
合力低:=J合力<15;
DRAWTEXT(CROSS(0,合力顶) ,H*1.04,'【顶】'),ALIGN1,COLOR00FFFF,LINETHICK3,LAYER3;
DRAWTEXT(CROSS(0,合力低) ,L*0.97,'【低】'),ALIGN1,COLOR0077FF,LINETHICK3,LAYER0;
{低部买}
DIBU:= "KDJ.K"(9,3,3)<15 AND "KDJ.D"(9,3,3)<15 AND "KDJ.K"(18,3,3)<15 AND "KDJ.D"(18,3,3)<15
AND "KDJ.K"(27,3,3)<20 AND "KDJ.D"(27,3,3)<20 AND "KDJ.D"(36,3,3)<20 AND "KDJ.D"(54,3,3)<20;
DRAWTEXT(CROSS(0,DIBU) ,L*0.95,'买'),ALIGN1,COLOR00ffff,LINETHICK2,LAYER3;
 


 









通达信版源码:

{1.波段}
RC:=(H+L+C*2)/4;
R2D:=EMA(RC,21);
R2E:=STD(RC,21);
R3F:=((RC-R2D)/R2E+EMA(C,5));
R40:=EMA(R3F,5);
R41:=EMA(R40,3);
JD: EMA(R41,3),COLORFF9900,LINETHICK2;
AJ: 3*R41-2*JD,COLOR0077FF,LINETHICK2;
DRAWBAND(AJ,RGB(100,50,0),JD,RGB(0,100,50));

{2.K线}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF;
STICKLINE((CLOSE >= OPEN),HIGH,LOW,0,0),COLOR0000FF;

STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3,0),COLOR00DD00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,2,0),COLOR00EE00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1,0),COLOR00FF00;
STICKLINE((OPEN > CLOSE),HIGH,LOW,0,0),COLOR00FF00;
 


 






gd21189

回复

举报

QQ|

GMT+8, 2024-9-30 00:28

快速回复 返回顶部 返回列表