안녕하세요 예스스탁입니다. 저희 문법에 맞춰 변경한식입니다. 지표와 시스템입니다. 1. input :len1(5); var : ii(0),j(0); Array : hvalue[10,2](0),lvalue[10,2](0); If SwingHighBar(1,high,len1,len1,len1+len1+1) == len1 Then{ Var1=999999; For ii = 9 downTo 1 { hvalue[ii,0] = hvalue[ii-1,0]; hvalue[ii,1] = hvalue[ii-1,1]; } hvalue[0,0] = SwingHigh(1,high,len1,len1,len1+len1+1); hvalue[0,1] = index; For j = 1 To 9{ If hvalue[j,0] > hvalue[0,0] Then{ Var1=j; j=11; } } If Var1<=10 then{ If (hvalue[0,1]- hvalue[Var1,1])*SwingHighBar(1,high,len1,len1,len1+len1+1) +hvalue[0,0] <> 0 then{ Var10=(hvalue[0,0]-hvalue[Var1,0])/(hvalue[0,1]-hvalue[Var1,1]) * SwingHighBar(1,high,len1,len1,len1+len1+1)+hvalue[0,0]; } } #Else # Var10=999999; } If SwingLowBar(1,Low,len1,len1,len1+len1+1) == len1 then{ Var2=999999; For ii = 9 downTo 1 { lvalue[ii,0] = lvalue[ii-1,0]; lvalue[ii,1] = lvalue[ii-1,1]; } lvalue[0,0] = SwingLow(1,Low,len1,len1,len1+len1+1); lvalue[0,1] = index; For j = 1 To 9 { If lvalue[j,0] < lvalue[0,0] then{ Var2=j; j=11; } } If Var2<=10 then{ If (hvalue[0,1]- hvalue[Var2,1])*SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]<>0 then{ Var11=(lvalue[0,0]-lvalue[Var2,0])/(lvalue[0,1]-lvalue[Var2,1])* SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]; } } #Else # Var11=99999; } plot1(var10); plot2(var11); 2 input :len1(5); var : ii(0),j(0); Array : hvalue[10,2](0),lvalue[10,2](0); If SwingHighBar(1,high,len1,len1,len1+len1+1) == len1 Then{ Var1=999999; For ii = 9 downTo 1 { hvalue[ii,0] = hvalue[ii-1,0]; hvalue[ii,1] = hvalue[ii-1,1]; } hvalue[0,0] = SwingHigh(1,high,len1,len1,len1+len1+1); hvalue[0,1] = index; For j = 1 To 9{ If hvalue[j,0] > hvalue[0,0] Then{ Var1=j; j=11; } } If Var1<=10 then{ If (hvalue[0,1]- hvalue[Var1,1])*SwingHighBar(1,high,len1,len1,len1+len1+1) +hvalue[0,0] <> 0 then{ Var10=(hvalue[0,0]-hvalue[Var1,0])/(hvalue[0,1]-hvalue[Var1,1]) * SwingHighBar(1,high,len1,len1,len1+len1+1)+hvalue[0,0]; } } Else Var10=999999; } If SwingLowBar(1,Low,len1,len1,len1+len1+1) == len1 then{ Var2=999999; For ii = 9 downTo 1 { lvalue[ii,0] = lvalue[ii-1,0]; lvalue[ii,1] = lvalue[ii-1,1]; } lvalue[0,0] = SwingLow(1,Low,len1,len1,len1+len1+1); lvalue[0,1] = index; For j = 1 To 9 { If lvalue[j,0] < lvalue[0,0] then{ Var2=j; j=11; } } If Var2<=10 then{ If (hvalue[0,1]- hvalue[Var2,1])*SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]<>0 then{ Var11=(lvalue[0,0]-lvalue[Var2,0])/(lvalue[0,1]-lvalue[Var2,1])* SwingLowBar(1,Low,len1,len1,len1+len1+1)+lvalue[0,0]; } } Else Var11=99999; } If bdate <> bdate[1] then{ Var50 = TotalTrades; } If TotalTrades-var50 == 0 then{ If stime < 150000 then{ If high<var10 And Var1<=10 then{ buy("매수",Atstop,Var10); } If low>var11 And Var2<=10 then{ sell("매도",Atstop,Var11); } } } 즐거운 하루되세요 > 장군 님이 쓴 글입니다. > 제목 : 문의드립니다 > 입벽변수 :len1(5) settestmode 'array 이용 추세선 구하기 Set hvalue=Arrays(10,2) Set lvalue=Arrays(10,2) If shba(1,high,len1,len1)=len1 Then '스윙고가형성 봉이 이전 len1봉째라면 Var1=999999 'var1 초기화 For i = 9 To 1 Step - 1 hvalue(i,0)=hvalue(i-1,0) 'hvalue(n,0) 값 설정 hvalue(i,1)=hvalue(i-1,1) 'hvalue(n,1) 값 설정 Next hvalue(0,0)=shva(1,high,len1,len1) '스윙고가값 할당 hvalue(0,1)=barnum 'barnum할당 For j = 1 To 9 If hvalue(j,0)>hvalue(0,0) Then 'j값을 증가시키며 hvalue(0,0)과 비교해서 Var1=j 'var1 결정 j=11 End If Next End If If Var1<=10 Then If (hvalue(0,1)- hvalue(Var1,1))*shba(1,high,len1,len1)+hvalue(0,0)<>0 Then Var10=(hvalue(0,0)-hvalue(Var1,0))/(hvalue(0,1)-hvalue(Var1,1)) _ * shba(1,high,len1,len1)+hvalue(0,0) '추세선 End If Else Var10=999999 End If If slba(1,low,len1,len1)=len1 Then '스윙저가형성 봉이 이전 len1봉째라면 Var2=999999 For i = 9 To 1 Step - 1 lvalue(i,0)=lvalue(i-1,0) 'lvalue(n,0) 값 설정 lvalue(i,1)=lvalue(i-1,1) 'lvalue(n,1) 값 설정 Next lvalue(0,0)=slva(1,low,len1,len1) '스윙저가값 할당 lvalue(0,1)=barnum 'barnum할당 For j = 1 To 9 If lvalue(j,0)<lvalue(0,0) Then 'j값을 증가시키며 lvalue(0,0)과 비교해서 Var2=j 'var2값 결정 j=11 End If Next End If If Var2<=10 Then 'var2 값이 10이하이면 If (hvalue(0,1)- hvalue(Var2,1))*slba(1,low,len1,len1)+lvalue(0,0)<>0 Then Var11=(lvalue(0,0)-lvalue(Var2,0))/(lvalue(0,1)-lvalue(Var2,1)) _ * slba(1,low,len1,len1)+lvalue(0,0) '추세선 End If Else Var11=99999 End If If tdate<>tdate(1) Then Var50=currententrynum End If '하루에 한번 진입 If currententrynum-var50 = 0 Then If ttime<1500 Then If high<var10 And Var1<=10 Then Call buy("매수",Atstop,Def,Var10) '지정가 상향돌파시 매수 End If If low>var11 And Var2<=10 Then Call sell("매도",Atstop,Def,Var11) '지정가 하향돌파시 매도 End If End If End If 대신수식입니다 에스로추세선지표만변경부탁드립니다 색상은 상단추세선검정색 하단추세선 블루 색두께는3정도로 ~~미리 감사드립니다 `