专栏名称: 股斗罗
长剑倚天星斗烂，古今过眼成空...
目录
相关文章推荐
上海发布  ·  继续减半征收“六税两费”、实施中小微企业贷款 ... ·  12 小时前  
乐游上海  ·  超54万张“乐游上海”旅游消费券，总计600 ... ·  18 小时前  
上海发布  ·  【教育】2025年同等学力全国统考将于5月1 ... ·  2 天前  
东方网  ·  这届年轻人开始付费上班了？上海真有家“假装上 ... ·  2 天前  
上海发展改革  ·  【儿童友好】承包孩子们一天的快乐——“上海市 ... ·  2 天前  
51好读  ›  专栏  ›  股斗罗

假期优惠：全场六折！多周期突破主图源码分享

股斗罗  · 公众号  ·  · 2024-04-03 20:46

正文

1、日周月MACD对应高位在主图K线上的画线

2、角度变化自动变色均线

3、周月季对应的MACD金叉位置在K线上位置

4、主力成本位置显示

说明：

（1）日周月MACD对应高点信号是固定信号，只取最后一个MACD 死叉-金叉周期，只要股价位置达标就自动在对应位置自动标识，信号不飘移。

（2）均线是5日均线，加上角度信号叠加变色（原角度金钻位置：【图】吻雪【角度观察副图】 原角度精华贴升级版，更方便观察强弱反转位置（10金钻便宜试..._金钻指标技术共享交流论坛_理想股票技术论坛 - 股票论坛 (55188.com)）

（3）周月季MACD金叉位置是对应在日线上，一旦出现就不会变化，可以参考使用。

（4）主力成本是一个动态参数，跟每天的收盘价自动计算，并把对应位置标识。

天鹅作为人气龙头股，其实在二板时已经看得出它有走强的趋势。

1、前面首板就是周MACD金叉信号

2、二板就是突破日/周MACD 高点信号

3、从5日均线变红可以看出角度强势信号的变化

源码如下：

主图：

{MA20:=MA(C,20),LINETHICK1,COLORBLUE;
年线:MA(C,250),LINETHICK1,COLORWHITE,DOTLINE;}
市场成本:=DMA(AMOUNT/(100*VOL),VOL/CAPITAL),COLORYELLOW,DOTLINE;
最新获利:(C/市场成本-1)*100,NODRAW;
IF(CURRBARSCOUNT<=10,CONST(市场成本),DRAWNULL),COLORLIGRAY,DOTLINE;
DRAWTEXT(ISLASTBAR,市场成本*0.98,VARCAT(VARCAT(' ↖主力成本：',VAR2STR(市场成本,2)),'元'))COLORYELLOW;
DRAWTEXT(ISLASTBAR,市场成本*0.95,VARCAT(VARCAT('    获利：',VAR2STR(最新获利,2)),'%'))COLORYELLOW;

DIF:=EMA(CLOSE,12)-EMA(CLOSE,25);
DEA:=EMA(DIF,9);
JZX1:=CROSS(DIF,DEA);
JZX2:=CROSS(DEA,DIF);
常量:CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2)),NODRAW;
前高:IF(CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2))>2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(DIF,BARSLAST(JZX2),SUMBARS(JZX1,2)-BARSLAST(JZX2),1))+1,CONST(FINDHIGH(H,BARSLAST(JZX2),SUMBARS(JZX1,2)-BARSLAST(JZX2),1)),DRAWNULL),DRAWNULL),COLORMAGENTA,DOTLINE;
前低:IF(CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2))>2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(DIF,BARSLAST(JZX1),SUMBARS(JZX1,2)-BARSLAST(JZX2),1))+1,CONST(FINDLOW(L,BARSLAST(JZX1),SUMBARS(JZX1,2)-BARSLAST(JZX2),1)),DRAWNULL),DRAWNULL),COLORGREEN,DOTLINE;

