커뮤니티
수식 부탁합니다.
2011-04-09 20:26:13
821
글번호 37433
아래 수식을 yt로 가능 합니까?
======================
Inputs:
Strength(5),
TLAlrt("TRUE"),
ColorCur(Tool_White),
ShowHis("TRUE"),
ColorHis(Tool_Magenta);
Vars:
TL3(0),
TL4(0),
TL3Val(0),
HFlag(0),
Count(0);
Array:
SwingHD[4](0),
SwingHT[4](0),
SwingHP[4](0);
IF SwingHighBar(1, High, Strength, Strength + 1) = Strength Then Begin
Plot1[Strength](SwingHigh(1, High, Strength, Strength + 1), "SwingHigh");
For Count = 4 DownTo 2 Begin
SwingHD[Count] = SwingHD[Count -1];
SwingHT[Count] = SwingHT[Count -1];
SwingHP[Count] = SwingHP[Count -1];
End;
SwingHD[1] = Date[Strength];
SwingHT[1] = Time[Strength];
SwingHP[1] = High[Strength];
IF HFlag = -1 Then Begin
IF UpperStr(ShowHis) = "TRUE" Then Begin
TL3Val = TL_GetValue(TL3, SwingHD[1], SwingHT[1]);
TL4 = TL_New(SwingHD[3], SwingHT[3], SwingHP[3], SwingHD[1],
SwingHT[1], TL3Val);
TL_SetColor(TL4, ColorHis);
End;
TL_Delete(TL3);
End;
HFlag = 1;
End;
IF SwingHD[4] <> 0 AND HFlag = 1 Then Begin
TL3 = TL_New(SwingHD[2], SwingHT[2], SwingHP[2], SwingHD[1],
SwingHT[1], SwingHP[1]);
TL_SetExtRight(TL3, True);
TL_SetColor(TL3, ColorCur);
IF UpperStr(TLAlrt) = "TRUE" Then TL_SetAlert(TL3, 1);
HFlag = -1;
End;
=================
답변 3
예스스탁 예스스탁 답변
2011-04-11 11:33:31
안녕하세요
예스스탁입니다.
해당식은 추세선함수가 제공되지 않아
작성이 가능하지 않습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> 동해바다01 님이 쓴 글입니다.
> 제목 : 수식 부탁합니다.
> 아래 수식을 yt로 가능 합니까?
======================
Inputs:
Strength(5),
TLAlrt("TRUE"),
ColorCur(Tool_White),
ShowHis("TRUE"),
ColorHis(Tool_Magenta);
Vars:
TL3(0),
TL4(0),
TL3Val(0),
HFlag(0),
Count(0);
Array:
SwingHD[4](0),
SwingHT[4](0),
SwingHP[4](0);
IF SwingHighBar(1, High, Strength, Strength + 1) = Strength Then Begin
Plot1[Strength](SwingHigh(1, High, Strength, Strength + 1), "SwingHigh");
For Count = 4 DownTo 2 Begin
SwingHD[Count] = SwingHD[Count -1];
SwingHT[Count] = SwingHT[Count -1];
SwingHP[Count] = SwingHP[Count -1];
End;
SwingHD[1] = Date[Strength];
SwingHT[1] = Time[Strength];
SwingHP[1] = High[Strength];
IF HFlag = -1 Then Begin
IF UpperStr(ShowHis) = "TRUE" Then Begin
TL3Val = TL_GetValue(TL3, SwingHD[1], SwingHT[1]);
TL4 = TL_New(SwingHD[3], SwingHT[3], SwingHP[3], SwingHD[1],
SwingHT[1], TL3Val);
TL_SetColor(TL4, ColorHis);
End;
TL_Delete(TL3);
End;
HFlag = 1;
End;
IF SwingHD[4] <> 0 AND HFlag = 1 Then Begin
TL3 = TL_New(SwingHD[2], SwingHT[2], SwingHP[2], SwingHD[1],
SwingHT[1], SwingHP[1]);
TL_SetExtRight(TL3, True);
TL_SetColor(TL3, ColorCur);
IF UpperStr(TLAlrt) = "TRUE" Then TL_SetAlert(TL3, 1);
HFlag = -1;
End;
=================
회원
2012-02-28 08:33:11
관리자님에 의해 삭제된 답변입니다.
회원
2012-04-11 19:43:39
관리자님에 의해 삭제된 답변입니다.