안녕하세요 예스스탁입니다. 1 아래식 참고하시기 바랍니다. input : Price1(50.00),Price2(50.04),Price3(60.07),Price4(50.10); input : vol1(1),vol2(1),vol3(2),vol4(6); var : TL1(0),TL2(0); if MarketPosition == 0 and H < Price1 Then buy("b1",AtStop,Price1,vol1); if MarketPosition == 1 and MaxEntries == 1 and H < Price2 Then buy("b2",AtStop,Price2,vol2); if MarketPosition == 1 and MaxEntries == 2 and H < Price3 Then buy("b3",AtStop,Price3,vol3); if MarketPosition == 1 and MaxEntries == 3 and H < Price4 Then buy("b4",AtStop,Price4,vol4); if MarketPosition == 1 Then{ TL_Delete(TL1); TL_Delete(TL2); TL1 = TL_New(EntryDate,EntryTime,AvgEntryPrice,sdate,stime,AvgEntryPrice); TL2 = TL_New(EntryDate,EntryTime,AvgEntryPrice-PriceScale*30,sdate,stime,AvgEntryPrice-PriceScale*30); } 2. input : 텍스트소수점자리수(5); Var:jjjjj(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),Tx(0),trnd(0),tx22(0); var : TL11(0),TL22(0); Array:valArr[10](0),barArr[10](0),turnPntArr[10](""); For jjjjj = 0 To 9 { barArr[jjjjj] = barArr[jjjjj] + 1; } Condition1 = Highest(H,26) == H and lastHiVal <> H; Condition2 = Lowest(L,26) == L and lastLoVal <> L; If Condition1 Then lastHiVal = H; If Condition2 Then lastLoVal = L; // 전환점구분 null값으로 초기화; turnPntBit = ""; If Condition1 and Condition2 Then { If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then turnPntBit = "HiLo"; Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi"; Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo"; } Else If Condition1 Then turnPntBit = "Hi"; Else If Condition2 Then turnPntBit = "Lo"; If turnPntBit <> "" Then { If turnPntBit == "HiLo" Then { valArr[1] = IFF(turnPntArr[1] == "Hi",H,L); barArr[1] = 0; TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); If turnPntArr[1] == "Hi" Then turnPntBit = "Lo"; Else turnPntBit = "Hi"; } If turnPntBit <> turnPntArr[1] Then { for jjjjj = 8 downto 1 { valArr[jjjjj+1] = valArr[jjjjj]; barArr[jjjjj+1] = barArr[jjjjj]; turnPntArr[jjjjj+1] = turnPntArr[jjjjj]; } } If turnPntBit <> turnPntArr[1] or (turnPntBit == turnPntArr[1] and ((turnPntBit == "Hi" and valArr[1] < H) or (turnPntBit == "Lo" and valArr[1] > L))) Then { valArr[1] = IFF(turnPntBit == "Hi",H,L); barArr[1] = 0; turnPntArr[1] = turnPntBit; If turnPntArr[1][1] <> turnPntArr[1][0] Then { Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],텍스트소수점자리수)); Text_SetStyle(tx,0,2); //TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); var1 = valArr[1]; var2 = valArr[2]; var3 = valArr[3]; TL11 = TL_New(sDate[barArr[3]],sTime[barArr[3]],valArr[3],sDate[barArr[1]],sTime[barArr[1]],valArr[3]); TL_SetSize(TL11,1); if turnPntArr[1][0] == "Hi" Then TL_SetColor(TL11,RED); Else TL_SetColor(TL11,blue); } if turnPntArr[1][0] == "Lo" Then trnd = -1; if turnPntArr[1][0] == "hi" Then trnd = 1; } } TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); TL_SetEnd(TL11,sDate[barArr[1]],sTime[barArr[1]],valArr[3]); Text_Delete(tx22); tx22 = Text_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],NumToStr(valArr[1],텍스트소수점자리수)); TL_Delete(TL22); if turnPntArr[1][0] == "Lo" Then{ TL22 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate,sTime,valArr[2]); TL_SetSize(TL22,1); TL_SetColor(TL22,RED); } if turnPntArr[1][0] == "hi" Then{ TL22 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate,sTime,valArr[2]); TL_SetSize(TL22,1); TL_SetColor(TL22,blue); } TL_SetSize(TL1[1],1); TL_SetColor(TL1[1],BLACK); if Trnd == -1 and Trnd[1] == -1 and L == TL_GetValue(TL1,sdate,stime) and L < L[1] Then PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); if Trnd == 1 and Trnd[1] == 1 and H == TL_GetValue(TL1,sdate,stime) and H > H[1] Then PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); 즐거운 하루되세요 > 럭키잭팟 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요~ 문의드립니다 YesGlobal 사용하고있습니다 문의드리고싶은 내용은 특정구간에서 진입을하고 추가진입시 평균단가의선과 손절라인의 가로선을 만들고싶습니다 예상가 50.00 1계약, 50.04 1계약, 50.07 2계약, 50.10 6계약에 진입할경우 평균단가선과 평균단가에서 30틱 손절라인의 가로선 만들고싶습니다 # 특정가격대와 계약수는 직접입력할수있도록 해주면 좋겠습니다 추가부분 회원분의 지표수식에 참고좀하고싶어문의드립니다 아래지표에수식에 세로선(변폭선또는 추세선)은 필요없고 가로선만 표현하고싶습니다 가로선위에 나타낸 단가도 그대로 있으면 좋겠습니다 (( 가로선은 -----------실선으로 만들어주시면감사합니다 안되면 최대한 &#50566;은선으로부탁드립니다))) 지표수식 input : 텍스트소수점자리수(5); Var:jjjjj(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),Tx(0),trnd(0),tx22(0); var : TL11(0),TL22(0); Array:valArr[10](0),barArr[10](0),turnPntArr[10](""); For jjjjj = 0 To 9 { barArr[jjjjj] = barArr[jjjjj] + 1; } Condition1 = Highest(H,26) == H and lastHiVal <> H; Condition2 = Lowest(L,26) == L and lastLoVal <> L; If Condition1 Then lastHiVal = H; If Condition2 Then lastLoVal = L; // 전환점구분 null값으로 초기화; turnPntBit = ""; If Condition1 and Condition2 Then { If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then turnPntBit = "HiLo"; Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi"; Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo"; } Else If Condition1 Then turnPntBit = "Hi"; Else If Condition2 Then turnPntBit = "Lo"; If turnPntBit <> "" Then { If turnPntBit == "HiLo" Then { valArr[1] = IFF(turnPntArr[1] == "Hi",H,L); barArr[1] = 0; TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); If turnPntArr[1] == "Hi" Then turnPntBit = "Lo"; Else turnPntBit = "Hi"; } If turnPntBit <> turnPntArr[1] Then { for jjjjj = 8 downto 1 { valArr[jjjjj+1] = valArr[jjjjj]; barArr[jjjjj+1] = barArr[jjjjj]; turnPntArr[jjjjj+1] = turnPntArr[jjjjj]; } } If turnPntBit <> turnPntArr[1] or (turnPntBit == turnPntArr[1] and ((turnPntBit == "Hi" and valArr[1] < H) or (turnPntBit == "Lo" and valArr[1] > L))) Then { valArr[1] = IFF(turnPntBit == "Hi",H,L); barArr[1] = 0; turnPntArr[1] = turnPntBit; If turnPntArr[1][1] <> turnPntArr[1][0] Then { Tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],텍스트소수점자리수)); Text_SetStyle(tx,0,2); TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); var1 = valArr[1]; var2 = valArr[2]; var3 = valArr[3]; TL11 = TL_New(sDate[barArr[3]],sTime[barArr[3]],valArr[3],sDate[barArr[1]],sTime[barArr[1]],valArr[3]); TL_SetSize(TL11,1); if turnPntArr[1][0] == "Hi" Then TL_SetColor(TL11,RED); Else TL_SetColor(TL11,blue); } if turnPntArr[1][0] == "Lo" Then trnd = -1; if turnPntArr[1][0] == "hi" Then trnd = 1; } } TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); TL_SetEnd(TL11,sDate[barArr[1]],sTime[barArr[1]],valArr[3]); Text_Delete(tx22); tx22 = Text_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],NumToStr(valArr[1],텍스트소수점자리수)); TL_Delete(TL22); if turnPntArr[1][0] == "Lo" Then{ TL22 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate,sTime,valArr[2]); TL_SetSize(TL22,1); TL_SetColor(TL22,RED); } if turnPntArr[1][0] == "hi" Then{ TL22 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate,sTime,valArr[2]); TL_SetSize(TL22,1); TL_SetColor(TL22,blue); } TL_SetSize(TL1[1],1); TL_SetColor(TL1[1],BLACK); if Trnd == -1 and Trnd[1] == -1 and L == TL_GetValue(TL1,sdate,stime) and L < L[1] Then PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); if Trnd == 1 and Trnd[1] == 1 and H == TL_GetValue(TL1,sdate,stime) and H > H[1] Then PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");