TIGER   |
級別 騎士
積分 292
經驗 25137
文章 206
註冊 09-11-12 23:41
|
|
 |
 發表: 2009-12-16 11:36:21 人氣:43340  | 樓主 |
單K計數器
[SIZE=4]版主您好:[/SIZE]
[SIZE=4] 我已經把我的策略加入單K計數器的程式碼了,回測結果也與原本的資料相符[/SIZE]
[SIZE=4] 但為了保險起見,想請版主幫我檢視一下我的程式碼,單K計數器的部份是不是有寫正確[/SIZE]
[SIZE=4] 謝謝版主![/SIZE]
[SIZE=4] (用This Bar的方式有三處,又各分多空,所以會用到6個單k計數器,但是系統只提供5個位置,所以我調整了位置,所以請版主特別幫忙檢查一下,謝謝!)[/SIZE]
[SIZE=4][/SIZE]
[SIZE=4]以下是我的程式碼:[/SIZE]
[SIZE=3] 60 Vz = 5分_轉折精靈一號
70 Ve = 5分_開盤價
80
90 Vt = 目前時間( 時 )
100 Vu = 目前時間( 分 )
110 Vv = 目前時間( 秒 )
120
130
140 // 多單進場
150 If 目前部位( 倉位多空 ) <= 0 Then
160 If 單K計數器( 目前K線 , 0 ) = 0 Then
170 If Vz = 1 And 前1_5分_實體K線 > 0 And 前1_5分_K線時間 < 1300 Then
180
190 操作訊號( 空單平倉 , 1口 , Ve )
200 操作訊號( 多單建倉 , 1口 , Ve )
210 Show [ K線下方 , ▲ ]
220 Vf = 目前部位( 第 1 次成本價位 )
230 S1$ = '多單'
240 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Ve )
250 發送簡訊[ 0911222333 , S2$ , 單次 ]
260 單K計數器( 目前K線 , 0 ) = 1
270 End If
280 Else
290 操作訊號( 空單平倉 , 1口 , Ve )
300 操作訊號( 多單建倉 , 1口 , Ve )
310 Show [ K線下方 , ▲ ]
320 Vf = 目前部位( 第 1 次成本價位 )
330 End If
340 End If
350
360
370 // 空單進場
380 If 目前部位( 倉位多空 ) >= 0 Then
390 If 單K計數器( 目前K線 , 1 ) = 0 Then
400 If Vz = -1 And 前1_5分_實體K線 < 0 And 前1_5分_K線時間 < 1300 Then
410
420 操作訊號( 多單平倉 , 1口 , Ve )
430 操作訊號( 空單建倉 , 1口 , Ve )
440 Show [ K線上方 , ▼ ]
450 Vf = 目前部位( 第 1 次成本價位 )
460 S1$ = '空單'
470 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Ve )
480 發送簡訊[ 0911222333 , S2$ , 單次 ]
490 單K計數器( 目前K線 , 1 ) = 1
500 End If
510 Else
520 操作訊號( 多單平倉 , 1口 , Ve )
530 操作訊號( 空單建倉 , 1口 , Ve )
540 Show [ K線上方 , ▼ ]
550 Vf = 目前部位( 第 1 次成本價位 )
560 End If
570 End If
580
590
600
610 // 出場條件1
620 If 單K計數器( 目前K線 , 3 ) = 0 Then
630
640 If 目前部位( 倉位多空 ) > 0 And 條件觸發[ 單一筆單虧損30點 ] = 是 Then
650 Vf = Vf - 30
660 操作訊號( 多單平倉 , 1口 , Vf )
670 Show [ K線下方 , 損 ]
680 S1$ = '多單停損30出場'
690 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Vf )
700 發送簡訊[ 0911222333 , S2$ , 單次 ]
710 單K計數器( 目前K線 , 3 ) = 1
720 End If
730
740 If 目前部位( 倉位多空 ) < 0 And 條件觸發[ 單一筆單虧損30點 ] = 是 Then
750 Vf = Vf + 30
760 操作訊號( 空單平倉 , 1口 , Vf )
770 Show [ K線上方 , 損 ]
780 S1$ = '空單停損30出場'
790 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Vf )
800 發送簡訊[ 0911222333 , S2$ , 單次 ]
810 單K計數器( 目前K線 , 3 ) = 1
820 End If
830
840 Else
850
860 If 目前部位( 倉位多空 ) > 0 Then
870 Vf = Vf - 30
880 操作訊號( 多單平倉 , 1口 , Vf )
890 Show [ K線下方 , 損 ]
900 End If
910 If 目前部位( 倉位多空 ) < 0 Then
920 Vf = Vf + 30
930 操作訊號( 空單平倉 , 1口 , Vf )
940 Show [ K線上方 , 損 ]
950 End If
960 End If
970
980
990 // 出場條件2
1000 Vx = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 )
1010 If Vx > 10 Then
1020 Vx = 10
1030 End If
1040
1050
1060 If 單K計數器( 目前K線 , 4 ) = 0 Then
1070 If 目前部位( 倉位多空 ) > 0 And Vx > 0 And 條件觸發[ 自Vx根K線高點下跌30點 ] Then
1080 Vf = 5分_區間最高價( Vx ) - 30
1090 操作訊號( 多單平倉 , 1口 , Vf )
1100 Show [ K線下方 , ◎ ]
1110 S1$ = '自高點回跌30出場'
1120 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Vf )
1130 發送簡訊[ 0911222333 , S2$ , 單次 ]
1140 單K計數器( 目前K線 , 4 ) = 1
1150 End If
1160
1170 If 目前部位( 倉位多空 ) < 0 And Vx > 0 And 條件觸發[ 自Vx根K線低點上漲30點 ] Then
1180 Vf = 5分_區間最低價( Vx ) + 30
1190 操作訊號( 空單平倉 , 1口 , Vf )
1200 Show [ K線上方 , ◎ ]
1210 S1$ = '自低點上漲30出場'
1220 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Vf )
1230 發送簡訊[ 0911222333 , S2$ , 單次 ]
1240 單K計數器( 目前K線 , 4 ) = 1
1250 End If
1260
1270 Else
1280 If 目前部位( 倉位多空 ) > 0 Then
1290 Vf = 5分_區間最高價( Vx ) - 30
1300 操作訊號( 多單平倉 , 1口 , Vf )
1310 Show [ K線下方 , ◎ ]
1320 End If
1330 If 目前部位( 倉位多空 ) < 0 Then
1340 Vf = 5分_區間最低價( Vx ) + 30
1350 操作訊號( 空單平倉 , 1口 , Vf )
1360 Show [ K線上方 , ◎ ]
1370 End If
1380 End If
1390
1400
1410 // 出場條件3
1420 If 前1_5分_K線時間 = 1330 Then
1430 If 目前部位( 倉位多空 ) > 0 Then
1440
1450 操作訊號( 多單平倉 , 1口 , Ve )
1460 Show [ K線下方 , ◎ ]
1470 S1$ = '時間到多單出場'
1480 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Ve )
1490
1500 發送簡訊[ 0911222333 , S2$ , 單次 ]
1510
1520 End If
1530 If 目前部位( 倉位多空 ) < 0 Then
1540
1550 操作訊號( 空單平倉 , 1口 , Ve )
1560 Show [ K線上方 , ◎ ]
1570 S1$ = '時間到空單出場'
1580 S2$ = 'T3--' + Cstr( Vt ) + ':' + Cstr( Vu ) + ':' + Cstr( Vv ) + S1$ + Cstr( Ve )
1590 發送簡訊[ 0911222333 , S2$ , 單次 ]
1600
1610 End If
1620 End If [/SIZE]
|
|
TIGER |
|
|
