发新话题
老前辈有通达信的吗?谢谢!!!
发消息 加好友
积分
6734 
理想币
406 个 
彩币
0 个 
共享币
989 个 
注册时间
2007-4-28 

复制

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

@杨小宝XX
==============《三角洲预测》理论=========在网上可以查到《三角洲理论》(下)这本书===========
       短期DELTA (STD):
       A.地球自转4次,也就是,
       B. 4天;
       中短期DELTA (ITD):
       A.月球围绕地球公转4次,也就是,
       B. 4个农历月;
       中期DELTA (MTD):
       A. 一个完整的潮汐周期,也就是
       B. 一个农历年
       长期DELTA (LTD):
       A.地球围绕太阳公转4次,也就是:
       B. 4年.
       超长期DELTA (SLTD):
       A.太阳、地球、月球互动完成一次,也就是
       B. 19年零5小时
==============================================================
按照《三角洲预测》理论【中短期】每次循环转折点必须是农历15日满月那一天  才会有预测功能   既然通达信没有【LDAY】这个函数.你是怎么做到的呢  这个问题你还是要告诉大家的   不是吗------

[ 本帖最后由 金昌九 于 2017-8-16 21:14 编辑 ]
  • 2017-8-16 21:10 理想币 +2 杨小宝XX: 留着胸部挂牌子的造福他的子民吧。
发消息 加好友
积分
34916 
理想币
10733 个 
彩币
502 个 
共享币
28796 个 
注册时间
2009-8-1 

复制

回复 43楼 @金昌九 的帖子

@金昌九 哈哈;老哥哥额不是好银,留着胸部挂牌子的造福他的子民吧。

额都木有修改完善………
发消息 加好友
积分
5690 
理想币
2195 个 
彩币
0 个 
共享币
6562 个 
注册时间
2016-9-5 

复制

回复 43楼 @金昌九 的帖子

@金昌九 老哥哥不要急,如今理想鸟枪換炮。理想有理想商城、有金钻指标卖。……急他个鸟!
发消息 加好友
积分
5690 
理想币
2195 个 
彩币
0 个 
共享币
6562 个 
注册时间
2016-9-5 

复制

回复 43楼 @金昌九 的帖子

@金昌九 哈哈:老哥哥不要急,你就是想发他都是左审右核……何苦找麻烦!



[ 本帖最后由 杨小宝XX 于 2017-8-16 21:32 编辑 ]
  • 2017-8-16 21:22 理想币 +2 金昌九: 谢谢你. 我已经86了.都老糊涂了 不是吗
发消息 加好友
积分
5690 
理想币
2195 个 
彩币
0 个 
共享币
6562 个 
注册时间
2016-9-5 

复制

感谢金老,又挖掘出新思路
发消息 加好友
积分
10403 
理想币
1984 个 
彩币
0 个 
共享币
4 个 
注册时间
2009-7-8 

复制

感谢西电老师,前来捧场
发消息 加好友
积分
10403 
理想币
1984 个 
彩币
0 个 
共享币
4 个 
注册时间
2009-7-8 

复制

引用:
原帖由 @空手套2009 于 2017-8-16 21:40 发表
感谢金老,又挖掘出新思路    
金昌九:
谢谢你. 我已经86了.都老糊涂了 不是吗?

赞赏您宝刀不老的精神羡慕您尚有健脑的体魄


饭后茶余之语:大智慧掌门本缺智慧,所以,借用再“画蛇添足
后,亦难捏准,股市的“春夏秋冬,“获利比取90、30,上为蜀道,下为警戒,玩玩如何




[ 本帖最后由 车轮2008 于 2017-8-18 15:52 编辑 ]

附件:

2017-08-18_152120.png (116.42 KB)

2017-8-18 15:49

2017-08-18_152120.png

发消息 加好友
积分
35726 
理想币
5447 个 
彩币
0 个 
共享币
3937 个 
注册时间
2009-1-24 

复制

谢谢楼主分享!添足添的好!先生你太有才了
发消息 加好友
积分
2528 
理想币
289 个 
彩币
0 个 
共享币
782 个 
注册时间
2010-8-22 

复制

【杨小宝XX】老师 编辑.参考   谢谢你
发消息 加好友
积分
2528 
理想币
289 个 
彩币
0 个 
共享币
782 个 
注册时间
2010-8-22 

复制

谢谢楼主分享!!!§83§

谢谢楼主分享!!!
发消息 加好友
积分
1696 
理想币
193 个 
彩币
5 个 
共享币
207 个 
注册时间
2015-6-30 

复制

大智慧新一代免费版链接不上吗?
谁知道怎么用?
发消息 加好友
积分
616 
理想币
6 个 
彩币
0 个 
共享币
82 个 
注册时间
2009-11-13 

复制

周末愉快,谢谢分享!
发消息 加好友
积分
7503 
理想币
874 个 
彩币
2 个 
共享币
4189 个 
注册时间
2010-6-13 

复制

回复 53楼 @二郎神A 的帖子

