65 1234
发新话题
我占用二楼 就为了接着 我想说一楼每月转折一次.对于散户来说间隔有点长.我们还想知道每一周的变化.可是【DELTA理论】短周期是每四天一次循环.可惜大智慧软件没有时间間間隔的函数,【DATEDIFF】 所以我只好用大智慧的周线.其实周线是五天一个循环.与【三角洲 DELTA理论 预测】不符. 没有办法; 三角洲 DELTA理论的精髓在于预测 每四天一次循环 给改成五天一次循环预测的功能就不复存在了吧?. 只有飞狐软件有【DATEDIFF】函数可以编辑每四天一次循环的公式 咱们使用大智慧软件 就彻底没辙了.虽然不能预测看看涨跌作为一般公式还是可以的.况且周线的变化还是很有参加价值的.所以我才说有点【画蛇添足】的味道.请大家谅解.
下面就是添加了【周线循环】的源码.仅供参考 仅供参考-------------
{DELTA月15}
DRAWGBKlast(c>0,strip(RGB(0,50,0),RGB(0,0,80),0)),LAYER7;
DRAWTEXTABS(660,6,'今天农历:◆'+NUMTOSTRN(LMONTH,0)+'月'+NUMTOSTRN(LDAY,0)+'日◆'),LINETHICK5,COLOR00ffff;
{【必备】---K线【C AND REF(C,1).】----}
{----CLOSE AND OPEN----}
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.8,0 ),COLOR00ff00,LAYER5;
STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.8,0 ),COLOR00ff00,LAYER5;
{----C>REF(C,1)----}
stickline(C>REF(C,1),C,O,8,0),Color000033,LAYER4;
stickline(C>REF(C,1),C,O,7,0),Color000055,LAYER4;
stickline(C>REF(C,1),C,O,6,0),Color000077,LAYER4;
stickline(C>REF(C,1),C,O,5,0),Color000099,LAYER4;
stickline(C>REF(C,1),C,O,4,0),Color0000bb,LAYER4;
stickline(C>REF(C,1),C,O,2,0),Color6500dd,LAYER4;
stickline(C>REF(C,1),C,O,1,0),Color9C00ff,LAYER4;
{----C<REF(C,1)----}
stickline(C<REF(C,1),C,O,8,0),Color003300,LAYER4;
stickline(C<REF(C,1),C,O,7,0),Color005500,LAYER4;
stickline(C<REF(C,1),C,O,6,0),Color007700,LAYER4;
stickline(C<REF(C,1),C,O,5,0),Color009900,LAYER4;
stickline(C<REF(C,1),C,O,4,0),Color00bb00,LAYER4;
stickline(C<REF(C,1),C,O,2,0),Color65dd00,LAYER4;
stickline(C<REF(C,1),C,O,1,0),Color9Cff00,LAYER4;
{----C=REF(C,1)----}
stickline(C=REF(C,1),C,O,8,0),Color008888,LAYER4;
stickline(C=REF(C,1),C,O,6,0),Color00AAAA,LAYER4;
stickline(C=REF(C,1),C,O,3,0),Color00DDDD,LAYER4;
stickline(C=REF(C,1),C,O,1,0),Color00ffFF,LAYER4;
现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorFF00FF,POINTDOT,LINETHICK2;
MID :  MA(CLOSE,26),COLOR00ffFF,DOTLINE,LAYER0;;;
UPPER: MID + 2*STD(CLOSE,26),COLOR00ff00,DOTLINE,LAYER0;;
LOWER: MID - 2*STD(CLOSE,26),COLOR0099ff,DOTLINE,LAYER0;;;
DRAWBMP(CROSS(UPPER,C),H*1.008,'SE'),ALIGN1;
DRAWBMP(CROSS(LOWER,C),L*0.99,'BU'),ALIGN1;

FILLRGN(UPPER,MID,UPPER>MID,RGB(0,0,188)),LAYER7;
FILLRGN(LOWER,MID,LOWER<MID,RGB(78,0,0)),LAYER7;
上轨下:LAST(C<UPPER),LINETHICK0;
上轨上:LAST(C>UPPER),LINETHICK0;
DRAWTEXTABS(60,35,IFS((上轨下>0),'----◆在BOLL上轨下【第'+NUMTOSTRN(上轨下,0)+'个周期】◆----','')),LINETHICK4,Color00FF00;
DRAWTEXTABS(60,35,IFS((上轨上>0),'----◆在BOLL上轨上【第'+NUMTOSTRN(上轨上,0)+'个周期】◆----','')),LINETHICK4,Color00FFff;