M2:=IF(REF(WEEKOFYEAR,1)!=WEEKOFYEAR,IF(REF(YEAR,1)!=YEAR,0,1),0);
M3:=IF(REF(MONTH,1)!=MONTH,IF(REF(YEAR,1)!=YEAR,0,1),0);
WH:=ALIGNRIGHT(IF(M2,H#WEEK,DRAWNULL));
WL:=ALIGNRIGHT(IF(M2,L#WEEK,DRAWNULL));
MH:=ALIGNRIGHT(IF(M3,H#MONTH,DRAWNULL));
ML:=ALIGNRIGHT(IF(M3,L#MONTH,DRAWNULL));

WDIF:=ALIGNRIGHT(IF(M2,MACD.DIF#WEEK,DRAWNULL));
WDEA:=ALIGNRIGHT(IF(M2,MACD.DEA#WEEK,DRAWNULL));
JZX11:=CROSS(WDIF,WDEA);
JZX21:=CROSS(WDEA,WDIF);
周前高:IF(CONST(SUMBARS(JZX11,2)-BARSLAST(JZX21))>=2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(WDIF,BARSLAST(JZX21),SUMBARS(JZX11,2)-BARSLAST(JZX21),1))+1,CONST(FINDHIGH(WH,BARSLAST(JZX21),SUMBARS(JZX11,2)-BARSLAST(JZX21),1)),DRAWNULL),DRAWNULL),COLORMAGENTA;
周前低:IF(CONST(SUMBARS(JZX11,2)-BARSLAST(JZX21))>=2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(WDIF,BARSLAST(JZX11),SUMBARS(JZX11,2)-BARSLAST(JZX21),1))+1,CONST(FINDLOW(WL,BARSLAST(JZX11),SUMBARS(JZX11,2)-BARSLAST(JZX21),1)),DRAWNULL),DRAWNULL),COLORGREEN;

MDIF:=ALIGNRIGHT(IF(M3,MACD.DIF#MONTH,DRAWNULL));
MDEA:=ALIGNRIGHT(IF(M3,MACD.DEA#MONTH,DRAWNULL));
JZX12:=CROSS(MDIF,MDEA);
JZX22:=CROSS(MDEA,MDIF);
月前高:IF(CONST(SUMBARS(JZX12,2)-BARSLAST(JZX22))>=2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(MDIF,BARSLAST(JZX22),SUMBARS(JZX12,2)-BARSLAST(JZX22),1))+1,CONST(FINDHIGH(MH,BARSLAST(JZX22),SUMBARS(JZX12,2)-BARSLAST(JZX22),1)),DRAWNULL),DRAWNULL),COLORMAGENTA,LINETHICK2;
月前低:IF(CONST(SUMBARS(JZX12,2)-BARSLAST(JZX22))>=2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(MDIF,BARSLAST(JZX12),SUMBARS(JZX12,2)-BARSLAST(JZX22),1))+1,CONST(FINDLOW(ML,BARSLAST(JZX12),SUMBARS(JZX12,2)-BARSLAST(JZX22),1)),DRAWNULL),DRAWNULL),COLORGREEN,LINETHICK2;

DRAWTEXT(ISLASTBAR,前高, STRCAT(STRCAT(STRCAT('--','--前高'),'= ' ),CON2STR(前高,2))),COLORGREEN;
DRAWTEXT(ISLASTBAR,周前高*0.98, STRCAT(STRCAT(STRCAT('','↖--周前高'),'= ' ),CON2STR(周前高,2))),COLORGREEN;
DRAWTEXT(ISLASTBAR,月前高*1.02, STRCAT(STRCAT(STRCAT('','↙--月前高'),'= ' ),CON2STR(月前高,2))),COLORGREEN;

NE:=IF(FINANCE(3)=3 OR FINANCE(3)=4,0.2,0.1);
ZT:=C+0.01>=ZTPRICE(REF(C,1),NE) AND C=H;
WDIF1:=MACD.DIF#WEEK,NODRAW;
WDEA1:=MACD.DEA#WEEK,NODRAW;
MDIF1:=MACD.DIF#MONTH,NODRAW;
MDEA1:=MACD.DEA#MONTH,NODRAW;
SDIF:=MACD.DIF#SEASON,NODRAW;
SDEA:=MACD.DEA#SEASON,NODRAW;
周金:=CROSS(WDIF1,WDEA1);
月金:=CROSS(MDIF1,MDEA1);
季金:=CROSS(SDIF,SDEA),NODRAW;

TJ1:=ZT AND EXIST(周金,20) AND WDIF1>=-0.1;
TJ2:=ZT AND WDIF1>=WDEA1 AND WDIF1>=0;
TJ3:=ZT AND EXIST(月金,20) AND MDIF1>=-0.1;
TJ4:=ZT AND MDIF1>=MDEA1 AND MDIF1>=0;
周金买点:STICKLINE(BARSLASTCOUNT(TJ1 OR TJ2)=1,O,C,2.5,0),COLORYELLOW;
月金买点:STICKLINE(BARSLASTCOUNT(TJ3 OR TJ4)=1,(O+C)/2,C,2.5,0),COLORMAGENTA;
DRAWTEXT(周金,H,'↙周金'),COLORYELLOW;
DRAWTEXT(月金,L*0.99,'→月金'),COLORMAGENTA;
DRAWTEXT(季金,H*1.02,'↙季金'),COLORRED;
MA5:MA(C,5),COLORYELLOW;
AT5:=ATAN((MA5/REF(MA5,5)-1)*100)*180/3.14159;
NOTEXT1:IF(AT5>=70,MA5,DRAWNULL),LINETHICK2,COLORRED;


选股：

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

DEA:=EMA(DIF,9);

JZX1:=CROSS(DIF,DEA);

JZX2:=CROSS(DEA,DIF);

前高:=IF(CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2))>2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(DIF,BARSLAST(JZX2),SUMBARS(JZX1,2)-BARSLAST(JZX2),1))+1,CONST(FINDHIGH(H,BARSLAST(JZX2),SUMBARS(JZX1,2)-BARSLAST(JZX2),1)),DRAWNULL),DRAWNULL);

前低:=IF(CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2))>2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(DIF,BARSLAST(JZX1),SUMBARS(JZX1,2)-BARSLAST(JZX2),1))+1,CONST(FINDLOW(L,BARSLAST(JZX1),SUMBARS(JZX1,2)-BARSLAST(JZX2),1)),DRAWNULL),DRAWNULL);


