以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4) ---- 金字塔编译出TD指标 (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=54536) |
-- 作者:qq代人发帖 -- 发布时间:2013/8/1 13:18:12 -- 金字塔编译出TD指标 请教,可以帮我在金字塔编译出TD指标么?
|
-- 作者:jinzhe -- 发布时间:2013/8/1 13:32:54 -- 代码思路是? |
-- 作者:zheng_yanbin -- 发布时间:2013/8/1 13:59:23 -- 老师思路在这里: http://www.55188.com/thread-5169264-1-1.html
|
-- 作者:zheng_yanbin -- 发布时间:2013/8/1 14:00:12 -- 以下是引用jinzhe在2013/8/1 13:32:54的发言: 代码思路是? {TD准备=买入结构} TD准备:=IF(REF(C,1)>REF(C,4),1,0); TD0:=BARSLAST(TD准备); A:=IF(BARSSINCEN(LAST(C<REF(C,4),9,0),9),1,DRAWNULL); F:=IF(BARSLASTCOUNT(C<REF(C,4))>=9,1, A); G:=A+F; TD11:=IF(1,TD0=1,0); {TD21:=IF(1,LLV(C,1)<REF(C,4),0);} TD21:=IF(1,G,DRAWNULL); A1:=TD11 AND TD21; TD12:=IF(2,TD0=2,0); {TD22:=IF(2,LLV(C,2)<REF(C,4),0);} TD22:=IF(2,G,DRAWNULL); A2:=TD12 AND TD22; TD13:=IF(3,TD0=3,0); {TD23:=IF(3,LLV(C,3)<REF(C,4),0);} TD23:=IF(3,G,DRAWNULL); A3:=TD13 AND TD23; TD14:=IF(4,TD0=4,0); {TD24:=IF(4,LLV(C,4)<REF(C,4),0);} TD24:=IF(4,G,DRAWNULL); A4:=TD14 AND TD24; TD15:=IF(5,TD0=5,0); {TD25:=IF(5,LLV(C,5)<REF(C,4),0);} TD25:=IF(5,G,DRAWNULL); A5:=TD15 AND TD25; TD16:=IF(6,TD0=6,0); {TD26:=IF(6,LLV(C,6)<REF(C,4),0);} TD26:=IF(6,G,DRAWNULL); A6:=TD16 AND TD26; TD17:=IF(7,TD0=7,0); {TD27:=IF(7,LLV(C,7)<REF(C,4),0);} TD27:=IF(7,G,DRAWNULL); A7:=TD17 AND TD27; TD18:=IF(8,TD0=8,0); {TD28:=IF(8,LLV(C,8)<REF(C,4),0);} TD28:=IF(8,G,DRAWNULL); A8:=TD18 AND TD28; TD19:=IF(9,TD0=9,0); {TD29:=IF(9,LLV(C,9)<REF(C,4),0);} TD29:=IF(9,G,DRAWNULL); A9:=TD19 AND TD29; DRAWTEXT(A1,L-0.3,\'1\'),COLORYELLOW; DRAWTEXT(A2,L-0.3,\'2\'),COLORYELLOW; DRAWTEXT(A3,L-0.3,\'3\'),COLORYELLOW; DRAWTEXT(A4,L-0.3,\'4\'),COLORYELLOW; DRAWTEXT(A5,L-0.3,\'5\'),COLORYELLOW; DRAWTEXT(A6,L-0.3,\'6\'),COLORYELLOW; DRAWTEXT(A7,L-0.3,\'7\'),COLORYELLOW; DRAWTEXT(A8,L-0.3,\'8\'),COLORYELLOW; DRAWTEXT(A9,L-0.3,\'9\'),COLORYELLOW; {TD13次倒数=买入计数} TDP:=BARSLAST(A9); B:=IF(LAST(C<REF(C,2),13,0),1,DRAWNULL); TD11A:=IF(1,TDP=1,TDP); TD21A:=IF(1,LLV(C,1)<REF(L,2),DRAWNULL); {TD21A:=IF(1,B,DRAWNULL);} D1:=TD11A AND TD21A; TD12A:=IF(2,TDP=2,TDP); TD22A:=IF(2,LLV(C,2)<REF(L,2),DRAWNULL); {TD22A:=IF(2,B,DRAWNULL);} D2:=TD12A AND TD22A; TD13A:=IF(3,TDP=3,TDP); TD23A:=IF(3,LLV(C,3)<REF(L,2),DRAWNULL); {TD23A:=IF(3,B,DRAWNULL);} D3:=TD13A AND TD23A; TD14A:=IF(4,TDP=4,TDP); TD24A:=IF(4,LLV(C,4)<REF(L,2),DRAWNULL); {TD24A:=IF(4,B,DRAWNULL);} D4:=TD14A AND TD24A; TD15A:=IF(5,TDP=5,TDP); TD25A:=IF(5,LLV(C,5)<REF(L,2),DRAWNULL); {TD25A:=IF(5,B,DRAWNULL);} D5:=TD15A AND TD25A; TD16A:=IF(6,TDP=6,TDP); TD26A:=IF(6,LLV(C,6)<REF(L,2),DRAWNULL); {TD26A:=IF(6,B,DRAWNULL);} D6:=TD16A AND TD26A; TD17A:=IF(7,TDP=7,TDP); TD27A:=IF(7,LLV(C,7)<REF(L,2),DRAWNULL); {TD27A:=IF(7,B,DRAWNULL);} D7:=TD17A AND TD27A; TD18A:=IF(8,TDP=8,TDP); TD28A:=IF(8,LLV(C,8)<REF(L,2),DRAWNULL); {TD28A:=IF(8,B,DRAWNULL);} D8:=TD18A AND TD28A; TD19A:=IF(9,TDP=9,TDP); TD29A:=IF(9,LLV(C,9)<REF(L,2),DRAWNULL); {TD29A:=IF(9,B,DRAWNULL);} D9:=TD19A AND TD29A; TD10A:=IF(10,TDP=10,TDP); TD20A:=IF(10,LLV(C,10)<REF(L,2),DRAWNULL); {TD20A:=IF(10,B,DRAWNULL);} D10:=TD10A AND TD20A; TD110A:=IF(11,TDP=11,TDP); TD210A:=IF(11,LLV(C,11)<REF(L,2),DRAWNULL); {TD210A:=IF(11,B,DRAWNULL);} D11:=TD110A AND TD210A; TD120A:=IF(12,TDP=12,TDP); TD220A:=IF(12,LLV(C,12)<REF(L,2),DRAWNULL); {TD220A:=IF(12,B,DRAWNULL);} D12:=TD120A AND TD220A; TD130A:=IF(13,TDP=13,TDP); TD230A:=IF(13,LLV(C,13)<REF(L,2),DRAWNULL); {TD230A:=IF(13,B,DRAWNULL);} D13:=TD130A AND TD230A; DRAWTEXT(D1,L-0.6,\'1\'),COLORRED; DRAWTEXT(D2,L-0.6,\'2\'),COLORRED; DRAWTEXT(D3,L-0.6,\'3\'),COLORRED; DRAWTEXT(D4,L-0.6,\'4\'),COLORRED; DRAWTEXT(D5,L-0.6,\'5\'),COLORRED; DRAWTEXT(D6,L-0.6,\'6\'),COLORRED; DRAWTEXT(D7,L-0.6,\'7\'),COLORRED; DRAWTEXT(D8,L-0.6,\'8\'),COLORRED; DRAWTEXT(D9,L-0.6,\'9\'),COLORRED; DRAWTEXT(D10,L-0.6,\'10\'),COLORRED; DRAWTEXT(D11,L-0.6,\'11\'),COLORRED; DRAWTEXT(D12,L-0.6,\'12\'),COLORRED; DRAWTEXT(D13,L-0.6,\'13\'),COLORRED; {神奇数列时间循环周期} {菲波纳契螺旋周期;易学难精;关注成黄金分割比率的波段位置} DRAWTEXT(CURRBARSCOUNT=3,HIGH*1.02,\'3\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=5,HIGH*1.02,\'5\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=8,HIGH*1.02,\'8\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=13,HIGH*1.02,\'13\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=21,HIGH*1.02,\'21\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=34,HIGH*1.02,\'34\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=55,HIGH*1.02,\'55\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=89,HIGH*1.02,\'89\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=144,HIGH*1.02,\'144\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=233,HIGH*1.02,\'233\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=377,HIGH*1.02,\'377\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=610,HIGH*1.02,\'610\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=987,HIGH*1.02,\'987\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=1597,HIGH*1.02,\'1597\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=2584,HIGH*1.02,\'2584\'), COLORGREEN; DRAWTEXT(CURRBARSCOUNT=4181,HIGH*1.02,\'4181\'), COLORGREEN; {卢卡斯螺旋周期,《超级短线新武器》一书有具体的实战案例} DRAWTEXT(CURRBARSCOUNT=7,HIGH*1.025,\'7\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=11,HIGH*1.025,\'11\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=18,HIGH*1.025,\'18\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=29,HIGH*1.025,\'29\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=47,HIGH*1.025,\'47\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=76,HIGH*1.025,\'76\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=123,HIGH*1.025,\'123\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=199,HIGH*1.025,\'199\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=322,HIGH*1.025,\'322\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=521,HIGH*1.025,\'521\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=843,HIGH*1.025,\'843\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=1364,HIGH*1.025,\'1364\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=2207,HIGH*1.025,\'2207\'), COLORWHITE; DRAWTEXT(CURRBARSCOUNT=3571,HIGH*1.025,\'3571\'), COLORWHITE; DRAWTEXT_FIX(1,0.01,0.9,0,\'数字黄狄马克:买入结构,红:买入计数,白为卢卡斯螺旋周期,绿菲波纳契螺旋周期\'),COLORBROWN; {黄金分割} NB:=80; MB:=3; MA5X:=MA(C,5); MA13X:=MA(C,13); 高:=REF(HHV(H,NB),MB); 低:=REF(LLV(L,NB),MB); H19:=高-(高-低)*0.191; H38:=高-(高-低)*0.382; H中:=高-(高-低)*0.5; H61:=高-(高-低)*0.618; H80:=高-(高-低)*0.809; 一:REFDATE(高,DATE),POINTDOT,COLORWHITE; 二:REFDATE(H19,DATE),POINTDOT,COLORYELLOW; 三:REFDATE(H38,DATE),POINTDOT,COLORMAGENTA; 四:REFDATE(H中,DATE),POINTDOT,COLORRED; 五:REFDATE(H61,DATE),POINTDOT,COLORMAGENTA; 六:REFDATE(H80,DATE),POINTDOT,COLORYELLOW; 七:REFDATE(低,DATE),POINTDOT,COLORWHITE; DRAWTEXT(ISLASTBAR,一,\' 高\'),COLORWHITE; DRAWTEXT(ISLASTBAR,二,\' 809\'),COLORYELLOW; DRAWTEXT(ISLASTBAR,三,\' 618\'),COLORMAGENTA; DRAWTEXT(ISLASTBAR,四,\' 中\'),COLORRED; DRAWTEXT(ISLASTBAR,五,\' 382\'),COLORMAGENTA; DRAWTEXT(ISLASTBAR,六,\' 191\'),COLORYELLOW; DRAWTEXT(ISLASTBAR,七,\' 低\'),COLORWHITE; |
-- 作者:jinzhe -- 发布时间:2013/8/1 14:00:18 -- 说下思路,不要光给链接 |
-- 作者:zheng_yanbin -- 发布时间:2013/8/1 14:01:51 -- 老师那些代码是通达信上的,在金字塔编译通不过。 请老师改一下。
|
-- 作者:zheng_yanbin -- 发布时间:2013/8/1 14:09:04 -- 以下是引用jinzhe在2013/8/1 14:00:18的发言:
说下思路,不要光给链接 |
-- 作者:jinzhe -- 发布时间:2013/8/1 14:24:33 -- DRAWTEXT_FIX是什么意思? barslastcount是什么意思? barssincen是什么意思?
|
-- 作者:jinzhe -- 发布时间:2013/8/1 14:24:54 -- 下面是我依靠猜测对上述函数进行修改之后的结果
TD准备:=IF(REF(C,1)>REF(C,4),1,0);
|