안녕하세요 예스스탁입니다. input : Period(120); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); Array: HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0); var : tx1(0),tx2(0),tx3(0),tx4(0); var : tx99(0),tx99count(0),l1(0),l2(0),l3(0),l4(0),A2(0),A3(0); var : tx98count(0),h1(0),h2(0),h3(0),h4(0),b2(0),b3(0); var : tx5(0),tx6(0),tx7(0); Plot1(value12); 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]; } LoVal[0] = L; LoBar[0] = 0; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; Condition99 = False; tx99count = 0; } Else { If LoVal[0] >= L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date22 = date[0]; time22 = stime[0]; Condition99 = False; } Else { if Condition99 == False and value12 <= value11-0.5 and H >= value12+PriceScale*3 Then { Condition99 = true; l1 = value12; l2 = l1[1]; l3 = l2[1]; l4 = l3[1]; tx99count = tx99count+1; A2 = 0; if tx99count >= 2 Then { if max(L1,L2) <= min(L1,L2)+PriceScale*2 Then { A2 = 1; tx2 = Text_New(date12,time12,L1-PriceScale*0,"●"); Text_SetStyle(tx2,2,2); Text_SetColor(tx2,Cyan); Text_SetSize(tx2,30); } } A3 = 0; if tx99count >= 3 Then { if max(L1,L2,L3) <= min(L1,L2,L3)+PriceScale*5 Then { A3 = 1; tx3 = Text_New(date12,time12,L1-PriceScale*0,"●"); Text_SetStyle(tx3,2,2); Text_SetColor(tx3,Black); Text_SetSize(tx3,25); } } if A2 == 1 and A3 == 1 Then { tx4 = Text_New(date12,time12,L1-PriceScale*0,"●"); Text_SetStyle(tx4,2,2); Text_SetColor(tx4,Gray); Text_SetSize(tx4,40); } } } } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; } HiVal[0] = H; HiBar[0] = 0; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; Condition98 = False; tx98count = 0; } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date32 = date[0]; time32 = stime[0]; Condition98 = False; } Else { if Condition98 == False and value12 >= value11+0.5 and L <= value12-PriceScale*3 Then { Condition98 = true; h1 = value12; h2 = h1[1]; h3 = h2[1]; h4 = h3[1]; tx98count = tx98count+1; B2 = 0; if tx98count >= 2 Then { if max(H1,H2) <= min(H1,H2)+PriceScale*2 Then { B2 = 1; tx5 = Text_New(date12,time12,H1+PriceScale*0,"●"); Text_SetStyle(tx5,2,2); Text_SetColor(tx5,Cyan); Text_SetSize(tx5,30); } } B3 = 0; if tx98count >= 3 Then { if max(H1,H2,H3) <= min(H1,H2,H3)+PriceScale*5 Then { B3 = 1; tx6 = Text_New(date12,time12,H1+PriceScale*0,"●"); Text_SetStyle(tx6,2,2); Text_SetColor(tx6,Black); Text_SetSize(tx6,25); } } if B2 == 1 and B3 == 1 Then { tx7 = Text_New(date12,time12,H1+PriceScale*0,"●"); Text_SetStyle(tx7,2,2); Text_SetColor(tx7,Gray); Text_SetSize(tx7,40); } } } } 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 수정부탁드립니다 > 하락만표시되데 상승도표시 부탁드립니다. input : Period(120); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); Array: HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0); var : tx1(0),tx2(0),tx3(0),tx4(0); var : tx99(0),tx99count(0),l1(0),l2(0),l3(0),l4(0),A2(0),A3(0); Plot1(value12); 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]; } LoVal[0] = L; LoBar[0] = 0; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; Condition99 = False; tx99count = 0; } Else { If LoVal[0] >= L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date22 = date[0]; time22 = stime[0]; Condition99 = False; } Else { if Condition99 == False and value12 <= value11-0.5 and H >= value12+PriceScale*3 Then { Condition99 = true; l1 = value12; l2 = l1[1]; l3 = l2[1]; l4 = l3[1]; tx99count = tx99count+1; A2 = 0; if tx99count >= 2 Then { if max(L1,L2) <= min(L1,L2)+PriceScale*2 Then { A2 = 1; tx2 = Text_New(date12,time12,L1-PriceScale*0,"●"); Text_SetStyle(tx2,2,2); Text_SetColor(tx2,Cyan); Text_SetSize(tx2,30); } } A3 = 0; if tx99count >= 3 Then { if max(L1,L2,L3) <= min(L1,L2,L3)+PriceScale*5 Then { A3 = 1; tx3 = Text_New(date12,time12,L1-PriceScale*0,"●"); Text_SetStyle(tx3,2,2); Text_SetColor(tx3,Black); Text_SetSize(tx3,25); } } if A2 == 1 and A3 == 1 Then { tx4 = Text_New(date12,time12,L1-PriceScale*0,"●"); Text_SetStyle(tx4,2,2); Text_SetColor(tx4,Gray); Text_SetSize(tx4,40); } } } } }