안녕하세요 ??? 거래량 관련 지표를 만드는데 아직 초보라 문의 드립니다. var : 순거래량(0) ; var : cnt(0) , sum(0) ; 순거래량 = upvol-downvol ; sum = 0 ; for cnt = 0 TO 10 {SUM = SUM + 순거래량 [cnt];} plot11(순거래량, "순거래량") ; 1분봉에서 이렇게 코딩하면 지금 현재봉부터 이전 10 개봉이 더해지나요 아니면 0번째봉부터 앞으로 시간이 지남에 따라 1,2,3 번째 봉의 순거래량이 누적으로 계산되어 10 개봉까지만 값이 누적이 되어지나요 ?? 1. 만약 이전봉 10개로 누적되어진다면 시간이 지남에 따른 누적을 보고 싶을때 어떻게 표현해야 하나요 ??? 2. 누적되어질때 당일분만 나오게 할순 없나요 (첫봉에서 전일의 순거래량영향없이) ??? 3. accum(순거래량) 함수 사용하면 현재부터 1분봉에서 1분마다 순거래량이누적으로 더해지나요 ??? 4. 거래대금이 거래량*단가이면 상승형 거래대금(upvol * 단가) 를 표현하고 싶은데 단가를 c로하면 1분봉 종가로 계산되어질듯합니다. 실시간으로 상승형거래대금과 하락형 거래대금으로 구분하여 누적으로 나타낼수 있을까요 ???? 초보 질문이라 송구합니다.부탁드립니다.

