无引用飞狐周MACD、周RSI、周KDJ指标的大智慧表达式 - macd指标-kdj指标 - 股票壹网
无引用飞狐周MACD、周RSI、周KDJ指标的大智慧表达式
10:51:00&&&来源：股票壹网&&&评论： 点击：
无引用飞狐周MACD、周RSI、周KDJ指标的大智慧表达式
非常不错！感谢分享！周班辛苦了！！！--非常不错！感谢分享！--~赠人玫瑰之手*经久犹有余香~--非常不错！感谢分享！d--谢谢老师分享，学习了--谢谢老师分享，
&&无引用飞狐周MACD、周RSI、周KDJ指标的大智慧表达式
非常不错！感谢分享！周班辛苦了！！！--非常不错！感谢分享！--~赠人玫瑰之手*经久犹有余香~--非常不错！感谢分享！d--谢谢老师分享，学习了--谢谢老师分享，学习了--周易老师的这几个周线指标看着都挺不错的
问下通达信软件可以实现这几个指标么？谢谢！！！！--谢谢老师分享，学习了--阁下字迹工整，
文笔极佳，
才思敏捷，
过目不忘，
十年寒窗，
博学多才，
见多识广，
才高八斗，
学富五车，
文武双全，
雄韬伟略，
谈吐不凡，
谈笑风声，
高谈阔论，
眉飞色舞，
运筹帷幄，
言简意赅，
完美无缺，
一针见血，
远见卓识，
义正词严，
一气呵成，
大显神通，
出口成章，
出类拔萃，
出神入化，
万古流芳，
一本正经，
一箭双雕，
长篇大论，
功德无量，
力排众议，
力挽狂澜，
气贯长虹，
气势磅礴，
气吞山河，
坚韧不拔，
身体力行，
空前绝后，
视死如归，
英姿焕发，
奉公守法，
艰苦奋斗，
忠贞不渝，
舍己为人，
大公无私，
一尘不染，
一鸣惊人，
叱诧风云，
排山倒海，
惊涛骇浪，
雷霆万钧，
惊心动魄，
横扫千军，
惊天动地，
见缝插针，
无孔不入，
千篇一律，
口诛笔伐，
文从字顺，
十全十美，
无懈可击，
无与伦比，
励精图治，
壮志凌云，
高瞻远瞩，
忍辱负重，
盖世无双，
龙飞凤舞，
一丝不苟，
身兼数职，
日理万机，
明察秋毫，
英明果断，
分身有术，
孜孜不倦，
在下对你的景仰之情有如滔滔长江之水，
连绵不绝--股票壹有你更精彩！谢谢分享。--恭贺周易2000老师，此帖荣获本区3月份精华帖！--谢谢周易老师,辛苦了......--谢谢！！！！！！！！！！！！！！！！
　--已经有了！单还是要谢谢老师！！！--股票壹有你更精彩！谢谢分享。--谢谢周易老师,辛苦了......--非常不错！感谢分享！楼主辛苦了！！！--非常不错！感谢分享！楼主辛苦了！！！--谢谢！！！！！！！！！！！！！！！！！
&周易2000：&&
10:51 &&&有一求助帖：
请求将飞狐周MACD指标修改成大智慧指标（已解决：周易2000）
本文来自：股票壹论坛
作者：乘风破浪2008 浏览：1006次　
--------------------------------------------------------------------------------
原文：/viewthread.php?tid=4136626
学生学浅才疏，完全不懂编写循环语句。想将南客老师写的无引用的飞狐指标&&周MACD/周RSI/周KDJ&&修改成大智慧所用，请求老师帮助解决！诚谢！
三个指标的原码如下：复制内容到剪贴板代码:{周MACD}
input:long(26,20,100),short(12,5,40),m(9,2,60);
wtj1:=datediff(ref(date,1),date)&&weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1) or weekday=5;&&//周末标记
start:=barpos-barssince(wtj);
tmp:=setlbound(diff,start[datacount]);
tmp:=setlbound(dea,start[datacount]);
d1:=fc[start[datacount]];d2:=d1;wdea:=0;
for i=start[datacount]+1 to datacount do begin
&&if wtj then begin
& & d1:=(2*fc+(short-1)*d1)/(short+1);
& & d2:=(2*fc+(long-1)*d2)/(long+1);
& & wdiff:=d1-d2;
& & wdea:=(2*wdiff+(m-1)*wdea)/(m+1);
& & diff:=
&&end else begin
& & diff:=(2*fc+(short-1)*d1)/(short+1)-
& && && && & (2*fc+(long-1)*d2)/(long+1);
& & dea:=(2*diff+(m-1)*wdea)/(m+1);
macd:2*(diff-dea),
{//以下检查dea数据是否正确
weekdea:&macd.dea#week&;
drawicon(wtj,0,10);
tt:count(round(weekdea*100000-dea*100000)*wtj,0);//每个周末的数据是否相同进行统计，精确小数点后5位。}
低位金叉:=CROSS(DIFF,DEA) AND DIFF&-0.1;
STICKLINE(低位金叉,0,0.3,8,0),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA&=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA&0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.2,8,0),COLORff80
DRAWICON(二次金叉,dea*0.9,1) ;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)&CLOSE AND DIFF&REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.1,8,0),COLORRED;
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,linethick1;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)&CLOSE AND REF(DIFF,A2+1)&DIFF AND CROSS(DEA,DIFF);
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,linethick1;复制内容到剪贴板代码:{周RSI}
input:n1(6),n2(12),n3(24);
wtj1:=datediff(ref(date,1),date)&&weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1);&&//周末标记
lc := ref(close,barslast(wtj1)+1);
wcc:=barpos-sumbars(wtj,count(wtj,0)-1)+1;
start:=wcc[datacount];
maxc:=max(close-lc,0);
absc:=abs(close-lc);
r11:=maxc[start]; r12:=absc[start];
r21:=r11; r31:=r11; r22:=r12; r32:=r12;
zrsi1[start]:r11/r12*100;
zrsi2[start]:r21/r22*100;
zrsi3[start]:r31/r32*100;
for i=start+1 to datacount do begin
&&if wtj then begin
& & r11:=(maxc+(n1-1)*r11)/n1;
& & r12:=(absc+(n1-1)*r12)/n1;
& & r21:=(maxc+(n2-1)*r21)/n2;
& & r22:=(absc+(n2-1)*r22)/n2;
& & r31:=(maxc+(n3-1)*r31)/n3;
& & r32:=(absc+(n3-1)*r32)/n3;
& & zrsi1:=r11/r12*100;
& & zrsi2:=r21/r22*100;
& & zrsi3:=r31/r32*100;
&&end else begin
& & zrsi1:=(maxc+(n1-1)*r11)/(absc+(n1-1)*r12)*100;
& & zrsi2:=(maxc+(n2-1)*r21)/(absc+(n2-1)*r22)*100;
& & zrsi3:=(maxc+(n3-1)*r31)/(absc+(n3-1)*r32)*100;
复制内容到剪贴板代码:{周KDJ}
input:n(9,1,100),m1(3,2,40),m2(3,2,40);
wtj1:=datediff(ref(date,1),date)&&weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1);&&//周末标记
hn:=sumbars(wtj,n+1);
n0:=lbound(hn);
a:=setlbound(hn,1);
nn:=if(barpos&n0,barpos,hn-1);
RSV:=(CLOSE-LLV(LOW,nN))/(HHV(HIGH,nN)-LLV(LOW,nN))*100;
start:=barpos-barssince(wtj);
wk:=rsv[start[datacount]];
k[start[datacount]]:
wd:=k[start[datacount]];
d[start[datacount]]:
for i=start[datacount]+1 to datacount do begin
&&if wtj then begin
& & wk:=(rsv+(m1-1)*wk)/m1;
& & wd:=(wk+(m2-1)*wd)/m2;
&&end else begin
& & k:=(rsv+(m1-1)*wk)/m1;
& & d:=(k+(m2-1)*wd)/m2;
j:3*k-2*d;
{//验证代码：
drawicon(wtj,0,10);
zk:&kdj.k#week&;
tt:count((round(zk*1000)-round(k*1000))*wtj,0);}因涉及到两大股软之间函数表达式的互换，感觉有必要重开新贴，以方便后来者。
以下是三个指标的大智慧版源码：
INPUT:long(26,20,100),short(12,5,40),m(9,2,60);
VARIABLE:y=0,y1=0,dea=0;
wtj:=days1970-ref(days1970,1)&&weekday-ref(weekday,1) or barpos=1;
zm:=barslast(wtj)+1;
y:=(2*c+(short-1)*ref(y,zm))/(short+1);
y1:=(2*c+(long-1)*ref(y1,zm))/(long+1);
diff:y-y1;
dea:(2*diff+(m-1)*ref(dea,zm))/(m+1);
macd:2*(diff-dea),
{//以下检查dea数据是否正确
weekdea:&macd.dea#week&;
drawicon(wtj,0,10);
tt:count(FLOOR(weekdea*100000-dea*100000)*wtj,0);//每个周末的数据是否相同进行统计，精确小数点后5位。};
input:n1(6),n2(12),n3(24);
variable:y11=0,y12=0,y21=0,y22=0,y31=0,y32=0;
REFLINE: 0, 20, 50, 80, 100;
wtj:=days1970-ref(days1970,1)&&weekday-ref(weekday,1) or barpos=1;
zm:=barslast(wtj)+1;
LC:=ref(close,zm);
y1:=max(close-LC,0);& &
y2:=abs(close-LC);
y11:=(y1+(n1-1)*ref(y11,zm))/n1;
y12:=(y2+(n1-1)*ref(y12,zm))/n1;
zrsi1:y11/y12*100;
y21:=(y1+(n2-1)*ref(y21,zm))/n2;&&
y22:=(y2+(n2-1)*ref(y22,zm))/n2;
zrsi2:y21/y22*100;
y31:=(y1+(n3-1)*ref(y31,zm))/n3;&&
y32:=(y2+(n3-1)*ref(y32,zm))/n3;
zrsi3:y31/y32*100;
input:n(9,1,100),m1(3,2,40),m2(3,2,40);
variable:k=0,d=0;
REFLINE: 0, 20, 50, 80, 100;
wtj1:=days1970-ref(days1970,1)&&weekday-ref(weekday,1) or barpos=1;
zm:=barslast(wtj1)+1;
wtj:=&&(wtj1,1);&&{周末标记}
nn:=sumbars(wtj,n+1)-1;
RSV:=(CLOSE-LLV(LOW,nn))/(HHV(HIGH,nn)-LLV(LOW,nn))*100;
k:if(barpos=1,rsv,(ref(k,zm)*(m1-1)+rsv)/m1);
d:if(barpos=1,k,(ref(d,zm)*(m2-1)+k)/m2);
j:3*k-2*d;
{//验证代码：
drawicon(wtj,0,10);
zk:&kdj.k#week&;
tt:count((FLOOR(zk*1000)-FLOOR(k*1000))*wtj,0);};
{说明：&&引用DLL插件，需把下面附件解压放入大智慧根目录下：
refx.rar (47.96 KB)
下载：<font color="#FF次
&股票专家荐股少而精.成功率达95%
&想了解手头持有个股接下来的走势
相关热词搜索：
延伸阅读：
本栏点击总排行
短信荐股回顾
邮件传真荐股回顾
本栏目月排行
整网点击月排行
整网点击排行熊氏真传少林大易筋经
广东省武术协会副主席&
前记：养兄的体系自成一家，人生经历尤为特殊，这里转的是他以前散记的一部分。
&&&&&&&【&原创:养养　&&21:37　&万家灯火　　&浏览/回复：】&&
&&&&&&&　　
本文作者徐小庆，系敦和资管首席经济学家，人民币交易与研究论坛首席经济学家，本文为他在“2016年我的钢铁年会”上的演讲实录。
　　这个题目让我很为难，让我讲，我是一个门外汉，我过去的经历一直讲债券的，我主要擅长做宏观经济分析，今天重量级嘉宾很多，宏观经济，政策都讲完了，我又不可能讲债券，因为债券跟在座各位的行业没有直接的关系，我只能讲一下商品，但是我讲商品没有办法从供需去做严谨的分析，如果没有任何一个类别的产品可以讲清楚供给和需求，在座的各位对供给研究比我深很多。所以我只能试图从宏观的角度对明年的可能商品的需求做一些分析。
　　另外，汇率方面我也做了一些补充，因为汇率代表了产品的金融属性，这个是我要讲的主要内容。
　　前面的嘉宾讲了很多，所以他们讲过的东西，我不会再重复，这样为大家节省一些时间。
　　首先，我们知道过去几年在国内大宗商品市场，资金到底流向哪一类资产，从2014年开始，中国资产类别走势是非常明显，商品持续下跌，股票债券持续上涨，也可以用一个比较流行的说法，因为商品价格反应了实体
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);&
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
JCSJ:=BARSLAST(JC);
RE:=(diff&=ref(diff,1) and ref(diff,1)&ref(diff,2));
GR:=(diff&=ref(diff,1) and ref(diff,1)&ref(diff,2));
T:=sumbars(JC,1);
BU:=(diff&=ref(diff,1) and ref(diff,1)&ref(diff,2));
a1:=cross('macd.diff','macd.dea');
a2:=sumbars(a1,1);
Mlow:=ref(macd,2
周末与一位长者交谈，有些感悟就记录下来。
人没必要对任何人仰视
均线操作法：
1、对于均线的数字本身，个人觉得并不重要。无论是用什么都对股票的涨跌，没有决定性的作用。
1、世界经济史是一部基于假象和谎言的连续剧。要获得财富，做法就是认清其假象，投入其中，然后在假象被公众认识之前退出游戏。
2、市场总是错的。
3、重要的不是你的判断是错还是对，而是在你正确的时候要最大限度地发挥出你的力量来！
4、“我生来一贫如洗，但决不能死时仍旧贫困潦倒。”——挂在办公室的墙壁上。
5、如果你经营状况欠佳，那么，第一步你要减少投入，但不要收回资金。当你重新投入的时候，一开始投入数量要小。
6、不知道未来会发生什么并不可怕，可怕的是不知道如果发生什么就该如何应对。
7、要想获得成功，必须要有充足的自由时间。
8、在股票市场上，寻求别人还没有意识到的突变。
9、股市通常是不可信赖的，因而，如果在华尔街地区你跟曾别人赶时髦，那么，你的股票经营注定是十分惨淡的。
10、身在市场，你就得准备忍受痛苦。
11、如果你的投资运行良好，那么，跟着感觉走，并且把你所有的
&这些股票都是设计互联网＋的概念股，有很多已经长得很高了，就不要再参与了，但是，也有很多目前还没有启动。大家一定要自己选择一下，具体的选择方法如下：
(68)(93)(38)(41)(11)(36)(13)(9)&#xe621; 上传我的文档
&#xe602; 下载
&#xe60c; 收藏
该文档贡献者很忙，什么也没留下。
&#xe602; 下载此文档
正在努力加载中...
【精品】通达信精选自用指标
下载积分：760
内容提示：【精品】通达信精选自用指标
文档格式：DOC|
浏览次数：51|
上传日期： 00:43:28|
文档星级：&#xe60b;&#xe60b;&#xe612;&#xe612;&#xe612;
全文阅读已结束，如果下载本文需要使用
&#xe71b; 760 积分
&#xe602;下载此文档
该用户还上传了这些文档
【精品】通达信精选自用指标
官方公共微信