안녕하세요 예스스탁입니다. 1. Inputs: Length(20); Variables: BCounter(0), BDownAmt(0), BUpAmt(0), BUpSum(0), BDownSum(0),TPBuy(0); BUpSum = 0; BDownSum = 0; For BCounter = 0 To Length - 1 { IF DayClose(BCounter) > dayClose(BCounter+1) Then{ IF DayClose(BCounter) == 0 Then BUpAmt = 0; Else BUpAmt = 100 * (DayClose(BCounter)-DayClose(BCounter+1)) / DayClose(BCounter); BDownAmt = 0; } Else{ BUpAmt = 0; IF DayClose(BCounter) == 0 Then BDownAmt = 0; Else BDownAmt = 100 * (DayClose(BCounter+1) - DayClose(BCounter)) / DayClose(BCounter); } BUpSum = BUpSum + BUpAmt; BDownSum = BDownSum + BDownAmt; } IF BDownSum == 0 Then TPBuy = 0; Else TPBuy = 100 * BUpSum / BDownSum; ############################################################################### Variables: SCounter(0), SDownAmt(0), SUpAmt(0), SUpSum(0), SDownSum(0),TPSell(0); SUpSum = 0; SDownSum = 0; For SCounter = 0 To Length - 1 { IF DayClose(SCounter) > DayClose(SCounter+1) then { IF Close[SCounter] == 0 then SUpAmt = 0; Else SUpAmt = 100 * (DayClose(SCounter)-DayClose(SCounter+1)) / DayClose(SCounter); SDownAmt = 0; } Else { SUpAmt = 0; IF DayClose(SCounter) == 0 then SDownAmt = 0; Else SDownAmt = 100 * (DayClose(SCounter+1) - DayClose(SCounter)) / DayClose(SCounter); } SUpSum = SUpSum + SUpAmt; SDownSum = SDownSum + SDownAmt; } IF SUpSum == 0 then TPSell = 0; Else TPSell = 100 * SDownSum / SUpSum; ##################################################################################################### if dayindex == 0 Then { var1 = TPBuy ; var2 = TPSell ; } PLOT1(TPBuy,"TPBuy") ; PLOT2(TPSell,"TPSell") ; plot3(var1,"buy 첫봉") ; plot4(var2,"sell 첫봉") ; 2. ################################################################################## Inputs: Length(20); Variables: BCounter(0,data2), BDownAmt(0,data2), BUpAmt(0,data2), BUpSum(0,data2), BDownSum(0,data2),TPBuy(0,data2); Variables: SCounter(0,data2), SDownAmt(0,data2), SUpAmt(0,data2), SUpSum(0,data2), SDownSum(0,data2),TPSell(0,data2); var : C2(0,data2); C2 = data2(c); If C2[Length+1] > 0 Then{ BUpSum = 0; BDownSum = 0; For BCounter = 0 To Length - 1 { IF C2[BCounter] > C2[BCounter+1] Then{ IF C2[BCounter] == 0 Then BUpAmt = 0; Else BUpAmt = 100 * (C2[BCounter]-C2[BCounter+1]) / C2[BCounter]; BDownAmt = 0; } Else{ BUpAmt = 0; IF C2[BCounter] == 0 Then BDownAmt = 0; Else BDownAmt = 100 * (C2[BCounter+1] - C2[BCounter]) / C2[BCounter]; } BUpSum = BUpSum + BUpAmt; BDownSum = BDownSum + BDownAmt; } IF BDownSum == 0 Then TPBuy = 0; Else TPBuy = 100 * BUpSum / BDownSum; } If C2[Length+1] > 0 Then{ SUpSum = 0; SDownSum = 0; For SCounter = 0 To Length - 1 { IF C2[SCounter] > C2[SCounter+1] then { IF C2[SCounter] == 0 then SUpAmt = 0; Else SUpAmt = 100 * (C2[SCounter]-C2[SCounter+1]) / C2[SCounter]; SDownAmt = 0; } Else { SUpAmt = 0; IF C2[SCounter] == 0 then SDownAmt = 0; Else SDownAmt = 100 * (C2[SCounter+1] - C2[SCounter]) / C2[SCounter]; } SUpSum = SUpSum + SUpAmt; SDownSum = SDownSum + SDownAmt; } IF SUpSum == 0 then TPSell = 0; Else TPSell = 100 * SDownSum / SUpSum; } if data1(dayindex == 0) Then { var1 = TPBuy ; var2 = TPSell ; } PLOT1(TPBuy,"TPBuy") ; PLOT2(TPSell,"TPSell") ; plot3(var1,"buy 첫봉") ; plot4(var2,"sell 첫봉") ; 즐거운 하루되세요 > HI_ma****** 님이 쓴 글입니다. > 제목 : 질문드립니다 > 아래의 코드를 두가지로 부탁드립니다 1. 분봉에서 일봉의 값을 그리는 지표를 구하고자합니다 data1:분봉 , data2 : 일봉 ---> X 그냥 분봉차트에서 코드로 일봉의 값을 구하고자하는 겁니다 2. 타분봉 참조 코드를 구하고자합니다 부탁드립니다 ____________________________________________________________________________ ################################################################################## Inputs: Length(20); Variables: BCounter(0), BDownAmt(0), BUpAmt(0), BUpSum(0), BDownSum(0),TPBuy(0); If CurrentBar > Length - 1 Then{ BUpSum = 0; BDownSum = 0; For BCounter = 0 To Length - 1 { IF Close[BCounter] > Close[BCounter+1] Then{ IF Close[BCounter] == 0 Then BUpAmt = 0; Else BUpAmt = 100 * (Close[BCounter]-Close[BCounter+1]) / Close[BCounter]; BDownAmt = 0; } Else{ BUpAmt = 0; IF Close[BCounter] == 0 Then BDownAmt = 0; Else BDownAmt = 100 * (Close[BCounter+1] - Close[BCounter]) / Close[BCounter]; } BUpSum = BUpSum + BUpAmt; BDownSum = BDownSum + BDownAmt; } IF BDownSum == 0 Then TPBuy = 0; Else TPBuy = 100 * BUpSum / BDownSum; } ############################################################################### Variables: SCounter(0), SDownAmt(0), SUpAmt(0), SUpSum(0), SDownSum(0),TPSell(0); If CurrentBar > Length - 1 then { SUpSum = 0; SDownSum = 0; For SCounter = 0 To Length - 1 { IF Close[SCounter] > Close[SCounter+1] then { IF Close[SCounter] == 0 then SUpAmt = 0; Else SUpAmt = 100 * (Close[SCounter]-Close[SCounter+1]) / Close[SCounter]; SDownAmt = 0; } Else { SUpAmt = 0; IF Close[SCounter] == 0 then SDownAmt = 0; Else SDownAmt = 100 * (Close[SCounter+1] - Close[SCounter]) / Close[SCounter]; } SUpSum = SUpSum + SUpAmt; SDownSum = SDownSum + SDownAmt; } IF SUpSum == 0 then TPSell = 0; Else TPSell = 100 * SDownSum / SUpSum; } ##################################################################################################### if dayindex == 0 Then { var1 = TPBuy ; var2 = TPSell ; } PLOT1(TPBuy,"TPBuy") ; PLOT2(TPSell,"TPSell") ; plot3(var1,"buy 첫봉") ; plot4(var2,"sell 첫봉") ;