변환 가능한 수식이면 지표식 부탁드리고요. 아래 시스템식에도 ema 대신 이것으로 적용시켜 수정해 주시면 감사하겠습니다. 1. 변환할 지표식 study(title="T3 Averages", shorttitle="T3", overlay = true) Length = input(5, minval=1) xPrice = close xe1 = ema(xPrice, Length) xe2 = ema(xe1, Length) xe3 = ema(xe2, Length) xe4 = ema(xe3, Length) xe5 = ema(xe4, Length) xe6 = ema(xe5, Length) b = 0.7 c1 = -b*b*b c2 = 3*b*b+3*b*b*b c3 = -6*b*b-3*b-3*b*b*b c4 = 1+3*b+b*b*b+3*b*b nT3Average = c1 * xe6 + c2 * xe5 + c3 * xe4 + c4 * xe3 plot(nT3Average, color=lime, title="T3") ======================================================================== 2. 시스템식 input : keyvalue(5),P(100); input : atrperiod(10); var : src(0),xatr(0),nloss(0),xATRTrailingStop(0),pos(0),xcolor(0); var : Emav(0); src = close; xATR = atr(atrperiod); nLoss = keyvalue * xATR; xATRTrailingStop = 0.0; xATRTrailingStop = iff(src > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src[1] > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), max(iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), src - nLoss), iff(src < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src[1] < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), min(iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), src + nLoss), iff(src > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), src - nLoss, src + nLoss))); pos = 0; pos = iff(src[1] < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), 1, iff(src[1] > iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]) and src < iff(IsNan(xATRTrailingStop[1]) == true, 0,xATRTrailingStop[1]), -1, iff(IsNan(pos[1])==true, 0,pos[1]))); xcolor = iff(pos == -1 , red , iff(pos == 1 , green ,blue)); Condition1 = CrossUp(src,xATRTrailingStop); Condition2 = CrossDown(src,xATRTrailingStop); Emav = Ema(C,P); if Condition1 == true Then { if C > Emav Then Buy(); Else ExitShort("SX"); } if Condition2 == true Then { if C < Emav Then Sell("Sell"); Else ExitLong("BX"); }

종가 파라볼릭에서 파라볼릭 음 전환 때 파라볼릭 천정은 A 파라볼릭 음 전환 때 음전환 시킨 캔들 저가 B C=B-(A-B) 파라볼릭 양 전환 때 파라볼릭 바닥은 D 파라볼릭 양 전환 때 양 전환 시킨 캔들 고가 E F=E+(E-D) 파라볼릭 음 전환 때 C-(F-C) 를 그린다 파라볼릭 양 전환 때 F+(F-C) 를 그린다 감사합니다

