Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-08-08 21:29:04   | 第2樓 |
保歷加通道(或稱布林線)本系統參數為20，當:
寬度<=50時呈現[COLOR=#ff0000]紅色[/COLOR]，代表進入盤整狀態
寬度>50並且<=70時呈現[COLOR=#ee9611]黃色[/COLOR]，代表即將進入或脫離盤整
寬度>=140時呈現[COLOR=#3ba23b]綠色[/COLOR]，代表乖離過大狀態
程式碼如下:
10 Va = 5分_均價( 20 )
20 Vb = 5分_保歷加上限( 20 )
30 Vc = 5分_保歷加下限( 20 )
40 Vd = 5分_保歷加寬度( 20 )
50
60 Ve = 前1K線_Va
70 Vf = 前1K線_Vb
80 Vg = 前1K線_Vc
90
100 直線[ ( 0 , Va ) - (-1 , Ve ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65535 ]
110 If Vd <= 50 Then
120 直線[ ( 0 , Vb ) - (-1 , Vf ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
130 直線[ ( 0 , Vc ) - (-1 , Vg ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
140 ElseIf Vd <= 70 Then
150 直線[ ( 0 , Vb ) - (-1 , Vf ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65535 ]
160 直線[ ( 0 , Vc ) - (-1 , Vg ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65535 ]
170 ElseIf Vd >= 140 Then
180 直線[ ( 0 , Vb ) - (-1 , Vf ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
190 直線[ ( 0 , Vc ) - (-1 , Vg ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
200 Else
210 直線[ ( 0 , Vb ) - (-1 , Vf ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ]
220 直線[ ( 0 , Vc ) - (-1 , Vg ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ]
230 End If
Run出來圖形如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0808-1.jpg[/IMGA]
下載程式碼(請存放於huntap資料匣內) [URL=http://www.huntasoft.com/hsp/0048.rda]http://www.huntasoft.com/hsp/0048.rda[/URL]
|
|
|
