Choppy Market Index Function - HSP程式交易論壇


	上篇重新整理下篇

97 1 8: 此主題共有3帖此頁3帖每頁12帖

主題：Choppy Market Index Function - 複製地址

Hunta

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2009-08-25 09:17:02 人氣:11892

樓主

Choppy Market Index Function

[SIZE=3]轉貼pop616大:[/SIZE]

[SIZE=3]{Choppy Market Index Function

This function returns a value from 0 to 100.

A lower value denotes higher market indecisiveness (choppiness),

whereas a higher value denotes a trending market.

The only input is the number of bars that we look back.}

Inputs: periodLength(Numeric);

Vars: num(0),denom(1);

if(periodLength<>0) then

begin

denom = Highest(High,periodLength) - Lowest(Low,periodLength);

num = Close[periodLength-1]- Close;

num = AbsValue(num);

ChoppyMarketIndex = 0.0;

if(denom<>0) then ChoppyMarketIndex = num/denom*100;

end;

出自~程式交易聚寶盆-藍色投機客 [/SIZE]

Hunta

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2009-08-25 09:19:05

第2樓

程式碼如下:
10　自訂技術指標[ #1 , CMI ]　
20　
30　Vl　=　15　
40　Vd　=　5分_區間最高價( Vl )　-　5分_區間最低價( Vl )　
50　Ve　=　Vl　-　1　
60　Vn　=　前Ve_5分_收盤價　-　5分_收盤價　
70　Vn　=　Abs( Vn )　
80　Vc　=　Vn　/　Vd　*　100　
90　Vb　=　前1K線_Vc　
100　直線[ ( 0 , Vc ) - (-1 , Vb ) , 技術1 , #1 , CMI , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ]　

執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0825-1.jpg[/IMGA]

下載程式碼 [URL=http://www.huntasoft.com/hsp/0060.rda]http://www.huntasoft.com/hsp/0060.rda[/URL]