M2:=IF(REF(WEEKOFYEAR,1)!=WEEKOFYEAR,IF(REF(YEAR,1)!=YEAR,0,1),0);

M3:=IF(REF(MONTH,1)!=MONTH,IF(REF(YEAR,1)!=YEAR,0,1),0);

WH:=ALIGNRIGHT(IF(M2,H#WEEK,DRAWNULL));

WL:=ALIGNRIGHT(IF(M2,L#WEEK,DRAWNULL));

MH:=ALIGNRIGHT(IF(M3,H#MONTH,DRAWNULL));

ML:=ALIGNRIGHT(IF(M3,L#MONTH,DRAWNULL));


WDIF:=ALIGNRIGHT(IF(M2,MACD.DIF#WEEK,DRAWNULL));

WDEA:=ALIGNRIGHT(IF(M2,MACD.DEA#WEEK,DRAWNULL));

JZX11:=CROSS(WDIF,WDEA);

JZX21:=CROSS(WDEA,WDIF);

周前高:=IF(CONST(SUMBARS(JZX11,2)-BARSLAST(JZX21))>=2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(WDIF,BARSLAST(JZX21),SUMBARS(JZX11,2)-BARSLAST(JZX21),1))+1,CONST(FINDHIGH(WH,BARSLAST(JZX21),SUMBARS(JZX11,2)-BARSLAST(JZX21),1)),DRAWNULL),DRAWNULL),COLORMAGENTA;

周前低:=IF(CONST(SUMBARS(JZX11,2)-BARSLAST(JZX21))>=2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(WDIF,BARSLAST(JZX11),SUMBARS(JZX11,2)-BARSLAST(JZX21),1))+1,CONST(FINDLOW(WL,BARSLAST(JZX11),SUMBARS(JZX11,2)-BARSLAST(JZX21),1)),DRAWNULL),DRAWNULL),COLORGREEN;


MDIF:=ALIGNRIGHT(IF(M3,MACD.DIF#MONTH,DRAWNULL));

MDEA:=ALIGNRIGHT(IF(M3,MACD.DEA#MONTH,DRAWNULL));

JZX12:=CROSS(MDIF,MDEA);

JZX22:=CROSS(MDEA,MDIF);

月前高:=IF(CONST(SUMBARS(JZX12,2)-BARSLAST(JZX22))>=2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(MDIF,BARSLAST(JZX22),SUMBARS(JZX12,2)-BARSLAST(JZX22),1))+1,CONST(FINDHIGH(MH,BARSLAST(JZX22),SUMBARS(JZX12,2)-BARSLAST(JZX22),1)),DRAWNULL),DRAWNULL),COLORMAGENTA,LINETHICK2;

月前低:=IF(CONST(SUMBARS(JZX12,2)-BARSLAST(JZX22))>=2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(MDIF,BARSLAST(JZX12),SUMBARS(JZX12,2)-BARSLAST(JZX22),1))+1,CONST(FINDLOW(ML,BARSLAST(JZX12),SUMBARS(JZX12,2)-BARSLAST(JZX22),1)),DRAWNULL),DRAWNULL),COLORGREEN,LINETHICK2;


NE:=IF(FINANCE(3)=3 OR FINANCE(3)=4,0.2,0.1);

ZT:=C+0.01>=ZTPRICE(REF(C,1),NE) AND C=H;

ZTX:=COUNT(ZT,5)<=2;

WDIF1:=MACD.DIF#WEEK;

WDEA1:=MACD.DEA#WEEK;

MDIF1:=MACD.DIF#MONTH;

MDEA1:=MACD.DEA#MONTH;

SDIF:=MACD.DIF#SEASON;

SDEA:=MACD.DEA#SEASON;

周金:=CROSS(WDIF1,WDEA1);

月金:=CROSS(MDIF1,MDEA1);

季金:=CROSS(SDIF,SDEA);


TJ1:=ZT AND EXIST(周金,20) AND WDIF1>=-0.1;

TJ2:=ZT AND WDIF1>=WDEA1 AND WDIF1>=0;

TJ3:=ZT AND EXIST(月金,20) AND MDIF1>=-0.1;

TJ4:=ZT AND MDIF1>=MDEA1 AND MDIF1>=0;

周金买点:=STICKLINE(BARSLASTCOUNT(TJ1 OR TJ2)=1,O,C,2.5,0),COLORYELLOW;

月金买点:=STICKLINE(BARSLASTCOUNT(TJ3 OR TJ4)=1,(O+C)/2,C,2.5,0),COLORMAGENTA;

MA5:=MA(C,5),COLORYELLOW;

AT5:=ATAN((MA5/REF(MA5,5)-1)*100)*180/3.14159;

AT5X:=IF(AT5>=70,MA5,DRAWNULL);


XG:((C>=前高 AND C>=周前高) OR (C>=前高 AND C>=月前高)) AND AT5X AND ZTX;


----------------------------------------------------------------------

今日竞价系统表现：









请到「今天看啥」查看全文


推荐文章
上海发布  ·  继续减半征收“六税两费”、实施中小微企业贷款贴息贴费政策……沪发布21项减轻企业负担举措
12 小时前
乐游上海  ·  超54万张“乐游上海”旅游消费券，总计6000万元优惠等你来分享，摇号报名明天开启→
18 小时前
上海发布  ·  【教育】2025年同等学力全国统考将于5月18日举行
2 天前
东方网  ·  这届年轻人开始付费上班了？上海真有家“假装上班”公司！没有复杂职场关系，有人专门去体验
2 天前
上海发展改革  ·  【儿童友好】承包孩子们一天的快乐——“上海市儿童友好空间画报”点位介绍之辰山植物园
2 天前
桃叭啦  ·  【叮】表情包笑到窒息系列哈哈哈哈哈哈哈
8 年前
央视新闻  ·  最光辉的，是勇敢迈向意志那天
7 年前
上海发布  ·  【活动】“浦江爵士游轮之夜”下周闪亮登场，小布送票50张！
7 年前
老虎财富  ·  日本占据了目前全世界90%的中药市场销售份额，看到这个消息，不禁让人感到泪奔。
7 年前
跨境电商跨境屋  ·  读Critical Review 知产品 - 新品榜车载产品的改进！
7 年前
Sov5搜索   ·   小百科   ·   今天看啥   ·   移动版
51好读 - 好文章就要读起来!