> leekss1 님이 쓴 글입니다. > 제목 : 이상합니다------ > //Input:length1(65),높이조절(0.05),N(15),변동율(0.06),이평(4); //input :최소익틱(2),손절틱(9), 익절틱(10),눌림틱(3),장기전봉차(0.006); Input:length1(65),높이조절(0.05),N(15),변동율(0.06),이평(4); input :최소익틱(2),손절틱(9), 익절틱(10),눌림틱(3),장기전봉차(0.006); Var:당일손익(1000000); var : PLR(0),XCommission(0),XSlippage(0),OpenPL(0),dayPL(0),count(0); var:TEMA71(0),TEMA81(0),Ep(0),T1(0),T2(0),T3(0),TEMA82(0); var:장기봉기간(1),단기봉기간(4); Var:추2(1),추4(1.01),추10(0.8),추20(0.5),추26(0.23),추30(0.2),추35(0.2) ,추45(0.2),추55(0.2),추65(0.2),추75(0.2),추90(0.2); var : cnt(0),가격(0),매수매도(0); //최고저테마값 시작******** if dayindex+1 < 단기봉기간 Then{ var71 = DayHigh; var72 = DayLow; } Else{ var71 = highest(H,단기봉기간); var72 = Lowest(L,단기봉기간); } value71 = (var71 - var72)/2+var72; if dayindex+1 < 장기봉기간 Then{ var81 = DayHigh; var82 = DayLow; } Else{ var81 = highest(H,장기봉기간); var82 = Lowest(L,장기봉기간); } value81 = (var81 - var82)/2+var82; TEMA71 = (3 * Ema(value71,LENGTH1)) - (3 * Ema(Ema(value71,LENGTH1),LENGTH1)) + (Ema(Ema(Ema(value71,LENGTH1),LENGTH1),LENGTH1)); Ep = 2/(LENGTH1+1); if dayindex == 0 Then T1 = value81; Else T1 = value81*EP + T1[1] * (1-EP); if dayindex <= 1 Then T2 = T1; Else T2 = T1*EP + T2[1] * (1-EP); if dayindex <= 2 Then T3 = T2; Else T3 = T2*EP + T3[1] * (1-EP); TEMA82 = (3 * T1) - (3 * T2) + (T3); //최고저테마값 끝********************************************* if sdate != sdate[1] Then Condition1 = false; //진입라인설정시작--------------------------------------------------- if ( highest(H,N)-lowest(L,N)) <= C*변동율 Then{ Condition1 = true; var8=DayIndex; if TEMA82 > TEMA82[1] Then{ var1 = highest(H-높이조절,N); var2 = lowest(L-높이조절,N); } If TEMA82 < TEMA82[1] Then{ var1 = highest(H+높이조절,N); var2 = lowest(L+높이조절,N); } } /*if Condition1 == False Then{ value1 = max(var65,var66); value2 = min(var65,var66); } */ /* If Condition1 == true Then{ value1 = var1; value2 = var2; }*/ //------------연결문 if TEMA82 > TEMA82[1]+장기전봉차 Then 가격 = var1; if TEMA82 < TEMA82[1]-장기전봉차 Then 가격 = var2; if TEMA82 < TEMA82[1]-장기전봉차 Then 매수매도 = -1; if TEMA82 > TEMA82[1]+장기전봉차 Then 매수매도 = 1; //------------연결문 if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then plot1(H+0.05); if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then plot2(l-0.05); plot4(TEMA82,"장기테마등락",iff(tema82>tema82[1]+장기전봉차,red,iff(tema82<tema82[1]-장기전봉차,BLUE,WHITE))); /* var : Dir(0); if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then dir = 1; if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then Dir = -1; if dir == 1 and dir[1] != 1 Then plot1(H+0.05); if dir == -1 and dir[1] != -1 Then plot2(l-0.05); */ /* var : Dir(0),D1(0),D2(0); if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then dir = 1; if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then Dir = -1; if dir == 1 and dir[1] != 1 Then{ plot1(H+0.05); D1 = 0; } if Dir == 1 and Dir[1] == 1 Then{ D1 = D1+1; if (D1)%10 == 0 Then plot1(H+0.05); } if dir == -1 and dir[1] != -1 Then{ plot2(l-0.05); D2 = 0; } if Dir == -1 and Dir[1] == -1 Then{ D2 = D2+1; if (D2)%10 == 0 Then plot2(l-0.05); } plot4(TEMA82,"장기테마등락",iff(tema82>tema82[1]+장기전봉차,red,iff(tema82<tema82[1]-장기전봉차,BLUE,WHITE))); */ =========================점이 다나오는식 끝========================== =========================점이 10봉마다 다나오는식 =================== //Input:length1(65),높이조절(0.05),N(15),변동율(0.06),이평(4); //input :최소익틱(2),손절틱(9), 익절틱(10),눌림틱(3),장기전봉차(0.006); Input:length1(65),높이조절(0.05),N(15),변동율(0.06),이평(4); input :최소익틱(2),손절틱(9), 익절틱(10),눌림틱(3),장기전봉차(0.006); Var:당일손익(1000000); var : PLR(0),XCommission(0),XSlippage(0),OpenPL(0),dayPL(0),count(0); var:TEMA71(0),TEMA81(0),Ep(0),T1(0),T2(0),T3(0),TEMA82(0); var:장기봉기간(1),단기봉기간(4); Var:추2(1),추4(1.01),추10(0.8),추20(0.5),추26(0.23),추30(0.2),추35(0.2) ,추45(0.2),추55(0.2),추65(0.2),추75(0.2),추90(0.2); var : cnt(0),가격(0),매수매도(0); //최고저테마값 시작******** if dayindex+1 < 단기봉기간 Then{ var71 = DayHigh; var72 = DayLow; } Else{ var71 = highest(H,단기봉기간); var72 = Lowest(L,단기봉기간); } value71 = (var71 - var72)/2+var72; if dayindex+1 < 장기봉기간 Then{ var81 = DayHigh; var82 = DayLow; } Else{ var81 = highest(H,장기봉기간); var82 = Lowest(L,장기봉기간); } value81 = (var81 - var82)/2+var82; TEMA71 = (3 * Ema(value71,LENGTH1)) - (3 * Ema(Ema(value71,LENGTH1),LENGTH1)) + (Ema(Ema(Ema(value71,LENGTH1),LENGTH1),LENGTH1)); Ep = 2/(LENGTH1+1); if dayindex == 0 Then T1 = value81; Else T1 = value81*EP + T1[1] * (1-EP); if dayindex <= 1 Then T2 = T1; Else T2 = T1*EP + T2[1] * (1-EP); if dayindex <= 2 Then T3 = T2; Else T3 = T2*EP + T3[1] * (1-EP); TEMA82 = (3 * T1) - (3 * T2) + (T3); //최고저테마값 끝********************************************* if sdate != sdate[1] Then Condition1 = false; //진입라인설정시작--------------------------------------------------- if ( highest(H,N)-lowest(L,N)) <= C*변동율 Then{ Condition1 = true; var8=DayIndex; if TEMA82 > TEMA82[1] Then{ var1 = highest(H-높이조절,N); var2 = lowest(L-높이조절,N); } If TEMA82 < TEMA82[1] Then{ var1 = highest(H+높이조절,N); var2 = lowest(L+높이조절,N); } } /*if Condition1 == False Then{ value1 = max(var65,var66); value2 = min(var65,var66); } */ /* If Condition1 == true Then{ value1 = var1; value2 = var2; }*/ //------------연결문 if TEMA82 > TEMA82[1]+장기전봉차 Then 가격 = var1; if TEMA82 < TEMA82[1]-장기전봉차 Then 가격 = var2; if TEMA82 < TEMA82[1]-장기전봉차 Then 매수매도 = -1; if TEMA82 > TEMA82[1]+장기전봉차 Then 매수매도 = 1; //------------연결문 /* if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then plot1(H+0.05); if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then plot2(l-0.05); plot4(TEMA82,"장기테마등락",iff(tema82>tema82[1]+장기전봉차,red,iff(tema82<tema82[1]-장기전봉차,BLUE,WHITE))); */ /* var : Dir(0); if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then dir = 1; if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then Dir = -1; if dir == 1 and dir[1] != 1 Then plot1(H+0.05); if dir == -1 and dir[1] != -1 Then plot2(l-0.05); */ var : Dir(0),D1(0),D2(0); if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then dir = 1; if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then Dir = -1; if dir == 1 and dir[1] != 1 Then{ plot1(H+0.05); D1 = 0; } if Dir == 1 and Dir[1] == 1 Then{ D1 = D1+1; if (D1)%10 == 0 Then plot1(H+0.05); } if dir == -1 and dir[1] != -1 Then{ plot2(l-0.05); D2 = 0; } if Dir == -1 and Dir[1] == -1 Then{ D2 = D2+1; if (D2)%10 == 0 Then plot2(l-0.05); } plot4(TEMA82,"장기테마등락",iff(tema82>tema82[1]+장기전봉차,red,iff(tema82<tema82[1]-장기전봉차,BLUE,WHITE))); 위식 위에것은 점을 모두 찍었구요 아래식은 10봉에 한번 찍었는데 dir이 +1,-1 이 아닌자리에 점찍은것 같아요 첨부&#54719;읍니다 부탁드립니다

