Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2009-09-13 21:08:17 人氣:31510 | 樓主 |
光標裁縫線
轉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] |
|
|