커뮤니티
잘 부탁드립니다
2023-06-22 08:36:03
728
글번호 169975
####1번지표 2번지표 하나의 지표로 부탁드립니다 ###
1번
input : n1(10),n2(21),obLevel1(60),obLevel2(53),osLevel1(-60),osLevel2(-53);
var : ap(0),esa(0),dd(0),ci(0),tci(0),wt1(0),wt2(0),tx(0);
ap = (h+l+c)/3 ;
esa = ema(ap, n1);
dd = ema(abs(ap - esa), n1);
ci = (ap - esa) / (0.015 * dd);
tci = ema(ci, n2);
wt1 = tci;
wt2 = ma(wt1,4);
plot1(0,"0",GRAY);
plot2(obLevel1,"obLevel1",red);
plot3(osLevel1,"osLevel1",green);
plot4(obLevel2,"obLevel2",red);
plot5(osLevel2,"osLevel2",green);
plot6(wt1,"wt1",green);
plot7(wt2,"wt2",red);
plot8(wt1-wt2,"wt1-wt2",blue);
# 0선 아래 골드시 매수
if CrossUp(wt1,wt2) and wt1 < 0 Then
{
tx = text_new(sDate,sTime,L,"▲");
Text_SetStyle(tx,2,0);
Text_SetColor(tx,Red);
}
2번
input : RSI_Period(6),SF(5),QQE(3),ThreshHold(3);
var : src(0),Wilders_Period(0),rsiv(0),rsima(0);
var : AtrRsi(0),MaAtrRsi(0),dar(0);
var : longband(0),shortband(0),trend(0);
var : DeltaFastAtrRsi(0),RSIndex(0),newshortband(0),newlongband(0);
var : cross_1(False),FastAtrRsiTL(0);
src = close;
Wilders_Period = RSI_Period * 2 - 1;
Rsiv = rsi(RSI_Period);
RsiMa = ema(Rsiv, SF);
AtrRsi = abs(RsiMa[1] - RsiMa);
MaAtrRsi = ema(AtrRsi, Wilders_Period);
dar = ema(MaAtrRsi, Wilders_Period) * QQE;
longband = 0.0;
shortband = 0.0;
trend = 0;
DeltaFastAtrRsi = dar;
RSIndex = RsiMa;
newshortband = RSIndex + DeltaFastAtrRsi;
newlongband = RSIndex - DeltaFastAtrRsi;
longband = iff(RSIndex[1] > longband[1] and RSIndex > longband[1], max(longband[1], newlongband) , newlongband);
shortband = iff(RSIndex[1] < shortband[1] and RSIndex < shortband[1], min(shortband[1], newshortband) , newshortband);
cross_1 = crossup(longband[1], RSIndex) or CrossDown(longband[1], RSIndex);
trend = iff(CrossUp(RSIndex, shortband[1]) or CrossDown(RSIndex, shortband[1]) , 1 , IFf(cross_1 , -1 , iff(isnan(trend[1]) == true, 1,trend[1])));
FastAtrRsiTL = iff(trend == 1 , longband , shortband);
////////////////////
input : length(50),mult(0.35);
var : basis(0),dev(0),upper(0),lower(0),color_bar(0);
var : QQEzlong(0),QQEzshort(0);
basis = ma(FastAtrRsiTL - 50, length);
dev = mult * std(FastAtrRsiTL - 50, length);
upper = basis + dev;
lower = basis - dev;
color_bar = iff(RsiMa - 50 > upper , Blue, IFf(RsiMa - 50 < lower , Red , gray));
//
// Zero cross
QQEzlong = 0;
QQEzlong = iff(IsNan(QQEzlong[1]) == true,0,QQEzlong[1]);
QQEzshort = 0;
QQEzshort = iff(isnan(QQEzshort[1]) == true,0,QQEzshort[1]);
QQEzlong = iff(RSIndex >= 50 , QQEzlong + 1 , 0);
QQEzshort = iff(RSIndex < 50 , QQEzshort + 1 , 0);
//
PlotBaseLine1(0,"Zero",white);
////////////////////////////////////////////////////////////////
input : RSI_Period2(6),SF2(5),QQE2(1.61),ThreshHold2(3);
var : src2(0),Wilders_Period2(0),rsi2(0),rsima2(0);
var : AtrRsi2(0),MaAtrRsi2(0),dar2(0);
var : longband2(0),shortband2(0),trend2(0);
var : DeltaFastAtrRsi2(0),RSIndex2(0),newshortband2(0),newlongband2(0);
var : cross_2(False),FastAtrRsi2TL(0);
var : QQE2zlong(0),QQE2zshort(0);
var : hcolor2(0),Greenbar1(FalsE),Greenbar2(FalsE),Redbar1(False),Redbar2(False);
src2 = close;
Wilders_Period2 = RSI_Period2 * 2 - 1;
Rsi2 = rsi(RSI_Period2);
RsiMa2 = ema(Rsi2, SF2);
AtrRsi2 = abs(RsiMa2[1] - RsiMa2);
MaAtrRsi2 = ema(AtrRsi2, Wilders_Period2);
dar2 = ema(MaAtrRsi2, Wilders_Period2) * QQE2;
longband2 = 0.0;
shortband2 = 0.0;
trend2 = 0;
DeltaFastAtrRsi2 = dar2;
RSIndex2 = RsiMa2;
newshortband2 = RSIndex2 + DeltaFastAtrRsi2;
newlongband2 = RSIndex2 - DeltaFastAtrRsi2;
longband2 = iff(RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] ,max(longband2[1], newlongband2) , newlongband2);
shortband2 = iff(RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1],min(shortband2[1], newshortband2), newshortband2);
cross_2 = CrossUp(longband2[1], RSIndex2) or CrossDown(longband2[1], RSIndex2);
trend2 = iff(CrossUp(RSIndex2, shortband2[1]) or CrossDown(RSIndex2, shortband2[1]) , 1 , iff(cross_2 , -1 , iff(isnan(trend2[1]) == False, 1,trend2[1])));
FastAtrRsi2TL = iff(trend2 == 1 , longband2 , shortband2);
// Zero cross
QQE2zlong = 0;
QQE2zlong = iff(IsNan(QQE2zlong[1])==true,0,QQE2zlong[1]);
QQE2zshort = 0;
QQE2zshort = iff(isnan(QQE2zshort[1]),0,QQE2zshort[1]);
QQE2zlong = iff(RSIndex2 >= 50 , QQE2zlong + 1 , 0);
QQE2zshort = iff(RSIndex2 < 50 , QQE2zshort + 1 , 0);
//
hcolor2 = iff(RsiMa2 - 50 > ThreshHold2 ,silver ,IFf( RsiMa2 - 50 < 0 - ThreshHold2 , silver , White));
plot1(FastAtrRsi2TL - 50, "QQE Line", white);
plot2(RsiMa2 - 50, "Histo2", hcolor2);
Greenbar1 = RsiMa2 - 50 > ThreshHold2;
Greenbar2 = RsiMa - 50 > upper;
Redbar1 = RsiMa2 - 50 < 0 - ThreshHold2;
Redbar2 = RsiMa - 50 < lower;
if Greenbar1 and Greenbar2 == true Then
plot3(RsiMa2 - 50, "QQE Up",ReD);
else
NoPlot(3);
if Redbar1 and Redbar2 == true Then
plot4(RsiMa2 - 50, "QQE Down",BluE);
Else
NoPlot(4);
답변 1
예스스탁 예스스탁 답변
2023-06-22 10:39:14
안녕하세요
예스스탁입니다.
input : RSI_Period(6),SF(5),QQE(3),ThreshHold(3);
var : src(0),Wilders_Period(0),rsiv(0),rsima(0);
var : AtrRsi(0),MaAtrRsi(0),dar(0);
var : longband(0),shortband(0),trend(0);
var : DeltaFastAtrRsi(0),RSIndex(0),newshortband(0),newlongband(0);
var : cross_1(False),FastAtrRsiTL(0);
src = close;
Wilders_Period = RSI_Period * 2 - 1;
Rsiv = rsi(RSI_Period);
RsiMa = ema(Rsiv, SF);
AtrRsi = abs(RsiMa[1] - RsiMa);
MaAtrRsi = ema(AtrRsi, Wilders_Period);
dar = ema(MaAtrRsi, Wilders_Period) * QQE;
longband = 0.0;
shortband = 0.0;
trend = 0;
DeltaFastAtrRsi = dar;
RSIndex = RsiMa;
newshortband = RSIndex + DeltaFastAtrRsi;
newlongband = RSIndex - DeltaFastAtrRsi;
longband = iff(RSIndex[1] > longband[1] and RSIndex > longband[1], max(longband[1], newlongband) , newlongband);
shortband = iff(RSIndex[1] < shortband[1] and RSIndex < shortband[1], min(shortband[1], newshortband) , newshortband);
cross_1 = crossup(longband[1], RSIndex) or CrossDown(longband[1], RSIndex);
trend = iff(CrossUp(RSIndex, shortband[1]) or CrossDown(RSIndex, shortband[1]) , 1 , IFf(cross_1 , -1 , iff(isnan(trend[1]) == true, 1,trend[1])));
FastAtrRsiTL = iff(trend == 1 , longband , shortband);
////////////////////
input : length(50),mult(0.35);
var : basis(0),dev(0),upper(0),lower(0),color_bar(0);
var : QQEzlong(0),QQEzshort(0);
basis = ma(FastAtrRsiTL - 50, length);
dev = mult * std(FastAtrRsiTL - 50, length);
upper = basis + dev;
lower = basis - dev;
color_bar = iff(RsiMa - 50 > upper , Blue, IFf(RsiMa - 50 < lower , Red , gray));
//
// Zero cross
QQEzlong = 0;
QQEzlong = iff(IsNan(QQEzlong[1]) == true,0,QQEzlong[1]);
QQEzshort = 0;
QQEzshort = iff(isnan(QQEzshort[1]) == true,0,QQEzshort[1]);
QQEzlong = iff(RSIndex >= 50 , QQEzlong + 1 , 0);
QQEzshort = iff(RSIndex < 50 , QQEzshort + 1 , 0);
//
PlotBaseLine1(0,"Zero",white);
////////////////////////////////////////////////////////////////
input : RSI_Period2(6),SF2(5),QQE2(1.61),ThreshHold2(3);
var : src2(0),Wilders_Period2(0),rsi2(0),rsima2(0);
var : AtrRsi2(0),MaAtrRsi2(0),dar2(0);
var : longband2(0),shortband2(0),trend2(0);
var : DeltaFastAtrRsi2(0),RSIndex2(0),newshortband2(0),newlongband2(0);
var : cross_2(False),FastAtrRsi2TL(0);
var : QQE2zlong(0),QQE2zshort(0);
var : hcolor2(0),Greenbar1(FalsE),Greenbar2(FalsE),Redbar1(False),Redbar2(False);
src2 = close;
Wilders_Period2 = RSI_Period2 * 2 - 1;
Rsi2 = rsi(RSI_Period2);
RsiMa2 = ema(Rsi2, SF2);
AtrRsi2 = abs(RsiMa2[1] - RsiMa2);
MaAtrRsi2 = ema(AtrRsi2, Wilders_Period2);
dar2 = ema(MaAtrRsi2, Wilders_Period2) * QQE2;
longband2 = 0.0;
shortband2 = 0.0;
trend2 = 0;
DeltaFastAtrRsi2 = dar2;
RSIndex2 = RsiMa2;
newshortband2 = RSIndex2 + DeltaFastAtrRsi2;
newlongband2 = RSIndex2 - DeltaFastAtrRsi2;
longband2 = iff(RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] ,max(longband2[1], newlongband2) , newlongband2);
shortband2 = iff(RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1],min(shortband2[1], newshortband2), newshortband2);
cross_2 = CrossUp(longband2[1], RSIndex2) or CrossDown(longband2[1], RSIndex2);
trend2 = iff(CrossUp(RSIndex2, shortband2[1]) or CrossDown(RSIndex2, shortband2[1]) , 1 , iff(cross_2 , -1 , iff(isnan(trend2[1]) == False, 1,trend2[1])));
FastAtrRsi2TL = iff(trend2 == 1 , longband2 , shortband2);
// Zero cross
QQE2zlong = 0;
QQE2zlong = iff(IsNan(QQE2zlong[1])==true,0,QQE2zlong[1]);
QQE2zshort = 0;
QQE2zshort = iff(isnan(QQE2zshort[1]),0,QQE2zshort[1]);
QQE2zlong = iff(RSIndex2 >= 50 , QQE2zlong + 1 , 0);
QQE2zshort = iff(RSIndex2 < 50 , QQE2zshort + 1 , 0);
//
hcolor2 = iff(RsiMa2 - 50 > ThreshHold2 ,silver ,IFf( RsiMa2 - 50 < 0 - ThreshHold2 , silver , White));
plot1(FastAtrRsi2TL - 50, "QQE Line", white);
plot2(RsiMa2 - 50, "Histo2", hcolor2);
Greenbar1 = RsiMa2 - 50 > ThreshHold2;
Greenbar2 = RsiMa - 50 > upper;
Redbar1 = RsiMa2 - 50 < 0 - ThreshHold2;
Redbar2 = RsiMa - 50 < lower;
if Greenbar1 and Greenbar2 == true Then
plot3(RsiMa2 - 50, "QQE Up",ReD);
else
NoPlot(3);
if Redbar1 and Redbar2 == true Then
plot4(RsiMa2 - 50, "QQE Down",BluE);
Else
NoPlot(4);
input : n1(10),n2(21),obLevel1(60),obLevel2(53),osLevel1(-60),osLevel2(-53);
var : ap(0),esa(0),dd(0),ci(0),tci(0),wt1(0),wt2(0),tx(0);
ap = (h+l+c)/3 ;
esa = ema(ap, n1);
dd = ema(abs(ap - esa), n1);
ci = (ap - esa) / (0.015 * dd);
tci = ema(ci, n2);
wt1 = tci;
wt2 = ma(wt1,4);
plot5(0,"0",GRAY);
plot6(obLevel1,"obLevel1",red);
plot7(osLevel1,"osLevel1",green);
plot8(obLevel2,"obLevel2",red);
plot9(osLevel2,"osLevel2",green);
plot10(wt1,"wt1",green);
plot11(wt2,"wt2",red);
plot12(wt1-wt2,"wt1-wt2",blue);
# 0선 아래 골드시 매수
if CrossUp(wt1,wt2) and wt1 < 0 Then
{
tx = text_new(sDate,sTime,L,"▲");
Text_SetStyle(tx,2,0);
Text_SetColor(tx,Red);
}
즐거운 하루되세요
> 매치다2 님이 쓴 글입니다.
> 제목 : 잘 부탁드립니다
> ####1번지표 2번지표 하나의 지표로 부탁드립니다 ###
1번
input : n1(10),n2(21),obLevel1(60),obLevel2(53),osLevel1(-60),osLevel2(-53);
var : ap(0),esa(0),dd(0),ci(0),tci(0),wt1(0),wt2(0),tx(0);
ap = (h+l+c)/3 ;
esa = ema(ap, n1);
dd = ema(abs(ap - esa), n1);
ci = (ap - esa) / (0.015 * dd);
tci = ema(ci, n2);
wt1 = tci;
wt2 = ma(wt1,4);
plot1(0,"0",GRAY);
plot2(obLevel1,"obLevel1",red);
plot3(osLevel1,"osLevel1",green);
plot4(obLevel2,"obLevel2",red);
plot5(osLevel2,"osLevel2",green);
plot6(wt1,"wt1",green);
plot7(wt2,"wt2",red);
plot8(wt1-wt2,"wt1-wt2",blue);
# 0선 아래 골드시 매수
if CrossUp(wt1,wt2) and wt1 < 0 Then
{
tx = text_new(sDate,sTime,L,"▲");
Text_SetStyle(tx,2,0);
Text_SetColor(tx,Red);
}
2번
input : RSI_Period(6),SF(5),QQE(3),ThreshHold(3);
var : src(0),Wilders_Period(0),rsiv(0),rsima(0);
var : AtrRsi(0),MaAtrRsi(0),dar(0);
var : longband(0),shortband(0),trend(0);
var : DeltaFastAtrRsi(0),RSIndex(0),newshortband(0),newlongband(0);
var : cross_1(False),FastAtrRsiTL(0);
src = close;
Wilders_Period = RSI_Period * 2 - 1;
Rsiv = rsi(RSI_Period);
RsiMa = ema(Rsiv, SF);
AtrRsi = abs(RsiMa[1] - RsiMa);
MaAtrRsi = ema(AtrRsi, Wilders_Period);
dar = ema(MaAtrRsi, Wilders_Period) * QQE;
longband = 0.0;
shortband = 0.0;
trend = 0;
DeltaFastAtrRsi = dar;
RSIndex = RsiMa;
newshortband = RSIndex + DeltaFastAtrRsi;
newlongband = RSIndex - DeltaFastAtrRsi;
longband = iff(RSIndex[1] > longband[1] and RSIndex > longband[1], max(longband[1], newlongband) , newlongband);
shortband = iff(RSIndex[1] < shortband[1] and RSIndex < shortband[1], min(shortband[1], newshortband) , newshortband);
cross_1 = crossup(longband[1], RSIndex) or CrossDown(longband[1], RSIndex);
trend = iff(CrossUp(RSIndex, shortband[1]) or CrossDown(RSIndex, shortband[1]) , 1 , IFf(cross_1 , -1 , iff(isnan(trend[1]) == true, 1,trend[1])));
FastAtrRsiTL = iff(trend == 1 , longband , shortband);
////////////////////
input : length(50),mult(0.35);
var : basis(0),dev(0),upper(0),lower(0),color_bar(0);
var : QQEzlong(0),QQEzshort(0);
basis = ma(FastAtrRsiTL - 50, length);
dev = mult * std(FastAtrRsiTL - 50, length);
upper = basis + dev;
lower = basis - dev;
color_bar = iff(RsiMa - 50 > upper , Blue, IFf(RsiMa - 50 < lower , Red , gray));
//
// Zero cross
QQEzlong = 0;
QQEzlong = iff(IsNan(QQEzlong[1]) == true,0,QQEzlong[1]);
QQEzshort = 0;
QQEzshort = iff(isnan(QQEzshort[1]) == true,0,QQEzshort[1]);
QQEzlong = iff(RSIndex >= 50 , QQEzlong + 1 , 0);
QQEzshort = iff(RSIndex < 50 , QQEzshort + 1 , 0);
//
PlotBaseLine1(0,"Zero",white);
////////////////////////////////////////////////////////////////
input : RSI_Period2(6),SF2(5),QQE2(1.61),ThreshHold2(3);
var : src2(0),Wilders_Period2(0),rsi2(0),rsima2(0);
var : AtrRsi2(0),MaAtrRsi2(0),dar2(0);
var : longband2(0),shortband2(0),trend2(0);
var : DeltaFastAtrRsi2(0),RSIndex2(0),newshortband2(0),newlongband2(0);
var : cross_2(False),FastAtrRsi2TL(0);
var : QQE2zlong(0),QQE2zshort(0);
var : hcolor2(0),Greenbar1(FalsE),Greenbar2(FalsE),Redbar1(False),Redbar2(False);
src2 = close;
Wilders_Period2 = RSI_Period2 * 2 - 1;
Rsi2 = rsi(RSI_Period2);
RsiMa2 = ema(Rsi2, SF2);
AtrRsi2 = abs(RsiMa2[1] - RsiMa2);
MaAtrRsi2 = ema(AtrRsi2, Wilders_Period2);
dar2 = ema(MaAtrRsi2, Wilders_Period2) * QQE2;
longband2 = 0.0;
shortband2 = 0.0;
trend2 = 0;
DeltaFastAtrRsi2 = dar2;
RSIndex2 = RsiMa2;
newshortband2 = RSIndex2 + DeltaFastAtrRsi2;
newlongband2 = RSIndex2 - DeltaFastAtrRsi2;
longband2 = iff(RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] ,max(longband2[1], newlongband2) , newlongband2);
shortband2 = iff(RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1],min(shortband2[1], newshortband2), newshortband2);
cross_2 = CrossUp(longband2[1], RSIndex2) or CrossDown(longband2[1], RSIndex2);
trend2 = iff(CrossUp(RSIndex2, shortband2[1]) or CrossDown(RSIndex2, shortband2[1]) , 1 , iff(cross_2 , -1 , iff(isnan(trend2[1]) == False, 1,trend2[1])));
FastAtrRsi2TL = iff(trend2 == 1 , longband2 , shortband2);
// Zero cross
QQE2zlong = 0;
QQE2zlong = iff(IsNan(QQE2zlong[1])==true,0,QQE2zlong[1]);
QQE2zshort = 0;
QQE2zshort = iff(isnan(QQE2zshort[1]),0,QQE2zshort[1]);
QQE2zlong = iff(RSIndex2 >= 50 , QQE2zlong + 1 , 0);
QQE2zshort = iff(RSIndex2 < 50 , QQE2zshort + 1 , 0);
//
hcolor2 = iff(RsiMa2 - 50 > ThreshHold2 ,silver ,IFf( RsiMa2 - 50 < 0 - ThreshHold2 , silver , White));
plot1(FastAtrRsi2TL - 50, "QQE Line", white);
plot2(RsiMa2 - 50, "Histo2", hcolor2);
Greenbar1 = RsiMa2 - 50 > ThreshHold2;
Greenbar2 = RsiMa - 50 > upper;
Redbar1 = RsiMa2 - 50 < 0 - ThreshHold2;
Redbar2 = RsiMa - 50 < lower;
if Greenbar1 and Greenbar2 == true Then
plot3(RsiMa2 - 50, "QQE Up",ReD);
else
NoPlot(3);
if Redbar1 and Redbar2 == true Then
plot4(RsiMa2 - 50, "QQE Down",BluE);
Else
NoPlot(4);
다음글
이전글