항상 도움을 주심에 깊이 감사드립니다 1 아래 수식에서 추세선의 두께를 좀더 두껍게 조정하거나 2,혹은 이선을 다른형태(즉 원이나 사각형그래프등)의 변형된 형태로 나타낼수는 없는지요? 3, 추세선이 진행중 추세전환에 의거 예비선(아래수식의 맨 아랫부분 수식에 해당되는선)이 발생후 일정한 갯수의 봉이 완성시 그 해당봉에 세로선이 발생토록 부탁드립니다 * 봉의 갯수와 세로선의 두께, 색상은 수정이 가능하도록 부탁드립니다 ======================================================================================= Var:Period(20),선두께(6.99),상승색(white), 하락색(white); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/; Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; //ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 빨강 Text_SetColor(Tx,RED); Text_SetStyle(Tx,2,2); Text_SetSize(tx,12); //tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+NumToStr(value11,2)+NewLine); //Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } //TL2[0] = TL_New(date21,time21,fr[0],date22,time22,fr[0]); //TL_SetColor(TL2[0],RED); #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]); #TL_SetColor(TL2[1],RED); #TL_SetStyle(TL2[1], 3); #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]); #TL_SetColor(TL2[2],RED); #TL_SetSize(TL2[2],1); #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx2[2],BWHITE); #Text_SetStyle(TX2[2],1,1); #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]); #TL_SetColor(TL2[3],RED); #TL_SetStyle(TL2[3], 3); #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]); #TL_SetColor(TL2[4],RED); #TL_SetSize(TL2[4],1); #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx2[4],BWHITE); #Text_SetStyle(TX2[4],1,0); //TL2[5] = TL_New(date21,time21,fr[5],date22,time22,fr[5]); //TL_SetColor(TL2[5],RED); //TL2[6] = TL_New(date21,time21,fr[6],date22,time22,fr[6]); //TL_SetColor(TL2[6],MAGENTA); } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; //Tx = Text_New_Self(date12,time12,Value12,NumToStr(abs(value11-value12)/PriceScale,0)+" "); #동그라미 색상, 빨강 //Text_SetColor(Tx,BLUE); //Text_SetStyle(Tx,1,0); TL_SetEnd(TL2[0],date22,time22,fr[0]); TL_SetEnd(TL2[1],date22,time22,fr[1]); TL_SetEnd(TL2[2],date22,time22,fr[2]); Text_SetLocation(TX2[2],date22,time22,fr[2]); TL_SetEnd(TL2[3],date22,time22,fr[3]); TL_SetEnd(TL2[4],date22,time22,fr[4]); Text_SetLocation(TX2[4],date22,time22,fr[4]); TL_SetEnd(TL2[5],date22,time22,fr[5]); TL_SetEnd(TL2[6],date22,time22,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; //ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx1 = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 파랑 Text_SetColor(Tx1,BLUE); Text_SetStyle(Tx1,2,2); Text_SetSize(tx1,12); //tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)+NewLine+NumToStr(value11,2)); //Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } //TL3[0] = TL_New(date31,time31,fr[0],date32,time32,fr[0]); //TL_SetColor(TL3[0],BLUE); #TL3[1] = TL_New(date31,time31,fr[1],date32,time32,fr[1]); #TL_SetColor(TL3[1],BLUE); #TL_SetStyle(TL3[1], 3); #TL3[2] = TL_New(date31,time31,fr[2],date32,time32,fr[2]); #TL_SetColor(TL3[2],BLUE); #TL_SetSize(TL3[2],1); #TX3[2] = Text_New(date32,time32,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx3[2],BWHITE); #Text_SetStyle(TX3[2],1,1); #TL3[3] = TL_New(date31,time31,fr[3],date32,time32,fr[3]); #TL_SetColor(TL3[3],BLUE); #TL_SetStyle(TL3[3], 3); #TL3[4] = TL_New(date31,time31,fr[4],date32,time32,fr[4]); #TL_SetColor(TL3[4],BLUE); #TL_SetSize(TL3[4],1); #TX3[4] = Text_New(date32,time32,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx3[4],BWHITE); #Text_SetStyle(TX3[4],1,0); //TL3[5] = TL_New(date31,time31,fr[5],date32,time32,fr[5]); //TL_SetColor(TL3[5],BLUE); //TL3[6] = TL_New(date31,time31,fr[6],date32,time32,fr[6]); //TL_SetColor(TL3[6],cyan); } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; //Tx = Text_New_Self(date12,time12,Value12,NumToStr(abs(value11-value12)/PriceScale,0)+" "); #동그라미 색상, 빨강 //Text_SetColor(Tx,RED); //Text_SetStyle(Tx,1,1); TL_SetEnd(TL3[0],date32,time32,fr[0]); TL_SetEnd(TL3[1],date32,time32,fr[1]); TL_SetEnd(TL3[2],date32,time32,fr[2]); Text_SetLocation(TX3[2],date32,time32,fr[2]); TL_SetEnd(TL3[3],date32,time32,fr[3]); TL_SetEnd(TL3[4],date32,time32,fr[4]); Text_SetLocation(TX3[4],date32,time32,fr[4]); TL_SetEnd(TL3[5],date32,time32,fr[5]); TL_SetEnd(TL3[6],date32,time32,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } }

