답변완료
문의드립니다
안녕하세요.
input : Periods(10),Multiplier(3.0),changeATR(true),showsignals(true),highlighting(true);
var : src(0),ATr2(0),ATrv(0),upv(0),up1(0),dnv(0),dn1(0);
var : trend(0),tx(0);
src = (h+l)/2;
atr2 = ma(TrueRange, Periods);
atrv = iff(changeATR , atr(Periods) , atr2);
upv = src-(Multiplier*atrv);
up1 = iff(IsNaN(upv[1]) == False,upv[1],upv);
upv = iff(close[1] > up1 , max(upv,up1) , upv);
dnv =src+(Multiplier*atrv);
dn1 = iff(isnan(dnv[1]) == False,dnv[1], dnv);
dnv = iff(close[1] < dn1 , min(dnv, dn1) , dnv);
trend = 1;
trend = iff(IsNaN(trend[1]) == False,trend[1], trend);
trend = iff(trend == -1 and close > dn1 , 1 , IFf( trend == 1 and close < up1 , -1 , trend));
if trend == 1 Then
{
plot1(upv,"UpTrend",green);
NoPlot(2);
if trend == 1 and trend[1] == -1 Then
{
tx = Text_New(sDate,sTime,upv,"▲");
Text_SetStyle(tx,2,0);
Text_SetColor(tx,Red);
}
}
Else
{
NoPlot(1);
plot2(dnv, "Down Trend",red);
if trend == -1 and trend[1] == 1 Then
{
tx = Text_New(sDate,sTime,dnv,"▼");
Text_SetStyle(tx,2,1);
Text_SetColor(tx,Blue);
}
}
1. 시스템 수식으로 변환이 가능할까요? 안된다면 비슷한 수식으로 변환부탁드립니다.
2. 가능하다면 지표 "▲" 신호발생 and macd(12,26,6) 기준선 > 0 매수 / "▼" 신호발생 매도하는 수식으로 변환 부탁드립니다.
3. "▲" 신호발생시 50% 매수 , macd(12,26,6) 기준선 > 0 나머지 50% 매수 / "▼" 신호발생시 50% 매도 , macd(12,26,6) 기준선 < 0 나머지 50% 매도하는 수식도 부탁드릴게요.
2023-03-14
925
글번호 167120
시스템
답변완료
수식 부탁 드립니다
작성자 : 예스스탁 작성일 : 2023-03-13 오후 1:06:20 조회수 : 9
지표 Re : 수식 부탁 드립니다
안녕하세요
예스스탁입니다.
지표사이의 채우기는 수식안에서 설정이 가능하지 않습니다.
지표속성창의 차트표시탭에서 채우기 이용해 직접 설정하셔야 합니다.
첨부하신 그림의 지그재그는 내용이 정확치 않아
기본으로 사용하는 내용을 추가해 드립니다.
Input : Period(14);
var : LRLv(0),S(0);
LRLv = LRL(C,Period);
Plot1(LRLv, "LRS");
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;
if var1 > 0 Then
Plot2(var1,"고점");
if var2 > 0 Then
Plot3(var2,"저점");
Input : length(10),종가사용여부(0),굵기(1);
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;
TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL1 = TL_New(고[1,3],고[1,4],고[1,1],NextBarSdate,NextBarStime,고[1,1]);
TL11 = TL1[1];
TL_SetSize(TL,굵기);
TL_SetColor(TL,Red);
TL_SetSize(TL1,굵기);
TL_SetColor(TL1,Red);
TL_SetSize(TL11,굵기);
TL_SetColor(TL11,Red);
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
}
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 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL2 = TL_New(저[1,3],저[1,4],저[1,1],NextBarSdate,NextBarStime,저[1,1]);
TL21 = TL2[1];
TL_SetEnd(TL21,저[2,3],저[2,4],저[2,1]);
TL_SetSize(TL,굵기);
TL_SetColor(TL,Blue);
TL_SetSize(TL2,굵기);
TL_SetColor(TL2,Blue);
TL_SetSize(TL21,굵기);
TL_SetColor(TL21,Blue);
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
}
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));
}
최종꼭지점 = "저점";
}
TL_SetEnd(TL1,NextBarSdate,NextBarStime,고[1,1]);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,저[1,1]);
즐거운 하루되세요
> s1017051 님이 쓴 글입니다.
> 제목 : 수식 부탁 드립니다
> 수식 부탁드립니다
Linear Regression Line 수식
Input : Period(14);
var : LRLv(0);
LRLv = LRL(C,Period);
Plot1(LRLv, "LRS");
1. 바탕 색깔
* LRL 선과 저점_고점
* 채우기 (색 변경 가능)
2.선 색깔_굵기 (변경가능)
3. 변수 수정기능
4. 꼭지점과 꼭지점 사이 직선사선(굵기 조정가능)
5. 꼭지점(위치수치 표시)
6. 꼭지점 에서 다음 꼭지점 발생시까지
수평선 표시
======================================================
보내주신 수식은 감사히 잘쓰겠읍니다
숫자 크기 조절은 어떻게 합니까
감사 합니다
2023-03-13
1799
글번호 167103
지표