커뮤니티
수식 부탁합니다
2020-01-25 03:54:59
249
글번호 135409
TSI : True Strength Index(4,8,6,3)
일봉차트상에 주봉 TSI와 월봉 TSI Golden Cross와 Dead Cross 발생시
지표식을 부탁합니다
답변 1
예스스탁 예스스탁 답변
2020-01-28 14:59:32
안녕하세요
예스스탁입니다.
1
Input : R(4),S(8),U(6),SMTHLEN(3);
var : ww(0),wep1(0),wep2(0),wep3(0),wep4(0),wc1(0),wprice1(0),wprice2(0);
var : wxma1(0),prewxma1(0);
var : wxma2(0),prewxma2(0);
var : wxma3(0),prewxma3(0);
var : wxma4(0),prewxma4(0);
var : wxma5(0),prewxma5(0);
var : wxma6(0),prewxma6(0);
var : wTSI(0),wTSIs(0),prewTSIs(0);
wep1 = 2/(R+1);
wep2 = 2/(S+1);
wep3 = 2/(U+1);
wep4 = 2/(SMTHLEN+1);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) then
{
ww= ww + 1;
wc1 = C[1];
prewxma1 = wxma1[1];
prewxma2 = wxma2[1];
prewxma3 = wxma3[1];
prewxma4 = wxma4[1];
prewxma5 = wxma5[1];
prewxma6 = wxma6[1];
prewTSIs = wTSIs[1];
}
wPrice1 = C-wc1;
wPrice2 = abs(C-wc1);
if ww <= 1 then
{
wxma1 = wprice1;
wxma2 = wxma1;
wxma3 = wxma2;
wxma4 = wprice2;
wxma5 = wxma4;
wxma6 = wxma5;
If wxma6 <> 0 then
wTSI = (wxma3 / wxma6)*100;
Else
wTSI = 0;
wTSIs = wTSI;
}
else
{
wxma1 = wPrice1 * wep1 + prewxma1 * (1-wep1);
wxma2 = wxma1 * wep2 + prewxma2 * (1-wep2);
wxma3 = wxma2 * wep3 + prewxma3 * (1-wep3);
wxma4 = wPrice2 * wep1 + prewxma4 * (1-wep1);
wxma5 = wxma4 * wep2 + prewxma5 * (1-wep2);
wxma6 = wxma5 * wep3 + prewxma6 * (1-wep3);
If wxma6 <> 0 then
wTSI = (wxma3 / wxma6)*100;
Else
wTSI = 0;
wTSIs = wTSI * wep4 + prewTSIs * (1-wep4);
}
plot1(wTSI);
plot2(wTSIs);
2
Input : R(4),S(8),U(6),SMTHLEN(3);
var : mm(0),mep1(0),mep2(0),mep3(0),mep4(0),mc1(0),mprice1(0),mprice2(0);
var : mxma1(0),premxma1(0);
var : mxma2(0),premxma2(0);
var : mxma3(0),premxma3(0);
var : mxma4(0),premxma4(0);
var : mxma5(0),premxma5(0);
var : mxma6(0),premxma6(0);
var : mTSI(0),mTSIs(0),premTSIs(0);
mep1 = 2/(R+1);
mep2 = 2/(S+1);
mep3 = 2/(U+1);
mep4 = 2/(SMTHLEN+1);
if bdate > bdate[1]+30 then
{
mm= mm + 1;
mc1 = C[1];
premxma1 = mxma1[1];
premxma2 = mxma2[1];
premxma3 = mxma3[1];
premxma4 = mxma4[1];
premxma5 = mxma5[1];
premxma6 = mxma6[1];
premTSIs = mTSIs[1];
}
mPrice1 = C-mc1;
mPrice2 = abs(C-mc1);
if mm <= 1 then
{
mxma1 = mprice1;
mxma2 = mxma1;
mxma3 = mxma2;
mxma4 = mprice2;
mxma5 = mxma4;
mxma6 = mxma5;
If mxma6 <> 0 then
mTSI = (mxma3 / mxma6)*100;
Else
mTSI = 0;
mTSIs = mTSI;
}
else
{
mxma1 = mPrice1 * mep1 + premxma1 * (1-mep1);
mxma2 = mxma1 * mep2 + premxma2 * (1-mep2);
mxma3 = mxma2 * mep3 + premxma3 * (1-mep3);
mxma4 = mPrice2 * mep1 + premxma4 * (1-mep1);
mxma5 = mxma4 * mep2 + premxma5 * (1-mep2);
mxma6 = mxma5 * mep3 + premxma6 * (1-mep3);
If mxma6 <> 0 then
mTSI = (mxma3 / mxma6)*100;
Else
mTSI = 0;
mTSIs = mTSI * mep4 + premTSIs * (1-mep4);
}
plot1(mTSI);
plot2(mTSIs);
즐거운 하루되세요
> 미래테크 님이 쓴 글입니다.
> 제목 : 수식 부탁합니다
> TSI : True Strength Index(4,8,6,3)
일봉차트상에 주봉 TSI와 월봉 TSI Golden Cross와 Dead Cross 발생시
지표식을 부탁합니다