커뮤니티
수식수정요청
2025-08-11 18:47:59
125
글번호 193156
안녕하세요 늘 도움 감사드려요. 아래의 수식에서 줄수 101 문법에러가 잘못된 토큰 오류가 나와서 수정 부탁드리며 그리고 중심선 색상이 정상적으로 작동하는지 살펴주세요
Inputs:
af(0.01),
maxAF(0.1),
추세선두께(1),
추세선색1(Yellow),
추세선색2(Cyan),
연장선두께(2),
연장선색(Gray);
Vars:
T(0), HH(0), LL(0), HD(0), HT(0), LD(0), LT(0),
HH1(0), LL1(0), HD1(0), HT1(0), LD1(0), LT1(0),
TL1(0), TL2(0), TL3(0), TL4(0), TL5(0), TL6(0), TL7(0),
TL11(0), TL22(0),
TX3(0), TX4(0), TX5(0), TX6(0), TX7(0),
value3(0), value4(0), value5(0), value6(0), value7(0);
Var: var1(0);
var1 = CSar(af, maxAF);
// 상승 전환 시
If CrossUp(C, var1) Then
Begin
T = 1;
HH = H; HD = Date; HT = Time;
HH1 = HH[1]; HD1 = HD[1]; HT1 = HT[1];
If LL > 0 Then
Begin
TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7);
TL3 = TL_New(HD[1], HT[1], HH[1], Date, Time, HH[1]);
TL4 = TL_New(HD[1], HT[1], (HH[1] + LL)/2, Date, Time, (HH[1] + LL)/2); // 중심선
TL5 = TL_New(HD[1], HT[1], LL, Date, Time, LL);
TL6 = TL_New(HD[1], HT[1], HH[1] + (HH[1] - LL)/2, Date, Time, HH[1] + (HH[1] - LL)/2);
TL7 = TL_New(HD[1], HT[1], LL - (HH[1] - LL)/2, Date, Time, LL - (HH[1] - LL)/2);
TL_SetExtRight(TL3, True);
TL_SetExtRight(TL4, True);
TL_SetExtRight(TL5, True);
TL_SetExtRight(TL6, True);
TL_SetExtRight(TL7, True);
Text_Delete(TX3); Text_Delete(TX4); Text_Delete(TX5); Text_Delete(TX6); Text_Delete(TX7);
value3 = HH[1];
value4 = (HH[1] + LL)/2;
value5 = LL;
value6 = HH[1] + (HH[1] - LL)/2;
value7 = LL - (HH[1] - LL)/2;
TX3 = Text_New(Date, Time, value3, NumToStr(value3, 2));
TX4 = Text_New(Date, Time, value4, NumToStr(value4, 2));
TX5 = Text_New(Date, Time, value5, NumToStr(value5, 2));
TX6 = Text_New(Date, Time, value6, NumToStr(value6, 2));
TX7 = Text_New(Date, Time, value7, NumToStr(value7, 2));
End;
End;
// 하락 전환 시
If CrossDown(C, var1) Then
Begin
T = -1;
LL = L; LD = Date; LT = Time;
LL1 = LL[1]; LD1 = LD[1]; LT1 = LT[1];
If HH > 0 Then
Begin
TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7);
TL3 = TL_New(LD[1], LT[1], HH, Date, Time, HH);
TL4 = TL_New(LD[1], LT[1], (HH + LL[1])/2, Date, Time, (HH + LL[1])/2); // 중심선
TL5 = TL_New(LD[1], LT[1], LL[1], Date, Time, LL[1]);
TL6 = TL_New(LD[1], LT[1], LL[1] - (HH - LL[1])/2, Date, Time, LL[1] - (HH - LL[1])/2);
TL7 = TL_New(LD[1], LT[1], HH[1] + (HH - LL[1])/2, Date, Time, HH[1] + (HH - LL[1])/2);
TL_SetExtRight(TL3, True);
TL_SetExtRight(TL4, True);
TL_SetExtRight(TL5, True);
TL_SetExtRight(TL6, True);
TL_SetExtRight(TL7, True);
Text_Delete(TX3); Text_Delete(TX4); Text_Delete(TX5); Text_Delete(TX6); Text_Delete(TX7);
value3 = HH;
value4 = (HH + LL[1])/2;
value5 = LL[1];
value6 = HH + (HH - LL[1])/2;
value7 = LL[1] - (HH - LL[1])/2;
TX3 = Text_New(Date, Time, value3, NumToStr(value3, 2));
TX4 = Text_New(Date, Time, value4, NumToStr(value4, 2));
TX5 = Text_New(Date, Time, value5, NumToStr(value5, 2));
TX6 = Text_New(Date, Time, value6, NumToStr(value6, 2));
TX7 = Text_New(Date, Time, value7, NumToStr(value7, 2));
End;
End;
// 중심선 색상 구분
If T = 1 Then
TL_SetColor(TL4, Yellow) // 상승 시 노란색
If T = 1 Then
TL_SetColor(TL4, Blue); // 하락 시 파란색
// 나머지 추세선, 연장선 색상 설정
TL_SetSize(TL3, 연장선두께);
TL_SetSize(TL5, 연장선두께);
TL_SetSize(TL6, 연장선두께);
TL_SetSize(TL7, 연장선두께);
TL_SetColor(TL3, 연장선색);
TL_SetColor(TL5, 연장선색);
TL_SetColor(TL6, 연장선색);
TL_SetColor(TL7, 연장선색);
Text_SetStyle(TX3, 0, 1);
Text_SetStyle(TX4, 0, 1);
Text_SetStyle(TX5, 0, 1);
Text_SetStyle(TX6, 0, 1);
Text_SetStyle(TX7, 0, 1);
답변 2
예스스탁 예스스탁 답변
2025-08-12 08:41:15
안녕하세요
예스스탁입니다.
문장 마침인 ;이 빠져있었습니다.
Inputs:
af(0.01),
maxAF(0.1),
추세선두께(1),
추세선색1(Yellow),
추세선색2(Cyan),
연장선두께(2),
연장선색(Gray);
Vars:
T(0), HH(0), LL(0), HD(0), HT(0), LD(0), LT(0),
HH1(0), LL1(0), HD1(0), HT1(0), LD1(0), LT1(0),
TL1(0), TL2(0), TL3(0), TL4(0), TL5(0), TL6(0), TL7(0),
TL11(0), TL22(0),
TX3(0), TX4(0), TX5(0), TX6(0), TX7(0),
value3(0), value4(0), value5(0), value6(0), value7(0);
Var: var1(0);
var1 = CSar(af, maxAF);
// 상승 전환 시
If CrossUp(C, var1) Then
Begin
T = 1;
HH = H; HD = Date; HT = Time;
HH1 = HH[1]; HD1 = HD[1]; HT1 = HT[1];
If LL > 0 Then
Begin
TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7);
TL3 = TL_New(HD[1], HT[1], HH[1], Date, Time, HH[1]);
TL4 = TL_New(HD[1], HT[1], (HH[1] + LL)/2, Date, Time, (HH[1] + LL)/2); // 중심선
TL5 = TL_New(HD[1], HT[1], LL, Date, Time, LL);
TL6 = TL_New(HD[1], HT[1], HH[1] + (HH[1] - LL)/2, Date, Time, HH[1] + (HH[1] - LL)/2);
TL7 = TL_New(HD[1], HT[1], LL - (HH[1] - LL)/2, Date, Time, LL - (HH[1] - LL)/2);
TL_SetExtRight(TL3, True);
TL_SetExtRight(TL4, True);
TL_SetExtRight(TL5, True);
TL_SetExtRight(TL6, True);
TL_SetExtRight(TL7, True);
Text_Delete(TX3); Text_Delete(TX4); Text_Delete(TX5); Text_Delete(TX6); Text_Delete(TX7);
value3 = HH[1];
value4 = (HH[1] + LL)/2;
value5 = LL;
value6 = HH[1] + (HH[1] - LL)/2;
value7 = LL - (HH[1] - LL)/2;
TX3 = Text_New(Date, Time, value3, NumToStr(value3, 2));
TX4 = Text_New(Date, Time, value4, NumToStr(value4, 2));
TX5 = Text_New(Date, Time, value5, NumToStr(value5, 2));
TX6 = Text_New(Date, Time, value6, NumToStr(value6, 2));
TX7 = Text_New(Date, Time, value7, NumToStr(value7, 2));
End;
End;
// 하락 전환 시
If CrossDown(C, var1) Then
Begin
T = -1;
LL = L; LD = Date; LT = Time;
LL1 = LL[1]; LD1 = LD[1]; LT1 = LT[1];
If HH > 0 Then
Begin
TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7);
TL3 = TL_New(LD[1], LT[1], HH, Date, Time, HH);
TL4 = TL_New(LD[1], LT[1], (HH + LL[1])/2, Date, Time, (HH + LL[1])/2); // 중심선
TL5 = TL_New(LD[1], LT[1], LL[1], Date, Time, LL[1]);
TL6 = TL_New(LD[1], LT[1], LL[1] - (HH - LL[1])/2, Date, Time, LL[1] - (HH - LL[1])/2);
TL7 = TL_New(LD[1], LT[1], HH[1] + (HH - LL[1])/2, Date, Time, HH[1] + (HH - LL[1])/2);
TL_SetExtRight(TL3, True);
TL_SetExtRight(TL4, True);
TL_SetExtRight(TL5, True);
TL_SetExtRight(TL6, True);
TL_SetExtRight(TL7, True);
Text_Delete(TX3); Text_Delete(TX4); Text_Delete(TX5); Text_Delete(TX6); Text_Delete(TX7);
value3 = HH;
value4 = (HH + LL[1])/2;
value5 = LL[1];
value6 = HH + (HH - LL[1])/2;
value7 = LL[1] - (HH - LL[1])/2;
TX3 = Text_New(Date, Time, value3, NumToStr(value3, 2));
TX4 = Text_New(Date, Time, value4, NumToStr(value4, 2));
TX5 = Text_New(Date, Time, value5, NumToStr(value5, 2));
TX6 = Text_New(Date, Time, value6, NumToStr(value6, 2));
TX7 = Text_New(Date, Time, value7, NumToStr(value7, 2));
End;
End;
// 중심선 색상 구분
If T = 1 Then
TL_SetColor(TL4, Yellow); // 상승 시 노란색
If T = 1 Then
TL_SetColor(TL4, Blue); // 하락 시 파란색
// 나머지 추세선, 연장선 색상 설정
TL_SetSize(TL3, 연장선두께);
TL_SetSize(TL5, 연장선두께);
TL_SetSize(TL6, 연장선두께);
TL_SetSize(TL7, 연장선두께);
TL_SetColor(TL3, 연장선색);
TL_SetColor(TL5, 연장선색);
TL_SetColor(TL6, 연장선색);
TL_SetColor(TL7, 연장선색);
Text_SetStyle(TX3, 0, 1);
Text_SetStyle(TX4, 0, 1);
Text_SetStyle(TX5, 0, 1);
Text_SetStyle(TX6, 0, 1);
Text_SetStyle(TX7, 0, 1);
즐거운 하루되세요
> 알리섬 님이 쓴 글입니다.
> 제목 : 수식수정요청
> 안녕하세요 늘 도움 감사드려요. 아래의 수식에서 줄수 101 문법에러가 잘못된 토큰 오류가 나와서 수정 부탁드리며 그리고 중심선 색상이 정상적으로 작동하는지 살펴주세요
Inputs:
af(0.01),
maxAF(0.1),
추세선두께(1),
추세선색1(Yellow),
추세선색2(Cyan),
연장선두께(2),
연장선색(Gray);
Vars:
T(0), HH(0), LL(0), HD(0), HT(0), LD(0), LT(0),
HH1(0), LL1(0), HD1(0), HT1(0), LD1(0), LT1(0),
TL1(0), TL2(0), TL3(0), TL4(0), TL5(0), TL6(0), TL7(0),
TL11(0), TL22(0),
TX3(0), TX4(0), TX5(0), TX6(0), TX7(0),
value3(0), value4(0), value5(0), value6(0), value7(0);
Var: var1(0);
var1 = CSar(af, maxAF);
// 상승 전환 시
If CrossUp(C, var1) Then
Begin
T = 1;
HH = H; HD = Date; HT = Time;
HH1 = HH[1]; HD1 = HD[1]; HT1 = HT[1];
If LL > 0 Then
Begin
TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7);
TL3 = TL_New(HD[1], HT[1], HH[1], Date, Time, HH[1]);
TL4 = TL_New(HD[1], HT[1], (HH[1] + LL)/2, Date, Time, (HH[1] + LL)/2); // 중심선
TL5 = TL_New(HD[1], HT[1], LL, Date, Time, LL);
TL6 = TL_New(HD[1], HT[1], HH[1] + (HH[1] - LL)/2, Date, Time, HH[1] + (HH[1] - LL)/2);
TL7 = TL_New(HD[1], HT[1], LL - (HH[1] - LL)/2, Date, Time, LL - (HH[1] - LL)/2);
TL_SetExtRight(TL3, True);
TL_SetExtRight(TL4, True);
TL_SetExtRight(TL5, True);
TL_SetExtRight(TL6, True);
TL_SetExtRight(TL7, True);
Text_Delete(TX3); Text_Delete(TX4); Text_Delete(TX5); Text_Delete(TX6); Text_Delete(TX7);
value3 = HH[1];
value4 = (HH[1] + LL)/2;
value5 = LL;
value6 = HH[1] + (HH[1] - LL)/2;
value7 = LL - (HH[1] - LL)/2;
TX3 = Text_New(Date, Time, value3, NumToStr(value3, 2));
TX4 = Text_New(Date, Time, value4, NumToStr(value4, 2));
TX5 = Text_New(Date, Time, value5, NumToStr(value5, 2));
TX6 = Text_New(Date, Time, value6, NumToStr(value6, 2));
TX7 = Text_New(Date, Time, value7, NumToStr(value7, 2));
End;
End;
// 하락 전환 시
If CrossDown(C, var1) Then
Begin
T = -1;
LL = L; LD = Date; LT = Time;
LL1 = LL[1]; LD1 = LD[1]; LT1 = LT[1];
If HH > 0 Then
Begin
TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7);
TL3 = TL_New(LD[1], LT[1], HH, Date, Time, HH);
TL4 = TL_New(LD[1], LT[1], (HH + LL[1])/2, Date, Time, (HH + LL[1])/2); // 중심선
TL5 = TL_New(LD[1], LT[1], LL[1], Date, Time, LL[1]);
TL6 = TL_New(LD[1], LT[1], LL[1] - (HH - LL[1])/2, Date, Time, LL[1] - (HH - LL[1])/2);
TL7 = TL_New(LD[1], LT[1], HH[1] + (HH - LL[1])/2, Date, Time, HH[1] + (HH - LL[1])/2);
TL_SetExtRight(TL3, True);
TL_SetExtRight(TL4, True);
TL_SetExtRight(TL5, True);
TL_SetExtRight(TL6, True);
TL_SetExtRight(TL7, True);
Text_Delete(TX3); Text_Delete(TX4); Text_Delete(TX5); Text_Delete(TX6); Text_Delete(TX7);
value3 = HH;
value4 = (HH + LL[1])/2;
value5 = LL[1];
value6 = HH + (HH - LL[1])/2;
value7 = LL[1] - (HH - LL[1])/2;
TX3 = Text_New(Date, Time, value3, NumToStr(value3, 2));
TX4 = Text_New(Date, Time, value4, NumToStr(value4, 2));
TX5 = Text_New(Date, Time, value5, NumToStr(value5, 2));
TX6 = Text_New(Date, Time, value6, NumToStr(value6, 2));
TX7 = Text_New(Date, Time, value7, NumToStr(value7, 2));
End;
End;
// 중심선 색상 구분
If T = 1 Then
TL_SetColor(TL4, Yellow) // 상승 시 노란색
If T = 1 Then
TL_SetColor(TL4, Blue); // 하락 시 파란색
// 나머지 추세선, 연장선 색상 설정
TL_SetSize(TL3, 연장선두께);
TL_SetSize(TL5, 연장선두께);
TL_SetSize(TL6, 연장선두께);
TL_SetSize(TL7, 연장선두께);
TL_SetColor(TL3, 연장선색);
TL_SetColor(TL5, 연장선색);
TL_SetColor(TL6, 연장선색);
TL_SetColor(TL7, 연장선색);
Text_SetStyle(TX3, 0, 1);
Text_SetStyle(TX4, 0, 1);
Text_SetStyle(TX5, 0, 1);
Text_SetStyle(TX6, 0, 1);
Text_SetStyle(TX7, 0, 1);
알리섬
2025-08-12 11:52:13
알리섬 님에 의해 삭제된 답변입니다.