HSQL程式教學--範例說明(CR指標製作)

ＣＲ的計算公式為：
ＣＲ＝Ｎ日內（Ｈ－ＰＭ）之和 / Ｎ日內（ＰＭ－Ｌ）之和 * 100%

其中：
ＰＭ＝昨日中間價，
中間價＝（最高＋最低價＋收盤價）/３，

Ｈ＝最高價，
Ｌ＝最低價

10　自訂技術指標[ #1 , ＣＲ ]　
20　Vh　=　0　
30　Vl　=　0　
40　For Va = 0 To 25 Step 1　
50　　Vb　=　Va　+　1　
60　　Vd　=　(　前Vb_15分_最高價　+　前Vb_15分_最低價　+　前Vb_15分_收盤價　)　/　3　
70　　Vh　=　Vh　+　(　前Va_15分_最高價　-　Vd　)　
80　　Vl　=　Vl　+　(　Vd　-　前Va_15分_最低價　)　
90　Next　
100　Vc　=　Vh　/　Vl　*　100　
110　直線[ ( 0 , Vc ) - (-1 , Vg ) , 技術1 , #1 , CR , 寬度: 1 , 樣式: 0 , 顏色: 65535 ]　
120　Vg　=　Vc　

本範例CR指標之參數為26，若想變更參數值，請直接更改行號40之數值即可。


下載程式檔1020.rda (請下載至Huntap資#料匣內)

實際執行畫面如下: