TIGER |
級別 騎士 積分 292 經驗 25137 文章 206 註冊 09-11-12 23:41
|
|
|
發表: 2009-12-16 11:36:21 人氣:43693 | 樓主 |
單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 |
|
|