고점 저점에서 올라갔든 폭만큼 오르거나 내리거나 햇습니다, 이것을 그폭의 0.5배,1.618배 그리고 2배만큼을 추가해서 나오도록 부탁드립니다,올라갓을때 폭에 나타났든 색깔은 올라갔을때 같게 해주시고 내려갈때 폭도 같은 색깔로 부탁드립니다 그리고 외부변수로 해서 그폭의 변동을 변수로해서 고칠수 있도록 부탁드립니다. 수식은 아래식으로 참조햇습니다 Input:length(12); Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0), Text1(0),처리구분(""),tl2(0),tl3(0),tl4(0),tl5(0); var : tx2(0),tx3(0),tx4(0),tx5(0); Array:고점[10,2](0),저점[10,2](0); //가격,위치 처리구분 = ""; If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then { If 저점[1,1] > L Then 처리구분 = "저점처리"; If 고점[1,1] < H Then 처리구분 = "고점처리"; } Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리"; Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { lastHiVal = H; If 고점[1,2] < 저점[1,2] Then { For j = 10 DownTo 2 { 고점[j,1] = 고점[j-1,1]; 고점[j,2] = 고점[j-1,2]; } } If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then { 고점[1,1] = H; 고점[1,2] = Index; sBar = Index - 저점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); TL_Delete(TL4); TL_Delete(TL5); Text_Delete(Text1); Text_Delete(Tx4); Text_Delete(Tx5); } TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1], sDate[eBar],sTime[eBar],고점[1,1]); Text1 = Text_New(sDate[eBar],sTime[eBar],고점[1,1],NumToStr(고점[1,1],2) +NewLine+"진폭"+NumToStr((고점[1,1]-저점[1,1]),2)); Text_SetStyle(Text1, 2, 1); var2 = abs(고점[2,1]-저점[1,1]); TL4 = TL_New(sDate,sTime,고점[1,1],NextBarSdate,NextBarStime,고점[1,1]); TL5 = TL_New(sDate,sTime,고점[1,1]-var2,NextBarSdate,NextBarStime,고점[1,1]-var2); tx4 = Text_New(NextBarSdate,NextBarStime,고점[1,1],NumToStr(고점[1,1],2)); tx5 = Text_New(NextBarSdate,NextBarStime,고점[1,1]-var2,NumToStr(고점[1,1]-var2,2)); } } If 처리구분 == "저점처리" Then { lastLoVal = L; If 저점[1,2] < 고점[1,2] then { For j = 10 DownTo 2 { 저점[j,1] = 저점[j-1,1]; 저점[j,2] = 저점[j-1,2]; } } If 저점[1,2] < 고점[1,2] or 저점[1,1] > L then { 저점[1,1] = L; 저점[1,2] = Index; sBar = Index - 고점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); Text_Delete(Text1); Text_Delete(Tx2); Text_Delete(Tx3); } TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1], sDate[eBar],sTime[eBar],저점[1,1]); Text1 = Text_New(sDate[eBar],sTime[eBar],저점[1,1],NumToStr(저점[1,1],2) +NewLine+"진폭"+NumToStr((고점[1,1]-저점[1,1]),2)); Text_SetStyle(Text1, 2, 0); var1 = (고점[1,1]-저점[2,1]); TL2 = TL_New(sDate,sTime,저점[1,1],NextBarSdate,NextBarStime,저점[1,1]); TL3 = TL_New(sDate,sTime,저점[1,1]+var1,NextBarSdate,NextBarStime,저점[1,1]+var1); tx2 = Text_New(NextBarSdate,NextBarStime,저점[1,1],NumToStr(저점[1,1],2)); tx3 = Text_New(NextBarSdate,NextBarStime,저점[1,1]+var1,NumToStr(저점[1,1]+var1,2)); } } TL_SetSize(TL1,0); TL_SetColor(TL1,gray); TL_SetEnd(TL2,NextBarSdate,NextBarStime,저점[1,1]); TL_SetEnd(TL3,NextBarSdate,NextBarStime,저점[1,1]+var1); TL_SetSize(TL2,2); TL_SetColor(TL2,BLUE); TL_SetSize(TL3,2); TL_SetColor(TL3,yellow); TL_SetEnd(TL4,NextBarSdate,NextBarStime,고점[1,1]); TL_SetEnd(TL5,NextBarSdate,NextBarStime,고점[1,1]-Var2); TL_SetSize(TL4,2); TL_SetColor(TL4,RED); TL_SetSize(TL5,2); TL_SetColor(TL5,cyan); Text_SetLocation(tx2,NextBarSdate,NextBarStime,저점[1,1]); Text_SetLocation(tx3,NextBarSdate,NextBarStime,저점[1,1]+var1); Text_SetStyle(tx2,2,1); Text_SetStyle(tx3,2,1); Text_SetColor(tx2,BLUE); Text_SetColor(tx3,yellow); Text_SetLocation(tx4,NextBarSdate,NextBarStime,고점[1,1]); Text_SetLocation(tx5,NextBarSdate,NextBarStime,고점[1,1]-var2); Text_SetStyle(tx4,2,1); Text_SetStyle(tx5,2,1); Text_SetColor(tx4,RED); Text_SetColor(tx5,cyan);

