안녕하세요 예스스탁입니다. 1. input : R(0.1); if date != date[1] Then{ var1 = H; var2 = L; } if crossup(C,Dayopen()+1) Then{ var1 = H; var2 = L; } if H > var1 Then var1 = H; if L < var2 Then var2 = L; if crossup(c,var1[1]) and var1[1] > var2[1]*(1+(R/100)) then buy(); if crossdown(c,var2[1]) and var1[1] > var2[1]*(1+(R/100)) then sell(); 2. input : ob(70),os(30),len(20),minn(20),maxx(70),len2(10); var : Var20(0),var30(0),var31(0),cond1(false),cond2(false); If index > 0 Then{ Var10=abs(close-close[1]); If index > (len - 1) And index > 5 And index > (Len2 - 1) Then{ If accumn(Var10,len)<>0 Then Var20=abs(close-close[len])/accumn(Var10,len); Else Var20=var20[1]; Var30=int(Var20*(maxx-minn)+minn); If Var30<minn then Var30=minn; If index >= Max(Max((Len - 1), 5), (Len2 - 1)) + 5 Then{ Var31=int(ma(Var30,5)); Var4=ema(fastk(Var31),len2); If crossup(Var4,ob) Then{ Var1=high+atr(10)*0.5; Cond1=True; Cond2=False; } Else if crossup(Var4,50) Then{ Var1=high+atr(10)*0.5; Cond1=True; Cond2=False; } Else if crossup(Var4,os) Then{ Var1=high+atr(10)*0.5; Cond1=True; Cond2=False; } Else Var1=var1[1]; If CrossDown(Var4,os) Then{ Var2=low-atr(10)*0.5; cond1 = False; Cond2=True; } Else if CrossDown(Var4,50) Then{ Var2=low-atr(10)*0.5; Cond1 = False; Cond2=True; } Else if crossdown(Var4,ob) Then{ Var2=low-atr(10)*0.5; Cond1 = False; Cond2=True; } Else Var2=var2[1]; If Var4>os And Var4>var4[1] And Cond1 Then buy("매수",Atstop,Var1); If Var4 <ob And Var4<var4[1] And Cond2 Then sell("매도",Atstop,Var2); } } } 즐거운 하루되세요 > 털보 님이 쓴 글입니다. > 제목 : 문의 > 두가지만 간단히문의 드립니다. 1번식은 이전 10개봉의 고저점 돌파식입니다. 이것을 시가+1포를 돌파한 이후의 봉부터 계산한 고저점식으로 변경 부탁 드립니다. 2번식은 예제에 있는 식인데, 식을 돌려보면 매수값이 계속 누적되어 나오네요 누적되지않게 부탁 드립니다. 즐거운하루 되세요... 1번*************** input : R(0.1); var1 = highest(C,10)[1]; var2 = Lowest(C,10)[1]; if crossup(c,var1) and var1 > var2*(1+(R/100)) then buy(); if crossdown(c,var2) and var1 > var2*(1+(R/100)) then sell(); 2번*********** input : ob(70),os(30),len(20),minn(20),maxx(70),len2(10); var : Var20(0),var30(0),var31(0),cond1(false),cond2(false); If index > 0 Then{ Var10=abs(close-close[1]); If index > (len - 1) And index > 5 And index > (Len2 - 1) Then{ If accumn(Var10,len)<>0 Then Var20=abs(close-close[len])/accumn(Var10,len); Else Var20=var20[1]; Var30=int(Var20*(maxx-minn)+minn); If Var30<minn then Var30=minn; If index >= Max(Max((Len - 1), 5), (Len2 - 1)) + 5 Then{ Var31=int(ma(Var30,5)); Var4=ema(fastk(Var31),len2); If crossup(Var4,ob) Then{ Var1=high+atr(10)*0.5; Cond1=True; Cond2=False; } Else if crossup(Var4,50) Then{ Var1=high+atr(10)*0.5; Cond1=True; Cond2=False; } Else if crossup(Var4,os) Then{ Var1=high+atr(10)*0.5; Cond1=True; Cond2=False; } Else Var1=var1[1]; If CrossDown(Var4,os) Then{ Var2=low-atr(10)*0.5; cond1 = False; Cond2=True; } Else if CrossDown(Var4,50) Then{ Var2=low-atr(10)*0.5; Cond1 = False; Cond2=True; } Else if crossdown(Var4,ob) Then{ Var2=low-atr(10)*0.5; Cond1 = False; Cond2=True; } Else Var2=var2[1]; If Var4>os And Var4>var4[1] And Cond1 Then buy("매수",Atstop,Def,Var1); If Var4 <ob And Var4<var4[1] And Cond2 Then sell("매도",Atstop,Var2); } } }