HTS 範例分享

分享一些友站買來的 HTS 指標源碼好了, 反正也不是我自己寫的, 或許網路上也找得到!
當然這些我還沒試用過, 我目前還是用我自己寫的程式,
請網友最好不要直接套用, 會寫的人自己加個買賣訊號, 回測一下績效比較保險~
不過想不到這些小有名氣的指標, 原理卻並不複雜, 還適合拿來當範例改一下測試看看:

----------------------------------

//行家指標===========================
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

//多空指標===========================
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)

DrawBase1(0, "0", DarkGray)
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: 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)

Draw1( Value3, "趨勢值", Iff(value3>1 ,Red ,Green))

//鱷魚===========================
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);

Draw1[-8](B,"顎",blue,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)

//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)

//截縫===========================
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)

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

if openprice=closeprice and closeprice then
drawbar2(openprice,highprice,lowprice,closeprice,"藍棒",cyan,cyan,1)
end if