求助大师编个MACD、KDJ60分钟均线向上的选股公式

[同花顺] 14138 6
设置
2330445 Lv.4

专栏

发表于 2011-3-26 16:36 复制 显示全部楼层 倒序浏览 |
跳转到指定楼层
求助大师给出下面两个指标60分钟均线向上的选股公式

【MACD】副图指标源码
DRAWGBKLAST(C0,STRIP(RGB(145,145,185),RGB(140,140,180),1));
N1=10;     N2=22;       M=7.5;
DIF(EMA(C,N1)-EMA(C,N2))(1+EMA(ABS(C),512))7.5,COLOR0000FF;
DEAEMA(DIF,M),COLOR09FFFF;
MACD=2(DIF-DEA),COLORSTICK;
PARTLINE(DIF,DIF=REF(DIF,1),RGB(250,0,0),DIFREF(DIF,1),RGB(0,0,250)),linethick1;
均衡SMA(DIF,4,2),Color00FF00,LINETHICK1;
随行IF(MACD 0,MACD,0),ColorFFFFFF,LINETHICK1;
D2=MACD;
STICKLINE(D2REF(D2,1)AND D20,0,D2,5,0),Color979700;
STICKLINE(D2REF(D2,1)AND D20,0,D2,4,0),ColorB5B500;
STICKLINE(D2REF(D2,1)AND D20,0,D2,3,0),ColorD2D200;兰
STICKLINE(D2REF(D2,1)AND D20,0,D2,5,0),Color974B00;
STICKLINE(D2REF(D2,1)AND D20,0,D2,4,0),ColorB55A00;
STICKLINE(D2REF(D2,1)AND D20,0,D2,3,0),ColorD26900;蓝
STICKLINE(D2REF(D2,1)AND D2,0,D2,5,0),Color97004B;
STICKLINE(D2REF(D2,1)AND D2,0,D2,4,0),ColorB5005A;
STICKLINE(D2REF(D2,1)AND D2,0,D2,3,0),ColorD20069;紫
STICKLINE(D2REF(D2,1)AND D20,0,D2,5,0),Color970097;
STICKLINE(D2REF(D2,1)AND D20,0,D2,4,0),ColorB500B5;
STICKLINE(D2REF(D2,1)AND D20,0,D2,3,0),ColorD200D2;粉
VAR1=(EMA(C,N1)-REF(EMA(C,N1),1))REF(EMA(C,N1),1);
VAR2=(EMA(C,N2)-REF(EMA(C,N2),1))REF(EMA(C,N2),1);
STICKLINE(VAR1=VAR2 AND VAR20 AND CEMA(C,N2),0,MACD,5,1),COLOR000066;
STICKLINE(VAR1=VAR2 AND VAR20 AND CEMA(C,N2),0,MACD,4,1),COLOR000077;
STICKLINE(VAR1=VAR2 AND VAR20 AND CEMA(C,N2),0,MACD,3,1),COLOR000099;
A=MACD0;
绿柱数=BARSLAST(A)=5;
STICKLINE(绿柱数REF(D2,1)AND 绿柱数=0,0,D2,5,0),COLOR00AA00;
STICKLINE(绿柱数REF(D2,1)AND 绿柱数=0,0,D2,4,0),COLOR00CC00;
STICKLINE(绿柱数REF(D2,1)AND 绿柱数=0,0,D2,3,0),COLOR00EE00;绿柱
OSC=100(CLOSE-MA(CLOSE,11.5));
MAOSC=EMA(OSC,4.5);
STICKLINE(MACDREF(MACD,1)AND CROSS(MAOSC,OSC),0,MACD,5,0),COLORFF0000;
STICKLINE(MACDREF(MACD,1)AND CROSS(OSC,MAOSC),0,MACD,5,0),COLOR09FFFF;

KDJ自动画出顶底背离公式  

同花顺使用
参数 N:2  90   9; M1:2  30  3; M2:2  30  3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1),coloryellow,LINETHICK1;
D:SMA(K,M2,1),colorcyan,LINETHICK1;
J:3*K-2*D,colormagenta,LINETHICK1;
高安全区:0,colorred;
安全区:20,colorcyan;
风险区:100,colorgreen;
U1:=BARSLAST(REF(CROSS(K,D),1));
U2:=REF(C,U1+1)>C AND REF(K,U1+1)<K AND CROSS(K,D)AND d<50;
底背离:=IF(U2>0,1,0);
DRAWLINE(U1=0,D,底背离,REF(D,U1),0),colorred,LINETHICK2;
DRAWLINE(底背离,D,底背离,REF(D,U1),0),colorred,LINETHICK2;
DRAWTEXT(底背离,REF(D,U1)*1.00,' 底背离'),coloryellow;
rr:=MAX(C,O);
q1:=HHV(rr,5);
q2:=d<REF(d,1) AND REF(d,1)>REF(d,2);
A2:=BARSLAST(REF(q2,1));
顶背离:= REF(q1,A2+1)<q1 AND  k<REF(k,A2+1) AND q2;
DRAWLINE(A2=0  ,D,顶背离,REF(D,A2),0),colorwhite,LINETHICK2;
DRAWLINE(顶背离,D,顶背离,REF(D,A2),0),colorwhite,LINETHICK2;
DRAWTEXT(顶背离,REF(D,A2)*1.02,' 顶背离'),colorgreen;

[ 本帖最后由 梦香轩 于 2011-3-26 19:53 编辑 ]

附件

经典MACD.png
KDJ自动画出顶底背.png
MACD】副图指标源码.txt [预览]

1.73 KB, 下载次数: 3, 下载积分: 共享币 -10 个

KDJ自动画出顶底背离公式 .txt [预览]

945 Bytes, 下载次数: 3, 下载积分: 共享币 -10 个

来自 福建省泉州市

举报

使用道具 扔鸡蛋 回复

2095557
Lv.7

专栏

发表于 2011-3-26 17:29 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...

举报

使用道具 支持 扔鸡蛋 回复

2188339
Lv.4

专栏

发表于 2011-3-26 17:51 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广东省佛山市

举报

使用道具 支持 扔鸡蛋 回复

2330445
Lv.4

专栏

发表于 2011-3-26 19:50 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 福建省泉州市

举报

使用道具 支持 扔鸡蛋 回复

2330445
Lv.4

专栏

发表于 2011-3-27 18:46 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 福建省泉州市安溪县

举报

使用道具 支持 扔鸡蛋 回复

2330445
Lv.4

专栏

发表于 2011-3-28 09:31 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 河北省保定市

举报

使用道具 点亮 支持 扔鸡蛋 回复

2330445
Lv.4

专栏

发表于 2011-3-29 19:56 复制 查看全部楼层 屏蔽
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 福建省泉州市安溪县

举报

使用道具 支持 扔鸡蛋 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

楼主
2楼
3楼
4楼
5楼
6楼
7楼
站长推荐 /5
回顶部 到页底
快速回复 返回顶部 返回列表