안녕하세요 먼저 항상 감사드립니다!!! 덕분에 많은것을 알게되고 배우는것같습니다. 저번에 알려주신 수직에서 추가질문드립니다 Maxdata 이부분이 오늘만 적용하고싶습니다. maxdata가 어제(현재기준 오늘 오전7시이전) 이면 maxdata가 If data1(H) >= Maxdata[arr] Then 이조건이 만족이 안되었으면 합니다 오늘 7시부터 조건성립이 되었음합니다. 알려주시면 감사하겠습니다!! Var : 몸통상단(0,Data2),Maxdata(0,data2); var : Arr(0,data1),cond(false,data1); 몸통상단 = Data2(max(C,O)); #data2몸통상단 Maxdata = data2(Highest(몸통상단, 3)); #data2 몸통상단의 3개봉 최고값 #data1의 고가가 Maxdata의 0~150봉전 값보다 크거나 같으면 cond는 true cond = false; For ARR = 0 TO 150 { If data1(H) >= Maxdata[arr] Then cond = true; } #cond가 true일때 매수 if cond == true then buy();

안녕하세요. 하기 조건 수식 부탁드립니다. 포지션 청산 후 5봉 이내 매수매도 진입 금지 감사합니다.

도움 주심에 항상 감사 드립니다. 질문1,2)를 타주기(분봉용)에서 사용 토록 부탁 드립니다. 다만 이평선 작성시 참조 수식과 같이 배열 함수를(예:array:CC[50] 등) 사용하지 않고 작성이 가능 하다면 그 방법으로 부탁 드립니다. 미리 감사 드립니다. 질문1) Input : Period(20), D(1.5), sig(5); var1 = ma(H, Period) + (D * std(H, Period)); var2=(H-var1)/H; var3=ma(var2,sig); 질문2) Input : Period(20), D(1.5),sig(5); var1 = ma(L,period) - (D * std(L, Period)); var2=(L-var1)/L; var3=ma(var2,sig); 참조수식) Input:Atime1(30),Period(20); var : S1(0),D1(0),TM(0),EP(0); Var : TF1(0),idx1(0),emav1(0),Pre1(0); Ep = 2/(Period+1); if Bdate != Bdate[1] Then{ S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then{ if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF1 = TM%Atime1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and Atime1 <= 1 and TF1 > TF1[1]) or (Bdate == Bdate[1] and Atime1 > 1 and TF1 < TF1[1]) Then{ idx1 = idx1+1; Pre1 = emav1[1]; } if idx1 <= 1 then emav1 = C; else emav1 = C * EP + Pre1 * (1-EP); }

안녕하세요...글번호65038 에추가라인부탁드립니다. 전전일고가라인 전전일저가라인 수고하세요...꾸벅

안녕하세요? MarketPosition 은 시스템 안에서 포지션이 있는지 체크를 하는데요. 이거 말고 실제로 포지션이 있는지 체크해서 하려면 어떻게 해야 할까요? 만약에, 하이투자증권으로 손매매로 진입을 해놓고 청산은 시스템 규칙에 따라서 자동으로 하고 싶습니다.

일봉상 단순이동평균 5일선 을 분봉차트에 나타내기를 한 키움의 수식을 예스로 부탁 합니다.

