分享一些友站買來的 HTS 指標源碼好了, 反正也不是我自己寫的, 或許網路上也找得到!
當然這些我還沒試用過, 我目前還是用我自己寫的程式,
請網友最好不要直接套用, 會寫的人自己加個買賣訊號, 回測一下績效比較保險~
不過想不到這些小有名氣的指標, 原理卻並不複雜, 還適合拿來當範例改一下測試看看:
----------------------------------當然這些我還沒試用過, 我目前還是用我自己寫的程式,
請網友最好不要直接套用, 會寫的人自己加個買賣訊號, 回測一下績效比較保險~
不過想不到這些小有名氣的指標, 原理卻並不複雜, 還適合拿來當範例改一下測試看看:
//行家指標===========================
Parameter:Length(13)
Variables:Q(0),A1(0),A2(0),A0(0),B0(0)
Parameter:Length(13)
Variables:Q(0),A1(0),A2(0),A0(0),B0(0)
Q=(2*Close+High+Low)/ 4
A1=Lowest(Low,Length)
A2=Highest(High,Length)
A0=Ema((Q-A1)/(A2-A1)*100,13)
B0=Ema(0.667*A0[1]+0.333*A0,3)
Value1=A0-B0
If Value1>0 then
Drawbar01(A0,B0,"",Red,Default,4)
End if
If Value1<0 then
Drawbar02(A0,B0,"",Green,Default,4)
End if
If A0 cross over B0 then
Drawbar03(0,100,"",Magenta)
End if
If A0 cross under B0 then
Drawbar03(0,100,"",Cyan)
End if
If Value1>3 then
Draw04(B0,"多方力道",Darkred)
Else NoDraw(04)
End if
If Value1<-3 then
Draw05(A0,"空方力道",Darkgreen)
Else NoDraw(05)
End if
If LastBarOnChart then
Draw1(A0,"A",Red)
Draw2(B0,"B",Green)
Draw3(Value1,"力度",Blue)
End if
A1=Lowest(Low,Length)
A2=Highest(High,Length)
A0=Ema((Q-A1)/(A2-A1)*100,13)
B0=Ema(0.667*A0[1]+0.333*A0,3)
Value1=A0-B0
If Value1>0 then
Drawbar01(A0,B0,"",Red,Default,4)
End if
If Value1<0 then
Drawbar02(A0,B0,"",Green,Default,4)
End if
If A0 cross over B0 then
Drawbar03(0,100,"",Magenta)
End if
If A0 cross under B0 then
Drawbar03(0,100,"",Cyan)
End if
If Value1>3 then
Draw04(B0,"多方力道",Darkred)
Else NoDraw(04)
End if
If Value1<-3 then
Draw05(A0,"空方力道",Darkgreen)
Else NoDraw(05)
End if
If LastBarOnChart then
Draw1(A0,"A",Red)
Draw2(B0,"B",Green)
Draw3(Value1,"力度",Blue)
End if
//多空指標===========================
parameter:length(17)
vars:Value1(0)
parameter:length(17)
vars:Value1(0)
Value1=max(H-L,H-L[1])
Value2=ema(C-C[1],length)
value3=ema(Value1,length)
value4=ema((Value2/value3)*100,length)
Value2=ema(C-C[1],length)
value3=ema(Value1,length)
value4=ema((Value2/value3)*100,length)
DrawBase1(0, "0", DarkGray)
draw2(value4,"紅多綠空",iff(value4>0,red,green))
draw2(value4,"紅多綠空",iff(value4>0,red,green))
//智慧黃金線===========================
Parameter:均線週期(10)
Variables:JJ(0),AA(0),B(0)
JJ=(CLOSE*2+HIGH+LOW)/4
AA=SMA(JJ,均線週期)
B=AA[1]
IF AA > B THEN
drawbar1(AA,B,AA,B,"多空分界",magenta,magenta)
END IF
IF AA < BTHEN
drawbar1(AA,B,AA,B,"多空分界",black,black)
end if
Parameter:均線週期(10)
Variables:JJ(0),AA(0),B(0)
JJ=(CLOSE*2+HIGH+LOW)/4
AA=SMA(JJ,均線週期)
B=AA[1]
IF AA > B THEN
drawbar1(AA,B,AA,B,"多空分界",magenta,magenta)
END IF
IF AA < BTHEN
drawbar1(AA,B,AA,B,"多空分界",black,black)
end if
//股神趨勢線===========================
Parameter: Length(9)
value1=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value2=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value3 = (H - Lowest(l[1],Length))/sum(value1,length)
value4 = (Highest(h[1],length)-l)/sum(value2,length)
Draw1( Value4, "趨勢值", Iff(value4>1 ,Red ,Green))
Parameter: Length(9)
value1=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value2=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value3 = (H - Lowest(l[1],Length))/sum(value1,length)
value4 = (Highest(h[1],length)-l)/sum(value2,length)
Draw1( Value4, "趨勢值", Iff(value4>1 ,Red ,Green))
value1=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value2=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value3 = (H - Lowest(l[1],Length))/sum(value1,length)
value4 = (Highest(h[1],length)-l)/sum(value2,length)
value2=AverageTrueRange(Length[1])/Length*SquareRoot( length)
value3 = (H - Lowest(l[1],Length))/sum(value1,length)
value4 = (Highest(h[1],length)-l)/sum(value2,length)
Draw1( Value3, "趨勢值", Iff(value3>1 ,Red ,Green))
//鱷魚===========================
Variables:M(0),B(0),R(0),G(0)
Variables:M(0),B(0),R(0),G(0)
M = (H + L ) *0.5;
B = Sma(M,13);
R = Sma(M,8);
G = Sma(M,5);
B = Sma(M,13);
R = Sma(M,8);
G = Sma(M,5);
Draw1[-8](B,"顎",blue,5)
Draw2[-5](R,"齒",red,5)
Draw3[-3](G,"唇",green,5)
Draw2[-5](R,"齒",red,5)
Draw3[-3](G,"唇",green,5)
//AO===========================
Params: 短均(5),長均(34)
Value1 = MA((H+L)/2,短均)
Value2 = MA((H+L)/2,長均)
Value3 = Value1-Value2
value4=MAFC((value3-MAFC(value3,5)),5)
DrawBase1(0, "0", DarkGray)
Draw1( value3, "AO", Iff(value3>Value3[1], Green,Red ), Default,5)
Params: 短均(5),長均(34)
Value1 = MA((H+L)/2,短均)
Value2 = MA((H+L)/2,長均)
Value3 = Value1-Value2
value4=MAFC((value3-MAFC(value3,5)),5)
DrawBase1(0, "0", DarkGray)
Draw1( value3, "AO", Iff(value3>Value3[1], Green,Red ), Default,5)
//AC===========================
Value1 = MA((H+L)/2,5)
Value2 = MA((H+L)/2,34)
Value3 = Value1-Value2
value4=MAFC((value3-MAFC(value3,5)),5)
DrawBase1(0, "0", DarkGray)
Draw1( value4, "AC", Iff(value4>Value4[1], Green,Red ), Default,5)
Value1 = MA((H+L)/2,5)
Value2 = MA((H+L)/2,34)
Value3 = Value1-Value2
value4=MAFC((value3-MAFC(value3,5)),5)
DrawBase1(0, "0", DarkGray)
Draw1( value4, "AC", Iff(value4>Value4[1], Green,Red ), Default,5)
//截縫===========================
Variables: ClosePrice(0),OpenPrice(0),HighPrice(0),LowPrice(0)
ClosePrice=iff(barnumber=1 , (Open+High+Low+Close)/4 , Close)
OpenPrice=iff(barnumber=1 , (Open+Close)/2 , Sma(ClosePrice[1],2))
HighPrice=High
LowPrice=Low
Variables: ClosePrice(0),OpenPrice(0),HighPrice(0),LowPrice(0)
ClosePrice=iff(barnumber=1 , (Open+High+Low+Close)/4 , Close)
OpenPrice=iff(barnumber=1 , (Open+Close)/2 , Sma(ClosePrice[1],2))
HighPrice=High
LowPrice=Low
if openprice < closeprice then
drawbar1(openprice,highprice,lowprice,closeprice,"紅棒",RED,red,1)
drawbar1(openprice,highprice,lowprice,closeprice,"紅棒",RED,red,1)
end if
if openprice>closeprice then
drawbar2(openprice,highprice,lowprice,closeprice,"藍棒",cyan,cyan,1)
end if
if openprice=closeprice and closeprice>=closeprice[1] then
drawbar1(openprice,highprice,lowprice,closeprice,"紅棒",red,red,1)
end if
drawbar1(openprice,highprice,lowprice,closeprice,"紅棒",red,red,1)
end if
if openprice=closeprice and closeprice then
drawbar2(openprice,highprice,lowprice,closeprice,"藍棒",cyan,cyan,1)
end if
drawbar2(openprice,highprice,lowprice,closeprice,"藍棒",cyan,cyan,1)
end if
4 意見:
可能這些指標源碼跟 HTML有些衝突,
常常有些字會不見, 所以如果有些小地方像 then endif... 再請抓的人自行檢查一下喔~
沒可長期放的網路硬碟, 不然我就直接放 SPE擋了
感謝版大分享實用程式碼
請問版大您貼圖內的模擬主力及模擬散戶指標能否分享HTS程式碼
感謝
請問可以將這些HTS 指標源碼寄給我嗎??因為用複製的會有錯誤,不用SPE檔只要一般文字檔就可以了~謝謝
email:findtop@hotmail.com
請到這裡直接下載SPE匯入即可 http://cid-02cd1db0922098c6.office.live.com/browse.aspx/Share
張貼留言