Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-09-13 21:08:17 人氣:31369   | 樓主 |
光標裁縫線
轉PO Puliman一文:
[SIZE=2]奇狐程式如下：[/SIZE]
[SIZE=2][/SIZE]
[SIZE=2]cc:=條件函數(有效值週期數(收盤價)=1,(開盤價+收盤價)/2,收盤價),linethick0;
oo:=條件函數(有效值週期數(收盤價)=1,(開盤價+收盤價)/2,移動平均(向前引用(cc,1),2,1)),linethick0;
HH:=最高價,linethick0;
LL:=最低價,linethick0;
[/SIZE][SIZE=3]今日轉折:向前引用((cc+oo)/2,1),linethick0;
明日轉折:(cc+oo)/2,ColorRED,linethick0;
多空價:(oo-向前引用(oo,1))*0.618+向前引用(oo,1),COLORGREEN;
畫分段線(收盤價>=多空價,多空價),ColorRED,LINETHICK2;
畫分段線(收盤價<多空價,多空價),COLORGREEN,LINETHICK2;
顯示數字(是否最後週期,多空價,多空價,0),COLORGREEN,shift1;
顯示數字(是否最後週期,明日轉折,明日轉折,0),ColorRED,shift2;[/SIZE]
請版大將它改為HSQL的程式語言，感謝！
程式碼如下:
10 Vc = 5分_收盤價
20 Vo = 前1_5分_均價( 2 )
30 Vt = ( 前1K線_Vc + 前1K線_Vo ) / 2
40 Vu = ( Vc + Vo ) / 2
50 Vc = ( Vo - 前1K線_Vo ) * 0.618 + 前1K線_Vo
60 Vb = 前1K線_Vc
70 If 5分_收盤價 >= Vc Then
80 K線顏色( 棒身 255 , 影線 16777215 )
90 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
100 Else
110 K線顏色( 棒身 16777215 , 影線 16777215 )
120 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
130 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0067.rda]http://www.huntasoft.com/hsp/0067.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0913-1.jpg[/IMGA]
|
|
|