도움에 늘 감사 드립니다. 맨 마지막에 줄에 if maV[0] > 0 then plot5(maV[0],"MidLine"); 의 실행식만 사용하고자 합니다. 계산에 필요 없는 array의 OO[50](0),HH[50](0)의 등등과 필요 없는 기타 수식을 메모리 부족과 관련하여 계산에서 제외하고자 하오니 부탁 드립니다. input:renkoSize(0.5), length(10), NumATRs(1.5); var:j(0),k(0),renkoCnt(0),gubun(0),Sum(0),trSum(0),atrV(0),time1(0), filename("renko3.txt"),printOK(False); array:OO[50](0),HH[50](0),LL[50](0),CC[50](0), TR[50](0), //True Range upperLine[50](0), //상단채널 lowerLine[50](0), //하단채널 maV[50](0); //이평선 If bdate != bdate[1] Then //break on session에 해당, 즉 일자가 바뀌면 새로 계산 { gubun = 0; //방향을 초기화한다. 이후 형성되는 가격에 의해 방향이 계산 For j = 49 DownTo 1 //금일 시가봉을 신규 추가 { OO[j] = OO[j-1]; HH[j] = HH[j-1]; LL[j] = LL[j-1]; CC[j] = CC[j-1]; TR[j] = TR[j-1]; maV[j] = maV[j-1]; upperLine[j] = upperLine[j-1]; if maV[0] > 0 then plot5(maV[0],"MidLine"); lowerLine[j] = lowerLine[j-1]; } OO[0] = C; //분봉의 종가를 기반으로 계산하기 때문에 당일 시초가 아니다 HH[0] = C; LL[0] = C; CC[0] = C; } Else { If gubun == 0 and CC[0] > 0 Then //일 첫봉이 완성되지 않은 시점 { If OO[0] - renkoSize >= C Then { gubun = -1; //하락 방향 CC[0] = OO[0] - renkoSize; //음봉 HH[0] = OO[0]; LL[0] = CC[0]; TR[0] = max(CC[1],HH[0]) - min(CC[1],LL[0]); //true range 계산식 참조 //macd 계산 당시와 마찬가지로 sum 값이 있을 때만 처리 If sum > 0 Then { sum = sum + CC[0] - CC[length]; //이평선 계산 원리 그대로, 현재가를 더하고 n봉전 가격 뺌 trSum = trSum + TR[0] - TR[length]; //true range의 합을 계산 maV[0] = Sum / length; //n개의 종가 합을 n으로 나누어 이동평균 계산 atrV = trSum / length; //ATR 계산식 참조 upperLine[0] = maV[0] + atrV * NumATRs; //상단 밴드 계산 lowerLine[0] = maV[0] - atrV * NumATRs; //하단 밴드 계산 } j = 0; if printOK then print(filename,"1=>,%.0f,%.0f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f",j,gubun,OO[j],HH[j],LL[j],CC[j]); } Else If OO[0] + renkoSize <= C Then { gubun = 1; //상승 방향 CC[0] = OO[0] + renkoSize; //양봉 HH[0] = CC[0]; LL[0] = OO[0]; TR[0] = max(CC[1],HH[0]) - min(CC[1],LL[0]); If sum > 0 Then //계속 반복되는 공통 루틴이므로 if문 바깥으로 뺄까도 했으나 { sum = sum + CC[0] - CC[length]; //더 복잡해지므로 copy & paste로 처리 trSum = trSum + TR[0] - TR[length]; maV[0] = Sum / length; atrV = trSum / length; upperLine[0] = maV[0] + atrV * NumATRs; lowerLine[0] = maV[0] - atrV * NumATRs; } j = 0; if printOK then print(filename,"2=>,%.0f,%.0f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f",j,gubun,OO[j],HH[j],LL[j],CC[j]); } } If LL[0] - renkoSize >= C Then { gubun = -1; renkoCnt = Int(Round((LL[0]-C)/renkoSize,9)); if renkoCnt > 49 then renkoCnt = 49; For j = 49 DownTo renkoCnt { OO[j] = OO[j-renkoCnt]; HH[j] = HH[j-renkoCnt]; LL[j] = LL[j-renkoCnt]; CC[j] = CC[j-renkoCnt]; TR[j] = TR[j-renkoCnt]; maV[j] = maV[j-renkoCnt]; upperLine[j] = upperLine[j-renkoCnt]; lowerLine[j] = lowerLine[j-renkoCnt]; } For j = renkoCnt-1 DownTo 0 { OO[j] = LL[j+1]; CC[j] = LL[j+1] - renkoSize; HH[j] = OO[j]; LL[j] = CC[j]; TR[j] = max(CC[j+1],HH[j]) - min(CC[j+1],LL[j]); If sum > 0 Then { sum = sum + CC[j] - CC[j+length]; trSum = trSum + TR[j] - TR[j+length]; maV[j] = Sum / length; atrV = trSum / length; upperLine[j] = maV[j] + atrV * NumATRs; lowerLine[j] = maV[j] - atrV * NumATRs; } if printOK then print(filename,"3=>,%.0f,%.0f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f",j,gubun,OO[j],HH[j],LL[j],CC[j]); } } Else If HH[0] + renkoSize <= C Then { gubun = 1; renkoCnt = Int(Round((C-HH[0])/renkoSize,9)); if renkoCnt > 49 then renkoCnt = 49; For j = 49 DownTo renkoCnt { OO[j] = OO[j-renkoCnt]; HH[j] = HH[j-renkoCnt]; LL[j] = LL[j-renkoCnt]; CC[j] = CC[j-renkoCnt]; TR[j] = TR[j-renkoCnt]; maV[j] = maV[j-renkoCnt]; upperLine[j] = upperLine[j-renkoCnt]; lowerLine[j] = lowerLine[j-renkoCnt]; } For j = renkoCnt-1 DownTo 0 { OO[j] = HH[j+1]; CC[j] = HH[j+1] + renkoSize; HH[j] = CC[j]; LL[j] = OO[j]; TR[j] = max(CC[j+1],HH[j]) - min(CC[j+1],LL[j]); If sum > 0 Then { sum = sum + CC[j] - CC[j+length]; trSum = trSum + TR[j] - TR[j+length]; maV[j] = Sum / length; atrV = trSum / length; upperLine[j] = maV[j] + atrV * NumATRs; lowerLine[j] = maV[j] - atrV * NumATRs; } if printOK then print(filename, "4=>,%.0f,%.0f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f", j,gubun,OO[j],HH[j],LL[j],CC[j]); } } Else If (sdate != sdate[1] and nextbarStime >= 070000) or (sdate == sdate[1] and nextbarStime >= 070000 and stime < 070000) Then { //당일 종가봉에서 For j = 49 DownTo 1 { OO[j] = OO[j-1]; HH[j] = HH[j-1]; LL[j] = LL[j-1]; CC[j] = CC[j-1]; TR[j] = TR[j-1]; maV[j] = maV[j-1]; upperLine[j] = upperLine[j-1]; lowerLine[j] = lowerLine[j-1]; } If LL[1] > C Then { //종가가 이전 봉보다 아래 형성 OO[0] = LL[1]; CC[0] = C; HH[0] = OO[0]; LL[0] = CC[0]; TR[0] = max(CC[1],HH[0]) - min(CC[1],LL[0]); } Else If HH[1] < C Then { //종가가 이전 봉보다 위에 형성 OO[0] = HH[1]; CC[0] = C; HH[0] = CC[0]; LL[0] = OO[0]; TR[0] = max(CC[1],HH[0]) - min(CC[1],LL[0]); } Else { //종가가 이전 봉의 중간에 형성 OO[0] = C; CC[0] = C; HH[0] = C; LL[0] = C; TR[0] = max(CC[1],HH[0]) - min(CC[1],LL[0]); } If sum > 0 Then { sum = sum + CC[0] - CC[length]; trSum = trSum + TR[0] - TR[length]; maV[0] = Sum / length; atrV = trSum / length; upperLine[0] = maV[0] + atrV * NumATRs; lowerLine[0] = maV[0] - atrV * NumATRs; } j = 0; //채널 값을 새로이 계산 if printOK then print(filename, "5=>,%.0f,%.0f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f,%.2f", j,gubun,OO[j],HH[j],LL[j],CC[j]); } } if sum == 0 and CC[length] > 0 then { for j = 0 to length - 1 { sum = sum + CC[j]; trsum = trsum + max(CC[j+1],HH[j]) - min(CC[j+1],LL[j]); } } If OO[0] > 0 Then Plot1(OO[0],"OO"); //지표속성 -> 차트표시 -> 채우기 -> OO < CC 면 빨강 추가 If CC[0] > 0 Then Plot2(CC[0],"CC"); // OO > CC 면 파랑 추가 if upperLine[0] > 0 then plot3(upperLine[0],"UpperBand"); if lowerLine[0] > 0 then plot4(lowerLine[0],"LowerBand"); if maV[0] > 0 then plot5(maV[0],"MidLine");

