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] |
|
|