답변완료
부탁드립니다 항상 감사합니다
// ===== 손익비 박스 전략 (복사 전용) =====
Input: 손절비율(0.995), 선길이분(60);
Var: 진입가(0), 손절가(0), 박스ID(0), 박스색(Red);
Var: 진입중(false), 숏모드(false);
// 예시 진입 조건 (사용자 조건에 맞게 수정)
If 진입중 == false and Close > Open Then
Begin
진입가 = Close;
손절가 = 진입가 * 손절비율;
진입중 = true;
숏모드 = false;
Text_New(Date, Time, Close, "TEST 진입");
TL_SetSize(TL_New(Date, Time, 진입가, Date, MinutesToTime(TimeToMinutes(Time) + 선길이분), 진입가), 1);
// 손익비 박스 시각화
박스ID = TL_New(Date, Time, 진입가, Date, Time, 손절가);
TL_SetColor(박스ID, 박스색);
TL_SetSize(박스ID, 2);
TL_SetExtLeft(박스ID, false);
TL_SetExtRight(박스ID, false);
Text_New(Date, Time, (진입가 + 손절가)/2, "손익비: 무한 / 손절: -" + NumToStr(100 - 손절비율 * 100, 1) + "%");
End;
구현이 되질않습니다 도와주세요 ㅠ
2025-05-17
208
글번호 190916
지표
답변완료
부탁드립니다 항상 감사합니다
Input: 비교봉(100), 플러스폭(20), 마이너스폭(20), 익절비율(1.05), 손절비율(0.95);
Var: A(0), B(0), T(0),
기준거래량(0), 진입가(0), 익절가(0), 손절가(0),
진입중(false), 매도완료(false), 총수(0), 승수(0), 진입날짜(0);
// 모멘텀 계산
A = O;
B = Accum(iff(A > A[비교봉], 플러스폭, iff(A < A[비교봉], -마이너스폭, 0)));
If B > B[1] Then
T = 1;
Else if B < B[1] Then
T = -1;
Else
T = T[1];
// 기준 거래량 계산 (데이터 충분할 때만)
If CurrentBar > 20 Then
기준거래량 = Average(volume, 20);
// 진입 조건
If 진입중 == false and 매도완료 == false and T == 1 and CurrentBar > 20 Then
Begin
If volume > 기준거래량 and
Close > BollBandUp(20, 2) and
Close > Open and
(Close - Open) > (High - Low) * 0.6 Then
Begin
진입가 = Close;
익절가 = 진입가 * 익절비율;
손절가 = 진입가 * 손절비율;
진입중 = true;
총수 = 총수 + 1;
진입날짜 = Date;
Text_New(Date, Time, Close, "BUY");
End;
End;
차트가 검증은되는데 구현이 되질않습니다 수정부탁드리겠습니다
2025-05-17
271
글번호 190914
지표
답변완료
부탁드립니다 항상 감사합니다
1.
Input: 기준배율(1.8), 익절비율(1.05), 손절비율(0.95);// 5%기준
Var: 기준거래량(0), 진입가(0), 익절가(0), 손절가(0),
진입중(false), 매도완료(false), 승수(0), 총수(0), 승률(0);
// --- 거래 조건 ---
기준거래량 = Average(volume, 20);
If 진입중 == false and 매도완료 == false Then
Begin
If volume > 기준거래량 and
Close > BollBandUp(20, 2) and
Close > Open and
(Close - Open) > (High - Low) * 0.6 Then
Begin
진입가 = Close;
익절가 = 진입가 * 익절비율;
손절가 = 진입가 * 손절비율;
진입중 = true;
총수 = 총수+1;
Text_New(date, time, Close, "BUY");
End;
End;
// --- 청산 조건 ---:진입 다음 봉 시가에 청산---
If 진입중 == true and 매도완료 == false Then
Begin
If Close >= 익절가 or Close <= 손절가 Then
Begin
If Close >= 익절가 Then
승수 = 승수+ 1;
// 손절 여부 확인
If Open <= 손절가 Then
Begin
Text_New(Date, Time, Open, "LOSS");
End
Else
Begin
Text_New(Date, Time, Open, "SELL");
End;
Text_New(date, time, Close, "SELL");
매도완료 = true;
End;
End;
// --- 상태 초기화 ---
If 매도완료 == true and (Close > 익절가 or Close < 손절가) Then
Begin
진입중 = false;
매도완료 = false;
End;
// --- 승률 계산 ---
If 총수 > 0 Then
승률 = 승수 / 총수 * 100.0;
Plot1(승률, "승률");
2.
Input: 기준배율(1.8), 익절비율(1.05), 손절비율(0.95); // 5% 기준
Var: 기준거래량(0), 진입가(0), 익절가(0), 손절가(0),
진입중(false), 매도완료(false), 승수(0), 총수(0), 승률(0),
진입날짜(0), 청산가(0),
누적손익률(0.0), 평균손익률(0.0), 손익률(0.0), profit(0),
선(0);
// --- 거래 조건 ---
기준거래량 = Average(volume, 20);
If 진입중 == false and 매도완료 == false Then
Begin
If volume > 기준거래량 and
Close > BollBandUp(20, 2) and
Close > Open and
(Close - Open) > (High - Low) * 0.6 Then
Begin
진입가 = Close;
익절가 = 진입가 * 익절비율;
손절가 = 진입가 * 손절비율;
진입중 = true;
총수 = 총수 + 1;
진입날짜 = Date;
Text_New(Date, Time, Close, "BUY");
End;
End;
// --- 청산 조건: 진입 다음 봉 시가에 청산 ---
If 진입중 == true and 매도완료 == false and Date > 진입날짜 Then
Begin
청산가 = Open;
// 손익 계산
profit = 청산가 - 진입가;
손익률 = (청산가 / 진입가 - 1.0) * 100;
// 승수 및 표시
If 청산가 >= 익절가 Then
승수 = 승수 + 1;
If 청산가 <= 손절가 Then
Begin
Text_New(Date, Time, 청산가, "LOSS");
End
Else
Begin
Text_New(Date, Time, 청산가, "SELL");
End;
// 선 표시
선 = TL_New(Date, Time, 청산가, Date, Time, 청산가);
TL_SetColor(선, Cyan);
TL_SetSize(선, 2);
// 누적 손익률 계산
누적손익률 = 누적손익률 + 손익률;
평균손익률 = 누적손익률 / 총수;
매도완료 = true;
End;
// --- 상태 초기화 ---
If 매도완료 == true and Date > 진입날짜 Then
Begin
진입중 = false;
매도완료 = false;
End;
// --- 실시간 계산 출력 ---
If 총수 > 0 Then
Begin
승률 = 승수 / 총수 * 100.0;
Plot1(승률, "승률");
Plot2(평균손익률, "평균손익률");
Plot3(누적손익률, "누적손익률");
End;
3.
Input: 기준배율(1.8), 익절비율(1.02), 손절비율(0.98);
Var: 기준거래량(0), 진입가(0), 익절가(0), 손절가(0),
진입중(false), 매도완료(false), 승수(0), 총수(0), 승률(0);
// --- 거래 조건 ---
기준거래량 = Average(volume, 20);
If 진입중 == false and 매도완료 == false Then
Begin
If volume > 기준거래량 and
Close > BollBandUp(20, 2) and
Close > Open and
(Close - Open) > (High - Low) * 0.6 Then
Begin
진입가 = Close;
익절가 = 진입가 * 익절비율;
손절가 = 진입가 * 손절비율;
진입중 = true;
총수 = 총수+1;
Text_New(date, time, Close, "BUY");
End;
End;
// --- 청산 조건 ---
If 진입중 == true and 매도완료 == false Then
Begin
If Close >= 익절가 or Close <= 손절가 Then
Begin
If Close >= 익절가 Then
승수 = 승수+ 1;
Text_New(date, time, Close, "SELL");
매도완료 = true;
End;
End;
// --- 상태 초기화 ---
If 매도완료 == true and (Close > 익절가 or Close < 손절가) Then
Begin
진입중 = false;
매도완료 = false;
End;
// --- 승률 계산 ---
If 총수 > 0 Then
승률 = 승수 / 총수 * 100.0;
Plot1(승률, "승률");
전부다 이미니 나스닥100 지수 선물차트에 다음항목과 공유누르면 작동이안됩니다 작동되게 부탁드릴꼐요
2025-05-17
275
글번호 190912
지표
답변완료
질문 부탁드립니다
지난 답변 감사드립니다
몇 가지 여쭤보겠습니다
질문1)
혹시 아래와 같은 최근 10개만 나타낸 추세선에서
최근 3개만 색상을 변경 할 수는 있을까요??
(혹은 최근3개 이전에(과거값) 나오는 추세선들만 색상 변경)
최근 n개는 표시하지 않게 하는거랑 마찬가지로 색상 변경도 안되나요?~
sd[0] = sDate;
st[0] = sTime;
TL_SetExtRight(tttl[10],False);
tttl[0]=tl_new(sd[3],st[3],aa[3],sd[1],st[1],aa[1]);
TL_SetSize(tttl[0],0);
TL_SetExtRight(tttl[0],true);
질문2)
text 함수 관련 질문인데요
txtt[0]=text_new(sd[0],st[0],aa[0],NumToStr((aa[0]-aa[1])/aa[1]*100,0));
numtostr 으로 퍼센트 계산하는 식을 넣었는데 혹시 (aa[0]-aa[1])/aa[1]*100 뒤에 % 라는 문자를 추가로 넣을 수 있을까요?
그리고 텍스트 함수는 값을 하나만 표현할 수 있나요?
예를들어서 aa[0], aa[1], (aa[0]-aa[1])/aa[1]*100 이런식으로 3가지 값을 쉼표나 띄어쓰기로 구분해서 하나의 텍스트 함수로 표현하게 할 수 있는지
그렇지 않으면 개별로 텍스트 함수를 작성해야 하는지 궁금합니다
질문3)
추세선 끼리의 crossup crossdown 은 계산이 가능하나요??
아래식에서처럼 tttl1 배열에 추세선을 저장하고 "우측연장"한 상태에서,
tttl1[1] 추세선이 tttl1[0] 추세선을 crossup 했을때의 "가격"값을 저장할 수 있을까요??
감사합니다
var : cnt(0), sum1(0), sumi1(0),summ(0),tt(0),hh(0),ll(0),tl(0),tl1(0),n(0),ae(0);
var: sum2(0),sumi2(0),count(0),sumaa(0),sumai(0),avgaa(0);
var : t(0),StartBarIndex(0),dd(0),d1(0),d2(0),e1(0),e2(0);
Array : ii[50](0),aa[50](0),cc[50](0),ee[50](0),ttl[30](0),txtt[40](0),
tttl1[40](0),tttl2[40](0),sd[45](0),st[45](0),ad[50](0),at[50](0);
if Bdate != Bdate[1] Then
{
DD = DD+1;
}
if (h>l*1.08) and (d1 == 0 or (d1 > 0 and dd >= d1+5)) Then
{
d1 = dd;
hh = h;
var1 = Index;
Var2 = var1[1];
Var3 = Var2[1];
sum1=0; sumi1=0; sum2=0; sumi2=0;
tl=TL_NEW(sDate,sTime,100,sDate,sTime,999999);
TL_SetSize(tl,0);
TL_SetColor(tl,Gray);
For cnt = 1 to (var1-Var2)
{
sum1=sum1+l[cnt];
sumi1=sumi1+1;
}
value1=sum1/sumi1;
For cnt = 49 DownTo 1
{
aa[cnt] = aa[cnt-1];
sd[cnt] =sd[cnt-1];
st[cnt] =st[cnt-1];
# ttl[cnt] =ttl[cnt-1];
txtt[cnt] = txtt[cnt-1];
tttl1[cnt]=tttl1[cnt-1];
}
aa[0] = value1;
sd[0] = sDate;
st[0] = sTime;
TL_SetExtRight( tttl1[3],False);
tttl1[0] = TL_New(sd[5],st[5],aa[5],sd[3],st[3],aa[3]);
TL_SetSize( tttl1[0],0);
TL_SetDrawMode( tttl1[0],0);
TL_Delete( tttl1[3]);
TL_SetExtRight( tttl1[0],true);
}
2025-05-19
244
글번호 190909
지표