답변완료
Data2에 대한 식으로 변경 부탁드립니다.
Input:매물대기간(20),매물대개수(10);
Input:atrlen(14),atrs1(2.7),atrs2(2.7),atrs3(2.2),break(1.9),level(0.3),big(8);
Input:초기자산(2000000);
Var:누적자산(0),진입후최고가(0);
Array:매물대[30,4](0); // 행번호 = 순위, 열번호 = 1:가격이상,2:가격미만,3:수량,4:비율
누적자산 = 초기자산 + netprofit;
Value1=VolProfile(매물대기간,매물대개수,매물대);
Condition1 = ma(C,5) > ma(C,20) and C > 매물대[1,2]; // 단기이평, 중기이평 정배열이고 최대 매물대 지지
If Condition1[1] != Condition1 and Condition1 Then
Buy("B",AtMarket,int(초기자산/NextBarOpen));
If MarketPosition == 1 Then {
진입후최고가 = Highest(H,BarsSinceEntry + 1);
ExitLong("매수손절",Atstop,Entryprice - ATR(atrlen) * atrs1);
ExitLong("매수추적",Atstop,진입후최고가 - ATR(atrlen) * atrs2);
ExitLong("매수변동성",Atstop,C[1] - ATR(atrlen) * atrs3);
If 진입후최고가 >= Entryprice + ATR(atrlen) * break Then {
ExitLong("매수손익분기",Atstop,Entryprice + ATR(atrlen) * level);
}
If 진입후최고가 >= Entryprice + ATR(atrlen) * big Then {
ExitLong("매수초과수익",Atstop,Lowest(L,3));
}
}
2022-08-21
1455
글번호 161641
시스템
답변완료
문의드립니다.
직전구간의 고점이나 저점과 현재진행구간의 저점이나 고점 사이의 중간가격을 나타내는 선을 현재진행구간에서 추가했으면 좋겠습니다. 현재구간은 진행중이기 때문에 고점이나 저점이 높아지거나 낮아짐으로 인해 중간가격도 위치가 진행과정에서 새롭게 변할텐데요. 이렇게 변할 경우 다시 변경된 가격위치부터 새롭게 옆으로 그려지는 선으로 현재진행구간이 끝날때까지 그려지고 가격도 선위에 TEXT로 표시되도록 부탁드리겠습니다.
var : a(0),b(0);
var : HH(0),HD(0),HT(0);
var : HH1(0),HD1(0),HT1(0);
var : LL(0),LD(0),LT(0);
var : LL1(0),LD1(0),LT1(0);
var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0);
var : T(0);
a = ma(C,5);
b = ma(c,20);
Condition1 = C > a and C > b;
Condition2 = C < a and C < b;
if T <= 0 and Condition1 == true and Condition1[1] == False Then
{
T = 1;
}
if T >= 0 and Condition2 == true and Condition2[1] == False Then
{
T = -1;
}
if T == 1 Then
{
if T != T[1] Then
{
HD = sDate;
HT = sTime;
HH = H;
HD1 = HD[1];
HT1 = HT[1];
HH1 = HH[1];
if HH1 > 0 and LL > 0 Then
{
value1 = HH1;
Value2 = LL;
TL = TL_new(HD1,HT1,value1,LD,LT,Value2);
TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Red);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL2,Magenta);
TL_SetColor(TL3,Magenta);
TL_SetColor(TL4,Magenta);
TL_SetColor(TL5,Magenta);
}
}
if H > HH Then
{
HD = sDate;
HT = sTime;
HH = H;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
if T == -1 Then
{
if T != T[1] Then
{
LD = sDate;
LT = sTime;
LL = L;
LD1 = LD[1];
LT1 = LT[1];
LL1 = LL[1];
if LL1 > 0 and HH > 0 Then
{
value1 = HH;
Value2 = LL1;
TL = TL_new(LD1,LT1,LL1,HD,HT,HH);
TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382);
TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500);
TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618);
TL_SetColor(TL,Blue);
TL_SetColor(TL1,Cyan);
TL_SetColor(TL2,Cyan);
TL_SetColor(TL3,Cyan);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
}
}
if L < LL Then
{
LD = sDate;
LT = sTime;
LL = L;
}
if HH1 > 0 and LL > 0 Then
{
TL_SetEnd(TL1,sDate,sTime,value1);
TL_SetEnd(TL2,sDate,sTime,value2);
TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382);
TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500);
TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618);
}
}
2022-08-21
1604
글번호 161637
지표
답변완료
당일 종가파라볼릭 저점라인 추가
Input : AF(0.02), AFMAX(0.2);
Var:Direction(0),SAR_Value(Close),AF_Value(.02),HighValue(High),LowValue(Low),EP(0),CSarv(0);
if Bdate != Bdate[1] Then
{
Direction = 0;
SAR_Value = C;
AF_Value = 0.02;
HighValue = H;
LowValue = L;
EP = 0;
}
if EP != 0 Then
{
if Direction == 1 then
{
EP = HighValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close < SAR_Value then
{
Direction = -1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
LowValue = low;
}
}
else
{
EP = LowValue;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + Af;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
if Close > SAR_Value then
{
Direction = 1;
SAR_Value = EP;
AF_Value = 0;
EP = 0;
HighValue = High;
}
}
CSarv = SAR_Value;
}
else
{
if SAR_Value != 0 && EP == 0 then
{
if Direction == 1 then
{
EP = HighValue;
AF_Value = AF;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if High > HighValue then
{
HighValue = High;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
else
{
EP = LowValue;
AF_Value = Af;
SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value);
if Low < LowValue then
{
LowValue = Low;
AF_Value = AF_Value + AF;
if AF_Value >= AFMAX then AF_Value = AFMAX;
}
}
CSarv = SAR_Value;
}
else
{
if Direction == 0 then
{
if Close > Close[1] then Direction = 1;
else
if Close < Close[1] then Direction = -1;
}
else
{
if Direction == 1 then
{
if Close < Close[1] then
{
Direction = -1;
SAR_Value = HighValue;
CSarv = SAR_Value;
}
}
if Direction == -1 then
{
if Close > Close[1] then
{
Direction = 1;
SAR_Value = LowValue;
CSarv = SAR_Value;
}
}
}
LowValue = min(Low, LowValue);
HighValue = max(High, HighValue);
}
}
var : hh(0),LL(0),t(0);
if CrossUp(C,CSarv) Then
{
t = 1;
hh = h;
var1 = LL+0.65;
var2 = LL+1.0;
Var3 = LL+1.5;
Var4 = LL+2;
Var5 = LL+2.5;
Var6 = LL+3;
Var7 = LL+3.5;
Var8 = LL+4;
Var9 = LL+4.5;
}
if CrossDown(C,CSarv) Then
{
t = -1;
LL = l;
var1 = hh-0.65;
var2 = hh-1.0;
Var3 = hh-1.5;
Var4 = hh-2.0;
Var5 = hh-2.5;
Var6 = hh-3.0;
Var7 = hh-3.5;
Var8 = hh-4.0;
Var9 = hh-4.5;
}
if t == 1 Then
{
if hh > 0 and h > hh Then
hh = h;
}
if t == -1 Then
{
if LL > 0 and l < LL Then
LL = l;
}
if var1 > 0 Then
{
plot1(var1,"HL1");
plot2(var2,"HL2");
plot3(var3,"HL3");
plot4(var4,"HL4");
Plot5(Var5,"HL5");
Plot6(Var6,"HL6");
Plot7(Var7,"HL7");
Plot8(Var8,"HL8");
Plot9(Var9,"HL9");
}
위 수식에 상승은 무시하고,당일 하락 종가파라볼릭이 끝나면 최저점에서 -0.35P에 라인 추가. 이 라인은 최저점을 붕괴하는 새로운 하락파라가 나와 끝날 때까지 표시해주고, 새로운 하락파라가 끝나면 새 최저점으로부터 -0.35P에 새로운 라인 생성.
곧 종가파라볼릭의 당일 저점라인 밑 -0.35P에 새로운 저점라인.색상은 Pink.감사합니다.
2022-08-20
1772
글번호 161634
지표