Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2009-08-24 20:56:07 人氣:12747 | 樓主 |
動態彈性參數利用標準差改裝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編輯過 ]
|
|