커뮤니티
부탁 드립니다.
2015-11-05 11:00:24
200
글번호 92075
안녕하세요.
data2용으로 지표식과 시스템식 부탁드립니다.
9시 30분 이후 진입
3개의 캔들이 연속으로 value1 아래에 있으면 value1 가격에 매도 주문(value1을 찍으면 즉시 주문)
3개의 캔들이 연속으로 value1 위에 있으면 value1 가격에 매수 주문
감사합니다.
Input:상승률(0.1),하락률(0.1);
Var:j(0),상승(100),하락(-100),양방향(2),색깔(0),파랑(-1),빨강(1),
기준고(0),기준저(0),기준고Bar(0),기준저Bar(0),추세(0),이중파동(0);
Array:고[20](0),저[20](0),고Bar[20](0),저Bar[20](0);
For j = 1 To 19
{
저Bar[j] = 저Bar[j] + 1;
고Bar[j] = 고Bar[j] + 1;
}
If 이중파동 > 0 Then
{
if 색깔 == 빨강 Then{
var2 = 이중파동;#Plot1(이중파동,"Zigzag",blue);
var3 = -1;
}
Else{
var1 = 이중파동;#Plot1(이중파동,"Zigzag",red);
var3 = 1;
}
이중파동 = 0;
}
If 기준고 <= H || 기준고 == 0 || IsNaN(기준고) == True Then
{
기준고 = H;
기준고Bar = 0;
}
Else
기준고Bar = 기준고Bar + 1;
If 기준저 >= L || 기준저 == 0 || IsNaN(기준저) == True Then
{
기준저 = L;
기준저Bar = 0;
}
Else
기준저Bar = 기준저Bar + 1;
If 기준고 * (1 - (하락률/100)) > H && 기준저 * (1 + (상승률/100)) < L Then
{
추세 = Iff(기준고Bar==기준저Bar,양방향,Iff(기준고Bar>기준저Bar,상승,하락));
}
Else If 기준고 * (1 - (하락률/100)) > H Then 추세 = 하락;
Else If 기준저 * (1 + (상승률/100)) < L Then 추세 = 상승;
If 추세[1] == 상승 && 추세 == 하락 Then
{
For j = 18 DownTo 1 {
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
기준고 = H;
기준고Bar = 0;
기준저 = L;
기준저Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강 ;
If 이중파동[1] > 0 Then 이중파동 = 고[1];
Else {var1 = 고[1];#plot1(고[1],"Zigzag",RED);
var3 = 1;
}
}
If 추세[1] == 하락 && 추세 == 하락 &&
고[1] < 기준고 &&
기준고 * (1 - (하락률/100)) > H Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = H;
기준고Bar = 0;
기준저 = L;
기준저Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
var2 = 저[1];#plot1(저[1],"Zigzag",blue);
var3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
If 추세[1] == 하락 && 추세 == 상승 Then
{
For j = 18 DownTo 1
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = L;
기준저Bar = 0;
기준고 = H;
기준고Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
If 이중파동[1] > 0 Then 이중파동 = 저[1];
Else {var2 = 저[1];#plot1(저[1],"Zigzag",blue);
var3 = -1;
}
}
If 추세[1] == 상승 && 추세 == 상승 &&
저[1] > 기준저 &&
기준저 * (1 + (상승률/100)) < L Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = L;
기준저Bar = 0;
기준고 = H;
기준고Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강;
var1 = 고[1];#plot1(고[1],"Zigzag",RED);
var3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
If 추세 == 양방향 Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = H;
기준고Bar = 0;
기준저 = L;
기준저Bar = 0;
추세 = 추세[1];
If 추세[1] == 상승 Then
{
If 고[2] < 고[1] Then 색깔 = 빨강;
var1 = 고[1];#Plot1(고[1],"Zigzag",RED);
var3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
Else
{
If 저[2] > 저[1] Then 색깔 = 파랑;
var2 = 저[1];#Plot1(저[1],"Zigzag",blue);
var3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
}
value1 = (var1-var2+var2);
plot1(value1);
답변 1
예스스탁 예스스탁 답변
2015-11-05 11:35:28
안녕하세요
예스스탁입니다.
1. data2 지표
Input:상승률(0.1),하락률(0.1);
Var:j(0,data2),상승(100,data2),하락(-100,data2),양방향(2,data2),색깔(0,data2),파랑(-1,data2),빨강(1,data2),
기준고(0,data2),기준저(0,data2),기준고Bar(0,data2),기준저Bar(0,data2),추세(0,data2),이중파동(0,data2);
var : V1(0,data2),V2(0,data2),V3(0,data2),val1(0,data2);
Array:고[20](0,data2),저[20](0,data2),고Bar[20](0,data2),저Bar[20](0,data2);
For j = 1 To 19
{
저Bar[j] = 저Bar[j] + 1;
고Bar[j] = 고Bar[j] + 1;
}
If 이중파동 > 0 Then
{
if 색깔 == 빨강 Then{
v2 = 이중파동;#Plot1(이중파동,"Zigzag",blue);
v3 = -1;
}
Else{
v1 = 이중파동;#Plot1(이중파동,"Zigzag",red);
v3 = 1;
}
이중파동 = 0;
}
If 기준고 <= data2(H) || 기준고 == 0 || IsNaN(기준고) == True Then
{
기준고 = data2(H);
기준고Bar = 0;
}
Else
기준고Bar = 기준고Bar + 1;
If 기준저 >= data2(L) || 기준저 == 0 || IsNaN(기준저) == True Then
{
기준저 = data2(L);
기준저Bar = 0;
}
Else
기준저Bar = 기준저Bar + 1;
If 기준고 * (1 - (하락률/100)) > data2(H) && 기준저 * (1 + (상승률/100)) < data2(L) Then
{
추세 = data2(Iff(기준고Bar==기준저Bar,양방향,Iff(기준고Bar>기준저Bar,상승,하락)));
}
Else If 기준고 * (1 - (하락률/100)) > data2(H) Then 추세 = 하락;
Else If 기준저 * (1 + (상승률/100)) < data2(L) Then 추세 = 상승;
If 추세[1] == 상승 && 추세 == 하락 Then
{
For j = 18 DownTo 1 {
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
기준고 = data2(H);
기준고Bar = 0;
기준저 = data2(L);
기준저Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강 ;
If 이중파동[1] > 0 Then 이중파동 = 고[1];
Else {v1 = 고[1];#plot1(고[1],"Zigzag",RED);
v3 = 1;
}
}
If 추세[1] == 하락 && 추세 == 하락 &&
고[1] < 기준고 &&
기준고 * (1 - (하락률/100)) > data2(H) Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = data2(H);
기준고Bar = 0;
기준저 = data2(L);
기준저Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
v2 = 저[1];#plot1(저[1],"Zigzag",blue);
v3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
If 추세[1] == 하락 && 추세 == 상승 Then
{
For j = 18 DownTo 1
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = data2(L);
기준저Bar = 0;
기준고 = data2(H);
기준고Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
If 이중파동[1] > 0 Then 이중파동 = 저[1];
Else {v2 = 저[1];#plot1(저[1],"Zigzag",blue);
v3 = -1;
}
}
If 추세[1] == 상승 && 추세 == 상승 &&
저[1] > 기준저 &&
기준저 * (1 + (상승률/100)) < data2(L) Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = data2(L);
기준저Bar = 0;
기준고 = data2(H);
기준고Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강;
v1 = 고[1];#plot1(고[1],"Zigzag",RED);
v3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
If 추세 == 양방향 Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = data2(H);
기준고Bar = 0;
기준저 = data2(L);
기준저Bar = 0;
추세 = 추세[1];
If 추세[1] == 상승 Then
{
If 고[2] < 고[1] Then 색깔 = 빨강;
v1 = 고[1];#Plot1(고[1],"Zigzag",RED);
v3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
Else
{
If 저[2] > 저[1] Then 색깔 = 파랑;
v2 = 저[1];#Plot1(저[1],"Zigzag",blue);
v3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
}
val1 = (v1-v2+2);
plot1(val1);
2. 시스템
value1을 찍으면 즉시 주문은 가능하지 않습니다.
참조데이터는 종가시점으로만 신호가 가능합니다.
Input:상승률(0.1),하락률(0.1);
Var:j(0,data2),상승(100,data2),하락(-100,data2),양방향(2,data2),색깔(0,data2),파랑(-1,data2),빨강(1,data2),
기준고(0,data2),기준저(0,data2),기준고Bar(0,data2),기준저Bar(0,data2),추세(0,data2),이중파동(0,data2);
var : V1(0,data2),V2(0,data2),V3(0,data2),val1(0,data2);
Array:고[20](0,data2),저[20](0,data2),고Bar[20](0,data2),저Bar[20](0,data2);
For j = 1 To 19
{
저Bar[j] = 저Bar[j] + 1;
고Bar[j] = 고Bar[j] + 1;
}
If 이중파동 > 0 Then
{
if 색깔 == 빨강 Then{
v2 = 이중파동;#Plot1(이중파동,"Zigzag",blue);
v3 = -1;
}
Else{
v1 = 이중파동;#Plot1(이중파동,"Zigzag",red);
v3 = 1;
}
이중파동 = 0;
}
If 기준고 <= data2(H) || 기준고 == 0 || IsNaN(기준고) == True Then
{
기준고 = data2(H);
기준고Bar = 0;
}
Else
기준고Bar = 기준고Bar + 1;
If 기준저 >= data2(L) || 기준저 == 0 || IsNaN(기준저) == True Then
{
기준저 = data2(L);
기준저Bar = 0;
}
Else
기준저Bar = 기준저Bar + 1;
If 기준고 * (1 - (하락률/100)) > data2(H) && 기준저 * (1 + (상승률/100)) < data2(L) Then
{
추세 = data2(Iff(기준고Bar==기준저Bar,양방향,Iff(기준고Bar>기준저Bar,상승,하락)));
}
Else If 기준고 * (1 - (하락률/100)) > data2(H) Then 추세 = 하락;
Else If 기준저 * (1 + (상승률/100)) < data2(L) Then 추세 = 상승;
If 추세[1] == 상승 && 추세 == 하락 Then
{
For j = 18 DownTo 1 {
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
기준고 = data2(H);
기준고Bar = 0;
기준저 = data2(L);
기준저Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강 ;
If 이중파동[1] > 0 Then 이중파동 = 고[1];
Else {v1 = 고[1];#plot1(고[1],"Zigzag",RED);
v3 = 1;
}
}
If 추세[1] == 하락 && 추세 == 하락 &&
고[1] < 기준고 &&
기준고 * (1 - (하락률/100)) > data2(H) Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = data2(H);
기준고Bar = 0;
기준저 = data2(L);
기준저Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
v2 = 저[1];#plot1(저[1],"Zigzag",blue);
v3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
If 추세[1] == 하락 && 추세 == 상승 Then
{
For j = 18 DownTo 1
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = data2(L);
기준저Bar = 0;
기준고 = data2(H);
기준고Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
If 이중파동[1] > 0 Then 이중파동 = 저[1];
Else {v2 = 저[1];#plot1(저[1],"Zigzag",blue);
v3 = -1;
}
}
If 추세[1] == 상승 && 추세 == 상승 &&
저[1] > 기준저 &&
기준저 * (1 + (상승률/100)) < data2(L) Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = data2(L);
기준저Bar = 0;
기준고 = data2(H);
기준고Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강;
v1 = 고[1];#plot1(고[1],"Zigzag",RED);
v3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
If 추세 == 양방향 Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = data2(H);
기준고Bar = 0;
기준저 = data2(L);
기준저Bar = 0;
추세 = 추세[1];
If 추세[1] == 상승 Then
{
If 고[2] < 고[1] Then 색깔 = 빨강;
v1 = 고[1];#Plot1(고[1],"Zigzag",RED);
v3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
Else
{
If 저[2] > 저[1] Then 색깔 = 파랑;
v2 = 저[1];#Plot1(저[1],"Zigzag",blue);
v3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
}
val1 = (v1-v2+2);
if data2(crossup(c,val1) and countif(C < val1,3)[1] == 3) Then
sell();
if data2(CrossDown(c,val1) and countif(C > val1,3)[1] == 3) Then
buy();
즐거운 하루되세요
> 서쪽하늘 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 안녕하세요.
data2용으로 지표식과 시스템식 부탁드립니다.
9시 30분 이후 진입
3개의 캔들이 연속으로 value1 아래에 있으면 value1 가격에 매도 주문(value1을 찍으면 즉시 주문)
3개의 캔들이 연속으로 value1 위에 있으면 value1 가격에 매수 주문
감사합니다.
Input:상승률(0.1),하락률(0.1);
Var:j(0),상승(100),하락(-100),양방향(2),색깔(0),파랑(-1),빨강(1),
기준고(0),기준저(0),기준고Bar(0),기준저Bar(0),추세(0),이중파동(0);
Array:고[20](0),저[20](0),고Bar[20](0),저Bar[20](0);
For j = 1 To 19
{
저Bar[j] = 저Bar[j] + 1;
고Bar[j] = 고Bar[j] + 1;
}
If 이중파동 > 0 Then
{
if 색깔 == 빨강 Then{
var2 = 이중파동;#Plot1(이중파동,"Zigzag",blue);
var3 = -1;
}
Else{
var1 = 이중파동;#Plot1(이중파동,"Zigzag",red);
var3 = 1;
}
이중파동 = 0;
}
If 기준고 <= H || 기준고 == 0 || IsNaN(기준고) == True Then
{
기준고 = H;
기준고Bar = 0;
}
Else
기준고Bar = 기준고Bar + 1;
If 기준저 >= L || 기준저 == 0 || IsNaN(기준저) == True Then
{
기준저 = L;
기준저Bar = 0;
}
Else
기준저Bar = 기준저Bar + 1;
If 기준고 * (1 - (하락률/100)) > H && 기준저 * (1 + (상승률/100)) < L Then
{
추세 = Iff(기준고Bar==기준저Bar,양방향,Iff(기준고Bar>기준저Bar,상승,하락));
}
Else If 기준고 * (1 - (하락률/100)) > H Then 추세 = 하락;
Else If 기준저 * (1 + (상승률/100)) < L Then 추세 = 상승;
If 추세[1] == 상승 && 추세 == 하락 Then
{
For j = 18 DownTo 1 {
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
기준고 = H;
기준고Bar = 0;
기준저 = L;
기준저Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강 ;
If 이중파동[1] > 0 Then 이중파동 = 고[1];
Else {var1 = 고[1];#plot1(고[1],"Zigzag",RED);
var3 = 1;
}
}
If 추세[1] == 하락 && 추세 == 하락 &&
고[1] < 기준고 &&
기준고 * (1 - (하락률/100)) > H Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = H;
기준고Bar = 0;
기준저 = L;
기준저Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
var2 = 저[1];#plot1(저[1],"Zigzag",blue);
var3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
If 추세[1] == 하락 && 추세 == 상승 Then
{
For j = 18 DownTo 1
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = L;
기준저Bar = 0;
기준고 = H;
기준고Bar = 0;
If 저[2] > 저[1] Then 색깔 = 파랑;
If 이중파동[1] > 0 Then 이중파동 = 저[1];
Else {var2 = 저[1];#plot1(저[1],"Zigzag",blue);
var3 = -1;
}
}
If 추세[1] == 상승 && 추세 == 상승 &&
저[1] > 기준저 &&
기준저 * (1 + (상승률/100)) < L Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준저 = L;
기준저Bar = 0;
기준고 = H;
기준고Bar = 0;
If 고[2] < 고[1] Then 색깔 = 빨강;
var1 = 고[1];#plot1(고[1],"Zigzag",RED);
var3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
If 추세 == 양방향 Then
{
For j = 18 DownTo 1
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[1] = 기준고;
고Bar[1] = 기준고Bar;
저[1] = 기준저;
저Bar[1] = 기준저Bar;
기준고 = H;
기준고Bar = 0;
기준저 = L;
기준저Bar = 0;
추세 = 추세[1];
If 추세[1] == 상승 Then
{
If 고[2] < 고[1] Then 색깔 = 빨강;
var1 = 고[1];#Plot1(고[1],"Zigzag",RED);
var3 = 1;
If 저[2] > 저[1] Then 색깔 = 파랑;
이중파동 = 저[1];
}
Else
{
If 저[2] > 저[1] Then 색깔 = 파랑;
var2 = 저[1];#Plot1(저[1],"Zigzag",blue);
var3 = -1;
If 고[2] < 고[1] Then 색깔 = 빨강;
이중파동 = 고[1];
}
}
value1 = (var1-var2+var2);
plot1(value1);
다음글
이전글