답변완료
지표식 시간설정 문의드립니다.
안녕하세요..항상 많은 도움 감사드립니다.
아래는 네이버 블로그에 나와있는 마켓프로파일 수식인데요...
이것은 나스닥 1분봉에 현지 장 개장 시간(오전 8시 30분)부터 오후 3:40까지만 나오게 하고 싶은데 방법을 잘몰라서 부탁 문의 드립니다.
데이터를 오전 8시 30분 부터 오후 3시40분 까지만 사용해서 지표에 나타날 수 있게 부탁드립니다.
혹 오후3시 40분 마감이 기능상 불가능하다면 마켓프로파일의 시작 시간만 오전 8시 30분으로 설정 부탁드립니다.
#==========================================#
# 지 표 명 : 마켓프로파일
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
#==========================================#
Var:j(0),행번호(0),단위가격(0),추가행(0),알파벳(0),최대개수(0),총개수(0),봉개수(0),
추정거래량(0),cnt(0),중앙가격(0),최대행(0),중심행(0),상위개수(0),
하위개수(0),시초범위상(0),시초범위하(0),가치영역상한(0),가치영역하한(0),누적개수(0),
위꼬리상한(0),위꼬리하한(0),아래꼬리상한(0),아래꼬리하한(0);
Array:가격대[500](0),거래량[500](0),개수[500](0),프로파일[500](0),
중심가격[50](0),가치영역상[50](0),가치영역하[50](0);
단위가격 = PriceScale;
if DayIndex()==0 then //날짜 변경시점에
{
for j = 48 downto 0
{
중심가격[j+1] = 중심가격[j]; //전일 중심가격과
가치영역상[j+1] = 가치영역상[j]; //전일 가치영역 관리
가치영역하[j+1] = 가치영역하[j];
}
for 행번호 = 0 to 499 //0값으로 초기화
{
거래량[행번호] = 0;
개수[행번호] = 0;
프로파일[행번호] = 0;
}
최대개수 = 0;
총개수 = 0;
시초범위상 = 0; //장 개시 후 1시간내의 가격범위
시초범위하 = 0;
가격대[0] = H + 단위가격 * 100; //100호가의 여유를 둠
for 행번호 = 0 to 498
{
가격대[행번호+1] = 가격대[행번호] - 단위가격; //가격대 배열에 가격 대입
}
}
if 가격대[0] <= H then //고가가 가격대 배열 이상이 되면
{
추가행 = ceiling((H-가격대[0])/단위가격) + 20; //고가에 20호가 여유를 더 두어 재설정
for 행번호 = (499 - 추가행) downto 0
{
가격대[행번호+추가행] = 가격대[행번호]; //추가행만큼 뒤로 옮긴다
거래량[행번호+추가행] = 거래량[행번호];
개수[행번호+추가행] = 개수[행번호];
프로파일[행번호+추가행] = 프로파일[행번호];
}
가격대[0] = 가격대[0] + 단위가격 * 추가행; //추가된 행에 가격 재설정
for 행번호 = 0 to (추가행-1)
{
가격대[행번호+1] = 가격대[행번호] - 단위가격;
}
for 행번호 = 0 to 추가행 //추가된 행의 나머지 항목은
{
거래량[행번호] = 0; //0값으로 초기화
개수[행번호] = 0;
프로파일[행번호] = 0;
}
중심행 = 중심행 + 추가행; //중심가격의 행번호도 뒤로 밀린다
}
알파벳 = DayIndex() + 1; //알파벳 대신 숫자 사용
중앙가격 = (DayHigh()+Daylow())/2; //전체가격폭의 중앙
if DayIndex() == 60/BarInterval-1 then //장 개시 후 1시간내의 가격범위
{
시초범위상 = DayHigh();
시초범위하 = DayLow();
}
cnt = 0;
for 행번호 = 0 to 499
{
if L <= 가격대[행번호] and 가격대[행번호] <= H then //현재 봉 가격대가 몇가격대
cnt = cnt + 1; //걸쳐져 있는지 계산
}
추정거래량 = V/cnt; //가격대별 배분할 거래량
for 행번호 = 0 to 499
{
if L <= 가격대[행번호] and 가격대[행번호] <= H then
{
거래량[행번호] = 거래량[행번호] + 추정거래량;
개수[행번호] = 개수[행번호] + 1;
프로파일[행번호] = 알파벳;
총개수 = 총개수 + 1;
if 최대개수 < 개수[행번호] then //신규 최빈값 나왔을 때
{
최대개수 = 개수[행번호];
중심행 = 행번호;
}
else if 최대개수 == 개수[행번호] then //최빈값과 동일하다면
{
if 거래량[중심행] < 거래량[행번호] then //거래량 많은 가격대를
중심행 = 행번호;
else if 거래량[중심행] == 거래량[행번호] and //거래량도 동일하면
abs(중앙가격-가격대[중심행]) > //전체가격폭 중앙에
abs(중앙가격-가격대[행번호]) then //가까운 가격으로
중심행 = 행번호;
}
}
}
중심가격[0] = 가격대[중심행]; //알파벳 개수가 가장 많은 가격
가치영역상한 = 중심행; //중심가격을 중심으로 위, 아래 70% 해당하는
가치영역하한 = 중심행; //행을 찾기 위해 시작 행을 중심행으로 함
누적개수 = 개수[중심행]; //가치영역을 찾기 위해 알파벳 개수 누적
for j = 0 to 499
{
var2 = 개수[가치영역상한-1]; //가치영역상한선은 1행씩 위로(-1)
var3 = 개수[가치영역하한+1]; //가치영역하한선은 1행씩 아래로(+1)
if var2 > var3 then //개수가 많은 쪽의 개수를 먼저 누적한다
{
누적개수 = 누적개수 + var2;
가치영역상한 = 가치영역상한 - 1;
}
else if var2 < var3 then
{
누적개수 = 누적개수 + var3;
가치영역하한 = 가치영역하한 + 1;
}
else if var2 == var3 and var2 > 0 and var3 > 0 then
{
누적개수 = 누적개수 + var2;
가치영역상한 = 가치영역상한 - 1;
}
if 누적개수 >= 총개수 * 0.7 or var2 + var3 == 0 then
j = 499;
}
가치영역상[0] = 가격대[가치영역상한];
가치영역하[0] = 가격대[가치영역하한];
상위개수 = 0; 하위개수 = 0; 위꼬리상한 = 499; 위꼬리하한 = 0; 아래꼬리상한 = 499;
if 개수[499] == 1 then 아래꼬리하한 = 499;
else 아래꼬리하한 = 0;
for 행번호 = 0 to 중심행-1
{
if 개수[행번호] > 1 then
상위개수 = 상위개수 + 개수[행번호];
if 개수[행번호] == 0 and 개수[행번호+1] == 1 then
위꼬리상한 = 행번호 + 1;
if 개수[행번호] == 1 and 개수[행번호+1] > 1 and 위꼬리하한 == 0 then
위꼬리하한 = 행번호;
}
for 행번호 = 499 downto 중심행+1
{
if 개수[행번호] > 1 then
하위개수 = 하위개수 + 개수[행번호];
if 개수[행번호] == 1 and 개수[행번호-1] > 1 and 아래꼬리상한 == 499 then
아래꼬리상한 = 행번호;
if 개수[행번호] == 0 and 개수[행번호-1] == 1 then
아래꼬리하한 = 행번호 - 1;
}
봉개수 = 0; //단봉, 쌍봉, 삼봉 등 패턴파악용
for 행번호 = 1 to 499
{
if 개수[행번호-1] < 개수[행번호] then //개수가 올라가면
{
if 봉개수 == 0 then 봉개수 = 0.3; //x.3
else if 봉개수 == 1 then 봉개수 = 1.3;
else if 봉개수 == 2 then 봉개수 = 2.3;
else if 봉개수 == 3 then 봉개수 = 3.3;
else if 봉개수 == 4 then 봉개수 = 4.3;
}
if 최대개수 * 0.8 < 개수[행번호] then //꼭지에 도달하면
{
if 봉개수 == 0.3 then 봉개수 = 0.7; //x.7
else if 봉개수 == 1.3 then 봉개수 = 1.7; //낮은 봉은 배제하려고
else if 봉개수 == 2.3 then 봉개수 = 2.7; //최대개수의 80% 수준으로 설정
else if 봉개수 == 3.3 then 봉개수 = 3.7;
else if 봉개수 == 4.3 then 봉개수 = 4.7;
}
if 개수[행번호-1] > 개수[행번호] then //개수가 떨어지는데
{
if 봉개수 == 0.7 then 봉개수 = 1; //꼭지 찍고 내려오는 것은
else if 봉개수 == 1.7 then 봉개수 = 2; //1.0
else if 봉개수 == 2.7 then 봉개수 = 3;
else if 봉개수 == 3.7 then 봉개수 = 4;
else if 봉개수 == 4.7 then 봉개수 = 5;
else if 봉개수 == 0.3 then 봉개수 = 0; //꼭지 못찍고 내려오면
else if 봉개수 == 1.3 then 봉개수 = 1; //원위치
else if 봉개수 == 2.3 then 봉개수 = 2;
else if 봉개수 == 3.3 then 봉개수 = 3;
else if 봉개수 == 4.3 then 봉개수 = 4;
}
}
plot1(중심가격[0],"중심가격");
plot2(가치영역상[0],"가치영역(상)",RED); //선그래프,채우기
plot3(가치영역하[0],"가치영역(하)",RED);
if 위꼬리상한 <= 위꼬리하한 then
{
plot4(가격대[위꼬리상한],"위꼬리상단",BLACK); //점그래프,채우기
plot5(가격대[위꼬리하한],"위꼬리하단",BLACK);
}
if 아래꼬리상한 <= 아래꼬리하한 then
{
plot6(가격대[아래꼬리상한],"아래꼬리상단",BLACK); //점그래프,채우기
plot7(가격대[아래꼬리하한],"아래꼬리하단",BLACK);
}
if 시초범위상 > 0 then plot8(시초범위상,"시초범위(상)",GREEN); //점그래프,채우기
if 시초범위하 > 0 then plot9(시초범위하,"시초범위(하)",GREEN);
2024-02-16
730
글번호 176667
지표
답변완료
수식좀 요청 드립니다(수직선)
* 항상 많은 도움에 고맙습니다.
* 아래 수식을 적용 하면 4개의 점선이 생김니다
참고사항 : 실제 수식은 아래 조건임
if StoD < 20 Then
if slowMA > slowMA[2] Then
if Signal2 and wasUp[1] Then
if Midline < Midline[2] Then
* 요청 사항: 4개 점선중 3개 이상(3포함)의 점선이 생기면 5번재 점(★)으로
한줄 더 요청 합니다.
즉 1~2개의 점(●) 이면 안 생기고
한봉에 점(●)이 3개이상(3포함) 이면 5번재 점(★)이 찍히고
★선 기준봉에 수직선이 그려 질수 있도록 부탁 드립니다.
## 수직선: TL_New(sDate,sTime,c,sDate,sTime,999);
## 아래 수식 (이것중 3개 이상이면 별점 생기고 수평선 부탁 드립니다)
var : TX63(0);
Input : 이격도81(20),Period86(5);
var : DParity(0),mav86(0);
DParity = Disparity(이격도81);
mav86 = ma(DParity,Period86);
var81 = ma(mav86,3) ;
var82 = ma(var81,3) ;
var83 = ma(var82,3) ;
var84 = ma(var82,3) ;
var85 = ma(var82,3) ;
var86 = ma(mav86,12) ;
Plot1(Var86) ;
## var: TX63(0);
if var85 > var86 Then
{
TX63 = Text_New_Self(sDate,sTime,var85-PriceScale*3,"●");
Text_SetStyle(TX63,2,1);
Text_SetColor(TX63,Rgb(250,0,250));
Text_SetSize(TX63,12);
}
if var85 < var84+PriceScale*3 Then
{
TX63 = Text_New_Self(sDate,sTime,var85+PriceScale*6,"●");
Text_SetStyle(TX63,2,1);
Text_SetColor(TX63,Rgb(0,0,255));
Text_SetSize(TX63,12);
}
if var85+PriceScale*3 > var83 Then
{
TX63 = Text_New_Self(sDate,sTime,var85-PriceScale*9,"●");
Text_SetStyle(TX63,2,1);
Text_SetColor(TX63,Rgb(0,0,0));
Text_SetSize(TX63,12);
}
if var85+PriceScale*3 > var83-PriceScale*8 Then
{
TX63 = Text_New_Self(sDate,sTime,var85-PriceScale*15,"●");
Text_SetStyle(TX63,2,1);
Text_SetColor(TX63,Rgb(0,135,0));
Text_SetSize(TX63,12);
}
* 고맙습니다 좋은 시간 되십시요.
##=======================================================================
안녕하세요
예스스탁입니다.
1.매도식
1)
Inputs: N(3),Per(30),P1(10),P2(20);
Variables: BBTop(0), BBMid(0), BBBot(0),Bwidth(0),MACDV(0),MACDS(0);
BBTop = BollBandUp(20,2);
BBMid = ma(C,20);
BBBot = BollBandDown(20,2);
BWidth = ((BBTop - BBBot)/ BBMid);
MACDV = MACD(12,26);
MACDS = ema(MACDV,9);
if BWidth >= BWidth[N]*(1+Per/100) And #N봉전 대비 밴드폭이 Per%이상 큼
countif(CrossDown(MACDV,MACDS),2) >= 1 And #현재봉과 전봉중에 MACD 데드크로스 있음
C <= O-PriceScale*P1 And C >= O-PriceScale*P2 and #P1틱이상 P2틱 이하의 장대음봉 발생
(c <= BBTop*1.02 or CrossDown(c,ma(C,20))) Then #종가가 밴드 상단 2% 이내이거나 20이평 하향이탈
sell("s1",AtMarket);
if MarketPosition == -1 Then{
#MACD 골든크로스 발생하면 다음봉 시가에 매수청산
if CrossUp(MACDV,MACDS)Then
ExitShort("sx1",AtMarket);
#장대음봉으로 5이평 상향돌파
if crossup(C,ma(C,5)) and C >= O+PriceScale*P1 And C <= O+PriceScale*P2 Then
ExitShort("sx2");
#하단선 1% 근접
if CrossDown(c,BBBot*1.01) Then
ExitShort("sx3");
#6틱이상 수익후에 4틱 밀리면 청산
if Lowest(L,BarsSinceEntry) <= EntryPrice-PriceScale*6 Then
ExitShort("sx4",AtStop,lowest(L,BarsSinceEntry)+PriceScale*4);
}
#손절
SetStopLoss(PriceScale*8,PointStop);
2)
Inputs: N(3),Per(30),P1(10),P2(20);
Variables: BBTop(0), BBMid(0), BBBot(0),Bwidth(0),MACDV(0),MACDS(0);
BBTop = BollBandUp(20,2);
BBMid = ma(C,20);
BBBot = BollBandDown(20,2);
BWidth = ((BBTop - BBBot)/ BBMid);
MACDV = MACD(12,26);
MACDS = ema(MACDV,9);
if BWidth >= BWidth[N]*(1+Per/100) And #N봉전 대비 밴드폭이 Per%이상 큼
countif(CrossDown(MACDV,MACDS),2) >= 1 And #현재봉과 전봉중에 MACD 데드크로스 있음
C <= O-PriceScale*P1 And C >= O-PriceScale*P2 and #P1틱이상 P2틱 이하의 장대음봉 발생
(CrossDown(c,BBmid) or CrossDown(c,ma(C,20))) Then #종가가 밴드 중심선이나 20이평 하향이탈
sell("s2",AtMarket);
if MarketPosition == -1 Then{
#MACD 골든크로스 발생하면 다음봉 시가에 매수청산
if CrossUp(MACDV,MACDS)Then
ExitShort("sx1",AtMarket);
#장대음봉으로 5이평 상향돌파
if crossup(C,ma(C,5)) and C >= O+PriceScale*P1 And C <= O+PriceScale*P2 Then
ExitShort("sx2");
}
#손절
SetStopLoss(PriceScale*8,PointStop);
2. 매수
input : P1(10),P2(15);#시가대비 10틱~15틱몸통
var1 = BollBandUp(20,2);
var2 = BollBandDown(20,2);
var3 = ma(c,20);
var4 = MACD(12,26);
var5 = ema(var4,9);
/*1) 볼린저밴드 하단을 타고 하락추세를 가다가 하단선을 분봉상
장대양봉으로 돌파과 함께 5이동평균을 분봉상 동시에 돌파하고
MACD SIG널과 골든크로스신호가 동시에 발생시에 봉완성을 확인하고
그 다음봉에 진입하는데 진입은 앞전봉의 종가나 - 1~2틱에서만 진입한다.*/
if C < C[1] and var2 < var2[1] and#주가와 볼밴하단 하향
countif(crossup(c,var2),5) >= 1 and C <= var2*1.02 and #5봉안에 종가가 볼댄하단 상향돌파한적이 있고 2% 내
C >= O+PriceScale*P1 And C <= O+PriceScale*P2 and #P1틱 이상~P2틱 이하 몸통을 가지는 장대양봉
crossup(c,ma(c,5)) and # 종가가 5이평 상향돌파
crossup(var4,var5) Then#MACD가 시그널선 상향돌파
buy("b1");
/*2) 볼린저밴드 중심선을 타고 횡보추세(또는 이동평균 5이평과10이평과20이평의 이격도가 1%이내)를 가다가 중심선을 분봉상
장대양봉으로 돌파과 함께 5이동평균과 중심선을 분봉상 동시에 돌파하고 MACD SIG널과 골든크로스신호가 동시에 발생시에 봉완성을
확인하고 그 다음봉에 진입하는데 진입은 앞전봉의 종가나 - 1~2틱에서만 진입한다.*/
if max(ma(c,5),ma(C,10),ma(C,20)) <= Min(ma(c,5),ma(C,10),ma(C,20))*1.01 and#3이평이 1%안 밀집
crossup(c,var3) and #종가가 볼댄중심 상향돌파
C >= O+PriceScale*P1 And C <= O+PriceScale*P2 and #P1틱 이상~P2틱 이하 몸통을 가지는 장대양봉
crossup(c,ma(c,5)) and # 종가가 5이평 상향돌파
crossup(var4,var5) Then#MACD가 시그널선 상향돌파
buy("b2");
#((매수진입추가))
#3) macd sig골든크로스와 동시에 전봉거래량대비 3배이상의거래량으로 장대양봉(몇틱이상 ~몇틱이하)으로 볼린저밴드 상단돌파시를 확정하고 그다음봉 시가에 진입한다.
#진입후 익절은 10틱 손절은 5일선하락이나 -6틱손실시에 매수청산을 추가해주세요.
if crossup(c,var1) and #종가가 볼밴상단 상향돌파
C >= O+PriceScale*P1 And C <= O+PriceScale*P2 and #P1틱 이상~P2틱 이하 몸통을 가지는 장대양봉
V >= V[1]*3 and #진적봉대비 거래량 3개 증가
crossup(var4,var5) Then#MACD가 시그널선 상향돌파
buy("b3");
#손절
SetStopLoss(PriceScale*6,PointStop);
#목표이익
SetStopProfittarget(PriceScale*10,PointStop);
if MarketPosition == 1 Then{
#진입봉(장대양봉)의 저가 이탈
ExitLong("bx1",AtStop,L[BarsSinceEntry]-PriceScale);
#MACD데드
if CrossDown(var4,var5) Then
exitlong("bx2");
}
#5일선 하락 매수청산
if MarketPosition == 1 and ma(c,5) < ma(C,5)[1] Then
exitlong();
즐거운 하루되세요
==================================================================
안녕하세요
예스스탁입니다.
1.
input : P(5);
var : D1(0),MM(0);
MM = stime%100;
D1 = C/ma(c,P)*100;
#이격3개가 모두 99.5이하인 시점에 매수진입
if CrossDown(d1,99.5) and ((MM >= 0 and MM < 25) or (MM >= 30 and MM < 55)) Then
buy("b",OnClose,def,1);
#이격3개가 모두 100.5이상인 시점에 매도진입
if crossup(d1,100.05) and ((MM >= 0 and MM < 25) or (MM >= 30 and MM < 55)) Then
sell("s",OnClose,def,1);
#매수진입후
if MarketPosition == 1 Then{
if CurrentContracts > CurrentContracts[1] Then
var1 = H;
if H > var1 Then
var1 = H;
#진입이 1번일경우
if MaxEntries == 1 Then{
#15틱 하락하면 1계약 추가매수진입
buy("bb",atlimit,EntryPrice-PriceScale*15,1);
#진입가+10틱에 청산
ExitLong("bp1",Atlimit,EntryPrice+PriceScale*10);
#4틱이상 상승후 진입가+2틱에 도달하면 매수청산
if var1 >= EntryPrice+PriceScale*4 Then
exitlong("bx1",AtStop,EntryPrice+PriceScale*2);
}
#진입이 2번일 경우
if MaxEntries == 2 Then{
#청산이 아직 발생하지 않은 경우 평단가+4틱 수익이면 1계약청
if CurrentContracts == MaxContracts Then
ExitLong("bp21",Atlimit,avgEntryPrice+PriceScale*4,"",1,1);
#일부청산이 된 경우
if CurrentContracts < MaxContracts Then
#평단가 +10틱이상이면 나머지 청산
ExitLong("bp22",Atlimit,AvgEntryPrice+PriceScale*10);
#평단가 +4틱이상 상승후 하락해서 평단가+4틱에 도달하면 나머지 청산
if var1 > AvgEntryPrice+PriceScale*4 Then
exitlong("bx2",AtStop,EntryPrice+PriceScale*4);
}
}
#매도진입후
if MarketPosition == -1 Then{
if CurrentContracts > CurrentContracts[1] Then
var2 = L;
if L < var2 Then
var2 = L;
#진입이 1번일경우
if MaxEntries == 1 Then{
#15틱 상승하면 1계약 추가매도진입
sell("ss",atlimit,EntryPrice+PriceScale*15,1);
#진입가-10틱에 청산
ExitShort("sp1",Atlimit,EntryPrice-PriceScale*10);
#4틱 하락 후 진입가-2틱에 도달하면 매도청산
if var2 <= EntryPrice-PriceScale*4 Then
ExitShort("sx1",AtStop,EntryPrice-PriceScale*2);
}
#진입이 2번일 경우
if MaxEntries == 2 Then{
if CurrentContracts == MaxContracts Then
ExitShort("sp21",Atlimit,avgEntryPrice-PriceScale*4);
if CurrentContracts < MaxContracts Then
ExitShort("sp22",Atlimit,AvgEntryPrice-PriceScale*10);
if var2 < AvgEntryPrice-PriceScale*4 Then
ExitShort("sx2",AtStop,EntryPrice-PriceScale*4);
}
}
2
가능하지 않습니다.
봉미완성시 조건체크해서 신호나오게 할수는 없습니다.
즐거운 하루되세요
안녕하세요
예스스탁입니다.
var : box(0);
var1 = BollBandDown(40,2);
Var2 = BollBandDown(80,2);
Condition1 = var1 < Var2;
if Condition1 == true Then
{
if Condition1[1] == False Then
{
box = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L);
Box_SetColor(box,Yellow);
Box_SetFill(box,true);
Box_SetExtFill(box,true);
}
Else
{
Box_SetEnd(box,NextBarSdate,NextBarStime,l);
}
}
즐거운 하루되세요
2024-07-24
990
글번호 176666
지표
답변완료
확인 부탁드립니다.
안녕하세요
아래 수식을 다시한번 확인 부탁드립니다.
글로 표현하자니 제가 잘 표현하지 못한것 같습니다.
매도(매수)신호 1봉의 3등분이 아니라 매도신호봉과 매수신호봉까지의 고가,중심,저가 입니다.
감사합니다
var : mav1(0),mav2(0),mav3(0),T1(0),T2(0),T3(0);
var : bTL1(0),bTL2(0),bTL3(0);
var : sTL1(0),sTL2(0),sTL3(0);
mav1 = ma(c,5);
mav2 = ma(c,20);
mav3 = ma(c,60);
if mav1 > mav1[1] Then
T1 = 1;
if mav1 < mav1[1] Then
T1 = -1;
if T1 == 1 and T1[1] != 1 Then
var1 = 0;
// if T1 == 1 and C > O and (C+O)/2 >= mav1 and mav2 > mav2[1] and mav3 > mav3[1] Then{ 60이평포함
if T1 == 1 and C > O and (C+O)/2 >= mav1 and mav2 > mav2[1] and mav1 > mav2 Then
{
var1 = var1+1;
if MarketPosition <= 0 and var1 == 1 Then
{
buy("5매수");
value1 = H;
value2 = (H+L)/2;
value3 = L;
TL_Delete(bTL1);
TL_Delete(bTL2);
TL_Delete(bTL3);
bTL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
bTL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
bTL3 = TL_New(sDate,sTime,value3,NextBarSdate,NextBarStime,value3);
TL_SetExtRight(bTL1,true);
TL_SetExtRight(bTL2,true);
TL_SetExtRight(bTL3,true);
TL_SetColor(bTL1,Red);
TL_SetColor(bTL2,Red);
TL_SetColor(bTL3,Red);
}
}
if T1 == -1 and T1[1] != -1 Then
var2 = 0;
// if T1 == -1 and C < O and (C+O)/2 <= mav1 and mav2 < mav2[1] and mav3 < mav3[1] Then{ 60이평포함
if T1 == -1 and C < O and (C+O)/2 <= mav1 and mav2 < mav2[1] and mav1 < mav2 Then
{
var2 = var2+1;
if MarketPosition >= 0 and var2 == 1 Then
{
sell("5매도");
value4 = H;
value5 = (H+L)/2;
value6 = L;
TL_Delete(sTL1);
TL_Delete(sTL2);
TL_Delete(sTL3);
sTL1 = TL_New(sDate,sTime,value4,NextBarSdate,NextBarStime,value4);
sTL2 = TL_New(sDate,sTime,value5,NextBarSdate,NextBarStime,value5);
sTL3 = TL_New(sDate,sTime,value6,NextBarSdate,NextBarStime,value6);
TL_SetExtRight(sTL1,true);
TL_SetExtRight(sTL2,true);
TL_SetExtRight(sTL3,true);
TL_SetColor(sTL1,Blue);
TL_SetColor(sTL2,Blue);
TL_SetColor(sTL3,Blue);
}
}
2024-02-15
761
글번호 176665
시스템