puliman |
級別 論壇遊俠 積分 39 經驗 6025 文章 33 註冊 09-07-29 21:24
|
|
|
發表: 2009-08-16 10:08:16 | 第8樓 |
版主您早:
感謝您即時回覆問題,再麻煩您能否將下列
HTS 語法轉換成 HSP 語法,並將其程式碼供下載,謝謝!
KDJ背離買賣語法
Parameter:KD週期(9)
var:RSV(0),KK(50),DD(50),J值(50),指標1(0),K棒1(0),指標2(0),K棒2(0)
RSV=FastK(High,Low,close,KD週期)
KK=KK[1]* 2/3+RSV/3
DD=DD[1]* 2/3+KK/3
J值=3*KK- 2*DD
DrawBase1(100, "0" ,DarkGray)
DrawBase2( 80, "嘎空",CYAN )
DrawBase3( 50, "中" ,DarkGray)
DrawBase4( 20, "殺多",GREEN)
DrawBase5( 0, "0" ,DarkGray)
Draw1(KK, "K", red)
Draw2(DD, "D", blue)
Draw3(J值,"J", BLACK)
//***指標一頂比一頂低**K線創高*****
if kk cross under dd then
指標1=HighestValue(KK,5)
K棒1=HighestValue(High,5)
end if
IF 指標1<指標1[1] AND K棒1>K棒1[1] THEN
VALUE99=TXT_New(Date,Time,100,NumToStr(KK,1)+"背離賣")
TXT_SetColor(Value99,black)
END IF
//****指標不創低**K線創低******
if kk cross OVER dd then
指標2=LowestValue(KK,5)
K棒2=LowestValue(Low,5)
end if
IF 指標2>指標2[1] AND K棒2<K棒2[1] THEN
VALUE99=TXT_New(Date,Time,0,NumToStr(KK,1)+"背離買")
TXT_SetColor(Value99,red)
END IF
http://tw.myblog.yahoo.com/big_world5168/article?mid=32&prev=55&next=31&l=f&fid=14 |
|
|