장기테마등락이 하얀색일때는 plot1과 plot2로 점을 찍지 않게 변경됐습니다. //Input:length1(65),높이조절(0.05),N(15),변동율(0.06),이평(4); //input :최소익틱(2),손절틱(9), 익절틱(10),눌림틱(3),장기전봉차(0.006); Input:length1(65),높이조절(0.05),N(15),변동율(0.06),이평(4); input :최소익틱(2),손절틱(9), 익절틱(10),눌림틱(3),장기전봉차(0.006); Var:당일손익(1000000); var : PLR(0),XCommission(0),XSlippage(0),OpenPL(0),dayPL(0),count(0); var:TEMA71(0),TEMA81(0),Ep(0),T1(0),T2(0),T3(0),TEMA82(0); var:장기봉기간(1),단기봉기간(4); Var:추2(1),추4(1.01),추10(0.8),추20(0.5),추26(0.23),추30(0.2),추35(0.2) ,추45(0.2),추55(0.2),추65(0.2),추75(0.2),추90(0.2); var : cnt(0),가격(0),매수매도(0); //최고저테마값 시작******** if dayindex+1 < 단기봉기간 Then{ var71 = DayHigh; var72 = DayLow; } Else{ var71 = highest(H,단기봉기간); var72 = Lowest(L,단기봉기간); } value71 = (var71 - var72)/2+var72; if dayindex+1 < 장기봉기간 Then{ var81 = DayHigh; var82 = DayLow; } Else{ var81 = highest(H,장기봉기간); var82 = Lowest(L,장기봉기간); } value81 = (var81 - var82)/2+var82; TEMA71 = (3 * Ema(value71,LENGTH1)) - (3 * Ema(Ema(value71,LENGTH1),LENGTH1)) + (Ema(Ema(Ema(value71,LENGTH1),LENGTH1),LENGTH1)); Ep = 2/(LENGTH1+1); if dayindex == 0 Then T1 = value81; Else T1 = value81*EP + T1[1] * (1-EP); if dayindex <= 1 Then T2 = T1; Else T2 = T1*EP + T2[1] * (1-EP); if dayindex <= 2 Then T3 = T2; Else T3 = T2*EP + T3[1] * (1-EP); TEMA82 = (3 * T1) - (3 * T2) + (T3); //최고저테마값 끝********************************************* if sdate != sdate[1] Then Condition1 = false; //진입라인설정시작--------------------------------------------------- if ( highest(H,N)-lowest(L,N)) <= C*변동율 Then{ Condition1 = true; var8=DayIndex; if TEMA82 > TEMA82[1] Then{ var1 = highest(H-높이조절,N); var2 = lowest(L-높이조절,N); } If TEMA82 < TEMA82[1] Then{ var1 = highest(H+높이조절,N); var2 = lowest(L+높이조절,N); } } /*if Condition1 == False Then{ value1 = max(var65,var66); value2 = min(var65,var66); } */ /* If Condition1 == true Then{ value1 = var1; value2 = var2; }*/ //------------연결문 if TEMA82 > TEMA82[1]+장기전봉차 Then 가격 = var1; if TEMA82 < TEMA82[1]-장기전봉차 Then 가격 = var2; if TEMA82 < TEMA82[1]-장기전봉차 Then 매수매도 = -1; if TEMA82 > TEMA82[1]+장기전봉차 Then 매수매도 = 1; //------------연결문 /* if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then plot1(H+0.05); if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then plot2(l-0.05); plot4(TEMA82,"장기테마등락",iff(tema82>tema82[1]+장기전봉차,red,iff(tema82<tema82[1]-장기전봉차,BLUE,WHITE))); */ /* var : Dir(0); if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then dir = 1; if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then Dir = -1; if dir == 1 and dir[1] != 1 Then plot1(H+0.05); if dir == -1 and dir[1] != -1 Then plot2(l-0.05); */ var : Dir(0),D1(0),D2(0),Cor(0); if(countif(C >=var1,1) == 1) and (countif (TEMA82 > TEMA82[1]+장기전봉차,1) == 1) Then dir = 1; if(countif(C <=var2,1) == 1) and (countif (TEMA82 < TEMA82[1]-장기전봉차,1) == 1) Then Dir = -1; Cor = iff(tema82>tema82[1]+장기전봉차,1,iff(tema82<tema82[1]-장기전봉차,-1,0)); if dir == 1 and dir[1] != 1 Then{ D1 = 0; if Cor != 0 Then plot1(H+0.05); } if Dir == 1 and Dir[1] == 1 Then{ D1 = D1+1; if (D1)%10 == 0 and Cor != 0 Then plot1(H+0.05); } if dir == -1 and dir[1] != -1 Then{ D2 = 0; if Cor != 0 Then plot2(l-0.05); } if Dir == -1 and Dir[1] == -1 Then{ D2 = D2+1; if (D2)%10 == 0 and Cor != 0 Then plot2(l-0.05); } plot4(TEMA82,"장기테마등락",iff(tema82>tema82[1]+장기전봉차,red,iff(tema82<tema82[1]-장기전봉차,BLUE,WHITE))); 즐거운 하루되세요