안녕하세요 예스스탁입니다. Inputs : Period(20), Sence(1.5), CC_DN(Yellow); Vars: VLineUp1(0,Data1), VLineDn1(0,Data1), HHighest1(0,Data1), LLowest1(0,Data1), JustChanged1(FALSE,Data1), VLine1(0), DBN1(0,Data1); Array: Highs1[35](0,Data1), Lows1[35](0,Data1), RRange1[35](0,Data1), UpWave1[1](FALSE,Data1), DnWave1[1](FALSE,Data1); var : var1(0,data1),var2(0,data1),var3(0,data1),var5(0,data1),var6(0,data1),t1(0,Data1); If data1(STime == 180000) Then DBN1 = 0; DBN1 = DBN1 + 1; var1 = Period; var2 = var1 - 1; var3 = var1 - 2; var5 = Sence; var6 = data1(H-L); JustChanged1 = FALSE; if data1(CurrentBar <= var2) then begin Highs1[CurrentBar] = data1(Close); Lows1[CurrentBar] = data1(Close); RRange1[CurrentBar] = Data1((H-L) /2); end; if data1(CurrentBar == var1) then begin if Highs1[var2] >= Highs1[var3] then begin UpWave1[1] = TRUE; HHighest1 = Highs1[var2]; VLineUp1 = HHighest1 - (var5 * data1(MA(var6,var2))); #Plot1(VLineUp,"VLineUp"); end; if Highs1[var2] < Highs1[var3] then begin DnWave1[1] = TRUE; LLowest1 = Lows1[var2]; VLineDn1 = LLowest1 + (var5 * data1(MA(var6,var2))); #Plot2(VLineDn,"VLineDn"); end; end; if data1(CurrentBar > var1) then begin if DnWave1[1] and data1(Close) > VLineDn1 then begin DnWave1[1] = FALSE; UpWave1[1] = TRUE; JustChanged1 = TRUE; HHighest1 = data1(Close); LLowest1 = 0; end; if UpWave1[1] and data1(Close) < VLineUp1 and JustChanged1 == FALSE then begin UpWave1[1] = FALSE; DnWave1[1] = TRUE; JustChanged1 = TRUE; LLowest1 = data1(Close); HHighest1 = 0; end; if JustChanged1 == FALSE then begin if data1(Close) > HHighest1 then HHighest1 = data1(Close); else if data1(Close) < LLowest1 then LLowest1 = data1(Close); end; VLineUp1 = HHighest1 - (Var5 * MA(Var6,Var2)); VLineDn1 = LLowest1 + (Var5 * MA(Var6,Var2)); if UpWave1[1] then t1 = 1; else if DnWave1[1] then t1 = -1; end; Vars: VLineUp2(0,Data2), VLineDn2(0,Data2), HHighest2(0,Data2), LLowest2(0,Data2), JustChanged2(FALSE,Data2), VLine2(0), DBN2(0,Data2); Array: Highs2[35](0,Data2), Lows2[35](0,Data2), RRange2[35](0,Data2), UpWave2[1](FALSE,Data2), DnWave2[1](FALSE,Data2); var : v1(0,data2),v2(0,data2),v3(0,data2),v5(0,data2),v6(0,data2),t2(0,Data2); If data2(STime == 180000) Then DBN2 = 0; DBN2 = DBN2 + 1; V1 = Period; V2 = V1 - 1; V3 = V1 - 2; V5 = Sence; V6 = data2(H-L); JustChanged2 = FALSE; if data2(CurrentBar <= V2) then begin Highs2[CurrentBar] = data2(Close); Lows2[CurrentBar] = data2(Close); RRange2[CurrentBar] = Data2((H-L) /2); end; if data2(CurrentBar == V1) then begin if Highs2[V2] >= Highs2[V3] then begin UpWave2[1] = TRUE; HHighest2 = Highs2[V2]; VLineUp2 = HHighest2 - (V5 * data2(MA(V6,V2))); #Plot1(VLineUp,"VLineUp"); end; if Highs2[V2] < Highs2[V3] then begin DnWave2[1] = TRUE; LLowest2 = Lows2[V2]; VLineDn2 = LLowest2 + (V5 * data2(MA(V6,V2))); #Plot2(VLineDn,"VLineDn"); end; end; if data2(CurrentBar > V1) then begin if DnWave2[1] and data2(Close) > VLineDn2 then begin DnWave2[1] = FALSE; UpWave2[1] = TRUE; JustChanged2 = TRUE; HHighest2 = data2(Close); LLowest2 = 0; end; if UpWave2[1] and data2(Close) < VLineUp2 and JustChanged2 == FALSE then begin UpWave2[1] = FALSE; DnWave2[1] = TRUE; JustChanged2 = TRUE; LLowest2 = data2(Close); HHighest2 = 0; end; if JustChanged2 == FALSE then begin if data2(Close) > HHighest2 then HHighest2 = data2(Close); else if data2(Close) < LLowest2 then LLowest2 = data2(Close); end; VLineUp2 = HHighest2 - (V5 * data2(MA(V6,V2))); VLineDn2 = LLowest2 + (V5 * data2(MA(V6,V2))); if UpWave2[1] then t2 = 1; else if DnWave2[1] then t2 = -1; end; if t1 == 1 and t1 != t1[1] and data1(c > ma(c,170)) and t2 == 1 Then Buy(); if t1 == -1 and t1 != t1[1] and data1(c < ma(c,170)) and t2 == -1 Then Sell(); 즐거운 하루되세요 > 아트정 님이 쓴 글입니다. > 제목 : 추가식 > Inputs : Period(20), Sence(1.5), CC_DN(Yellow); Vars: VLineUp(0), VLineDn(0), HHighest(0), LLowest(0), JustChanged(FALSE), VLine(0), DBN(0); Array: Highs[35](0), Lows[35](0), RRange[35](0), UpWave[1](FALSE), DnWave[1](FALSE); var : t(0); If STime == 180000 Then DBN = 0; DBN = DBN + 1; Var1 = Period; Var2 = Var1 - 1; Var3 = Var1 - 2; Var5 = Sence; Var6 = H-L; JustChanged = FALSE; if CurrentBar <= Var2 then begin Highs[CurrentBar] = Close; Lows[CurrentBar] = Close; RRange[CurrentBar] = (H-L) /2; end; if CurrentBar == Var1 then begin if Highs[Var2] >= Highs[Var3] then begin UpWave[1] = TRUE; HHighest = Highs[Var2]; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); #Plot1(VLineUp,"VLineUp"); end; if Highs[Var2] < Highs[Var3] then begin DnWave[1] = TRUE; LLowest = Lows[Var2]; VLineDn = LLowest + (Var5 * MA(Var6,Var2)); #Plot2(VLineDn,"VLineDn"); end; end; if CurrentBar > Var1 then begin if DnWave[1] and Close > VLineDn then begin DnWave[1] = FALSE; UpWave[1] = TRUE; JustChanged = TRUE; HHighest = Close; LLowest = 0; end; if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin UpWave[1] = FALSE; DnWave[1] = TRUE; JustChanged = TRUE; LLowest = Close; HHighest = 0; end; if JustChanged == FALSE then begin if Close > HHighest then HHighest = Close; else if Close < LLowest then LLowest = Close; end; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); VLineDn = LLowest + (Var5 * MA(Var6,Var2)); if UpWave[1] then t = 1; else if DnWave[1] then t = -1; end; if t == 1 and t != t[1] and c > ma(c,170) Then Buy(); if t == -1 and t != t[1] and c < ma(c,170) Then Sell(); 안녕하세요 위식에서 참조 추가식 부탁드립니다 date 2 참조 데이텅 2 일치할때 5분봉이 양선일때 매수 5분봉이 음선일때 매도