我已經改好DMI的指標了，可是因為要主副圖一起參照，所以，
我就只能乾瞪眼了！有人可以幫忙嗎？感激不盡！！




附圖檔如上和DMI指標程式碼---非當沖單
指標：15分鐘K線，ma20，DMI指標(14天，正DI與負DI即可)
名稱：DMI均線指標

策略說明：

1.買進時機：(當 正DI>負DI 且 (成交價-MA20)/MA20<0.015 )，市價買進，並開始執行a b c d e

====>此時賣出時機(平倉)
a. 正DI<負DI ----------->回到買進時機和賣出時機
b. 正DI>48 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
c. 負DI<11 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
d. 15分K連續六根紅K ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
e. (成交價-MA20)/MA20 >0.015 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機


2.賣出時機：(當 正DI<負DI 且 (MA20-成交價)/MA20<0.015 )，市價賣出，並開始執行a b c d e

======>此時買進時機(平倉)

a. 正DI>負DI ----------->回到買進時機和賣出時機
b. 負DI>48 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
c. 正DI<11 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
d. 15分K連續六根黑K ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
e. (MA20-成交價)/MA20 >0.015 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機

---------------------------------------------------------------------
PS:附上DMI的公式程式碼：

//DMI公式
{Directional Movement Indicator , DMI , 動向指標 修正算法}
TR:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N,1);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),N,1);
DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),N,1);
正DI:DMP*100/TR,coloryellow;
負DI:DMM*100/TR,color8470FF;

//均線20
MA20:MA(C,20);

-------------------------------------------------------------------------

引用:

---

最初由 king220.shih 發表
我已經改好DMI的指標了，可是因為要主副圖一起參照，所以，
我就只能乾瞪眼了！有人可以幫忙嗎？感激不盡！！




附圖檔如上和DMI指標程式碼---非當沖單
指標：15分鐘K線，ma20，DMI指標(14天，正DI與負DI即可)
名稱：DMI均線指標

策略說明：

1.買進時機：(當 正DI>負DI 且 (成交價-MA20)/MA20<0.015 )，市價買進，並開始執行a b c d e

====>此時賣出時機(平倉)
a. 正DI<負DI ----------->回到買進時機和賣出時機
b. 正DI>48 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
c. 負DI<11 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
d. 15分K連續六根紅K ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
e. (成交價-MA20)/MA20 >0.015 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機


2.賣出時機：(當 正DI<負DI 且 (MA20-成交價)/MA20<0.015 )，市價賣出，並開始執行a b c d e

======>此時買進時機(平倉)

a. 正DI>負DI ----------->回到買進時機和賣出時機
b. 負DI>48 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
c. 正DI<11 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
d. 15分K連續六根黑K ----------->停單並於後第七根K棒後，回到買進時機和賣出時機
e. (MA20-成交價)/MA20 >0.015 ----------->停單並於後第七根K棒後，回到買進時機和賣出時機

---------------------------------------------------------------------
PS:附上DMI的公式程式碼：

//DMI公式
{Directional Movement Indicator , DMI , 動向指標 修正算法}
TR:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N,1);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),N,1);
DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),N,1);
正DI:DMP*100/TR,coloryellow;
負DI:DMM*100/TR,color8470FF;

//均線20
MA20:MA(C,20);

-------------------------------------------------------------------------

---

cgjj總版主 安安

結果奇怪沒有關係，我只是想要知道這樣的條件要如何敘述，
並且有沒有邏輯上的問題，尤其是停單並於後第七根K棒後，回
到買進時機和賣出時機，這樣的邏輯要如何用程式語言表達？

寫程式本身是種樂趣，比做單快樂很多，所以會有許多的邏輯
想法想知道要如何表達，這支程式的重點，只是想要了解主副
圖同時引用參照的寫作語法，與要如何在出場後讓程式觀望七
根後，再回到買進與賣出時機。

如果邏輯有誤可以修改，如果只是結果奇怪，那沒有關係，寫
出來後再慢慢修改即可。我有買技術指標通論，但是書中沒有
詳述這類的狀況，所以只好上來求助總版主，我也有去問過程
式設計的老師，但是老師說，他沒有證券期貨的專業，所以也
愛莫能助。

最後，我想還是只能求助總版主再個寫範例來讓我研究研究了
！感激不盡！甘溫啦！

引用:

---

最初由 king220.shih 發表
cgjj總版主 安安

結果奇怪沒有關係，我只是想要知道這樣的條件要如何敘述，
並且有沒有邏輯上的問題，尤其是停單並於後第七根K棒後，回
到買進時機和賣出時機，這樣的邏輯要如何用程式語言表達？

寫程式本身是種樂趣，比做單快樂很多，所以會有許多的邏輯
想法想知道要如何表達，這支程式的重點，只是想要了解主副
圖同時引用參照的寫作語法，與要如何在出場後讓程式觀望七
根後，再回到買進與賣出時機。

如果邏輯有誤可以修改，如果只是結果奇怪，那沒有關係，寫
出來後再慢慢修改即可。我有買技術指標通論，但是書中沒有
詳述這類的狀況，所以只好上來求助總版主，我也有去問過程
式設計的老師，但是老師說，他沒有證券期貨的專業，所以也
愛莫能助。

最後，我想還是只能求助總版主再個寫範例來讓我研究研究了
！感激不盡！甘溫啦！

---

原碼:


TRR:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N,1);

HD:=HIGH-REF(HIGH,1);

LD:=REF(LOW,1)-LOW;

DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),N,1);

DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),N,1);

正DI:=DMP*100/TRR,coloryellow;

負DI:=DMM*100/TRR,color8470FF;

MA20:=MA(C,20);



多s:=正DI>負DI and (C-MA20)/MA20<0.015 or barpos=0;

空s:=正DI<負DI and (MA20-C)/MA20<0.015 or barpos=0;

多a:=正DI<負DI or barpos=0;

多b:=正DI>48;

多c:=負DI<11;

多d:=sum(C>O,6)=6;

多e:=(C-MA20)/MA20>0.015;

多z:=多b or 多c or 多d or 多e or barpos=0;

空a:=正DI>負DI or barpos=0;

空b:=負DI>48;

空c:=正DI<11;

空d:=sum(C<O,6)=6;

空e:=(MA20-C)/MA20>0.015;

空z:=空b or 空c or 空d or 空e or barpos=0;

進向:多s-空s linethick0; 

出向a:多a-空a linethick0; 

出向z:多z-空z linethick0;



多空:=0; //1.多, -1.空, 0.無

進出:c*0; //1.為多單進場, 2.為多單平倉, -1.為空單賣出, -2.為空單回補, 0.無

LockN:=0;

for i= 1 to datacount do begin

  if 多空=0 and LockN=0 then begin

    多空:=進向[i]; 進出[i]:=多空;

  end else if 多空<>0 then begin

    if 多空=出向a[i] then begin

      進出[i]:=多空*2; 多空:=0;

    end else if 多空=出向z[i] then begin

      進出[i]:=多空*2; 多空:=0; LockN:=7;

    end;

  end;

  if LockN>0 then LockN:=LockN-1;

end;

哇！感謝，又有功課可以做了。感激不盡。
週休二日就來研究這些原碼，希望可以再增
加功力。原來寫程式是會上癮的。甘溫啦！

原來時間控制可以用這種語法
if LockN>0 then LockN:=LockN-1;
果然沒有寫不出來的程式，感謝囉！