안녕하세요 예스스탁입니다. input : N(40),P1(1),P2(10),P3(20),P4(60),P5(120),z1(20); var : HR(0),LR(0),cnt(0),sum1(0),avgv1(0),sum2(0),avgv2(0),sum3(0),avgv3(0),sum4(0),avgv4(0),sum5(0),avgv5(0); Array : OO[50](0),HH[50](0),LL[50](0),CC[50](0); if (sdate != sdate[1] and stime >= 100000) or (sdate == sdate[1] and stime >= 100000 and stime[1] < 100000) Then{ Condition1 = true; OO[0] = O; HH[0] = H; LL[0] = L; for cnt = 1 to 49{ OO[cnt] = OO[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; CC[cnt] = CC[cnt-1][1]; } } if Condition1 == true then{ if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; CC[0] = C; } sum1 = 0; sum2 = 0; sum3 = 0; sum4 = 0; sum5 = 0; for cnt = 1 to P5{ if cnt <= P1 Then sum1 = sum1+(HH[cnt]-LL[cnt]); if cnt <= P2 Then sum2 = sum2+(HH[cnt]-LL[cnt]); if cnt <= P3 Then sum3 = sum3+(HH[cnt]-LL[cnt]); if cnt <= P4 Then sum4 = sum4+(HH[cnt]-LL[cnt]); if cnt <= P5 Then sum5 = sum5+(HH[cnt]-LL[cnt]); } #P1일 평균진폭 if HH[P1] > 0 Then avgv1 = sum1/P1; #P2일 평균진폭 if HH[P2] > 0 Then avgv2 = sum2/P2; #P3일 평균진폭 if HH[P3] > 0 Then avgv3 = sum3/P3; #P4일 평균진폭 if HH[P4] > 0 Then avgv4 = sum4/P4; #P5일 평균진폭 if HH[P5] > 0 Then avgv5 = sum5/P5; if avgv1 > 0 then{ plot2(avgv1/PriceScale,"1"); } if avgv2 > 0 then{ plot4(avgv2/PriceScale,"10"); } if avgv3 > 0 then{ plot6(avgv3/PriceScale,"20"); } if avgv4 > 0 then{ plot8(avgv4/PriceScale,"60"); } if avgv5 > 0 then{ plot10(avgv5/PriceScale,"120"); } #당일진폭과 n일 최고,최저진폭 if HH[n] > 0 and LL[n] > 0 then{ HR = HH[1]-LL[1]; LR = HH[1]-LL[1]; for cnt = 1 to N{ if HH[cnt]-LL[cnt] > HR Then HR = HH[cnt]-LL[cnt]; if HH[cnt]-LL[cnt] < LR Then LR = HH[cnt]-LL[cnt]; } plot21(HR/PriceScale,"최대진폭"); plot22(LR/PriceScale,"최소진폭"); } var1 = HH[0]; var2 = LL[0]; var3 = HH[0] - LL[0]; var4 = HH[0] - CC[0]; var5 = CC[0] - LL[0]; plot23(var4/PriceScale,"---고가-현재가"); plot24(var5/PriceScale,"+++현재가-저가"); plot25((var4+var5)/PriceScale/2,"중가"); plot26((var3-var5)/PriceScale,"눌림"); plot27((var1-var2)/PriceScale,"당일진폭"); plot28(z1,"기입"); 즐거운 하루되세요 > 마르뚝 님이 쓴 글입니다. > 제목 : 부탁드립니다 > 아래수식에서하면 항셍인덱스가 18시15분 정도에서 시작하던데 이걸 10시부터 새벽2시까지로 수정부탁드립니다 input : N(40),P1(1),P2(10),P3(20),P4(60),P5(120),z1(20); var : HR(0),LR(0),cnt(0),sum1(0),avgv1(0),sum2(0),avgv2(0),sum3(0),avgv3(0),sum4(0),avgv4(0),sum5(0),avgv5(0); sum1 = 0; sum2 = 0; sum3 = 0; sum4 = 0; sum5 = 0; for cnt = 1 to P5{ if cnt <= P1 Then sum1 = sum1+(dayhigh(cnt)-daylow(cnt)); if cnt <= P2 Then sum2 = sum2+(dayhigh(cnt)-daylow(cnt)); if cnt <= P3 Then sum3 = sum3+(dayhigh(cnt)-daylow(cnt)); if cnt <= P4 Then sum4 = sum4+(dayhigh(cnt)-daylow(cnt)); if cnt <= P5 Then sum5 = sum5+(dayhigh(cnt)-daylow(cnt)); } #P1일 평균진폭 if dayhigh(P1) > 0 Then avgv1 = sum1/P1; #P2일 평균진폭 if dayhigh(P2) > 0 Then avgv2 = sum2/P2; #P3일 평균진폭 if dayhigh(P3) > 0 Then avgv3 = sum3/P3; #P4일 평균진폭 if dayhigh(P4) > 0 Then avgv4 = sum4/P4; #P5일 평균진폭 if dayhigh(P5) > 0 Then avgv5 = sum5/P5; if avgv1 > 0 then{ plot2(avgv1/PriceScale,"1"); } if avgv2 > 0 then{ plot4(avgv2/PriceScale,"10"); } if avgv3 > 0 then{ plot6(avgv3/PriceScale,"20"); } if avgv4 > 0 then{ plot8(avgv4/PriceScale,"60"); } if avgv5 > 0 then{ plot10(avgv5/PriceScale,"120"); } #당일진폭과 n일 최고,최저진폭 HR = dayhigh(1)-daylow(1); LR = dayhigh(1)-daylow(1); for cnt = 1 to N{ if dayhigh(cnt)-daylow(cnt) > HR Then HR = dayhigh(cnt)-daylow(cnt); if dayhigh(cnt)-daylow(cnt) < LR Then LR = dayhigh(cnt)-daylow(cnt); } plot21(HR/PriceScale,"최대진폭"); plot22(LR/PriceScale,"최소진폭"); var1=dayhigh; var2=daylow; var3=dayhigh-daylow; var4=dayhigh-C; var5=C-daylow; plot23(var4/PriceScale,"---고가-현재가"); plot24(var5/PriceScale,"+++현재가-저가"); plot25((var4+var5)/PriceScale/2,"중가"); plot26((var3-var5)/PriceScale,"눌림"); plot27((var1-var2)/PriceScale,"당일진폭"); plot28(z1,"기입");