커뮤니티
수식좀 수정 드립니다..
2020-02-06 21:49:42
170
글번호 135710
* 항상 많은 도움에 고맙 습니다.
* 아래 수식이 당일 아침 부터 새롭게 시작 되는데요.
그냥 계속 연속되게 연결 부탁 좀 드립니다.
## 아래 수식
Input: Period(5);
Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0);
var : cnt(0),accum1(0),accum2(0),accum3(0),accum4(0),lrlv(0),preLRLv(0),TSF(0);
If Period == 0 Then
LRSv = 0;
SumBars = Period * (Period - 1) * 0.5;
SumSqrBars = (Period - 1) * Period * (2 * Period - 1) / 6;
Sum1 = 0;
SumY = 0;
accum1 = 0;
accum2 = 0;
accum3 = 0;
accum4 = 0;
For cnt = 0 To Period - 1 Begin
Sum1= Sum1 + cnt * DayClose(cnt);
SumY = SumY + DayClose(cnt);
accum1 = accum1+(Period-cnt);
accum2 = accum2+dayclose(cnt);
accum3 = accum3+dayclose(cnt)*(Period-cnt);
accum4 = accum4+(Period-cnt)^2;
End;
Sum2 = SumBars * SumY;
Num1 = Period * Sum1 - Sum2;
Num2 = SumBars * SumBars - Period * SumSqrBars;
If Num2 != 0 Then
LRSv = Num1 / Num2;
Else
LRSv = 0;
value1 = accum1/Period;
value2 = accum2/Period;
value3 = accum3/Period;
value4 = accum4/Period;
LRLv = (value3 - value1 * value2) / (value4 - (value1^2)) * (Period - value1) + value2;
TSF = LRLv+LRSv;
plot1(TSF);
* 항상 많은 도움 정말 고맙습니다. ^.^
답변 3
예스스탁 예스스탁 답변
2020-02-07 14:19:12
안녕하세요
예스스탁입니다.
올려주신 수식은 분봉이하 주기에서 일봉의 TSF를 그리는 지표식입니다.
연속되게 처리할 방법을 모르겠습니다.
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식좀 수정 드립니다..
> * 항상 많은 도움에 고맙 습니다.
* 아래 수식이 당일 아침 부터 새롭게 시작 되는데요.
그냥 계속 연속되게 연결 부탁 좀 드립니다.
## 아래 수식
Input: Period(5);
Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0);
var : cnt(0),accum1(0),accum2(0),accum3(0),accum4(0),lrlv(0),preLRLv(0),TSF(0);
If Period == 0 Then
LRSv = 0;
SumBars = Period * (Period - 1) * 0.5;
SumSqrBars = (Period - 1) * Period * (2 * Period - 1) / 6;
Sum1 = 0;
SumY = 0;
accum1 = 0;
accum2 = 0;
accum3 = 0;
accum4 = 0;
For cnt = 0 To Period - 1 Begin
Sum1= Sum1 + cnt * DayClose(cnt);
SumY = SumY + DayClose(cnt);
accum1 = accum1+(Period-cnt);
accum2 = accum2+dayclose(cnt);
accum3 = accum3+dayclose(cnt)*(Period-cnt);
accum4 = accum4+(Period-cnt)^2;
End;
Sum2 = SumBars * SumY;
Num1 = Period * Sum1 - Sum2;
Num2 = SumBars * SumBars - Period * SumSqrBars;
If Num2 != 0 Then
LRSv = Num1 / Num2;
Else
LRSv = 0;
value1 = accum1/Period;
value2 = accum2/Period;
value3 = accum3/Period;
value4 = accum4/Period;
LRLv = (value3 - value1 * value2) / (value4 - (value1^2)) * (Period - value1) + value2;
TSF = LRLv+LRSv;
plot1(TSF);
* 항상 많은 도움 정말 고맙습니다. ^.^
요타
2020-02-07 15:15:35
1. 분봉이하 주기에서 120분봉 TSF를 그리는 지표식 좀 부탁 드리겠습니다.
2. ma(c,5)
ma(c,20) 에 대하여 moving average oscillator 부탁 좀 드리겠습니다.
고맙습니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식좀 수정 드립니다..
>
안녕하세요
예스스탁입니다.
올려주신 수식은 분봉이하 주기에서 일봉의 TSF를 그리는 지표식입니다.
연속되게 처리할 방법을 모르겠습니다.
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식좀 수정 드립니다..
> * 항상 많은 도움에 고맙 습니다.
* 아래 수식이 당일 아침 부터 새롭게 시작 되는데요.
그냥 계속 연속되게 연결 부탁 좀 드립니다.
## 아래 수식
Input: Period(5);
Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0);
var : cnt(0),accum1(0),accum2(0),accum3(0),accum4(0),lrlv(0),preLRLv(0),TSF(0);
If Period == 0 Then
LRSv = 0;
SumBars = Period * (Period - 1) * 0.5;
SumSqrBars = (Period - 1) * Period * (2 * Period - 1) / 6;
Sum1 = 0;
SumY = 0;
accum1 = 0;
accum2 = 0;
accum3 = 0;
accum4 = 0;
For cnt = 0 To Period - 1 Begin
Sum1= Sum1 + cnt * DayClose(cnt);
SumY = SumY + DayClose(cnt);
accum1 = accum1+(Period-cnt);
accum2 = accum2+dayclose(cnt);
accum3 = accum3+dayclose(cnt)*(Period-cnt);
accum4 = accum4+(Period-cnt)^2;
End;
Sum2 = SumBars * SumY;
Num1 = Period * Sum1 - Sum2;
Num2 = SumBars * SumBars - Period * SumSqrBars;
If Num2 != 0 Then
LRSv = Num1 / Num2;
Else
LRSv = 0;
value1 = accum1/Period;
value2 = accum2/Period;
value3 = accum3/Period;
value4 = accum4/Period;
LRLv = (value3 - value1 * value2) / (value4 - (value1^2)) * (Period - value1) + value2;
TSF = LRLv+LRSv;
plot1(TSF);
* 항상 많은 도움 정말 고맙습니다. ^.^
예스스탁 예스스탁 답변
2020-02-07 15:54:21
안녕하세요
예스스탁입니다.
1
input : ntime1(120),P(14);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : LRSv(0),SumBars(0),SumSqrBars(0),accum1(0),accum2(0),accum3(0);
var : SumY(0),num1(0),num2(0);
var : sum1(0),sum2(0),sum3(0),sum4(0),mav1(0),mav2(0),mav3(0),mav4(0),LRLv(0);
var : TSFv(0);
Array : C1[100](0),AccumValue[100](0);
if P == 0 Then
LRSv = 0;
SumBars = P * (P - 1) * .5;
SumSqrBars = (P - 1) * P * (2 * P - 1) / 6;
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
AccumValue[0] = AccumValue[0]+1;
for cnt = 1 to 49
{
C1[cnt] = C1[cnt-1][1];
AccumValue[cnt] = AccumValue[cnt-1][1];
}
}
C1[0] = C;
if C1[P] > 0 then
{
sum1 = 0;
sum2 = 0;
sum3 = 0;
sum4 = 0;
accum1 = 0;
accum3 = 0;
For cnt = 0 To P - 1
{
sum1 = sum1 + AccumValue[cnt];
sum2 = sum2 + C1[cnt];
sum3 = sum3 + C1[cnt]*AccumValue[cnt];
sum4 = sum4 + AccumValue[cnt]^2;
accum1= accum1 + cnt * C1[cnt];
accum3= accum3 + C1[cnt];
}
mav1 = sum1/P;
mav2 = sum2/P;
mav3 = sum3/P;
mav4 = sum4/P;
LRLv = (mav3 - mav1 * mav2) /(mav4 - (mav1^2)) * (AccumValue[0] - mav1) + mav2;
SumY = accum3;
accum2 = SumBars * SumY;
Num1 = P * accum1 - accum2;
Num2 = SumBars * SumBars - P * SumSqrBars;
If Num2 != 0 Then
LRSv = Num1 / Num2;
Else
LRSv = 0;
TSFv = LRLv+LRSv;
plot1(TSFv);
}
}
2
Input : shortPeriod(5), longPeriod(20);
var : mao(0);
mao = ma(C,shortPeriod)-ma(C,longPeriod);
if MAO > 0 Then
{
plot1(mao,"MAO",RED);
}
Else
{
plot1(mao,"MAO",BLUE);
}
PlotBaseLine1(0, "기준선");
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : Re : Re : moving average oscillator 부탁 좀 드리겠습니다.
> 1. 분봉이하 주기에서 120분봉 TSF를 그리는 지표식 좀 부탁 드리겠습니다.
2. ma(c,5)
ma(c,20) 에 대하여 moving average oscillator 부탁 좀 드리겠습니다.
고맙습니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식좀 수정 드립니다..
>
안녕하세요
예스스탁입니다.
올려주신 수식은 분봉이하 주기에서 일봉의 TSF를 그리는 지표식입니다.
연속되게 처리할 방법을 모르겠습니다.
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식좀 수정 드립니다..
> * 항상 많은 도움에 고맙 습니다.
* 아래 수식이 당일 아침 부터 새롭게 시작 되는데요.
그냥 계속 연속되게 연결 부탁 좀 드립니다.
## 아래 수식
Input: Period(5);
Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0);
var : cnt(0),accum1(0),accum2(0),accum3(0),accum4(0),lrlv(0),preLRLv(0),TSF(0);
If Period == 0 Then
LRSv = 0;
SumBars = Period * (Period - 1) * 0.5;
SumSqrBars = (Period - 1) * Period * (2 * Period - 1) / 6;
Sum1 = 0;
SumY = 0;
accum1 = 0;
accum2 = 0;
accum3 = 0;
accum4 = 0;
For cnt = 0 To Period - 1 Begin
Sum1= Sum1 + cnt * DayClose(cnt);
SumY = SumY + DayClose(cnt);
accum1 = accum1+(Period-cnt);
accum2 = accum2+dayclose(cnt);
accum3 = accum3+dayclose(cnt)*(Period-cnt);
accum4 = accum4+(Period-cnt)^2;
End;
Sum2 = SumBars * SumY;
Num1 = Period * Sum1 - Sum2;
Num2 = SumBars * SumBars - Period * SumSqrBars;
If Num2 != 0 Then
LRSv = Num1 / Num2;
Else
LRSv = 0;
value1 = accum1/Period;
value2 = accum2/Period;
value3 = accum3/Period;
value4 = accum4/Period;
LRLv = (value3 - value1 * value2) / (value4 - (value1^2)) * (Period - value1) + value2;
TSF = LRLv+LRSv;
plot1(TSF);
* 항상 많은 도움 정말 고맙습니다. ^.^
다음글
이전글