HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> 經驗交流與分享 >> 光標裁縫線
光標裁縫線
Hunta,2009-09-13 21:08:17
轉PO Puliman一文:
[SIZE=2]奇狐程式如下：[/SIZE]
[SIZE=2][/SIZE]
[SIZE=2]cc:=條件函數(有效值週期數(收盤價)=1,(開盤價+收盤價)/2,收盤價),linethick0;
oo:=條件函數(有效值週期數(收盤價)=1,(開盤價+收盤價)/2,移動平均(向前引用(cc,1),2,1)),linethick0;
HH:=最高價,linethick0;
LL:=最低價,linethick0;
[/SIZE][SIZE=3]今日轉折:向前引用((cc+oo)/2,1),linethick0;
明日轉折:(cc+oo)/2,ColorRED,linethick0;
多空價:(oo-向前引用(oo,1))*0.618+向前引用(oo,1),COLORGREEN;
畫分段線(收盤價>=多空價,多空價),ColorRED,LINETHICK2;
畫分段線(收盤價<多空價,多空價),COLORGREEN,LINETHICK2;
顯示數字(是否最後週期,多空價,多空價,0),COLORGREEN,shift1;
顯示數字(是否最後週期,明日轉折,明日轉折,0),ColorRED,shift2;[/SIZE]
請版大將它改為HSQL的程式語言，感謝！
程式碼如下:
10 Vc = 5分_收盤價
20 Vo = 前1_5分_均價( 2 )
30 Vt = ( 前1K線_Vc + 前1K線_Vo ) / 2
40 Vu = ( Vc + Vo ) / 2
50 Vc = ( Vo - 前1K線_Vo ) * 0.618 + 前1K線_Vo
60 Vb = 前1K線_Vc
70 If 5分_收盤價 >= Vc Then
80 K線顏色( 棒身 255 , 影線 16777215 )
90 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
100 Else
110 K線顏色( 棒身 16777215 , 影線 16777215 )
120 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
130 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0067.rda]http://www.huntasoft.com/hsp/0067.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0913-1.jpg[/IMGA]
puliman,2009-09-14 08:41:48
感謝版大即時回覆
另請教版大，圖中的今日轉折及多空價要如何顯示於置頂及圖裡(K線均線)，如附上之圖。
謝謝！
Hunta,2009-09-14 09:12:05
可以用「顯示資訊」函數，將Vt(今日轉折)及Vu(明日轉折)顯示出來。
puliman,2009-09-14 13:18:04
版大您好：
很抱歉，因對程式不熟，能否請版大詳述於程式碼中，然後我在策略編輯器中編輯(學習)，
感謝！
Hunta,2009-09-14 16:43:55
程式碼如下:
10 Vc = 5分_收盤價
20 Vo = 前1_5分_均價( 2 )
30 Vt = ( 前1K線_Vc + 前1K線_Vo ) / 2
40 Vu = ( Vc + Vo ) / 2
50 Vc = ( Vo - 前1K線_Vo ) * 0.618 + 前1K線_Vo
60 Vb = 前1K線_Vc
70 If 5分_收盤價 >= Vc Then
80 K線顏色( 棒身 255 , 影線 16777215 )
90 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
100 Else
110 K線顏色( 棒身 16777215 , 影線 16777215 )
120 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
130 End If
140
150 顯示資訊[ 今日轉折價 , 序號: 1 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
160 顯示資訊[ Vt , 序號: 2 , 大小: 009 , 文字色: 255 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
170 顯示資訊[ 明日轉折價 , 序號: 4 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
180 顯示資訊[ Vu , 序號: 5 , 大小: 009 , 文字色: 8388736 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
下載程式碼 [URL=http://www.huntasoft.com/hsp/0067.rda]http://www.huntasoft.com/hsp/0067.rda[/URL]
puliman,2009-09-14 17:53:33
感謝版大即時回覆
另請教版大，今日轉折價及明日轉折價要如何設定，在十字線移動(隨選)一根K棒時，其價亦隨之改變，即最後K棒其價是會改變的。
謝謝！
Hunta,2009-09-14 19:37:47
程式碼如下:
10 Vc = 5分_收盤價
20 Vo = 前1_5分_均價( 2 )
30 Vt = ( 前1K線_Vc + 前1K線_Vo ) / 2
40 Vu = ( Vc + Vo ) / 2
50 Vc = ( Vo - 前1K線_Vo ) * 0.618 + 前1K線_Vo
60 Vb = 前1K線_Vc
70 If 5分_收盤價 >= Vc Then
80 K線顏色( 棒身 255 , 影線 16777215 )
90 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
100 Else
110 K線顏色( 棒身 16777215 , 影線 16777215 )
120 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
130 End If
140 Debug( 今日轉折價 , Vt )
150 Debug( 明日轉折價 , Vu )
160 顯示資訊[ 今日轉折價 , 序號: 1 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
170 顯示資訊[ Vt , 序號: 2 , 大小: 009 , 文字色: 255 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
180 顯示資訊[ 明日轉折價 , 序號: 4 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
190 顯示資訊[ Vu , 序號: 5 , 大小: 009 , 文字色: 8388736 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
執行後，開啟十字線，即會出現在Debug視窗中。
下載程式碼 [URL=http://www.huntasoft.com/hsp/0067.rda]http://www.huntasoft.com/hsp/0067.rda[/URL]
puliman,2009-09-14 21:39:33
再感謝版大即時回覆
再請教版大，價要如何設定為整數(四捨五入，不要小數點)，
另價是否能在K線主畫面顯示資訊
謝謝！
Hunta,2009-09-14 22:28:24
以下程式碼為改為四捨五入:
10 Vc = 5分_收盤價
20 Vo = 前1_5分_均價( 2 )
30 Vt = ( 前1K線_Vc + 前1K線_Vo ) / 2
40 Vu = ( Vc + Vo ) / 2
50 Vt = Round( Vt , 0 )
60 Vu = Round( Vu , 0 )
70 Vc = ( Vo - 前1K線_Vo ) * 0.618 + 前1K線_Vo
80 Vb = 前1K線_Vc
90 If 5分_收盤價 >= Vc Then
100 K線顏色( 棒身 255 , 影線 16777215 )
110 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
120 Else
130 K線顏色( 棒身 16777215 , 影線 16777215 )
140 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
150 End If
160 Debug( 今日轉折價 , Vt )
170 Debug( 明日轉折價 , Vu )
180 顯示資訊[ 今日轉折價 , 序號: 1 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
190 顯示資訊[ Vt , 序號: 2 , 大小: 009 , 文字色: 255 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
200 顯示資訊[ 明日轉折價 , 序號: 4 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
210 顯示資訊[ Vu , 序號: 5 , 大小: 009 , 文字色: 8388736 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
至於Vt、Vu要顯示在K線圖上部份，HSP內定可以顯示在左邊資訊欄內，要不然就用上述Debug視窗來顯示。
puliman,2009-09-15 16:37:24
再請教版大
Debug 視窗如何改變大小
謝謝！
Hunta,2009-09-15 17:07:54
目前無法縮小，但若想讓它暫時消失，可按滑鼠右鍵。
puliman,2009-09-15 18:09:38
感謝版大即時及詳細回覆，感謝再感謝！
97 1 2 8: 此主題共有19帖 此頁12帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時62.5毫秒 請求2次
|