안녕하세요 아래 수식에서 상승파동의 중심을 나타내는 TL2[6]라인은 맞게 그려지는데 하락파의 중심을 나타내는 TL3[6]는 다르게 그려지는 것 같습니다. 첨부한 차트와 같이 하락파의 중심이 아닌 상승 파동의 중심인 TL2[6]가 연장되어 그려지는 것 같은데 왜 그런지 이상합니다. TL3[6] 라인이 하락파의 중심으로 맞게 그려지게 수정 부탁드립니다. ============================ input: period(20),봉수(2); Var:선두께(3),상승색(green), 하락색(green),예비선색상(white),상승세로선색상(red),하락세로선색상(blue),세로선두께(0.5); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0),idx(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/; Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(h,Period)[1]) Then T = 1; if CrossDown(c,Lowest(l,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; //ZZ[j+1] = ZZ[j]; } LoVal[0] = l; LoBar[0] = 0; //ZZ[0] = l; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx = Text_New(date11,time11,Value11,"▼"); #동그라미 색상, 빨강 Text_SetColor(Tx,blue); Text_SetStyle(Tx,2,1); Text_SetSize(tx,12); tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine); Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } TL2[0] = TL_New(date21,time21,fr[0],date22,time22,fr[0]); TL_SetColor(TL2[0],white); #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]); #TL_SetColor(TL2[1],RED); #TL_SetStyle(TL2[1], 3); #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]); #TL_SetColor(TL2[2],red); #TL_SetSize(TL2[2],1); #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx2[2],BWHITE); #Text_SetStyle(TX2[2],1,1); #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]); #TL_SetColor(TL2[3],RED); #TL_SetStyle(TL2[3], 3); #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]); #TL_SetColor(TL2[4],red); #TL_SetSize(TL2[4],1); #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx2[4],BWHITE); #Text_SetStyle(TX2[4],1,0); TL2[5] = TL_New(date21,time21,fr[5],date22,time22,fr[5]); TL_SetColor(TL2[5],white); TL2[6] = TL_New(date21,time21,fr[6],date22,time22,fr[6]); TL_SetColor(TL2[6],MAGENTA); idx = 0; } If LoVal[0] > l Then { LoVal[0] = l; LoBar[0] = 0; //ZZ[0] = l; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; //Tx = Text_New_Self(date12,time12,Value12,NumToStr(abs(value11-value12)/PriceScale,0)+" "); #동그라미 색상, 빨강 //Text_SetColor(Tx,BLUE); //Text_SetStyle(Tx,1,0); TL_SetEnd(TL2[0],date22,time22,fr[0]); TL_SetEnd(TL2[1],date22,time22,fr[1]); TL_SetEnd(TL2[2],date22,time22,fr[2]); Text_SetLocation(TX2[2],date22,time22,fr[2]); TL_SetEnd(TL2[3],date22,time22,fr[3]); TL_SetEnd(TL2[4],date22,time22,fr[4]); Text_SetLocation(TX2[4],date22,time22,fr[4]); TL_SetEnd(TL2[5],date22,time22,fr[5]); TL_SetEnd(TL2[6],date22,time22,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); idx = 0; } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; //ZZ[j+1] = ZZ[j]; } HiVal[0] = h; HiBar[0] = 0; //ZZ[0] = h; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx1 = Text_New(date11,time11,Value11,"▲"); #동그라미 색상, 파랑 Text_SetColor(Tx1,red); Text_SetStyle(Tx1,2,5); Text_SetSize(tx1,12); tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)); Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } TL3[0] = TL_New(date31,time31,fr[0],date32,time32,fr[0]); TL_SetColor(TL3[0],white); #TL3[1] = TL_New(date31,time31,fr[1],date32,time32,fr[1]); #TL_SetColor(TL3[1],BLUE); #TL_SetStyle(TL3[1], 3); #TL3[2] = TL_New(date31,time31,fr[2],date32,time32,fr[2]); #TL_SetColor(TL3[2],BLUE); #TL_SetSize(TL3[2],1); #TX3[2] = Text_New(date32,time32,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx3[2],BWHITE); #Text_SetStyle(TX3[2],1,1); #TL3[3] = TL_New(date31,time31,fr[3],date32,time32,fr[3]); #TL_SetColor(TL3[3],BLUE); #TL_SetStyle(TL3[3], 3); #TL3[4] = TL_New(date31,time31,fr[4],date32,time32,fr[4]); #TL_SetColor(TL3[4],BLUE); #TL_SetSize(TL3[4],1); #TX3[4] = Text_New(date32,time32,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx3[4],BWHITE); #Text_SetStyle(TX3[4],1,0); TL3[5] = TL_New(date31,time31,fr[5],date32,time32,fr[5]); TL_SetColor(TL3[5],white); TL3[6] = TL_New(date31,time31,fr[6],date32,time32,fr[6]); TL_SetColor(TL3[6],cyan); idx = 0; } If HiVal[0] < h Then { HiVal[0] = h; HiBar[0] = 0; //ZZ[0] = h; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; //Tx = Text_New_Self(date12,time12,Value12,NumToStr(abs(value11-value12)/PriceScale,0)+" "); #동그라미 색상, 빨강 //Text_SetColor(Tx,RED); //Text_SetStyle(Tx,1,1); TL_SetEnd(TL3[0],date32,time32,fr[0]); TL_SetEnd(TL3[1],date32,time32,fr[1]); TL_SetEnd(TL3[2],date32,time32,fr[2]); Text_SetLocation(TX3[2],date32,time32,fr[2]); TL_SetEnd(TL3[3],date32,time32,fr[3]); TL_SetEnd(TL3[4],date32,time32,fr[4]); Text_SetLocation(TX3[4],date32,time32,fr[4]); TL_SetEnd(TL3[5],date32,time32,fr[5]); TL_SetEnd(TL3[6],date32,time32,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); idx = 0; } } idx = idx+1; TL_SetSize(tL,선두께); TL_SetSize(tL1,선두께); TL_SetColor(tL,예비선색상); var : VTL(0); if idx == 봉수 Then { TL_Delete(VTL);//최근것만 표시하고자 할경우 이 내용을 삭제하시면 됩니다. VTL = TL_New(sdate,stime,999999999,sDate,stime,0); TL_SetColor(VTL,iff(T == -1,상승세로선색상,하락세로선색상)); TL_SetSize(VTL,세로선두께); }