안녕하세요 예스스탁입니다. 1-1 주 input : 수치표시(1); Var : preHigh(0), preLow(0), preClose(0), HighV(0), LowV(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); Var : TX1(0), TX2(0), TX3(0), TX4(0), TX5(0); if BarInterval <= 60 and DataCompress < 3 Then { if DayOfWeek(Bdate) < dayofweek(Bdate[1]) Then { preHigh = HighV[1]; preLow = LowV[1]; preClose = C[1]; HighV = H; LowV = L; } if HighV > 0 and H > highV Then HighV = H; if LowV > 0 and L < LowV Then LowV = L; Pivot = (preHigh+preLow+preClose)/3; R1 = 2*Pivot-preLow; R2 = Pivot+preHigh-preLow; S1 = 2*Pivot-preHigh; S2 = Pivot-preHigh+preLow; Plot1(Pivot, "피봇포인트", GRAy, 0, 1); Plot2(R1, "1차저항", RED, 0,1); Plot3(R2, "2차저항", PINk, 0,1); Plot4(S1, "1차지지", GREEN, 0, 1); Plot5(S2, "2차지지", LGREEN, 0, 1); if 수치표시 == 1 and DayOfWeek(Bdate) < dayofweek(Bdate[1]) Then { TX1 = Text_New(sdate, stime, Pivot, "▶PV : "+Numtostr(Pivot,2)); Text_SetStyle(TX1, 1, 2); Text_setColor(TX1, GRAY); TX2 = Text_New(sdate, stime, R1, "▶R1 : "+Numtostr(R1,2)); Text_SetStyle(TX2, 1, 2); Text_setColor(TX2, red); TX3 = Text_New(sdate, stime, R2, "▶R2 : "+Numtostr(R2,2)); Text_SetStyle(TX3, 1, 2); Text_setColor(TX3, red); TX4 = Text_New(sdate, stime, S1, "▶S1 : "+Numtostr(S1,2)); Text_SetStyle(TX4, 1, 2); Text_setColor(TX4, GREEN); TX5 = Text_New(sdate, stime, S2, "▶S2 : "+Numtostr(S2,2)); Text_SetStyle(TX5, 1, 2); Text_setColor(TX5, GREEN); } } 1-2 월 input : 수치표시(1); Var : preHigh(0), preLow(0), preClose(0), HighV(0), LowV(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); Var : TX1(0), TX2(0), TX3(0), TX4(0), TX5(0); if BarInterval <= 60 and DataCompress < 3 Then { if Bdate > Bdate[1]+30 Then { preHigh = HighV[1]; preLow = LowV[1]; preClose = C[1]; HighV = H; LowV = L; } if HighV > 0 and H > highV Then HighV = H; if LowV > 0 and L < LowV Then LowV = L; Pivot = (preHigh+preLow+preClose)/3; R1 = 2*Pivot-preLow; R2 = Pivot+preHigh-preLow; S1 = 2*Pivot-preHigh; S2 = Pivot-preHigh+preLow; Plot1(Pivot, "피봇포인트", GRAy, 0, 1); Plot2(R1, "1차저항", RED, 0,1); Plot3(R2, "2차저항", PINk, 0,1); Plot4(S1, "1차지지", GREEN, 0, 1); Plot5(S2, "2차지지", LGREEN, 0, 1); if 수치표시 == 1 and bdate > bdate[1]+30 Then { TX1 = Text_New(sdate, stime, Pivot, "▶PV : "+Numtostr(Pivot,2)); Text_SetStyle(TX1, 1, 2); Text_setColor(TX1, GRAY); TX2 = Text_New(sdate, stime, R1, "▶R1 : "+Numtostr(R1,2)); Text_SetStyle(TX2, 1, 2); Text_setColor(TX2, red); TX3 = Text_New(sdate, stime, R2, "▶R2 : "+Numtostr(R2,2)); Text_SetStyle(TX3, 1, 2); Text_setColor(TX3, red); TX4 = Text_New(sdate, stime, S1, "▶S1 : "+Numtostr(S1,2)); Text_SetStyle(TX4, 1, 2); Text_setColor(TX4, GREEN); TX5 = Text_New(sdate, stime, S2, "▶S2 : "+Numtostr(S2,2)); Text_SetStyle(TX5, 1, 2); Text_setColor(TX5, GREEN); } } 2 모두 수정해 드립니다. input : N(numeric); var : cnt(0); array : MO[99](0); if index == 0 or Bdate > Bdate[1]+30 then { for cnt = 98 downto 1 { MO[cnt] = MO[cnt-1]; } MO[0] = O; } MonthOpen = MO[N]; Input : N(numeric); var : cnt(0); array : MH[99](0); if Index == 0 or bdate > bdate[1]+30 then { for cnt = 98 downto 1 { MH[cnt] = MH[cnt-1]; } MH[0] = H; } if MH[0] > 0 and H > MH[0] then { MH[0] = H; } MonthHigh = MH[N]; Input : N(numeric); var : cnt(0); array : ML[99](0); if Index == 0 or bdate > bdate[1]+30 then { for cnt = 98 downto 1 { ML[cnt] = ML[cnt-1]; } ML[0] = L; } if ML[0] > 0 and L < ML[0] then ML[0] = L; MonthLow = ML[N]; input : N(numeric); var : cnt(0); array : MC[99](0); if bdate > bdate[1]+30 then { for cnt = 98 downto 1 { MC[cnt] = MC[cnt-1]; } } MC[0] = C; Monthclose = MC[N]; input:n(numeric); var : cnt(0); array:weekO[100](0); if DayOfWeek(bdate) < DayOfWeek(bdate)[1] then { for cnt = 99 downto 1 { weekO[cnt] = weekO[cnt-1]; } weekO[0] = o; } WeekOpen = weekO[n]; Input : N(numeric); var : cnt(0); array : WH[99](0); if DayOfWeek(bdate) < DayOfWeek(bdate)[1] then { for cnt = 98 downto 1 { WH[cnt] = WH[cnt-1]; } WH[0] = H; } if WH[0] > 0 and H > WH[0] then WH[0] = H; WeekHigh = WH[N]; Input : N(numeric); var : cnt(0); array : WL[99](0); if DayOfWeek(bdate) < DayOfWeek(bdate)[1] then { for cnt = 98 downto 1 { WL[cnt] = WL[cnt-1]; } WL[0] = L; } if WL[0] > 0 and L < WL[0] then WL[0] = L; WeekLow = WL[N]; input : N(numeric); var : cnt(0); array : WC[99](0); if DayOfWeek(bdate) < DayOfWeek(bdate)[1] then { for cnt = 98 downto 1 { WC[cnt] = WC[cnt-1][1]; } } WC[0] = C; Weekclose = WC[N]; 즐거운 하루되세요 > qha71 님이 쓴 글입니다. > 제목 : 수정 의뢰드립니다 > 안녕하세요! 아래의 수식은 일간의 고,저,종가를 이용하여 만든 피봇지표입니다. 이수식을 가능하다면 주간과 월간의 고,저,종가를 이용하여 만든 피봇지표로 각각 수정을 부탁드립니다! 항상 노고에 감사드립니다! input : 수치표시(1); Var : preHigh(0), preLow(0), preClose(0), HighV(0), LowV(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); Var : TX1(0), TX2(0), TX3(0), TX4(0), TX5(0); if BarInterval <= 60 and DataCompress < 3 Then { if sTime-sTime[1] > 4000 or sTime-sTime[1] < 0 Then { preHigh = HighV[1]; preLow = LowV[1]; preClose = C[1]; HighV = H; LowV = L; } if H > highV Then HighV = H; if L < LowV Then LowV = L; Pivot = (preHigh+preLow+preClose)/3; R1 = 2*Pivot-preLow; R2 = Pivot+preHigh-preLow; S1 = 2*Pivot-preHigh; S2 = Pivot-preHigh+preLow; Plot1(Pivot, "피봇포인트", GRAy, 0, 1); Plot2(R1, "1차저항", RED, 0,1); Plot3(R2, "2차저항", PINk, 0,1); Plot4(S1, "1차지지", GREEN, 0, 1); Plot5(S2, "2차지지", LGREEN, 0, 1); if 수치표시 == 1 and sTime-sTime[1] > 4000 or sTime-sTime[1] < 0 Then { TX1 = Text_New(sdate, stime, Pivot, "▶PV : "+Numtostr(Pivot,2)); Text_SetStyle(TX1, 1, 2); Text_setColor(TX1, GRAY); TX2 = Text_New(sdate, stime, R1, "▶R1 : "+Numtostr(R1,2)); Text_SetStyle(TX2, 1, 2); Text_setColor(TX2, red); TX3 = Text_New(sdate, stime, R2, "▶R2 : "+Numtostr(R2,2)); Text_SetStyle(TX3, 1, 2); Text_setColor(TX3, red); TX4 = Text_New(sdate, stime, S1, "▶S1 : "+Numtostr(S1,2)); Text_SetStyle(TX4, 1, 2); Text_setColor(TX4, GREEN); TX5 = Text_New(sdate, stime, S2, "▶S2 : "+Numtostr(S2,2)); Text_SetStyle(TX5, 1, 2); Text_setColor(TX5, GREEN); } } --------------------------------------------- 아래 함수가 잘 못 되었다고 계속 에러가 뜨네요! 확인 좀 부탁드립니다! input : N(numeric); var : cnt(0); array : MO[99](0); if index() == 0 then MO[1] = O; if index() > 0 then{ if date > date[1]+30 then{ MO[0] = O; for cnt = 1 to 98{ MO[cnt] = MO[cnt-1][1]; } } } MonthOpen = MO[N]; Input : N(numeric); var : cnt(0); array : MH[99](0); if index() == 0 then MH[0] = H; if date > date[1]+30 then{ MH[0] = H; for cnt = 1 to 20{ MH[cnt] = MH[cnt-1][1]; } } if H > MH[0] then{ MH[0] = H; } MonthHigh = MH[N]; Input : N(numeric); var : cnt(0); array : ML[99](0); if index() == 0 then ML[0] = L; if index() > 0 then{ if date > date[1]+30 then{ ML[0] = L; for cnt = 1 to 20{ ML[cnt] = ML[cnt-1][1]; } } } if L < ML[0] then{ ML[0] = L; } MonthLow = ML[N]; input : N(numeric); var : cnt(0); array : MC[99](0); if date > date[1]+30 then{ for cnt = 1 to 98{ MC[cnt] = MC[cnt-1][1]; } } MC[0] = C; Monthclose = MC[N]; -------- WeekOpen input:n(numeric); var:j(0),요일(0); array:weekO[100](0); 요일 = DayOfWeek(date); if date[1] < date and 요일[1] >= 요일 then { for j = 99 downto 1 { weekO[j] = weekO[j-1]; } weekO[0] = o; } WeekOpen = weekO[n]; WeekHigh Input : N(numeric); var : cnt(0); array : WH[99](0); if DayOfWeek(date) < DayOfWeek(date)[1] then{ WH[0] = H; for cnt = 1 to 20{ WH[cnt] = WH[cnt-1][1]; } } if H > WH[0] then{ WH[0] = H; } WeekHigh = WH[N]; WeekLow Input : N(numeric); var : cnt(0); array : WL[99](0); if DayOfWeek(date) < DayOfWeek(date)[1] then{ WL[0] = L; for cnt = 1 to 20{ WL[cnt] = WL[cnt-1][1]; } } if L < WL[0] then{ WL[0] = L; } WeekLow = WL[N]; WeekClose input : N(numeric); var : cnt(0); array : WC[99](0); if DayOfWeek(date) < DayOfWeek(date)[1] then{ for cnt = 1 to 98{ WC[cnt] = WC[cnt-1][1]; } } WC[0] = C; Weekclose = WC[N]; ---------