fkkshih |
級別 大俠 積分 121 經驗 27006 文章 103 註冊 09-05-28 08:13
|
|
|
發表: 2009-07-16 00:18:58 | 第12樓 |
版大你好,看了這篇文章我也在研究如何避免KD or MACD鈍化導致訊號失真的問題..
我的想法是假設當下K棒程式送出平空作多訊號,但是鈍化後又沒訊號了..但此時已送單至下單機,
為了改善此問題,我想寫出利用下一根K棒去判斷前一根K棒的狀況去做平多作空的反向單..就如你前幾篇寫的。
想請你幫我檢查一下,是否有什麼問題~感謝!!
10 Vk = 0
20 // 空單平倉多單進場
...
70 Va = 5分_開盤價
80 Vc = 5分_最低價 - 12
90 S2$ = '多' + Cstr( Va )
100 顯示文字[ S2$ , 主畫面 , ( 0 , Vc ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
110 Show [ K線下方 , ↑ ]
120 操作訊號( 空單平倉 , 1口 , Va )
130 操作訊號( 多單建倉 , 1口 , Va )
140 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
150 Vk = 1
160 GoSub date_time
170 S1$ = S1$ + '1 ' + Cstr( Va )
180 輸出文字檔( C:\KD.txt , S1$ )
190 單K計數器( 目前K線 , 0 ) = 1
200 End If
210 End If
220 End If
230
240 Vj = 0
250 // 多單平倉空單進場
260 Else
...
330 Show [ K線上方 , ↓ ]
340 操作訊號( 多單平倉 , 1口 , Va )
350 操作訊號( 空單建倉 , 1口 , Va )
360 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
370 Vj = 1
380 GoSub date_time
390 S1$ = S1$ + '-1 ' + Cstr( Va )
400 輸出文字檔( C:\KD.txt , S1$ )
410 單K計數器( 目前K線 , 0 ) = 1
420 End If
430 End If
440 End If
450 End If
460 End If
470
480
490 // 停損多單並作空
500 If Vk = 1 Then
510 單K計數器( 目前K線 , 0 ) = 1
...
530 If 目前部位( 倉位多空 ) >= 0 Then
540 Va = 5分_開盤價
550 Vc = 5分_最高價 + 12
560 S2$ = '空' + Cstr( Va )
570 顯示文字[ S2$ , 主畫面 , ( 0 , Vc ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
580 Show [ K線上方 , ↓ ]
590 操作訊號( 多單平倉 , 1口 , Va )
600 操作訊號( 空單建倉 , 1口 , Va )
610 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
620 GoSub date_time
630 S1$ = S1$ + '-1 ' + Cstr( Va )
640 輸出文字檔( C:\KD.txt , S1$ )
650 單K計數器( 目前K線 , 0 ) = 1
660 End If
670 End If
680 End If
690 End If
700
710
720 // 停損空單並作多
730 If Vj = 1 Then
740 單K計數器( 目前K線 , 0 ) = 1
...
760 If 目前部位( 倉位多空 ) <= 0 Then
770 Va = 5分_開盤價
780 Vc = 5分_最低價 - 12
790 S2$ = '多' + Cstr( Va )
800 顯示文字[ S2$ , 主畫面 , ( 0 , Vc ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
810 Show [ K線下方 , ↑ ]
820 操作訊號( 空單平倉 , 1口 , Va )
830 操作訊號( 多單建倉 , 1口 , Va )
840 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
850 GoSub date_time
860 S1$ = S1$ + '1 ' + Cstr( Va )
870 輸出文字檔( C:\KD.txt , S1$ )
880 單K計數器( 目前K線 , 0 ) = 1
890 End If
900 End If
910 End If
920 End If |
|
|