커뮤니티
그물망 타주기 조건식
2021-02-10 16:04:20
892
글번호 146276
항상 감사드립니다
아래조건식을 타주기식에 적용코져합니다.
####################
###신거래선 기준 ###
####################
var:var3(0),var960(0);
if V == highest(V,3) Then
var3 = (C+H+L)/3; #120거래선#
if V == highest(V,960) Then
var960 = (C+H+L)/3; #240거래선#
#############
RMI 매매식
#############
input : MOM기간(5),적용기간(14),시그널기간(5);
var : RMI(0),RMIsig(0);
var: t70(0);
RMI = iff((ma(iff(c<c[MOM기간],(c[MOM기간]-c),0),적용기간))<=0,100,
(100-(100/(1+((ma(iff(c>c[MOM기간],(c-c[MOM기간]),0),적용기간))/(ma(iff(c<c[MOM기간],(c[MOM기간]-c),0),적용기간)))))));
RMIsig = ma(RMI,시그널기간);
if crossup(RMI,50) Then
t70 = 100 ;
if crossdown(RMI,50) Then
t70 = 0;
###############################
### 그물망 ###
################################
input:period90(60),횡보율(0.001);
var : var301(0),var302(0),var303(0),var304(0),var305(0),var306(0),var307(0),var308(0),var309(0),var310(0);
var : var311(0),var312(0),var313(0),var314(0),var315(0),var316(0),var317(0),var318(0),var319(0),var320(0),var321(0);
var : t60(0);
var301=ema(c,period90);
var302=ema(c,period90+1);
var303=ema(c,period90+2);
var304=ema(c,period90+3);
var305=ema(c,period90+4);
var306=ema(c,period90+5);
var307=ema(c,period90+6);
var308=ema(c,period90+7);
var309=ema(c,period90+8);
var310=ema(c,period90+9);
var311=ema(c,period90+10);
var312=ema(c,period90+11);
var313=ema(c,period90+12);
var314=ema(c,period90+13);
var315=ema(c,period90+14);
var316=ema(c,period90+15);
var317=ema(c,period90+16);
var318=ema(c,period90+17);
var319=ema(c,period90+18);
var320=ema(c,period90+19);
var321=ema(c,period90+20);
value1 = 0;
value2 = 0;
value3 = 0;
if var301>var301[1]*(1+횡보율/100) then value1 = value1+1;
else if var301<var301[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var302>var302[1]*(1+횡보율/100) then value1 = value1+1;
else if var302<var302[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var303>var303[1]*(1+횡보율/100) then value1 = value1+1;
else if var303<var303[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var304>var304[1]*(1+횡보율/100) then value1 = value1+1;
else if var304<var304[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var305>var305[1]*(1+횡보율/100) then value1 = value1+1;
else if var305<var305[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var306>var306[1]*(1+횡보율/100) then value1 = value1+1;
else if var306<var306[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var307>var307[1]*(1+횡보율/100) then value1 = value1+1;
else if var307<var307[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var308>var308[1]*(1+횡보율/100) then value1 = value1+1;
else if var308<var308[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var309>var309[1]*(1+횡보율/100) then value1 = value1+1;
else if var309<var309[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var310>var310[1]*(1+횡보율/100) then value1 = value1+1;
else if var310<var310[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var311>var311[1]*(1+횡보율/100) then value1 = value1+1;
else if var311<var311[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var312>var312[1]*(1+횡보율/100) then value1 = value1+1;
else if var312<var312[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var313>var313[1]*(1+횡보율/100) then value1 = value1+1;
else if var313<var313[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var314>var314[1]*(1+횡보율/100) then value1 = value1+1;
else if var314<var314[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var315>var315[1]*(1+횡보율/100) then value1 = value1+1;
else if var315<var315[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var316>var316[1]*(1+횡보율/100) then value1 = value1+1;
else if var316<var316[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var317>var317[1]*(1+횡보율/100) then value1 = value1+1;
else if var317<var317[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var318>var318[1]*(1+횡보율/100) then value1 = value1+1;
else if var318<var318[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var319>var319[1]*(1+횡보율/100) then value1 = value1+1;
else if var319<var319[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var320>var320[1]*(1+횡보율/100) then value1 = value1+1;
else if var320<var320[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var321>var321[1]*(1+횡보율/100) then value1 = value1+1;
else if var321<var321[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if value1 == 21 Then
t60 = 1 ;
else if value2 == 21 Then
t60 = -1;
Else if value3 == 21 Then
t60 = 0;
/*=======================*/
var: t90(0);
if t60 == 1 Then
T90 = 1 ;
if t60 == -1 Then
T90 = -1 ;
var3>var960 and t70==100 and t90==1이면 매수
var3<var960 and t70==0 and t90==-1이면 매도
감사합니다.
답변 2
예스스탁 예스스탁 답변
2021-02-10 16:52:42
안녕하세요
예스스탁입니다.
문의하신 내용은 식작성에 시간이 많이 요구됩니다.
일정 시간 이상이 요구되는 내용은 저희가 작성을 해드리기 어렵습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> 조민철 님이 쓴 글입니다.
> 제목 : 그물망 타주기 조건식
> 항상 감사드립니다
아래조건식을 타주기식에 적용코져합니다.
####################
###신거래선 기준 ###
####################
var:var3(0),var960(0);
if V == highest(V,3) Then
var3 = (C+H+L)/3; #120거래선#
if V == highest(V,960) Then
var960 = (C+H+L)/3; #240거래선#
#############
RMI 매매식
#############
input : MOM기간(5),적용기간(14),시그널기간(5);
var : RMI(0),RMIsig(0);
var: t70(0);
RMI = iff((ma(iff(c<c[MOM기간],(c[MOM기간]-c),0),적용기간))<=0,100,
(100-(100/(1+((ma(iff(c>c[MOM기간],(c-c[MOM기간]),0),적용기간))/(ma(iff(c<c[MOM기간],(c[MOM기간]-c),0),적용기간)))))));
RMIsig = ma(RMI,시그널기간);
if crossup(RMI,50) Then
t70 = 100 ;
if crossdown(RMI,50) Then
t70 = 0;
###############################
### 그물망 ###
################################
input:period90(60),횡보율(0.001);
var : var301(0),var302(0),var303(0),var304(0),var305(0),var306(0),var307(0),var308(0),var309(0),var310(0);
var : var311(0),var312(0),var313(0),var314(0),var315(0),var316(0),var317(0),var318(0),var319(0),var320(0),var321(0);
var : t60(0);
var301=ema(c,period90);
var302=ema(c,period90+1);
var303=ema(c,period90+2);
var304=ema(c,period90+3);
var305=ema(c,period90+4);
var306=ema(c,period90+5);
var307=ema(c,period90+6);
var308=ema(c,period90+7);
var309=ema(c,period90+8);
var310=ema(c,period90+9);
var311=ema(c,period90+10);
var312=ema(c,period90+11);
var313=ema(c,period90+12);
var314=ema(c,period90+13);
var315=ema(c,period90+14);
var316=ema(c,period90+15);
var317=ema(c,period90+16);
var318=ema(c,period90+17);
var319=ema(c,period90+18);
var320=ema(c,period90+19);
var321=ema(c,period90+20);
value1 = 0;
value2 = 0;
value3 = 0;
if var301>var301[1]*(1+횡보율/100) then value1 = value1+1;
else if var301<var301[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var302>var302[1]*(1+횡보율/100) then value1 = value1+1;
else if var302<var302[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var303>var303[1]*(1+횡보율/100) then value1 = value1+1;
else if var303<var303[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var304>var304[1]*(1+횡보율/100) then value1 = value1+1;
else if var304<var304[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var305>var305[1]*(1+횡보율/100) then value1 = value1+1;
else if var305<var305[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var306>var306[1]*(1+횡보율/100) then value1 = value1+1;
else if var306<var306[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var307>var307[1]*(1+횡보율/100) then value1 = value1+1;
else if var307<var307[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var308>var308[1]*(1+횡보율/100) then value1 = value1+1;
else if var308<var308[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var309>var309[1]*(1+횡보율/100) then value1 = value1+1;
else if var309<var309[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var310>var310[1]*(1+횡보율/100) then value1 = value1+1;
else if var310<var310[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var311>var311[1]*(1+횡보율/100) then value1 = value1+1;
else if var311<var311[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var312>var312[1]*(1+횡보율/100) then value1 = value1+1;
else if var312<var312[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var313>var313[1]*(1+횡보율/100) then value1 = value1+1;
else if var313<var313[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var314>var314[1]*(1+횡보율/100) then value1 = value1+1;
else if var314<var314[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var315>var315[1]*(1+횡보율/100) then value1 = value1+1;
else if var315<var315[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var316>var316[1]*(1+횡보율/100) then value1 = value1+1;
else if var316<var316[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var317>var317[1]*(1+횡보율/100) then value1 = value1+1;
else if var317<var317[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var318>var318[1]*(1+횡보율/100) then value1 = value1+1;
else if var318<var318[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var319>var319[1]*(1+횡보율/100) then value1 = value1+1;
else if var319<var319[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var320>var320[1]*(1+횡보율/100) then value1 = value1+1;
else if var320<var320[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var321>var321[1]*(1+횡보율/100) then value1 = value1+1;
else if var321<var321[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if value1 == 21 Then
t60 = 1 ;
else if value2 == 21 Then
t60 = -1;
Else if value3 == 21 Then
t60 = 0;
/*=======================*/
var: t90(0);
if t60 == 1 Then
T90 = 1 ;
if t60 == -1 Then
T90 = -1 ;
var3>var960 and t70==100 and t90==1이면 매수
var3<var960 and t70==0 and t90==-1이면 매도
감사합니다.
조민철
2021-02-10 16:55:43
본인이 작성할수 잇도록 샘플이라도 부탁드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 그물망 타주기 조건식
> 안녕하세요
예스스탁입니다.
문의하신 내용은 식작성에 시간이 많이 요구됩니다.
일정 시간 이상이 요구되는 내용은 저희가 작성을 해드리기 어렵습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> 조민철 님이 쓴 글입니다.
> 제목 : 그물망 타주기 조건식
> 항상 감사드립니다
아래조건식을 타주기식에 적용코져합니다.
####################
###신거래선 기준 ###
####################
var:var3(0),var960(0);
if V == highest(V,3) Then
var3 = (C+H+L)/3; #120거래선#
if V == highest(V,960) Then
var960 = (C+H+L)/3; #240거래선#
#############
RMI 매매식
#############
input : MOM기간(5),적용기간(14),시그널기간(5);
var : RMI(0),RMIsig(0);
var: t70(0);
RMI = iff((ma(iff(c<c[MOM기간],(c[MOM기간]-c),0),적용기간))<=0,100,
(100-(100/(1+((ma(iff(c>c[MOM기간],(c-c[MOM기간]),0),적용기간))/(ma(iff(c<c[MOM기간],(c[MOM기간]-c),0),적용기간)))))));
RMIsig = ma(RMI,시그널기간);
if crossup(RMI,50) Then
t70 = 100 ;
if crossdown(RMI,50) Then
t70 = 0;
###############################
### 그물망 ###
################################
input:period90(60),횡보율(0.001);
var : var301(0),var302(0),var303(0),var304(0),var305(0),var306(0),var307(0),var308(0),var309(0),var310(0);
var : var311(0),var312(0),var313(0),var314(0),var315(0),var316(0),var317(0),var318(0),var319(0),var320(0),var321(0);
var : t60(0);
var301=ema(c,period90);
var302=ema(c,period90+1);
var303=ema(c,period90+2);
var304=ema(c,period90+3);
var305=ema(c,period90+4);
var306=ema(c,period90+5);
var307=ema(c,period90+6);
var308=ema(c,period90+7);
var309=ema(c,period90+8);
var310=ema(c,period90+9);
var311=ema(c,period90+10);
var312=ema(c,period90+11);
var313=ema(c,period90+12);
var314=ema(c,period90+13);
var315=ema(c,period90+14);
var316=ema(c,period90+15);
var317=ema(c,period90+16);
var318=ema(c,period90+17);
var319=ema(c,period90+18);
var320=ema(c,period90+19);
var321=ema(c,period90+20);
value1 = 0;
value2 = 0;
value3 = 0;
if var301>var301[1]*(1+횡보율/100) then value1 = value1+1;
else if var301<var301[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var302>var302[1]*(1+횡보율/100) then value1 = value1+1;
else if var302<var302[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var303>var303[1]*(1+횡보율/100) then value1 = value1+1;
else if var303<var303[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var304>var304[1]*(1+횡보율/100) then value1 = value1+1;
else if var304<var304[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var305>var305[1]*(1+횡보율/100) then value1 = value1+1;
else if var305<var305[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var306>var306[1]*(1+횡보율/100) then value1 = value1+1;
else if var306<var306[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var307>var307[1]*(1+횡보율/100) then value1 = value1+1;
else if var307<var307[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var308>var308[1]*(1+횡보율/100) then value1 = value1+1;
else if var308<var308[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var309>var309[1]*(1+횡보율/100) then value1 = value1+1;
else if var309<var309[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var310>var310[1]*(1+횡보율/100) then value1 = value1+1;
else if var310<var310[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var311>var311[1]*(1+횡보율/100) then value1 = value1+1;
else if var311<var311[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var312>var312[1]*(1+횡보율/100) then value1 = value1+1;
else if var312<var312[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var313>var313[1]*(1+횡보율/100) then value1 = value1+1;
else if var313<var313[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var314>var314[1]*(1+횡보율/100) then value1 = value1+1;
else if var314<var314[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var315>var315[1]*(1+횡보율/100) then value1 = value1+1;
else if var315<var315[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var316>var316[1]*(1+횡보율/100) then value1 = value1+1;
else if var316<var316[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var317>var317[1]*(1+횡보율/100) then value1 = value1+1;
else if var317<var317[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var318>var318[1]*(1+횡보율/100) then value1 = value1+1;
else if var318<var318[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var319>var319[1]*(1+횡보율/100) then value1 = value1+1;
else if var319<var319[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var320>var320[1]*(1+횡보율/100) then value1 = value1+1;
else if var320<var320[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if var321>var321[1]*(1+횡보율/100) then value1 = value1+1;
else if var321<var321[1]*(1-횡보율/100) then value2 = value2+1;
else value3 = value3+1;
if value1 == 21 Then
t60 = 1 ;
else if value2 == 21 Then
t60 = -1;
Else if value3 == 21 Then
t60 = 0;
/*=======================*/
var: t90(0);
if t60 == 1 Then
T90 = 1 ;
if t60 == -1 Then
T90 = -1 ;
var3>var960 and t70==100 and t90==1이면 매수
var3<var960 and t70==0 and t90==-1이면 매도
감사합니다.
다음글
이전글