답변완료
체크 부탁드립니다.
안녕하세요?아래 글은 230002 게시글입니다.요청드린 수식은 plot7에 구현된 50%의 기준 즉 (ll+(hh-ll)*0.500,"50.0%") 를 기준으로 색상변경되게 수정을 원하는데 그렇게 구현이 되지 않습니다. 다시한번 더 체크해주시면 감사하겠습니다.그리고Plot23 과 Plot24에 (ll+(hh-ll)*0.500,"25.0%") (ll+(hh-ll)*0.500,"75.0%")기준으로 각각 색상변경되게 추가해 주시면 감사하겠습니다.늘 행복하세요.=====================안녕하세요?아래 수식중 Plot1, Plot17 "당일매수거래량을 0을 기준으로 RGB를 표기하도록 되어있는데요이것을 피보나티비울 50% 기준으로 추가하거나 수정해 주세요늘 도와주심에 감사드립니다.오늘 남은시간도 즐거운시간되세요===========================input : Change(500), 캔들수(-12);var : HH(0),LL(0);var : HD(0),HT(0),HV(0);var : LD(0),LT(0),LV(0);var : UpTrend(false),DownTrend(False),Trend(0);var : TX1(0),TX2(0),TX3(0),TX4(0);if Bdate != Bdate[1] Then{ var1 = 0; Var2 = Upvol-DownVol;}var1 = var1 + (Upvol-DownVol);if Bdate != Bdate[1] Then{ HD = sDate; HT = sTime; HV = var1; LD = sDate; LT = sTime; LV = var1; trend = 0; if CurrentDate == sDate Then { tx1 = Text_New_Self(HD,HT,HV,"----------------"); Text_SetStyle(tx1,2,0); Text_SetColor(tx1,Magenta); tx3 = Text_New(HD,HT,H,"고----------------"); Text_SetStyle(tx3,2,0); Text_SetColor(tx3,Magenta); tx2 = Text_New_Self(LD,LT,LV,"----------------"); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,blue); tx4 = Text_New(LD,LT,L,"저----------------"); Text_SetStyle(tx4,2,0); Text_SetColor(tx4,blue); } hh = var1; ll = var1;}Else{ if var1 > hh Then hh = var1; if var1 < ll Then ll = var1; UpTrend = var1 >= LV[0]+Change; DownTrend = var1 <= HV[0]-Change; if trend <= 0 and UpTrend == true Then { trend = 1; HD = sDate; HT = sTime; HV = var1; if CurrentDate == sDate Then { tx1 = Text_New_Self(HD,HT,HV,"----------------"); Text_SetStyle(tx1,2,0); Text_SetColor(tx1,Magenta); tx3 = Text_New(HD,HT,H,"----------------"); Text_SetStyle(tx3,2,0); Text_SetColor(tx3,Magenta); } } Else if trend >= 0 and DownTrend Then { trend = -1; LD = sDate; LT = sTime; LV = var1; if CurrentDate == sDate Then { tx2 = Text_New_Self(LD,LT,LV,"----------------"); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,blue); tx4 = Text_New(LD,LT,L,"----------------"); Text_SetStyle(tx4,2,0); Text_SetColor(tx4,blue); } } Else { if trend == 1 Then { if var1 > HV Then { HD = sDate; HT = sTime; HV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX1,HD,HT,HV); Text_SetLocation(TX3,HD,HT,H); } } } if trend == -1 Then { if var1 < LV Then { LD = sDate; LT = sTime; LV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX2,LD,LT,LV); Text_SetLocation(TX4,LD,LT,L); } } } if trend == 0 Then { if var1 > HV Then { HD = sDate; HT = sTime; HV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX1,HD,HT,HV); Text_SetLocation(TX3,HD,HT,H); } } if var1 < LV Then { LD = sDate; LT = sTime; LV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX2,LD,LT,LV); Text_SetLocation(TX4,LD,LT,L); } } } }} if CurrentDate == sDate Then{ Plot1(var1,"당일실매수거래량",iff(var1 > 0,RGB(200,0,0),RGB(0,0,0)));FixPlotShift(1,캔들수); Plot17(var1,"당일실매수거래량2",iff(var1 > 0,RGB(255,0,0),RGB(0,0,255))); Plot3(hh,"최고"); plot4(ll,"최저"); plot5(ll+(hh-ll)*0.25,"25.0%"); plot6(ll+(hh-ll)*0.382,"38.2%"); plot7(ll+(hh-ll)*0.500,"50.0%"); plot8(ll+(hh-ll)*0.505,"50.05%"); plot9(ll+(hh-ll)*0.515,"51.5%"); plot10(ll+(hh-ll)*0.495,"49.5%"); plot13(ll+(hh-ll)*0.485,"48.5%"); plot14(ll+(hh-ll)*0.618,"61.8%"); plot15(ll+(hh-ll)*0.75,"75.0%"); plot18(ll+(hh-ll)*0.125,"12.5%"); plot19(ll+(hh-ll)*0.875,"87.5%"); plot20(ll+(hh-ll)*0.127,"12.7%"); plot21(ll+(hh-ll)*0.877,"87.7%"); plot22(ll+(hh-ll)*0.755,"75.5%"); plot23(ll+(hh-ll)*0.255,"25.5%"); plot40((Var2/2),"첫봉종가50%");} if CurrentDate == sDate Then{ PlotBaseLine2(1000); PlotBaseLine3(500); PlotBaseLine4(100); } PlotBaseLine1(0);================================================답변 1예스스탁 예스스탁 답변2026-01-23 13:26:06안녕하세요예스스탁입니다.당일 최고-최저의 50%를 기준으로 색상변경되게 수정해 드립니다.input : Change(500), 캔들수(-12);var : HH(0),LL(0);var : HD(0),HT(0),HV(0);var : LD(0),LT(0),LV(0);var : UpTrend(false),DownTrend(False),Trend(0);var : TX1(0),TX2(0),TX3(0),TX4(0);if Bdate != Bdate[1] Then{var1 = 0;Var2 = Upvol-DownVol;}var1 = var1 + (Upvol-DownVol);if Bdate != Bdate[1] Then{ HD = sDate; HT = sTime; HV = var1; LD = sDate; LT = sTime; LV = var1; trend = 0; if CurrentDate == sDate Then { tx1 = Text_New_Self(HD,HT,HV,"----------------"); Text_SetStyle(tx1,2,0); Text_SetColor(tx1,Magenta); tx3 = Text_New(HD,HT,H,"고----------------"); Text_SetStyle(tx3,2,0); Text_SetColor(tx3,Magenta); tx2 = Text_New_Self(LD,LT,LV,"----------------"); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,blue); tx4 = Text_New(LD,LT,L,"저----------------"); Text_SetStyle(tx4,2,0); Text_SetColor(tx4,blue); } hh = var1; ll = var1;}Else{ if var1 > hh Then hh = var1; if var1 < ll Then ll = var1; UpTrend = var1 >= LV[0]+Change; DownTrend = var1 <= HV[0]-Change; if trend <= 0 and UpTrend == true Then { trend = 1; HD = sDate; HT = sTime; HV = var1; if CurrentDate == sDate Then { tx1 = Text_New_Self(HD,HT,HV,"----------------"); Text_SetStyle(tx1,2,0); Text_SetColor(tx1,Magenta); tx3 = Text_New(HD,HT,H,"----------------"); Text_SetStyle(tx3,2,0); Text_SetColor(tx3,Magenta); } } Else if trend >= 0 and DownTrend Then { trend = -1; LD = sDate; LT = sTime; LV = var1; if CurrentDate == sDate Then { tx2 = Text_New_Self(LD,LT,LV,"----------------"); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,blue); tx4 = Text_New(LD,LT,L,"----------------"); Text_SetStyle(tx4,2,0); Text_SetColor(tx4,blue); } } Else { if trend == 1 Then { if var1 > HV Then { HD = sDate; HT = sTime; HV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX1,HD,HT,HV); Text_SetLocation(TX3,HD,HT,H); } } } if trend == -1 Then { if var1 < LV Then { LD = sDate; LT = sTime; LV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX2,LD,LT,LV); Text_SetLocation(TX4,LD,LT,L); } } } if trend == 0 Then { if var1 > HV Then { HD = sDate; HT = sTime; HV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX1,HD,HT,HV); Text_SetLocation(TX3,HD,HT,H); } } if var1 < LV Then { LD = sDate; LT = sTime; LV = var1; if CurrentDate == sDate Then { Text_SetLocation(TX2,LD,LT,LV); Text_SetLocation(TX4,LD,LT,L); } } } }}if CurrentDate == sDate Then{Plot1(var1,"당일실매수거래량",iff(var1 > (Hv+Lv)/2,RGB(200,0,0),RGB(0,0,0)));FixPlotShift(1,캔들수);Plot17(var1,"당일실매수거래량2",iff(var1 > (Hv+Lv)/2,RGB(255,0,0),RGB(0,0,255)));Plot3(hh,"최고");plot4(ll,"최저");plot5(ll+(hh-ll)*0.25,"25.0%");plot6(ll+(hh-ll)*0.382,"38.2%");plot7(ll+(hh-ll)*0.500,"50.0%");plot8(ll+(hh-ll)*0.505,"50.05%");plot9(ll+(hh-ll)*0.515,"51.5%");plot10(ll+(hh-ll)*0.495,"49.5%");plot13(ll+(hh-ll)*0.485,"48.5%");plot14(ll+(hh-ll)*0.618,"61.8%");plot15(ll+(hh-ll)*0.75,"75.0%");plot18(ll+(hh-ll)*0.125,"12.5%");plot19(ll+(hh-ll)*0.875,"87.5%");plot20(ll+(hh-ll)*0.127,"12.7%");plot21(ll+(hh-ll)*0.877,"87.7%");plot22(ll+(hh-ll)*0.755,"75.5%");plot23(ll+(hh-ll)*0.255,"25.5%"); plot40((Var2/2),"첫봉종가50%");} if CurrentDate == sDate Then{ PlotBaseLine2(1000); PlotBaseLine3(500); PlotBaseLine4(100); } PlotBaseLine1(0);즐거운 하루되세요
2026-01-26
376
글번호 230098
지표
답변완료
지표문의
1.아래는 검색하다 찾은지표인데plot1(superTrendValue,"ST", iff(trendDirection > 0 , red,green)); 이부분을위의선 하고 반대선(뒤집힌선) 예컨데 red 선이 생기면 뒤집힌 green선green선이 생기면 뒤집힌 red선 하나 만들어 주세요.band처럼 상,하단선input : atrMult(4.5);input : atrlen(12);input : rsmlen(3);input : tplen(14);var : i(0),sum(0),source(0);var : alpha(0),atrValue1(0),upperLevel(0),lowerLevel(0);var : previousLowerLevel(0),previousUpperLevel(0);var : trendDirection(Nan),superTrendValue(Nan);var : previousTrend(0);if CurrentBar > 1 Then{ sum = 0; for i = 0 to rsmlen-1 { sum = sum + c[i]*c[i]; } source = sqrt(sum/rsmlen); alpha = 1 / atrlen ; atrValue1 = IFf(IsNan(atrValue1[1]) == true, ma(TrueRange,atrlen) , alpha * TrueRange + (1 - alpha) * IFf(isnan(atrValue1[1])==true,0,atrValue1[1])); upperLevel = source + atrMult * atrValue1; lowerLevel = source - atrMult * atrValue1; previousLowerLevel = iff(isnan(lowerLevel[1])==true,0,lowerLevel[1]); previousUpperLevel = iff(isnan(upperLevel[1])==true,0,upperLevel[1]); // Ensure continuity of lower and upper bands lowerLevel = iff(lowerLevel > previousLowerLevel or source[1] < previousLowerLevel , lowerLevel , previousLowerLevel); upperLevel = iff(upperLevel < previousUpperLevel or source[1] > previousUpperLevel , upperLevel , previousUpperLevel); // Determine direction and SuperTrend previousTrend = superTrendValue[1]; // Initialize direction if IsNan(atrValue1[1]) == true Then trendDirection = 1; else if previousTrend == previousUpperLevel Then trendDirection = iff(source > upperLevel , -1 , 1); else trendDirection = iff(source < lowerLevel , 1 , -1); // Set SuperTrend value based on direction superTrendValue = iff(trendDirection == -1 , lowerLevel , upperLevel);}plot1(superTrendValue,"ST", iff(trendDirection > 0 , red,green));Plot2((C+O)/2,"bodyMiddle");var : dist(0),chg(0),lvlCol(0);var : tp1(0),tp2(0),tp3(0),tp4(0),tp5(0),tp6(0),tp7(0);var : printedtp1(0),printedtp2(0),printedtp3(0),printedtp4(0),printedtp5(0),printedtp6(0),printedtp7(0);dist = abs(close-superTrendValue);lvlCol = iff(trendDirection > 0 , red , green);var : key1(0);var : key2(0);var : key3(0);var : key4(0);var : key5(0);var : key6(0);var : key7(0);if CrossUp(trendDirection, 0) or CrossDown(trendDirection, 0) Then{ //TL_Delete(keys); printedtp1 = 0; printedtp2 = 0; printedtp3 = 0; printedtp4 = 0; printedtp5 = 0; printedtp6 = 0; printedtp7 = 0; chg = abs(superTrendValue-superTrendValue[1]); tp1 = superTrendValue[1] + IFF(trendDirection > 0 , -chg , chg); tp2 = superTrendValue[1] + IFF(trendDirection > 0 , -chg * 2 , chg * 2); tp3 = superTrendValue[1] + IFF(trendDirection > 0 , -chg * 3 , chg * 3); tp4 = superTrendValue[1] + IFF(trendDirection > 0 , -chg * 4 , chg * 4); tp5 = superTrendValue[1] + IFF(trendDirection > 0 , -chg * 5 , chg * 5); tp6 = superTrendValue[1] + IFF(trendDirection > 0 , -chg * 6 , chg * 6); tp7 = superTrendValue[1] + IFF(trendDirection > 0 , -chg * 7 , chg * 7); key1 = TL_new(sdate[1],stime[1],tp1, sDate,sTime, tp1); TL_SetColor(Key1,lvlCol); TL_SetSize(Key1,2); printedtp1 = 1;}Else TL_SetEnd(key1,sDate,sTime,TP1); var : u(0),d(0),alp(0),ur(0),dr(0),rs(0),R(0),tp(False);u = max(dist - dist[1], 0);d = max(dist[1] - dist, 0);alp = 1/tplen;ur = IFf(IsNan(ur[1]) == true, ma(u,tplen) , alp * u + (1 - alp) * IFf(isnan(ur[1])==true,0,ur[1]));dr = IFf(IsNan(dr[1]) == true, ma(d,tplen) , alp * d + (1 - alp) * IFf(isnan(dr[1])==true,0,dr[1]));rs = ur / dr;R = 100 - 100 / (1 + rs);tp = CrossDown(R, 60);var : extreme(0);var : extreme_tp1_dist(0);var : extreme_tp2_dist(0);var : extreme_tp3_dist(0);var : extreme_tp4_dist(0);var : extreme_tp5_dist(0);var : extreme_tp6_dist(0);var : extreme_tp7_dist(0);extreme = iff(trendDirection > 0 , low , high);extreme_tp1_dist = abs(extreme - tp1);extreme_tp2_dist = abs(extreme - tp2);extreme_tp3_dist = abs(extreme - tp3);extreme_tp4_dist = abs(extreme - tp4);extreme_tp5_dist = abs(extreme - tp5);extreme_tp6_dist = abs(extreme - tp6);extreme_tp7_dist = abs(extreme - tp7);var : tx(0);if tp and trendDirection > 0 Then{ tx = Text_New(sDate,sTime,L,"X"); Text_SetStyle(tx,2,0); Text_SetColor(tx,Red); Text_SetSize(tx,20); Text_SetBold(tx,1);}if tp and trendDirection < 0 Then{ tx = Text_New(sDate,sTime,H,"X"); Text_SetStyle(tx,2,1); Text_SetColor(tx,Green); Text_SetSize(tx,20); Text_SetBold(tx,1);}if printedtp2 == 0 and extreme_tp2_dist < extreme_tp1_dist Then{ key2 = TL_new(sdate[1],stime[1],tp2, sDate,sTime, tp2); TL_SetColor(Key2,lvlCol); TL_SetSize(Key2,2); printedtp2 = 1;}Else{ if printedtp2 == 1 Then TL_SetEnd(key2,sDate,sTime,TP2);}if printedtp3 == 0 and extreme_tp3_dist < extreme_tp2_dist Then{ key3 = TL_new(sdate[1],stime[1],tp3, sDate,sTime, tp3); TL_SetColor(Key3,lvlCol); TL_SetSize(Key3,2); printedtp3 = 1;}Else{ if printedtp3 == 1 Then TL_SetEnd(key3,sDate,sTime,TP3);}if printedtp4 == 0 and extreme_tp4_dist < extreme_tp3_dist Then{ key4 = TL_new(sdate[1],stime[1],tp4, sDate,sTime, tp4); TL_SetColor(Key4,lvlCol); TL_SetSize(Key4,2); printedtp4 = 1;}Else{ if printedtp4 == 1 Then TL_SetEnd(key4,sDate,sTime,TP4);}if printedtp5 == 0 and extreme_tp5_dist < extreme_tp4_dist Then{ key5 = TL_new(sdate[1],stime[1],tp5, sDate,sTime, tp5); TL_SetColor(Key5,lvlCol); TL_SetSize(Key5,2); printedtp5 = 1;}Else{ if printedtp5 == 1 Then TL_SetEnd(key5,sDate,sTime,TP5);}if printedtp6 == 0 and extreme_tp6_dist < extreme_tp5_dist Then{ key6 = TL_new(sdate[1],stime[1],tp6, sDate,sTime, tp6); TL_SetColor(Key6,lvlCol); TL_SetSize(Key6,2); printedtp6 = 1;}Else{ if printedtp6 == 1 Then TL_SetEnd(key6,sDate,sTime,TP6);}if printedtp7 == 0 and extreme_tp7_dist < extreme_tp6_dist Then{ key7 = TL_new(sdate[1],stime[1],tp7, sDate,sTime, tp7); TL_SetColor(Key7,lvlCol); TL_SetSize(Key7,2); printedtp7 = 1;}Else{ if printedtp7 == 1 Then TL_SetEnd(key7,sDate,sTime,TP7);}2.그럼 수고하세요
2026-01-26
238
글번호 230094
지표