Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-08-24 20:56:07 人氣:12678   | 樓主 |
動態彈性參數利用標準差改裝RSI
[SIZE=3][B]HTS程式碼[/B][/SIZE]
[SIZE=3][/SIZE]
[SIZE=3]指標裡參數可以隨市況自行調整:[/SIZE]
[SIZE=3]• 動能(CMO . RSI)[/SIZE]
[SIZE=3]• 標準差[/SIZE]
[SIZE=3]• 相關係數R-square[/SIZE]
[SIZE=3][/SIZE]
[SIZE=3]•在動能擺盪指標裡，RSI(STD)便是彈性期間的RSI [/SIZE]
[SIZE=3]•彈性期間 : 當行情相當平靜時，可以由較長期的觀點進行分析 ; 行情波動轉趨劇烈時，可以縮短計算期間並由短線的角度尋找超買或超賣的區域[/SIZE]
[SIZE=3][/SIZE]
[SIZE=3][B]利用收盤價的標準差來計算[/B] [/SIZE]
[SIZE=3]Stda=Average10(Std(C , 5)) ------- 取5天期標準差的10日移動平均
Vi=Std(C , 5) / Stda ------ 波動程度[/SIZE]
[SIZE=3]Td=INT(14 / Vi)------ RSI(STD)的有效計算長度[/SIZE]
[SIZE=3]•利用波動程度來定義RSI(STD)，方法之一是計算收盤價的5天期標準差，然後取此標準差的10天期移動平均當分母[/SIZE]
[SIZE=3][/SIZE]
[SIZE=3][B]程式碼[/B][/SIZE]
[FACE=Times New Roman][SIZE=3]Parameter: Price(Close), BuyLine(30), SellLine(70)[/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]Vars: StdAvg(0), Vi(0) ,Td(0)[/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3][/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]StdAvg=Average((XStdDev(C,5)),10) Vi=XStdDev(C,5)/StdAvg [/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]Td=IntPortion(14/Vi)[/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3][/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]Draw2(BuyLine, "OverBought")[/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]Draw3(SellLine, "OverSold")[/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]Draw4( 50, "Neutral")[/FACE][/SIZE]
[FACE=Times New Roman][SIZE=3]Draw1(RSI(Price, Td), "RSI(STD)")[/FACE][/SIZE]
依上列說明，若指標大於70為過買，指標小於30為過賣，HSQL程式碼如下:
10 自訂技術指標[ #1 , RSI ]
20 載入陣列[ 5分_收盤價 , 收盤價 -> 陣列1 ]
30 A2{} = 陣列標準差( 陣列1 , 200 ~ 250 , 參數 5 )
40 A3{} = 陣列均值( 陣列2 , 200 ~ 250 , 參數 10 )
50 Va = 陣列3值( 250 )
60 Vb = 陣列2值( 250 )
70 Vi = Vb / Va
80 Vc = 14 / Vi
90 Vd = Int( Vc )
100 Vr = 5分_RSI( Vd )
110 Vs = 前1K線_Vr
120
130 If Vr >= 70 Then
140 直線[ ( 0 , Vr ) - (-1 , Vs ) , 技術1 , #1 , RSI , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
150 ElseIf Vr <= 30 Then
160 直線[ ( 0 , Vr ) - (-1 , Vs ) , 技術1 , #1 , RSI , 寬度: 1 , 樣式: 0 , 顏色: 16744448 ]
170 Else
180 直線[ ( 0 , Vr ) - (-1 , Vs ) , 技術1 , #1 , RSI , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ]
190 End If
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0824-4.jpg[/IMGA]
[COLOR=#ff0033]請注意!!執行此程式必須升級至HSPv3.9版以上[/COLOR]
下載程式碼 [URL=http://www.huntasoft.com/hsp/0058.rda]http://www.huntasoft.com/hsp/0058.rda[/URL] |
[ 此貼最後由Hunta在2009/8/24 下午 09:49:48編輯過 ]
|
|
