HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> 程式交易討論區 >> 關於部位的處理∼∼
kimoze1,2010-01-08 22:21:31
兩個要併一起的單k計數器?
if 單k0=0 then
if 部位=0 then
if (多單條件)then
操作
show
單k0=1
endif
if 部位=0 then
if(空單條件)then
操作
show
單k0=1
endif
endif
endif
是這樣嗎?
Hunta,2010-01-08 22:57:42
是的
kimoze1,2010-01-08 23:33:07
那else後面的怎麼辦?
Hunta,2010-01-09 10:42:02
if 單k0=0 then
操作
show
單k0=1
else
操作
show
End if
kimoze1,2010-01-12 12:14:08
已經改寫單K計數器如下
請版大確認是否有誤
10 If 1分_K線日期 <> 前1_1分_K線日期 Then
20 Vt = 0
30 End If
90 // 多單進場
100 If 單K計數器( 目前K線 , 0 ) = 0 Then
110 If 目前部位( 倉位多空 ) = 0 Then
120 (多單條件)
130 Show [ K線下方 , ◎ ]
140 操作訊號( 空單平倉 , 1口 , Vk )
150 操作訊號( 多單建倉 , 1口 , Vk )
160 Vf = 目前部位( 第 1 次成本價位 )
170 Vt = 1
180 單K計數器( 目前K線 , 0 ) = 1
190 Else
200 Show [ K線下方 , ◎ ]
210 操作訊號( 空單平倉 , 1口 , Vk )
220 操作訊號( 多單建倉 , 1口 , Vk )
230 Vf = 目前部位( 第 1 次成本價位 )
240 Vt = 1
250 End If
260 End If
270
280 // 空單進場
290 If 目前部位( 倉位多空 ) = 0 Then
300 (空單條件)
310 Show [ K線上方 , ◎ ]
320 操作訊號( 多單平倉 , 1口 , Vk )
330 操作訊號( 空單建倉 , 1口 , Vk )
340 Vf = 目前部位( 第 1 次成本價位 )
350 Vt = -1
360 單K計數器( 目前K線 , 0 ) = 1
370 Else
380 Show [ K線上方 , ◎ ]
390 操作訊號( 多單平倉 , 1口 , Vk )
400 操作訊號( 空單建倉 , 1口 , Vk )
410 Vf = 目前部位( 第 1 次成本價位 )
420 Vt = -1
430 End If
440 End If
450 End If
460
470 // 停損反手
480 If 單K計數器( 目前K線 , 1 ) = 0 Then
490 If 目前部位( 倉位多空 ) <> 0 And Vt = 1 Then
500 Vc = 目前部位( 總暫結績效 )
510 If Vc < -30 Then
520 Vf = Vf - 30
530 Show [ K線下方 , ★ ]
540 操作訊號( 多單平倉 , 1口 , Vf )
550 操作訊號( 空單建倉 , 1口 , Vf )
560 Vf = 目前部位( 第 1 次成本價位 )
570 Vt = 2
580 單K計數器( 目前K線 , 1 ) = 1
590 Else
600 Vf = Vf - 30
610 Show [ K線下方 , ★ ]
620 操作訊號( 多單平倉 , 1口 , Vf )
630 操作訊號( 空單建倉 , 1口 , Vf )
640 Vf = 目前部位( 第 1 次成本價位 )
650 Vt = 2
660 End If
670 End If
680 If 目前部位( 倉位多空 ) <> 0 And Vt = 2 Then
690 Vc = 目前部位( 總暫結績效 )
700 If Vc < -30 Then
710 Vf = Vf + 30
720 Show [ K線上方 , ※ ]
730 操作訊號( 空單平倉 , 1口 , Vf )
740 Vt = 0
750 單K計數器( 目前K線 , 1 ) = 1
760 Else
770 Vf = Vf + 30
780 Show [ K線上方 , ※ ]
790 操作訊號( 空單平倉 , 1口 , Vf )
800 Vt = 0
810 End If
820 End If
830 End If
840 If 單K計數器( 目前K線 , 2 ) = 0 Then
850 If 目前部位( 倉位多空 ) <> 0 And Vt = -1 Then
860 Vc = 目前部位( 總暫結績效 )
870 If Vc < -30 Then
880 Vf = Vf + 30
890 Show [ K線上方 , ★ ]
900 操作訊號( 空單平倉 , 1口 , Vf )
910 操作訊號( 多單建倉 , 1口 , Vf )
920 Vf = 目前部位( 第 1 次成本價位 )
930 Vt = -2
940 單K計數器( 目前K線 , 2 ) = 1
950 Else
960 Vf = Vf + 30
970 Show [ K線上方 , ★ ]
980 操作訊號( 空單平倉 , 1口 , Vf )
990 操作訊號( 多單建倉 , 1口 , Vf )
1000 Vf = 目前部位( 第 1 次成本價位 )
1010 Vt = -2
1020 End If
1030 End If
1040 If 目前部位( 倉位多空 ) <> 0 And Vt = -2 Then
1050 Vc = 目前部位( 總暫結績效 )
1060 If Vc < -30 Then
1070 Vf = Vf - 30
1080 Show [ K線下方 , ※ ]
1090 操作訊號( 多單平倉 , 1口 , Vf )
1100 Vt = 0
1110 單K計數器( 目前K線 , 2 ) = 1
1120 Else
1130 Vf = Vf - 30
1140 Show [ K線下方 , ※ ]
1150 操作訊號( 多單平倉 , 1口 , Vf )
1160 Vt = 0
1170 End If
1180 End If
1190 End If
1200
1210 // 收盤
1220 If 1分_K線時間 = 1340 Then
1230 If 目前部位( 倉位多空 ) > 0 Then
1240 Show [ K線上方 , ※ ]
1250 操作訊號( 多單平倉 , 1口 , Vk )
1260 End If
1270 If 目前部位( 倉位多空 ) < 0 Then
1280 Show [ K線下方 , ※ ]
1290 操作訊號( 空單平倉 , 1口 , Vk )
1300 End If
1310 End If
Hunta,2010-01-12 13:15:26
單K計數器必須在內層,例如行號100要與行號110對調。
kimoze1,2010-01-12 23:57:00
單K計數器已經換位置
但是執行錯誤耶????
10 If 1分_K線日期 <> 前1_1分_K線日期 Then
20 Vt = 0
30 End If
90 // 多單進場
100 If 目前部位( 倉位多空 ) = 0 Then
110 If 單K計數器( 目前K線 , 0 ) = 0 Then
120 (多單條件)
130 Show [ K線下方 , ◎ ]
140 操作訊號( 空單平倉 , 1口 , Vk )
150 操作訊號( 多單建倉 , 1口 , Vk )
160 Vf = 目前部位( 第 1 次成本價位 )
170 Vt = 1
180 單K計數器( 目前K線 , 0 ) = 1
190 Else
200 Show [ K線下方 , ◎ ]
210 操作訊號( 空單平倉 , 1口 , Vk )
220 操作訊號( 多單建倉 , 1口 , Vk )
230 Vf = 目前部位( 第 1 次成本價位 )
240 Vt = 1
250 End If
260 End If
270
280 // 空單進場
290 If 目前部位( 倉位多空 ) = 0 Then
300 (空單條件)
310 Show [ K線上方 , ◎ ]
320 操作訊號( 多單平倉 , 1口 , Vk )
330 操作訊號( 空單建倉 , 1口 , Vk )
340 Vf = 目前部位( 第 1 次成本價位 )
350 Vt = -1
360 單K計數器( 目前K線 , 0 ) = 1
370 Else
380 Show [ K線上方 , ◎ ]
390 操作訊號( 多單平倉 , 1口 , Vk )
400 操作訊號( 空單建倉 , 1口 , Vk )
410 Vf = 目前部位( 第 1 次成本價位 )
420 Vt = -1
430 End If
440 End If
450 End If
460
470 // 停損反手
480 If 目前部位( 倉位多空 ) <> 0 And Vt = 1 Then
490 If 單K計數器( 目前K線 , 1 ) = 0 Then
500 Vc = 目前部位( 總暫結績效 )
510 If Vc < -30 Then
520 Vf = Vf - 30
530 Show [ K線下方 , ★ ]
540 操作訊號( 多單平倉 , 1口 , Vf )
550 操作訊號( 空單建倉 , 1口 , Vf )
560 Vf = 目前部位( 第 1 次成本價位 )
570 Vt = 2
580 單K計數器( 目前K線 , 1 ) = 1
590 Else
600 Vf = Vf - 30
610 Show [ K線下方 , ★ ]
620 操作訊號( 多單平倉 , 1口 , Vf )
630 操作訊號( 空單建倉 , 1口 , Vf )
640 Vf = 目前部位( 第 1 次成本價位 )
650 Vt = 2
660 End If
670 End If
680 If 目前部位( 倉位多空 ) <> 0 And Vt = 2 Then
690 Vc = 目前部位( 總暫結績效 )
700 If Vc < -30 Then
710 Vf = Vf + 30
720 Show [ K線上方 , ※ ]
730 操作訊號( 空單平倉 , 1口 , Vf )
740 Vt = 0
750 單K計數器( 目前K線 , 1 ) = 1
760 Else
770 Vf = Vf + 30
780 Show [ K線上方 , ※ ]
790 操作訊號( 空單平倉 , 1口 , Vf )
800 Vt = 0
810 End If
820 End If
830 End If
840 If 目前部位( 倉位多空 ) <> 0 And Vt = -1 Then
850 If 單K計數器( 目前K線 , 2 ) = 0 Then
860 Vc = 目前部位( 總暫結績效 )
870 If Vc < -30 Then
880 Vf = Vf + 30
890 Show [ K線上方 , ★ ]
900 操作訊號( 空單平倉 , 1口 , Vf )
910 操作訊號( 多單建倉 , 1口 , Vf )
920 Vf = 目前部位( 第 1 次成本價位 )
930 Vt = -2
940 單K計數器( 目前K線 , 2 ) = 1
950 Else
960 Vf = Vf + 30
970 Show [ K線上方 , ★ ]
980 操作訊號( 空單平倉 , 1口 , Vf )
990 操作訊號( 多單建倉 , 1口 , Vf )
1000 Vf = 目前部位( 第 1 次成本價位 )
1010 Vt = -2
1020 End If
1030 End If
1040 If 目前部位( 倉位多空 ) <> 0 And Vt = -2 Then
1050 Vc = 目前部位( 總暫結績效 )
1060 If Vc < -30 Then
1070 Vf = Vf - 30
1080 Show [ K線下方 , ※ ]
1090 操作訊號( 多單平倉 , 1口 , Vf )
1100 Vt = 0
1110 單K計數器( 目前K線 , 2 ) = 1
1120 Else
1130 Vf = Vf - 30
1140 Show [ K線下方 , ※ ]
1150 操作訊號( 多單平倉 , 1口 , Vf )
1160 Vt = 0
1170 End If
1180 End If
1190 End If
1200
1210 // 收盤
1220 If 1分_K線時間 = 1340 Then
1230 If 目前部位( 倉位多空 ) > 0 Then
1240 Show [ K線上方 , ※ ]
1250 操作訊號( 多單平倉 , 1口 , Vk )
1260 End If
1270 If 目前部位( 倉位多空 ) < 0 Then
1280 Show [ K線下方 , ※ ]
1290 操作訊號( 空單平倉 , 1口 , Vk )
1300 End If
1310 End If
Hunta,2010-01-13 22:49:53
請問你的多空條件是採用This Bar或Next Bar方式?
97 1 2 3 8: 此主題共有32帖 此頁8帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時62.5毫秒 請求2次
|