Input:전환비율(6); Var : j(0,Data2),jj(0,Data2),HH(0,Data2),LL(0,Data2),hiBar(0,Data2),loBar(0,Data2),최종꼭지점("",Data2),처리구분("",Data2); var : TL1(0,Data2),Box(0,Data2); var : cond1(False,Data2),cond2(False,Data2); Array:고[10,4](0,Data2),저[10,4](0,Data2); HH=data2(H); LL=data2(L); If data2(Index==0) Then { 고[1,1]=HH; 고[1,2]=0; 고[1,3]=data2(sDate); 고[1,4]=data2(sTime); 저[1,1]=LL; 저[1,2]=0; 저[1,3]=data2(sDate); 저[1,4]=data2(sTime); } If data2(Index>0) Then { hiBar=hiBar+1; loBar=loBar+1; } If HH[hiBar]<HH Then hiBar=0; If LL[loBar]>LL Then loBar=0; cond1=저[1,1]*(1+(전환비율/100))<HH and hiBar==0; cond2=고[1,1]*(1-(전환비율/100))>LL and loBar==0; 처리구분=""; If cond1 and cond2 Then//고점과저점조건동시만족 { If 최종꼭지점=="저점" Then { If 저[1,1]>LL Then 처리구분="저점처리"; Else 처리구분="고점처리"; } Else If 최종꼭지점=="고점" Then { If 고[1,1]<HH Then 처리구분="고점처리"; Else 처리구분="저점처리"; } } Else If cond1 Then 처리구분="고점처리"; Else If cond2 Then 처리구분="저점처리"; If 처리구분=="고점처리" Then { If 최종꼭지점=="저점" Then { For j=10 DownTo 2 { For jj=1 To 4 { 고[j,jj]=고[j-1,jj]; } } 고[1,1]=HH[hiBar]; 고[1,2]=data2(Index)-hiBar; 고[1,3]=data2(sDate[hiBar]); 고[1,4]=data2(sTime[hiBar]); hiBar=-1; loBar=-1; TL1=TL_New_Self(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL1,1); TL_SetColor(TL1,RED); Box_Delete(Box); box=box_New_self(저[1,3],저[1,4],저[1,1],Data2(NextBarSdate),Data2(NextBarStime),고[1,1]); box_SetColor(Box,RED); Box_SetFill(Box,true); } Else If 고[1,1]<HH[hiBar] Then//1번고점보다높은고가출현 { 고[1,1]=HH[hiBar]; 고[1,2]=data2(Index)-hiBar; 고[1,3]=data2(sDate[hiBar]); 고[1,4]=data2(sTime[hiBar]); hiBar=-1; loBar=-1; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); Box_SetEnd(Box,고[1,3],고[1,4],고[1,1]); } 최종꼭지점="고점"; Plot1(고[1,1]); NoPlot(2); } If 처리구분=="저점처리" Then { If 최종꼭지점=="고점" Then { For j=10 DownTo 2 { For jj=1 To 4 { 저[j,jj]=저[j-1,jj]; } } 저[1,1]=LL[loBar]; 저[1,2]=data2(Index)-loBar; 저[1,3]=data2(sDate[loBar]); 저[1,4]=data2(sTime[loBar]); hiBar=-1; loBar=-1; TL1=TL_New_Self(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL1,1); TL_SetColor(TL1,BLUE); Box_Delete(Box); box=box_New_self(저[1,3],저[1,4],저[1,1],Data2(NextBarSdate),Data2(NextBarStime),고[1,1]); box_SetColor(Box,Blue); Box_SetFill(Box,true); } Else If 저[1,1]>LL[loBar] Then { 저[1,1]=LL[loBar]; 저[1,2]=data2(Index)-loBar; 저[1,3]=data2(sDate[loBar]); 저[1,4]=data2(sTime[loBar]); hiBar=-1; loBar=-1; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); Box_SetEnd(Box,저[1,3],저[1,4],저[1,1]); } 최종꼭지점="저점"; Plot2(저[1,1]); NoPlot(1); } 박스 생성이 안되기도하고, 박스 크기도 일부 작고, 삭제도 몇군데 안됩니다. 오류 부분에서는 추세선도 이상합니다. 하락박스의 시작점에서 저를 고로 바꾸니 약간 수정되나 비슷합니다. 오류 수정 부탁드립니다.

20이평 120이평 정배열이고 주가가 20이평을 아래서 위로 돌파하는 경우와 주가가 20이평 위에 있을 때 음봉에서 양봉 발생 시 매수 청산은 음봉 발생할 때 매도 청산 완료 20이평 120이평 역배열이고 주가가 20이평을 위에서 아래로 돌파하는 경우와 주가가 20이평 아래 있을 때 양봉에서 음봉 발생 시 매도 청산은 양봉 발생할 때 매수 청산 완료 부탁드립니다.

input : Price(31850),진입횟수(1); var : entry(0); if Bdate != Bdate[1] Then entry = 0; if (MarketPosition != 0 and MarketPosition != MarketPosition[1]) or (MarketPosition == MarketPosition[1] and TotalTrades > TotalTrades[1]) Then entry = entry+1; if NextBarSdate == sDate and NextBarStime >= 91500 and H < price and entry < 진입횟수 Then Buy("b",AtStop,price); 9시 15분 이후에 지정한 가격(위 식에서는 31,850원)보다 현재가가 높더라도 // 가령 9시 20분에 현재가가 지정한 가격(31,850원)을 하회하여 31,800원이 되었다가 다시 31,850원을 돌파하는 시점에도 매수가 이뤄질 수 있도록 위 수식에 추가를 요청드립니다. 노고에 감사드립니다.

A=Avg(C, 이평1); B=Avg(C, 이평2); ValueWhen(1, A(1) > B(1) and A <= B, Avg(C,이평2)) 이평1: 20 이평2: 60 위 선을 당일 돌파하는 종목검색을 하고 싶습니다 부탁드립니다

안녕하세요 지표식 1개 부탁 드리겠습니다. 1.볼린져밴드 Period : 50 , MultiD : 3 2.단순이동평균선 60 볼린져밴드는 상단선(60,3)만 이용을 하고, 단순이동평균선은 60 을 이용해서 볼린져 밴드가 이동평균선을 상향 돌파하면은 볼린져밴드 선의 색깔이 빨갛게 하고 볼린져 밴드가 이동평균선을 하향 돌파하면은 볼린져밴드 선의 색깔이 파랗게 하는 지표식 부탁 드리겠습니다. 항상 감사드립니다.

안녕하세요 다음 가격을 차트상 표시하게 해주세요. ex) 월봉시가와 피봇 1차지지, 저항선의 1/3 과 1/2