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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索

[通达信] 『股海智航1号2号』识别趋势启动实时捕捉突破顶线主副/选股指标源码


   
楼主
2026-3-12 14:32:39
{主图源码如下}

{股海智航主图}

周期天数:=25;

N日均线:MA(CLOSE, 周期天数);

TOP:N日均线*(1+0.06);

LIN:N日均线*(1-0.06);

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD:=(DIF-DEA)*2;

多多:=MACD>0;

顶线之上:=BARSLASTCOUNT(CLOSE>TOP)=1 AND 多多;

STICKLINE(顶线之上,O,C,2,0),COLORFF00FF;

DRAWICON(顶线之上,L,29);

DRAWTEXT(顶线之上,L,' →启动1号'),COLORYELLOW;

顶线之上2号:=顶线之上 AND O>TOP;

DRAWTEXT(顶线之上2号,L*0.98,' →启动2号'),COLORYELLOW;






{副图源码如下}

周期天数:=25;
N日均线:=MA(CLOSE, 周期天数);
TOP:=N日均线*(1+0.06);
LIN:=N日均线*(1-0.06);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
AVGN:=MA(CLOSE, 周期天数);
MACD:=(DIF-DEA)*2;
多多:=MACD>0;
TOP_LINE:=AVGN*(1+0.06);
QXS:=NOT(CODELIKE('4'));
QKC:=NOT(CODELIKE('688'));
QST:=IF(NAMELIKE('S'),0,1);
QXX:=IF(NAMELIKE('*'),0,1);
QBJ:=NOT(CODELIKE('8'));
TJ:=QXS AND QST AND QKC AND QXX AND QBJ;
顶线之上:=BARSLASTCOUNT(CLOSE>TOP)=1 AND 多多 AND TJ;
wwwZBGS3com:DRAWNULL,COLOR333333;
STICKLINE(CLOSE>TOP_LINE*0.95,1,-0.5,6,0),COLORRED;
STICKLINE(顶线之上,1,-0.5,2,0),COLORBLUE;
DRAWICON(顶线之上,1,30);
DRAWICON(顶线之上,0.8,28);
DRAWICON(顶线之上,0.6,29);
DRAWTEXT(顶线之上,0.2,'↖股海1号'),COLORYELLOW;
顶线之上2号:=顶线之上 AND O>TOP;
STICKLINE(顶线之上2号,1,0,4,0),COLORWHITE;
DRAWICON(顶线之上2号,1,30);
DRAWICON(顶线之上2号,0.8,28);
DRAWICON(顶线之上2号,0.6,29);
DRAWTEXT(顶线之上2号,0.4,'↖股海2号'),COLORYELLOW;



{选股1源码如下}

周期天数:=25;
N日均线:=MA(CLOSE, 周期天数);
TOP:=N日均线*(1+0.06);
LIN:=N日均线*(1-0.06);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
多多:=MACD>0;
QXS:=NOT(CODELIKE('4'));
QKC:=NOT(CODELIKE('688'));
QST:=IF(NAMELIKE('S'),0,1);
QXX:=IF(NAMELIKE('*'),0,1);
QBJ:=NOT(CODELIKE('8'));
TJ:=QXS AND QST AND QKC AND QXX AND QBJ;
顶线之上:BARSLASTCOUNT(CLOSE>TOP)=1 AND 多多 AND TJ;


{选股2源码如下}

周期天数:=25;
N日均线:=MA(CLOSE, 周期天数);
TOP:=N日均线*(1+0.06);
LIN:=N日均线*(1-0.06);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2;
多多:=MACD>0;
QXS:=NOT(CODELIKE('4'));
QKC:=NOT(CODELIKE('688'));
QST:=IF(NAMELIKE('S'),0,1);
QXX:=IF(NAMELIKE('*'),0,1);
QBJ:=NOT(CODELIKE('8'));
TJ:=QXS AND QST AND QKC AND QXX AND QBJ;
顶线之上:=BARSLASTCOUNT(CLOSE>TOP)=1 AND 多多 AND TJ;
顶线之上 AND O>TOP;

















回复

举报