커뮤니티
26577관련 문의입니다.
2012-10-08 15:14:46
256
글번호 55401
상승시 박스 모양으로 붉게 하락시 박스가 파랗게 표시할수있게 부탁드립니다.
감사합니다.
답변 1
예스스탁 예스스탁 답변
2012-10-08 16:18:31
안녕하세요
예스스탁입니다.
Variables:
FUBarHigh(0),
FUBarLow(0),
SUBarHigh(0),
SUBarLow(0),
TUBarHigh(0),
TUBarLow(0),
FLBarHigh(0),
FLBarLow(0),
SLBarHigh(0),
SLBarLow(0),
TLBarHigh(0),
TLBarLow(0),
UpCount(0),
DownCount(0),
UpNew(0),
DnNew(0),
UpRev(0),
DnRev(0),
PlotHigh(0),
PlotLow(0),
Color(0);
If Close > UpNew Then {
If DownCount < 3 Then {
If UpCount == 0 Then {
UpCount = UpCount + 1;
DownCount = 0;
FUBarHigh = Close;
FUBarLow = UpNew;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
FLBarHigh = 0;
FLBarLow = 0;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
UpNew = FUBarHigh;
DnNew = FUBarLow;
PlotHigh = FUBarHigh;
PlotLow = FUBarLow;
Color = 7;
}
If UpCount == 1 Then
If Close > UpNew Then {
UpCount = UpCount + 1;
SUBarHigh = Close;
SUBarLow = FUBarHigh;
UpNew = SUBarHigh;
DnNew = SUBarLow;
PlotHigh = SUBarHigh;
PlotLow = SUBarLow;
Color = 8;
}
If UpCount == 2 Then
If Close > UpNew Then {
UpCount = UpCount + 1;
TUBarHigh = Close;
TUBarLow = SUBarHigh;
UpNew = TUBarHigh;
DnNew = TUBarLow;
PlotHigh = TUBarHigh;
PlotLow = TUBarLow;
Color = 7;
}
If UpCount == 3 Then
If Close > UpNew Then {
FUBarHigh = SUBarHigh;
FUBarLow = SUBarLow;
SUBarHigh = TUBarHigh;
SUBarLow = TUBarLow;
TUBarHigh = Close;
TUBarLow = SUBarHigh;
UpNew = TUBarHigh;
DnNew = TUBarLow;
PlotHigh = TUBarHigh;
PlotLow = TUBarLow;
If Color == 7 Then
Color = 8;
Else
Color = 7;
}
}
If DownCount == 3 Then {
UpRev = FLBarHigh;
If Close > UpRev Then {
UpCount = UpCount + 1;
DownCount = 0;
FUBarHigh = Close;
FUBarLow = TLBarHigh;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
FLBarHigh = 0;
FLBarLow = 0;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
UpNew = FUBarHigh;
DnNew = FUBarLow;
PlotHigh = FUBarHigh;
PlotLow = FUBarLow;
Color = 7;
}
}
}
If Close < DnNew Then {
If UpCount < 3 Then {
If DownCount == 0 Then {
DownCount = DownCount + 1;
UpCount = 0;
FLBarHigh = DnNew;
FLBarLow = Close;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
FUBarHigh = 0;
FUBarLow = 0;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
UpNew = FLBarHigh;
DnNew = FLBarLow;
PlotHigh = FLBarHigh;
PlotLow = FLBarLow;
Color = 6;
}
If DownCount == 1 Then
If Close < DnNew Then {
DownCount = DownCount + 1;
SLBarHigh = FLBarLow;
SLBarLow = Close;
UpNew = SLBarHigh;
DnNew = SLBarLow;
PlotHigh = SLBarHigh;
PlotLow = SLbarLow;
Color = 5;
}
If DownCount == 2 Then
If Close < DnNew Then {
DownCount = DownCount + 1;
TLBarHigh = SLBarLow;
TLBarLow = Close;
UpNew = TLBarHigh;
DnNew = TLBarLow;
PlotHigh = TLBarHigh;
PlotLow = TLBarLow;
Color = 6;
}
If DownCount == 3 Then
If Close < DnNew Then {
FLBarHigh = SLBarHigh;
FLBarLow = SLBarLow;
SLBarHigh = TLBarHigh;
SLBarLow = TLBarLow;
TLBarHigh = SLBarLow;
TLBarLow = Close;
UpNew = TLBarHigh;
DnNew = TLBarLow;
PlotHigh = TLBarHigh;
PlotLow = TLBarLow;
If Color == 6 Then
Color = 5;
Else
Color = 6;
}
}
If UpCount == 3 Then {
DnRev = FUBarLow;
If Close < DnRev Then {
DownCount = DownCount + 1;
UpCount = 0;
FLBarHigh = TUBarLow;
FLBarLow = Close;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
FUBarHigh = 0;
FUBarLow = 0;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
UpNew = FLBarHigh;
DnNew = FLBarLow;
PlotHigh = FLBarHigh;
PlotLow = FLBarLow;
Color = 6;
}
}
}
if PlotHigh > PlotHigh[1] Then
var1 = 1;
if PlotHigh < PlotHigh[1] Then
var1 = -1;
if var1 == 1 Then{
Plot1(PlotHigh,"High Bar",RED);
Plot2(PlotLow,"Low Bar",RED);
}
Else{
Plot1(PlotHigh,"High Bar",BLUE);
Plot2(PlotLow,"Low Bar",BLUE);
}
즐거운 하루되세요
> 괌 님이 쓴 글입니다.
> 제목 : 26577관련 문의입니다.
> 상승시 박스 모양으로 붉게 하락시 박스가 파랗게 표시할수있게 부탁드립니다.
감사합니다.
이전글