@二郎神A
这里用到【"050引.CL#WEEK"】其中CL就是收盘价 【CL:C,LINETHICK0;】因为引用就是为了变化周期【050引】名称可以改的.
你是不是还没有建立引用文件
发消息 加好友
积分
34916 
理想币
10733 个 
彩币
502 个 
共享币
28796 个 
注册时间
2009-8-1 

复制

谢谢楼主的无私奉献!
发消息 加好友
积分
4653 
理想币
81 个 
彩币
0 个 
共享币
175 个 
注册时间
2003-10-28 

复制

没有最好只有更好咱们改改如下------------------
这里用到了【农历:=LDAY;;】楼主明白告诉大家是不是转换不到通达信软件那里去  如果用【月:=MONTH;】替代不就失去【三角洲 DELTA理论 预测】的功能了吗
{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,LAYER0;;
LOWER: MID - 2*STD(CLOSE,26),COLOR0099ff,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,PD0,DC0,0),ColorFFFFFF,DASHLINE,LAYER0;;;;
{周涨}
CL:="050引.CL#WEEK";
RC:="050引.RC#WEEK";
Z,:=(CL-RC)/RC*100;
STICKLINE(CL>=RC ,CL ,RC,12,0) ,COLOR004960,LAYER6;
STICKLINE(CL>=RC ,CL ,CL,8,101),DASHLINE,COLOR0069FF,LAYER6;
STICKLINE(CL>=RC ,RC ,RC,12,101),LINETHICK2,COLOR0099FF,LAYER6;
STICKLINE(CL<RC ,CL ,RC,12,0) ,COLORff4400,LAYER6;
STICKLINE(CL<RC ,CL ,CL,8,101),DASHLINE,COLORFFDD00,LAYER6;
STICKLINE(CL<RC ,RC ,RC,12,101),LINETHICK2,COLORFF9900,LAYER6;
DRAWTEXT(DISPSTATUS=2,RC*0.99,'周涨【'+NUMTOSTRN(Z,,2)+'%】'),COLORFFFFFF,LINETHICK2,ALIGN1;

发消息 加好友
积分
34916 
理想币
10733 个 
彩币
502 个 
共享币
28796 个 
注册时间
2009-8-1 

复制

还有这个是我【画蛇添足】的产物 虽然可以用.但是不具备【三角洲 DELTA理论 预测】的功能. .因为【LAYER0;】函数在大智慧里就很麻烦了 而通达信又没有这个函数.  
{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,LAYER0;;
LOWER: MID - 2*STD(CLOSE,26),COLOR0099ff,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,LAYER5;
VERTLINE(PD1,0),coloryellow,linethick1,LAYER5;
VERTLINE(PD2,0),colorff9900,linethick1,LAYER5;
VERTLINE(PD3,1),colorgreen,linethick1,LAYER5;
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));
DRAWLINE(PD0,DC0,PD0,DC0,0),ColorFFFFFF,DASHLINE;
{周涨}
CL:="050引.CL#WEEK";
RC:="050引.RC#WEEK";
Z,:=(CL-RC)/RC*100;
STICKLINE(CL>=RC ,CL ,RC,12,0) ,COLOR004960,LAYER6;
STICKLINE(CL>=RC ,CL ,CL,8,101),DASHLINE,COLOR0069FF,LAYER6;
STICKLINE(CL>=RC ,RC ,RC,12,101),LINETHICK2,COLOR0099FF,LAYER6;
STICKLINE(CL<RC ,CL ,RC,12,0) ,COLORff4400,LAYER6;
STICKLINE(CL<RC ,CL ,CL,8,101),DASHLINE,COLORFFDD00,LAYER6;
STICKLINE(CL<RC ,RC ,RC,12,101),LINETHICK2,COLORFF9900,LAYER6;
DRAWTEXT(DISPSTATUS=2,RC*0.99,'    周涨【'+NUMTOSTRN(Z,,2)+'%】'),COLORFFFFFF,LINETHICK2,ALIGN1;
-------用于日线周期---------------

-------用于30分钟线周期---------------

-------用于15分钟线周期---------------


[ 本帖最后由 金昌九 于 2017-8-20 09:17 编辑 ]
发消息 加好友
积分
34916 
理想币
10733 个 
彩币
502 个 
共享币
28796 个 
注册时间
2009-8-1 

复制

这里用到【"050引.CL#WEEK"】其中CL就是收盘价 【CL:C,LINETHICK0;】因为引用就是为了变化周期【050引】名称可以改的.
用以上的公式就要建立引用文件【050引】
CL:="050引.CL#WEEK";      在【050引】里是【 CL:C,LINETHICK0;】
RC:="050引.RC#WEEK";     在【050引】里是【 RC:REF(C,1),LINETHICK0;】
发消息 加好友
积分
34916 
理想币
10733 个 
彩币
502 个 
共享币
28796 个 
注册时间
2009-8-1 

复制

谢谢楼主的无私奉献
发消息 加好友
积分
11528 
理想币
37 个 
彩币
100 个 
共享币
117 个 
注册时间
2006-11-24 

复制

后一页【ctrl+“→”】 【ctrl+“←”】前一页 还有1页内容,点此下一页
发新话题
理想论坛 » 指标公式分享交流区 » 网上抄来的【大智慧新一代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