예스스탁
예스스탁 답변
2026-07-03 14:00:22
안녕하세요
예스스탁입니다.
1
input : WPeriod(10);
var : cnt(0),sum(0),weekma(0);
Array : CC[100](0);
if Bdate != Bdate[1] and
(DayOfWeek(Bdate)< DayOfWeek(Bdate[1]) or
DateToJulian(Bdate) >= DateToJulian(Bdate[1])+7) Then
{
for cnt = 99 downto 1
{
CC[cnt] = CC[cnt-1];
}
}
CC[0] = C;
if CC[WPeriod-1] > 0 Then
{
sum = 0;
for cnt = 0 to WPeriod-1
{
sum = sum+CC[cnt];
}
weekma = sum/WPeriod;
if C < weekma and c > weekma*0.95 Then
Find(1);
}
2
var : a1(0),a2(0),a3(0);
var : diff(0),up(0),down(0),avgup(0),avgdown(0);
var : RS1(0),RSI1(0),shortTermXtrender(0);
var : xe1(0),xe2(0),xe3(0),xe4(0),xe5(0),xe6(0),maShortTermXtrender(0);
A1 = Ema(C, 5);// var1
A2 = Ema(C, 20);// Var2
A3 = Ema(C, 20);// Var3
Diff = A1 - A2;
Up = iff(Diff > Diff[1], Diff - Diff[1], 0);
Down = iff(Diff < Diff[1], Diff[1] - Diff, 0);
AvgUp = Ema(Up, 15);
AvgDown = Ema(Down, 15);
RS1 = iff(AvgDown != 0, AvgUp / AvgDown, 100);
RSI1 = 100 - (100 / (1 + RS1));
shortTermXtrender = RSI1 - 50;
xe1 = Ema(shortTermXtrender, 5);
xe2 = Ema(xe1, 5);
xe3 = Ema(xe2, 5);
xe4 = Ema(xe3, 5);
xe5 = Ema(xe4, 5);
xe6 = Ema(xe5, 5);
maShortTermXtrender = -0.343 * xe6 + 1.029 * xe5 - 6.069 * xe4 + 4.913 * xe3;
if maShortTermXtrender > maShortTermXtrender[1] Then
Find(1);
3
input : N(5);
var : a1(0),a2(0),a3(0);
var : diff(0),up(0),down(0),avgup(0),avgdown(0);
var : RS1(0),RSI1(0),shortTermXtrender(0);
var : xe1(0),xe2(0),xe3(0),xe4(0),xe5(0),xe6(0),maShortTermXtrender(0);
A1 = Ema(C, 5);// var1
A2 = Ema(C, 20);// Var2
A3 = Ema(C, 20);// Var3
Diff = A1 - A2;
Up = iff(Diff > Diff[1], Diff - Diff[1], 0);
Down = iff(Diff < Diff[1], Diff[1] - Diff, 0);
AvgUp = Ema(Up, 15);
AvgDown = Ema(Down, 15);
RS1 = iff(AvgDown != 0, AvgUp / AvgDown, 100);
RSI1 = 100 - (100 / (1 + RS1));
shortTermXtrender = RSI1 - 50;
xe1 = Ema(shortTermXtrender, 5);
xe2 = Ema(xe1, 5);
xe3 = Ema(xe2, 5);
xe4 = Ema(xe3, 5);
xe5 = Ema(xe4, 5);
xe6 = Ema(xe5, 5);
maShortTermXtrender = -0.343 * xe6 + 1.029 * xe5 - 6.069 * xe4 + 4.913 * xe3;
if CountIf( maShortTermXtrender > maShortTermXtrender[1],N) >= 1 Then
Find(1);
4
input : N(5);
var : a1(0),a2(0),a3(0);
var : diff(0),up(0),down(0),avgup(0),avgdown(0);
var : RS1(0),RSI1(0),shortTermXtrender(0);
A1 = Ema(C, 5);// var1
A2 = Ema(C, 20);// Var2
A3 = Ema(C, 20);// Var3
Diff = A1 - A2;
Up = iff(Diff > Diff[1], Diff - Diff[1], 0);
Down = iff(Diff < Diff[1], Diff[1] - Diff, 0);
AvgUp = Ema(Up, 15);
AvgDown = Ema(Down, 15);
RS1 = iff(AvgDown != 0, AvgUp / AvgDown, 100);
RSI1 = 100 - (100 / (1 + RS1));
shortTermXtrender = RSI1 - 50;
if crossup(shortTermXtrender,0) Then
Find(1);
5
input : N(5);
var : a1(0),a2(0),a3(0);
var : diff(0),up(0),down(0),avgup(0),avgdown(0);
var : RS1(0),RSI1(0),shortTermXtrender(0);
A1 = Ema(C, 5);// var1
A2 = Ema(C, 20);// Var2
A3 = Ema(C, 20);// Var3
Diff = A1 - A2;
Up = iff(Diff > Diff[1], Diff - Diff[1], 0);
Down = iff(Diff < Diff[1], Diff[1] - Diff, 0);
AvgUp = Ema(Up, 15);
AvgDown = Ema(Down, 15);
RS1 = iff(AvgDown != 0, AvgUp / AvgDown, 100);
RSI1 = 100 - (100 / (1 + RS1));
shortTermXtrender = RSI1 - 50;
if shortTermXtrender > 0 Then
Find(1);
즐거운 하루되세요
