Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2010-05-17 11:42:25   | 第2樓 |
程式碼如下:
10 If 最後K線 = 是 Then
20 載入陣列[ 1分_最高價 , 最高價 -> 陣列1 ]
30 載入陣列[ 1分_最低價 , 最低價 -> 陣列2 ]
40 A3{} = 陣列高低點( 陣列1 , 1 ~ 250 , 級數=6 , 相對位置 -> 陣列5 )
50 A4{} = 陣列高低點( 陣列2 , 1 ~ 250 , 級數=6 , 相對位置 -> 陣列6 )
60
70 X0# = 0
80 Y0# = 0
90 Vh = 100
100 Vl = 0
110 If 陣列5值( 1 ) > 陣列6值( 1 ) Then
120 高低# = 1
130 Else
140 高低# = -1
150 End If
160
170 For Va = 1 To 12 Step 1
180 If 高低# = 1 Then
190 Vh = Vh + 1
200 X1# = 250 - 陣列5值( Vh )
210 Y1# = 前X1#_1分_最高價
220 高低# = -1
230 Else
240 Vl = Vl + 1
250 X1# = 250 - 陣列6值( Vl )
260 Y1# = 前X1#_1分_最低價
270 高低# = 1
280 End If
290
300 If Y0# > 0 Then
310 X1# = X1# * -1
320 直線[ ( X0# , Y0# ) - (X1# , Y1# ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ]
330 End If
340
350 X0# = X1#
360 Y0# = Y1#
370 Next
380 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0113.rda]http://www.huntasoft.com/hsp/0113.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0517-1.jpg[/IMGA]
|
|
|
