Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2009-08-06 10:55:52 | 第28樓 |
程式碼如下: 10 If 前1_5分_K線時間 = 945 Then 20 Vh = 前1_5分_區間最高價( 12 ) 30 Vl = 前1_5分_區間最低價( 12 ) 40 Vk = 0 50 End If 60 70 Va = 5分_開盤價 80 90 // 多單進場 100 If 目前部位( 倉位多空 ) <= 0 And 5分_K線時間 > 950 And 前1_5分_收盤價 > Vh And
Vk<= 1 Then 110 Show [ K線下方 , ↑ ] 120 操作訊號( 空單平倉 , 1口 , Va ) 130 操作訊號( 多單建倉 , 1口 , Va ) 140 Vk = Vk + 1 150 End If 160 170 // 空單進場 180 If 目前部位( 倉位多空 ) >= 0 And 5分_K線時間 > 950 And 前1_5分_收盤價 < Vl And
Vk<= 1 Then 190 Show [ K線上方 , ↓ ] 200 操作訊號( 多單平倉 , 1口 , Va ) 210 操作訊號( 空單建倉 , 1口 , Va ) 220 Vk = Vk + 1 230 End If 240 250 // 多單出場 260 If 目前部位( 倉位多空 ) > 0 Then 270 If 前1_5分_K線時間 = 1340 Then 280 Show [ K線下方 , ◎ ] 290 操作訊號( 多單平倉 , 1口 , Va ) 300 End If 310 Vb = 5分_最低價 - 目前部位( 第 1 次成本價位 ) 320 If Vb <= -40 Then 330 Vc = 目前部位( 第 1 次成本價位 ) - 40 340 Show [ K線下方 , ◎ ] 350 操作訊號( 多單平倉 , 1口 , Vc ) 360 End If 370 End If 380 390 // 空單出場 400 If 目前部位( 倉位多空 ) < 0 Then 410 If 前1_5分_K線時間 = 1340 Then 420 Show [ K線上方 , ◎ ] 430 操作訊號( 空單平倉 , 1口 , Va ) 440 End If 450 Vb = 目前部位( 第 1 次成本價位 ) - 5分_最高價 460 If Vb <= -40 Then 470 Vc = 目前部位( 第 1 次成本價位 ) + 40 480 Show [ K線上方 , ◎ ] 490 操作訊號( 空單平倉 , 1口 , Vc ) 500 End If 510 End If
Run出來的結果:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0806-1.jpg[/IMGA]
下載程式碼(請存於huntap資料匣內) [URL=http://www.huntasoft.com/hsp/0046.rda]http://www.huntasoft.com/hsp/0046.rda[/URL] |
|
|