HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> HSQL語言討論區 >> 如何新增fastd函數？
如何新增fastd函數？
split761,2010-04-14 21:33:27
請教版主如題，謝謝！Parameter : HighValue(Numeric), LowValue(Numeric), Closevalue(Numeric), Length( Numeric )
Variable : Factor(0.5)
If CurrentBar <= 1 Then
FastD = FastK(HighValue, LowValue, CloseValue, Length)
Else
FastD = FastD[1] + (Factor * (FastK(HighValue, LowValue, CloseValue, Length) - FastD[1]))
End If
split761,2010-04-14 21:35:26
另外，還有fastK的函數Parameter : HighValue(Numeric), LowValue(Numeric), Closevalue(Numeric), Length( Numeric )
Value1 = LowestValue( LowValue, Length )
Value2 = HighestValue( HighValue, Length ) - Value1
Value3 = CloseValue
If Value2 > 0 Then
FastK = (Value3 - Value1) / Value2 * 100
Else
FastK = 0
End If
Hunta,2010-04-15 11:10:29
程式碼如下:
10 自訂技術指標[ #1 , FastKD ]
20 Va = 5
30 GoSub fastk
40 Va = 5
50 GoSub fastd
60 Vj = 前1K線_Vk
70 Vc = 前1K線_Vd
80 直線[ ( 0 , Vk ) - (-1 , Vj ) , 技術1 , #1 , %K , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
90 直線[ ( 0 , Vd ) - (-1 , Vc ) , 技術1 , #2 , %D , 寬度: 1 , 樣式: 0 , 顏色: 3727616 ]
100
110
120 Sub fastk
130 變數1# = 5分_區間最低價( Va )
140 變數2# = 5分_區間最高價( Va ) - 變數1#
150 If 變數2# > 0 Then
160 Vk = ( 5分_收盤價 - 變數1# ) / 變數2# * 100
170 Else
180 Vk = 0
190 End If
200 End Sub
210
220 Sub fastd
230 GoSub fastk
240 If 初始K線 = 是 Then
250 Vd = Vk
260 Else
270 Vd = 前1K線_Vd + ( 0.5 * ( Vk - 前1K線_Vd ) )
280 End If
290 End Sub
程式碼下載 [URL=http://www.huntasoft.com/hsp/0108.rda]http://www.huntasoft.com/hsp/0108.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0415-1.jpg[/IMGA]
split761,2010-04-29 19:54:07
[SIZE=3]感謝版主的協助，另請教「前1K線_Vd」在哪裡？右邊的變數好像沒看到，另外如果要復製一行中的一段，請教如何操作？ [/SIZE]
Hunta,2010-04-29 21:27:25
「前1K線_Vd」在「歷史變數」函數
編輯區上方有「複製列」按鈕
split761,2010-04-30 11:03:10
請教如果我有幾個策略都會用到自定函數，請教如何呼叫自定函數呢？謝謝！
Hunta,2010-04-30 11:10:34
目前的做法就是直接將自定函數直接Copy進來。
split761,2010-04-30 21:52:08
版主請教一下：在 if then 的內容，啟始字不要在第1個字，怎麼處理？
split761,2010-04-30 22:17:12
版主您好：請教我有傳訊息給您，不知您是否有收到，能夠請您協助處理嗎？麻煩回覆，謝謝！
Hunta,2010-04-30 22:39:36
[QUOTE][b]下面引用由[u]split761[/u]發表的內容：[/b]
版主請教一下：在 if then 的內容，啟始字不要在第1個字，怎麼處理？[/QUOTE]
Sorry,不大懂。
Hunta,2010-04-30 22:40:01
[QUOTE][b]下面引用由[u]split761[/u]發表的內容：[/b]
版主您好：請教我有傳訊息給您，不知您是否有收到，能夠請您協助處理嗎？麻煩回覆，謝謝！[/QUOTE]
已回信。
97 1 8: 此主題共有11帖 此頁11帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時140.6毫秒 請求2次
|