农历:=LDAY;;
isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0);
isColor:=if(lday=15 or isFirst,1,0); {判断是否绘制彩线的位置:农历15,或者农历15后的第一个交易日}
Num:=count(isColor,0);
VERTLINE(isColor and mod(Num,4)=0,0),colorred,LINETHICK2,LAYER5;
VERTLINE(isColor and mod(Num,4)=1,0),coloryellow,LINETHICK1,LAYER5;
VERTLINE(isColor and mod(Num,4)=2,0),colorff9900,LINETHICK1,LAYER5;
VERTLINE(isColor and mod(Num,4)=3,0),colorgreen,LINETHICK1,LAYER5;
X:=BARSLAST(DISPSTATUS=1)+1; LL:=LLVALL(LLV(L,X));  HH:=HHVALL(HHV(H,X));  HH*1.04,COLOR000000;
PD0:=isColor and mod(Num,4)=0;
DRAWTEXT(PD0,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;;
DRAWTEXT(PD0,LL*0.98,'【红】四次转折'),COLORFF00FF,VALIGN2,ALIGN0,linethick2,LAYER0;;
PD1:=isColor and mod(Num,4)=1;
DRAWTEXT(PD1,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;;
DRAWTEXT(PD1,LL*0.98,'【黄】可逢高减仓'),COLORFFFFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
PD2:=isColor and mod(Num,4)=2;
DRAWTEXT(PD2,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;;
DRAWTEXT(PD2,LL*0.98,'【兰】常规应调整'),COLORFF9900,VALIGN2,ALIGN0,linethick2,LAYER0;;
PD3:=isColor and mod(Num,4)=3;
DRAWTEXT(PD3,LL*1.01,'农历:'+NUMTOSTRN(LMONTH,0)+'.'+NUMTOSTRN(LDAY,0)+'→'),COLOR00FFFF,VALIGN2,ALIGN2,linethick2,LAYER0;
DRAWTEXT(PD3,LL*0.98,'【绿】逢低可建仓'),COLOR00FF00,VALIGN2,ALIGN0,linethick2,LAYER0;
DC0:=REF(C,BARSLAST(PD0));;
DRAWTEXT(PD0,HH,' C='+NUMTOSTRN(DC0,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DC1:=REF(C,BARSLAST(PD1));
DRAWTEXT(PD1,HH,' C='+NUMTOSTRN(DC1,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DC2:=REF(C,BARSLAST(PD2));
DRAWTEXT(PD2,HH,' C='+NUMTOSTRN(DC2,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DC3:=REF(C,BARSLAST(PD3));
DRAWTEXT(PD3,HH,' C='+NUMTOSTRN(DC3,2)+' '),COLOR00FFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
{DRAWLINE(PD0,DC0,PD1,DC1,0),Color0044ff,LINETHICK2;;
DRAWLINE(PD1,DC1,PD2,DC2,0),Color00FFff,LINETHICK2;;
DRAWLINE(PD2,DC2,PD3,DC3,0),ColorFF9900,LINETHICK2;;
DRAWLINE(PD3,DC3,PD0,DC0,0),Color00ff00,LINETHICK2;   ;}
DRAWLINE(PD0,DC0,PD0,DC0,0),ColorFFFFFF,DASHLINE;;

周:="050引.CL#WEEK";
isColor周:=if(周<>ref(周,1) or barpos=1,1,0);    {{转折线在每周一 }
DIS0周:=if(barpos=1 or not(isColor周),0,0);
DIS周:=SUM(DIS0周,0);
Num周:=count(isColor周,0)+DIS周;
PD0周:=isColor周 and mod(Num周,4)=0;
PD1周:=isColor周 and mod(Num周,4)=1;
PD2周:=isColor周 and mod(Num周,4)=2;
PD3周:=isColor周 and mod(Num周,4)=3;  
DC0周:=REF(C,BARSLAST(PD0周));
DC1周:=REF(C,BARSLAST(PD1周));
DC2周:=REF(C,BARSLAST(PD2周));
DC3周:=REF(C,BARSLAST(PD3周));
DRAWLINE(PD0周,DC0周,PD1周,DC1周,0),Color0044ff,LINETHICK2,LAYER0;
DRAWLINE(PD1周,DC1周,PD2周,DC2周,0),Color00FFff,LINETHICK2,LAYER0;
DRAWLINE(PD2周,DC2周,PD3周,DC3周,0),ColorFF9900,LINETHICK2,LAYER0;
DRAWLINE(PD3周,DC3周,PD0周,DC0周,0),Color00ff00,LINETHICK2,LAYER0; {  }
这里用到【"050引.CL#WEEK"】其中CL就是收盘价 【CL:C,LINETHICK0;】因为引用就是为了变化周期【050引】名称可以改的.


[ 本帖最后由 金昌九 于 2017-8-14 05:10 编辑 ]
发消息 加好友
积分
34831 
理想币
10732 个 
彩币
502 个 
共享币
28607 个 
注册时间
2009-8-1 

复制

可不可以另编辑一个单独的【DELTA周线】源码.用起来方便可以在周.日.分钟等.其他各类周期去用这个公式------------
{DELTA周线}
DRAWGBKlast(c>0,strip(RGB(0,50,0),RGB(0,0,80),0)),LAYER7;
{【必备】---K线【C AND REF(C,1).】----}
{----CLOSE AND OPEN----}
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.8,0 ),COLOR00ff00,LAYER5;
STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.8,0 ),COLOR00ff00,LAYER5;
{----C>REF(C,1)----}
stickline(C>REF(C,1),C,O,8,0),Color000033,LAYER4;
stickline(C>REF(C,1),C,O,7,0),Color000055,LAYER4;
stickline(C>REF(C,1),C,O,6,0),Color000077,LAYER4;
stickline(C>REF(C,1),C,O,5,0),Color000099,LAYER4;
stickline(C>REF(C,1),C,O,4,0),Color0000bb,LAYER4;
stickline(C>REF(C,1),C,O,2,0),Color6500dd,LAYER4;
stickline(C>REF(C,1),C,O,1,0),Color9C00ff,LAYER4;
{----C<REF(C,1)----}
stickline(C<REF(C,1),C,O,8,0),Color003300,LAYER4;
stickline(C<REF(C,1),C,O,7,0),Color005500,LAYER4;
stickline(C<REF(C,1),C,O,6,0),Color007700,LAYER4;
stickline(C<REF(C,1),C,O,5,0),Color009900,LAYER4;
stickline(C<REF(C,1),C,O,4,0),Color00bb00,LAYER4;
stickline(C<REF(C,1),C,O,2,0),Color65dd00,LAYER4;
stickline(C<REF(C,1),C,O,1,0),Color9Cff00,LAYER4;
{----C=REF(C,1)----}
stickline(C=REF(C,1),C,O,8,0),Color008888,LAYER4;
stickline(C=REF(C,1),C,O,6,0),Color00AAAA,LAYER4;
stickline(C=REF(C,1),C,O,3,0),Color00DDDD,LAYER4;
stickline(C=REF(C,1),C,O,1,0),Color00ffFF,LAYER4;
现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorFF00FF,POINTDOT,LINETHICK2;
MID :  MA(CLOSE,26),COLOR00ffFF,DOTLINE,LAYER0;;;
UPPER: MID + 2*STD(CLOSE,26),COLOR00ff00,DOTLINE,LAYER0;;
LOWER: MID - 2*STD(CLOSE,26),COLOR0099ff,DOTLINE,LAYER0;;;
DRAWBMP(CROSS(UPPER,C),H*1.008,'SE'),ALIGN1;
DRAWBMP(CROSS(LOWER,C),L*0.99,'BU'),ALIGN1;

FILLRGN(UPPER,MID,UPPER>MID,RGB(0,0,188)),LAYER7;
FILLRGN(LOWER,MID,LOWER<MID,RGB(78,0,0)),LAYER7;
上轨下:LAST(C<UPPER),LINETHICK0;
上轨上:LAST(C>UPPER),LINETHICK0;
DRAWTEXTABS(60,35,IFS((上轨下>0),'----◆在BOLL上轨下【第'+NUMTOSTRN(上轨下,0)+'个周期】◆----','')),LINETHICK4,Color00FF00;
DRAWTEXTABS(60,35,IFS((上轨上>0),'----◆在BOLL上轨上【第'+NUMTOSTRN(上轨上,0)+'个周期】◆----','')),LINETHICK4,Color00FFff;

周:="050引.CL#WEEK";
isColor:=if(周<>ref(周,1) or barpos=1,1,0);    {转折线在每周一 }
DIS0:=if(barpos=1 or not(isColor),0,0);
DIS:=SUM(DIS0,0);
Num:=count(isColor,0)+DIS;
PD0:=isColor and mod(Num,4)=0;
PD1:=isColor and mod(Num,4)=1;
PD2:=isColor and mod(Num,4)=2;
PD3:=isColor and mod(Num,4)=3;  
VERTLINE(PD0,0),colorred,linethick2,LAYER6;
VERTLINE(PD1,0),coloryellow,linethick1,LAYER6;
VERTLINE(PD2,0),colorff9900,linethick1,LAYER6;
VERTLINE(PD3,1),colorgreen,linethick1,LAYER6;
X:=BARSLAST(DISPSTATUS=1)+1; LL:=LLVALL(LLV(L,X));
DRAWTEXT(PD0,LL*0.99,'【红】'),COLORFF00FF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DRAWTEXT(PD1,LL*0.99,'【黄】'),COLORFFFFFF,VALIGN2,ALIGN0,linethick2,LAYER0;;
DRAWTEXT(PD2,LL*0.99,'【兰】'),COLORFF9900,VALIGN2,ALIGN0,linethick2,LAYER0;;
DRAWTEXT(PD3,LL*0.99,'【绿】'),COLOR00FF00,VALIGN2,ALIGN0,linethick2,LAYER0;
DC0:=REF(C,BARSLAST(PD0));;
DC1:=REF(C,BARSLAST(PD1));
DC2:=REF(C,BARSLAST(PD2));
DC3:=REF(C,BARSLAST(PD3));
DRAWLINE(PD0,DC0,PD1,DC1,0),Color0044ff,LINETHICK2;;
DRAWLINE(PD1,DC1,PD2,DC2,0),Color00FFff,LINETHICK2;;
DRAWLINE(PD2,DC2,PD3,DC3,0),ColorFF9900,LINETHICK2;;
DRAWLINE(PD3,DC3,PD0,DC0,0),Color00ff00,LINETHICK2;;
DRAWLINE(PD0,DC0,PD0,DC0,0),ColorFFFFFF,DASHLINE;;
这里用到【"050引.CL#WEEK"】其中CL就是收盘价 【CL:C,LINETHICK0;】因为引用就是为了变化周期【050引】名称可以改的.

这是30分钟周期里看得到----------------------------------


[ 本帖最后由 金昌九 于 2017-8-13 15:48 编辑 ]
发消息 加好友
积分
34831 
理想币
10732 个 
彩币
502 个 
共享币
28607 个 
注册时间
2009-8-1 

复制

谢谢分享
发消息 加好友
积分
5635 
理想币
1536 个 
彩币
5 个 
共享币
511 个 
注册时间
2016-10-24 

复制

谢谢分享
发消息 加好友
积分
7518 
理想币
1565 个 
彩币
5 个 
共享币
885 个 
注册时间
2013-2-28 

复制

老前辈有通达信的吗?谢谢
发消息 加好友
积分
315 
理想币
17 个 
彩币
0 个 
共享币
122 个 
注册时间
2017-7-31 

复制

辛苦辛苦
发消息 加好友
积分
56721 
理想币
10643 个 
彩币
0 个 
共享币
10009 个 
注册时间
2011-3-23 

复制

辛苦辛苦
发消息 加好友
积分
1739 
理想币
149 个 
彩币
0 个 
共享币
19 个 
注册时间
2009-10-31 

复制

楼主威武啊!佩服~~~
发消息 加好友
积分
325 
理想币
57 个 
彩币
0 个 
共享币
29 个 
注册时间
2010-6-16 

复制

楼主能否将此改装成通达信版本的???整个网络没有看到这个版本的,遗憾。。。。
发消息 加好友
积分
325 
理想币
57 个 
彩币
0 个 
共享币
29 个 
注册时间
2010-6-16 

复制

农历 {画蛇添足}………

[ 本帖最后由 杨小宝XX 于 2017-8-16 13:39 编辑 ]
发消息 加好友
积分
5157 
理想币
1966 个 
彩币
0 个 
共享币
5945 个 
注册时间
2016-9-5 

复制

谢谢分享。
发消息 加好友
积分
47628 
理想币
17097 个 
彩币
0 个 
共享币
12257 个 
注册时间
2009-8-29 

复制

回复 11楼 @杨小宝XX 的帖子

@杨小宝XX 农历 {画蛇添足}………(上面少了星期五)

[ 本帖最后由 杨小宝XX 于 2017-8-16 13:39 编辑 ]
发消息 加好友
积分
5157 
理想币
1966 个 
彩币
0 个 
共享币
5945 个 
注册时间
2016-9-5 

复制

飞狐DELTA主图公式:

农历:=lday;
isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0);
isColor:=iif(lday=15 or isFirst,1,0); //判断是否绘制彩线的位置:农历15,或者农历15后的第一个交易日
Num:=count(isColor,0); //计算彩线个数

//光标所在画面的最高价和最低价
HH:=SYSPARAM(4);
LL:=sysparam(5);
农历:LDay,LineThick0;

//绘制彩线
STICKLINE(isColor and mod(Num,4)=0,ll,hh,3,0),colorred;
STICKLINE(isColor and mod(Num,4)=1,ll,hh,3,0),coloryellow;
STICKLINE(isColor and mod(Num,4)=2,ll,hh,3,0),colorblue;
STICKLINE(isColor and mod(Num,4)=3,ll,hh,3,0),colorwhite;
发消息 加好友
积分
5157 
理想币
1966 个 
彩币
0 个 
共享币
5945 个 
注册时间
2016-9-5 

复制

=========通达信软件没有【LDAY】这个函数.  所以改不过去============
发消息 加好友
积分
34831 
理想币
10732 个 
彩币
502 个 
共享币
28607 个 
注册时间
2009-8-1 

复制

谢谢楼主大公无私的分享
发消息 加好友
积分
6556 
理想币
381 个 
彩币
0 个 
共享币
2932 个 
注册时间
2016-7-18 

复制

谢谢分享
发消息 加好友
积分
5468 
理想币
0 个 
彩币
0 个 
共享币
2 个 
注册时间
2009-6-7 

复制

改成通达信,谢谢

发消息 加好友
积分
1150 
理想币
0 个 
彩币
0 个 
共享币
51 个 
注册时间
2017-2-21 

复制

谢谢金先生的发扬光大。
  • 2017-8-14 11:58 理想币 +2 金昌九: 谢谢你的回复
发消息 加好友
积分
18390 
理想币
3713 个 
彩币
0 个 
共享币
38697 个 
注册时间
2010-2-13 

复制

谢谢楼主分享!添足添的好!
  • 2017-8-14 11:56 理想币 +2 金昌九: 谢谢你的鼓励
发消息 加好友
积分
14869 
理想币
12 个 
彩币
0 个 
共享币
55 个 
注册时间
2006-12-24 

复制

后一页【ctrl+“→”】 【ctrl+“←”】前一页 还有3页内容,点此下一页
 65 1234
发新话题
理想论坛 » 指标公式分享交流区 » 网上抄来的【大智慧新一代DELTA主图公式】我就给他来个【画蛇添足】;
指标公式分享交流区:积分规则

快速回复主题

选项

发帖请务遵守本站的相关规则,所有发表(包括转发)政治、色情非法信息者本站将实时提供发贴者个人信息给公安局,追究责任,特此申明!
具体规则请参见 理想论坛会员守则》 《净化论坛环境,打击恶意灌水》。

您需要登录后才可以发帖

[完成后可按 Ctrl+Enter 发布]

理想论坛上的网友发表的帖子纯属个人意见,理想论坛不负任何责任!广告赞助商内容与本站无关!免责声明
理想论坛值班电话[9:30~18:30]: ☎ 400 016 5518-1 ☎ 010-5366 3090 ☎ 186 4906 9487(广告)187 1028 6081(广告)
找回密码 软件区:1006648222 百宝箱: 1006267111 广告: 1006269111 广告: 3145821447
诚信档案编号:CX20150604010215010383 信誉编号:TL852015042710940
工业和信息化部信息备案: 京ICP备15035364号 京ICP证151057号
关闭底部 打开底部 回顶部 到页底 理想论坛微信号:lixiang55188 扫描下载理想选股App