커뮤니티
CT를 예스랭귀지로 변환 부탁드려요
2009-07-06 16:55:24
675
글번호 23271
If BarNum > Len Then
sumX = 0
sumXS = 0
sumXY =0
sumY=0
For i = 1 To Len // Len은 입력변수임 (지표 계산 봉 수)
sumX = sumX + i
sumXS = sumXS + (i*i)
sumXY = sumXY + Close(i-1) * (Len+1-i)
sumY = sumY + Close(i-1)
Next
Var20 = (sumY*sumX - Len*sumXY)/(sumX*sumX-Len*sumXS)
End If
Call PlotI2("My Trend",Var20)
Call PlotI3("0",0)
답변 1
예스스탁 예스스탁 답변
2009-07-06 21:05:58
안녕하세요
예스스탁입니다.
input : len(10);
var : sumX(0),sumXS(0),sumXY(0),sumY(0),II(0);
If index > Len Then {
sumX = 0 ;
sumXS = 0;
sumXY =0 ;
sumY=0 ;
For ii = 1 To Len { // Len은 입력변수임 (지표 계산 봉 수)
sumX = sumX + ii;
sumXS = sumXS + (ii*ii) ;
sumXY = sumXY + Close[ii-1] * (Len+1-ii) ;
sumY = sumY + Close[ii-1] ;
}
Var20 = (sumY*sumX - Len*sumXY)/(sumX*sumX-Len*sumXS) ;
}
Plot1(var20,"My Trend") ;
Plot2(0,"0") ;
즐거운 하루되세요
> 날으는여우 님이 쓴 글입니다.
> 제목 : CT를 예스랭귀지로 변환 부탁드려요
> If BarNum > Len Then
sumX = 0
sumXS = 0
sumXY =0
sumY=0
For i = 1 To Len // Len은 입력변수임 (지표 계산 봉 수)
sumX = sumX + i
sumXS = sumXS + (i*i)
sumXY = sumXY + Close(i-1) * (Len+1-i)
sumY = sumY + Close(i-1)
Next
Var20 = (sumY*sumX - Len*sumXY)/(sumX*sumX-Len*sumXS)
End If
Call PlotI2("My Trend",Var20)
Call PlotI3("0",0)
이전글