커뮤니티
수식 요청 드립니다.
2020-02-17 07:32:42
285
글번호 135963
* 좋은 한주 되십시요.
* <요청 사항1 > 아래 수식에서 신호가 발생 하면
발생봉 기준 이전 3봉 최저가 를 점(RED) 찍기
발생봉 기준 이전 3봉 최고가 를 점(BLUE) 찍기
수식좀 요청 드립니다.
var1 = ma(c,5) ;
var2 = ma(c,20);
var : TL1(0),TL2(0),tx1(0),tx2(0) ;
if CrossUp(var1,var2) Then Then {
Tx1 = Text_New(sdate,stime, H+0.01," ●");
Text_SetStyle(tx1,0,0); }
<2번 사항> 아래 수식 에서
1. "0"선 이하에서
1-1 red 에서 CYAN 색으로 변하면 점(BLUE) 찍기
1-2 CYAN 에서 MAGENTA 변하면 점(BLACK) 찍기
2. "0"선 이상에서
2-1 MAGENTA 에서 green 변하면 점(RED) 찍기
2-2 green 에서 red 변하면 점(MAGENTA) 찍기
## 아래 수식
input : length(9),mult(0.5),lengthKC(9),multKC(0.5),useTrueRange(true);
var : source(0),basis(0),dev(0),upperBB(0),lowerBB(0);
var : mav(0),rr(0),rangema(0),upperKC(0),lowerKC(0);
var : sqzOn(false),sqzOff(false),noSqz(false),val(0);
var : bcolor(0),scolor(0);
source = close;
basis = ma(source, length);
dev = multKC * std(source, length);
upperBB = basis + dev;
lowerBB = basis - dev;
mav = ma(source, lengthKC);
RR = iff(useTrueRange, TrueRange ,(high - low));
rangema = ma(RR, lengthKC);
upperKC = mav + rangema * multKC;
lowerKC = mav - rangema * multKC;
sqzOn = (lowerBB > lowerKC) and (upperBB < upperKC);
sqzOff = (lowerBB < lowerKC) and (upperBB > upperKC);
noSqz = (sqzOn == false) and (sqzOff == false);
val = LRL(source - avg(avg(highest(high, lengthKC), lowest(low, lengthKC)),ma(close,lengthKC)),lengthKC);
bcolor = iff( val > 0,iff( val > val[1], MAGENTA, green),iff( val < val[1], red, CYAN));
scolor = iff(noSqz,blue,iff(sqzOn,black,gray));
var : TL1(0),TL2(0),tx1(0),tx2(0) ;
if red 에서 CYAN Then { Tx1 = Text_New(sdate,stime, H+0.01," ●"); Text_SetStyle(tx1,0,0); }
* 항상 감사드립니다. 고맙습니다. 수고하십시요^^
답변 1
예스스탁 예스스탁 답변
2020-02-17 09:20:56
안녕하세요
예스스탁입니다.
1
var : TL1(0),TL2(0),tx1(0),tx2(0);
var1 = ma(c,5) ;
var2 = ma(c,20);
if CrossUp(var1,var2) Then
{
Tx1 = Text_New(sdate,stime, Highest(L,3)," ●");
Text_SetStyle(tx1,0,0);
Tx2 = Text_New(sdate,stime, lowest(L,3)," ●");
Text_SetStyle(tx2,0,0);
}
2
bcolor 가 val이 0이상에서 상승/하락, 0이하에서 상승하락으로 나눠 색상이 구분된 내용이므로
별도로 0이상/이하 조건은 필요가 없습니다.
input : length(9),mult(0.5),lengthKC(9),multKC(0.5),useTrueRange(true);
var : source(0),basis(0),dev(0),upperBB(0),lowerBB(0);
var : mav(0),rr(0),rangema(0),upperKC(0),lowerKC(0);
var : sqzOn(false),sqzOff(false),noSqz(false),val(0);
var : bcolor(0),scolor(0);
source = close;
basis = ma(source, length);
dev = multKC * std(source, length);
upperBB = basis + dev;
lowerBB = basis - dev;
mav = ma(source, lengthKC);
RR = iff(useTrueRange, TrueRange ,(high - low));
rangema = ma(RR, lengthKC);
upperKC = mav + rangema * multKC;
lowerKC = mav - rangema * multKC;
sqzOn = (lowerBB > lowerKC) and (upperBB < upperKC);
sqzOff = (lowerBB < lowerKC) and (upperBB > upperKC);
noSqz = (sqzOn == false) and (sqzOff == false);
val = LRL(source - avg(avg(highest(high, lengthKC), lowest(low, lengthKC)),ma(close,lengthKC)),lengthKC);
bcolor = iff( val > 0,iff( val > val[1], MAGENTA, green),iff( val < val[1], red, CYAN));
scolor = iff(noSqz,blue,iff(sqzOn,black,gray));
var : Tx1(0),Tx2(0),tx3(0),tx4(0) ;
if bcolor == CYAN and bcolor[1] == RED Then
{
Tx1 = Text_New(sdate,stime, H+0.01," ●");
Text_SetStyle(tx1,0,0);
Text_SetColor(tx1,BLUE);
}
if bcolor == MAGENTA and bcolor[1] == CYAN Then
{
Tx2 = Text_New(sdate,stime, H+0.01," ●");
Text_SetStyle(tx2,0,0);
Text_SetColor(tx2,BLACK);
}
if bcolor == green and bcolor[1] == MAGENTA Then
{
Tx3 = Text_New(sdate,stime, H+0.01," ●");
Text_SetStyle(tx3,0,0);
Text_SetColor(tx3,RED);
}
if val > 0 and bcolor == red and bcolor[1] == GREEN Then
{
Tx4 = Text_New(sdate,stime, H+0.01," ●");
Text_SetStyle(tx4,0,0);
Text_SetColor(tx4,MAGENTA);
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식 요청 드립니다.
> * 좋은 한주 되십시요.
* <요청 사항1 > 아래 수식에서 신호가 발생 하면
발생봉 기준 이전 3봉 최저가 를 점(RED) 찍기
발생봉 기준 이전 3봉 최고가 를 점(BLUE) 찍기
수식좀 요청 드립니다.
var1 = ma(c,5) ;
var2 = ma(c,20);
var : TL1(0),TL2(0),tx1(0),tx2(0) ;
if CrossUp(var1,var2) Then Then {
Tx1 = Text_New(sdate,stime, H+0.01," ●");
Text_SetStyle(tx1,0,0); }
<2번 사항> 아래 수식 에서
1. "0"선 이하에서
1-1 red 에서 CYAN 색으로 변하면 점(BLUE) 찍기
1-2 CYAN 에서 MAGENTA 변하면 점(BLACK) 찍기
2. "0"선 이상에서
2-1 MAGENTA 에서 green 변하면 점(RED) 찍기
2-2 green 에서 red 변하면 점(MAGENTA) 찍기
## 아래 수식
input : length(9),mult(0.5),lengthKC(9),multKC(0.5),useTrueRange(true);
var : source(0),basis(0),dev(0),upperBB(0),lowerBB(0);
var : mav(0),rr(0),rangema(0),upperKC(0),lowerKC(0);
var : sqzOn(false),sqzOff(false),noSqz(false),val(0);
var : bcolor(0),scolor(0);
source = close;
basis = ma(source, length);
dev = multKC * std(source, length);
upperBB = basis + dev;
lowerBB = basis - dev;
mav = ma(source, lengthKC);
RR = iff(useTrueRange, TrueRange ,(high - low));
rangema = ma(RR, lengthKC);
upperKC = mav + rangema * multKC;
lowerKC = mav - rangema * multKC;
sqzOn = (lowerBB > lowerKC) and (upperBB < upperKC);
sqzOff = (lowerBB < lowerKC) and (upperBB > upperKC);
noSqz = (sqzOn == false) and (sqzOff == false);
val = LRL(source - avg(avg(highest(high, lengthKC), lowest(low, lengthKC)),ma(close,lengthKC)),lengthKC);
bcolor = iff( val > 0,iff( val > val[1], MAGENTA, green),iff( val < val[1], red, CYAN));
scolor = iff(noSqz,blue,iff(sqzOn,black,gray));
var : TL1(0),TL2(0),tx1(0),tx2(0) ;
if red 에서 CYAN Then { Tx1 = Text_New(sdate,stime, H+0.01," ●"); Text_SetStyle(tx1,0,0); }
* 항상 감사드립니다. 고맙습니다. 수고하십시요^^
다음글
이전글