커뮤니티
수식좀 요청 드립니다
2023-06-01 20:27:34
1030
글번호 169467
항상 많은 도움에 고맙습니다.
<요청1>
아래 수식 선으로 완성 요청 드립니다.
제가 해보니가 선으로 안나오고 "0"선 기준 으로 상하로 나오네요....
지표 선으로 나왔으면 합니다.
## 기준: 60일 이평선 - 60일 이평선[1]
######
a = avg(c,60);
b = (a(0)/c) - (a(1)/c);
######
<요청2>
아래 수식에서 수치가 찍히면
고점 이면 그봉 고가에서 수평선 우축으로 10봉 까지 표시
저점에 수치가 찍히면 저점에 수평선 표시 좀 요청 드립니다.
####
Input : Period(90), Period91(20), Period92(240) ;
var : LRLv(0),S(0);
var : LRLv91(0),S91(0);
var : LRLv92(0),S92(0);
LRLv = LRL(C,Period);
LRLv91 = LRL(C,Period91);
LRLv92 = LRL(C,Period92);
if LRLv > LRLv[1] Then
S = 1;
if LRLv < LRLv[1] Then
S = -1;
if S == 1 Then
var1 = LRLv;
if S == -1 Then
var2 = LRLv;
Input : length(5),종가사용여부(0),굵기(1),텍스트크기(11);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL(0),Text1(0),TL1(0),TL2(0),TL11(0),TL21(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(text1,텍스트크기);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
TL_SetEnd(TL11,고[1,3],고[1,4],고[2,1]);
TL_SetBegin(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL21,저[2,3],저[2,4],저[2,1]);
TL_SetSize(TL,1);
TL_SetColor(TL,Cyan);
TL_SetSize(TL2,2);
TL_SetColor(TL2,Green);
TL_SetSize(TL21,1);
TL_SetColor(TL21,Lime);
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
Text_SetSize(text1,텍스트크기);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
TL_SetEnd(TL21,저[1,3],저[1,4],저[2,1]);
TL_SetBegin(TL2,저[1,3],저[1,4],저[1,1]);
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
최종꼭지점 = "저점";
}
고맙습니다. 수고 하십시요.
답변 1
예스스탁 예스스탁 답변
2023-06-02 11:34:28
안녕하세요
예스스탁입니다.
1
수식의 리턴값이 소숫점 이하 작은 값입니다.
100을 곱해서 출력되게 작성해 드립니다.
var : a(0),b(0);
a = ma(c,60);
b = (a/c) - (a[1]/c);
Plot1(b*100);
2
Input : Period(90), Period91(20), Period92(240) ;
var : LRLv(0),S(0);
var : LRLv91(0),S91(0);
var : LRLv92(0),S92(0);
LRLv = LRL(C,Period);
LRLv91 = LRL(C,Period91);
LRLv92 = LRL(C,Period92);
if LRLv > LRLv[1] Then
S = 1;
if LRLv < LRLv[1] Then
S = -1;
if S == 1 Then
var1 = LRLv;
if S == -1 Then
var2 = LRLv;
Input : length(5),종가사용여부(0),굵기(1),텍스트크기(11);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),Text1(0),TL1(0),TL2(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(text1,텍스트크기);
value1 = 고[1,1];
Value2 = 고[1,2];
TL1 = TL_New(고[1,3],고[1,4],value1,NextBarSdate,NextBarStime,value1);
TL_SetColor(tl1,Red);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
value1 = 고[1,1];
Value2 = 고[1,2];
TL_SetBegin(TL1,고[1,3],고[1,4],value1);
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
Text_SetSize(text1,텍스트크기);
value3 = 저[1,1];
Value4 = 저[1,2];
TL2 = TL_New(저[1,3],저[1,4],Value3,NextBarSdate,NextBarStime,Value3);
TL_SetColor(tl2,Blue);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
value3 = 저[1,1];
Value4 = 저[1,2];
TL_SetBegin(TL2,저[1,3],저[1,4],value3);
}
최종꼭지점 = "저점";
}
if Value2 > 0 and Index < Value2+10 Then
TL_SetEnd(TL1,NextBarSdate,NextBarStime,value1);
if Value4 > 0 and Index < Value4+10 Then
TL_SetEnd(TL2,NextBarSdate,NextBarStime,value3);
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식좀 요청 드립니다
> 항상 많은 도움에 고맙습니다.
<요청1>
아래 수식 선으로 완성 요청 드립니다.
제가 해보니가 선으로 안나오고 "0"선 기준 으로 상하로 나오네요....
지표 선으로 나왔으면 합니다.
## 기준: 60일 이평선 - 60일 이평선[1]
######
a = avg(c,60);
b = (a(0)/c) - (a(1)/c);
######
<요청2>
아래 수식에서 수치가 찍히면
고점 이면 그봉 고가에서 수평선 우축으로 10봉 까지 표시
저점에 수치가 찍히면 저점에 수평선 표시 좀 요청 드립니다.
####
Input : Period(90), Period91(20), Period92(240) ;
var : LRLv(0),S(0);
var : LRLv91(0),S91(0);
var : LRLv92(0),S92(0);
LRLv = LRL(C,Period);
LRLv91 = LRL(C,Period91);
LRLv92 = LRL(C,Period92);
if LRLv > LRLv[1] Then
S = 1;
if LRLv < LRLv[1] Then
S = -1;
if S == 1 Then
var1 = LRLv;
if S == -1 Then
var2 = LRLv;
Input : length(5),종가사용여부(0),굵기(1),텍스트크기(11);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL(0),Text1(0),TL1(0),TL2(0),TL11(0),TL21(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(text1,텍스트크기);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]);
TL_SetEnd(TL11,고[1,3],고[1,4],고[2,1]);
TL_SetBegin(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL21,저[2,3],저[2,4],저[2,1]);
TL_SetSize(TL,1);
TL_SetColor(TL,Cyan);
TL_SetSize(TL2,2);
TL_SetColor(TL2,Green);
TL_SetSize(TL21,1);
TL_SetColor(TL21,Lime);
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
Text_SetSize(text1,텍스트크기);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]);
TL_SetEnd(TL21,저[1,3],저[1,4],저[2,1]);
TL_SetBegin(TL2,저[1,3],저[1,4],저[1,1]);
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
최종꼭지점 = "저점";
}
고맙습니다. 수고 하십시요.