번거롭게 해드려 죄송합니다~ 67621글 답변 주신거에 재문의 달았습니다~ 확인 좀 부탁드립니다~ 감사합니다~

질문이고 # 저기에 수식을 추가해서 알람기능을 넣고 싶습니다. 봉이 Period1,2 를 돌파했을때 한번, 돌파해서 마감했을 경우 한번 울리게 하고싶습니다. 장중 가격이 변동되면서 봉이 완성되기 전에 Period1,2 를 아래,위로 여러번 돌파할 경우도 있을텐데요, 여러번 울리지 않고 돌파 최초의 1회, 그리고 봉 완성시 종가가 돌파했을때 1회, 총 2회만 울렸으면 좋겠습니다. 그리고 그 알람기능을 키고 끌 수 있을까요? # 답변입니다 # 소리출력함수는 횟수의 제한이 되지 않습니다. 봉마감시 한번만 울리게는 가능하지 않습니다. Input : Period1(5),Period2(10); var1 = ma(C,Period1); var2 = ma(C,Period2); Plot1(var1, "이동평균1"); Plot2(var2, "이동평균2"); if crossup(var1,var2) Then { PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } if CrossDown(var1,var2) Then { PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } # 수식 질문을 바꾸겠습니다. 1.봉 완성의 가격이 crossup, crossdown 했을 경우 알람이 울리도록 하는건 되지 않나요? 그건 한번만 울릴테니까요 2.그리고 if crossup(var1,var2) Then < 수식에서 if 함수가 조건이 만족할때마다 울려서 가격이 움직일때마다 계속 울리는거 같은데, 첫봉에선 그렇다 치더라도, 저기에서 and 같은걸로 이전봉에서 c,h,l 중에 하나라도 crossup 했거나 crossdown 했을 경우에는 울리지 않도록 설정하면 이전봉에서 cross했을 경우엔 울리지 않을거 같습니다. 알람 수식이 두개가 필요한거 같습니다 종가 C 가 cross 했을 경우 봉 완성시에 울리는 알람이 한개 IF 함수로 현재가가 cross 했을 경우에 알람이 울리되, 직전 봉에서 종가,고가가 cross up 했거나 종가,저가가 crossdown 해을경우에는 울리지 않는 알람이 두개 감사합니다.

