- 精华
- 0
- 在线时间
- 150 小时
- UID
- 4250
- 积分
- 891
- 帖子
- 198
- 阅读权限
- 60
- 注册时间
- 2009-4-28
- 最后登录
- 2019-12-1
- 精华
- 0
- UID
- 4250
- 积分
- 891
- 帖子
- 198
- 主题
- 42
- 阅读权限
- 60
- 注册时间
- 2009-4-28
- 最后登录
- 2019-12-1
|
tradestastion 源码:
Inputs:
UpColor(Blue),
DnColor(Red),
WarnColor(Yellow),
MinCompBars(0),
MaxCompBars(6),
nPlotWidth(1);
Vars:
haClose(0),
haOpen(0),
{
haCloseShow(0),
haOpenShow(0),
}
haMinDir(0),
haMaxDir(0),
Color(0);
{ Get HA Direction for Min/Max Compare Bars }
haMinDir = fModHAKahuna(MinCompBars, haOpen, haClose);
haMaxDir = fModHAKahuna(MaxCompBars, haOpen, haClose);
{ Load Display Color }
if haMinDir = 1 and haMaxDir = 1 then
begin
Color = UpColor;
end;
if haMinDir = 2 and haMaxDir = 2 then
begin
Color = DnColor;
end;
if haMinDir <> haMaxDir then
begin
Color = WarnColor;
end;
{ Paint Bar }
PlotPB(haOpen,haClose, "ModHA2", Color);
SetPlotWidth(1,nPlotWidth);
SetPlotColor(1,color);
#function fModHAKahuna
Inputs:
CompBars(numericsimple),
oOpenVal(numericref), {Output: HA Open Price}
oCloseVal(numericref) {Output: HA Close Price}
;
Vars:
haClose(0),
haOpen(0),
haHigh(0),
haLow(0),
Index(0),
UpVal(1), {Constant: Up haDir value}
DownVal(2), {Constant: Down haDir value}
Return(0);
if BarNumber = 1 then
begin
haOpen = open;
haClose = (O+H+L+C)/4;
haHigh = MaxList( high, haOpen, haClose);
haLow = MinList( low, haOpen, haClose);
end
else {BarNumber > 1 }
begin
haClose = (O+H+L+C)/4;
haOpen = (haOpen[1] + haClose[1])/2 ;
haHigh = MaxList(High, haOpen, haClose) ;
haLow = MinList(Low, haOpen, haClose) ;
if haClose > haOpen then
Return = UpVal
else
Return = DownVal;
for Index = 1 to CompBars
begin
if haOpen <= MaxList(haOpen[Index],haClose[Index]) and
haOpen >= MinList(haOpen[Index],haClose[Index]) and
haClose <= MaxList(haOpen[Index],haClose[Index]) and
haClose >= MinList(haOpen[Index],haClose[Index]) then
Return = Return[Index];
end;
end;
{Load Output Values}
oOpenVal = haOpen;
oCloseVal = haClose;
fModHAKahuna = Return;
http://www.elitetrader.com/vb/sh ... &postid=2199472
http://www.tazatek.com/free-indi ... cator-tradestation/
http://www.investopedia.com/articles/technical/04/092204.asp
http://www.elitetrader.com/vb/sh ... &postid=2196376 |
|