다음 수식을 예스지표로 전환부탁드립니다. <1>수식1 F=avg((c+c+c+L)/4,p1); G=crossup(c,F); J=crossdown(c,F); valuewhen(1,G or J, o) <2>수식2 A=envelopeC(period,percent); G=crossup(c,A); D=highestsince(1,G,o); E=crossup(c,D); F=crossdown(c,D); B=envelopeC(period1,percent1); G1=crossdown(c,B); J1=lowestsince(1,G1,c); K1=crossup(c,J1); M1=crossdown(c,J1); valuewhen(1, E or F or K1 or M1, o) 지표조건설정 p1 20 period 10 period1 2 percent 5 percent1 5

$,안녕하세요. 1, 항생시작시간18:15부터 익일04:00까지 가장큰 음봉거래량이 발생하는 캔들의 고점 을 익일 장마감 17:30분까지 오른쪽그리기하고(최고거래량 갱신시 그리기선도 갱신) 2, 익일오전10:15분부터 장마감시간17:30 분까지 가장큰 음봉거래량이 발생하는 캔들의 고점 을 장마감시17:30 까지 오른쪽 그리기하고 장마감후에는 초기화되는 식을 부탁드립니다. (최고거래량 갱신시에는 새로그리기하며,분봉용으로 사용합니다) $$,고맙습니다.

67619에서 상단에 나오는 가로선은 붉은색으로, 하단에 나오는 가로선은 파란색으로 상단의 목표가는 노란색으로 하단의 목표가는 녹색으로 부탁드립니다,그리고 상단에 올라간폭,,예를들면 0.5가 올라갓어면 0.5라는 숫자가 나오고 하단에 0.6이 내렷어면 0.6이라는 숫자가 나왓어면 좋겟습니다