안녕하세요 예스스탁입니다. Input : Period1(3),Period2(3), shortPeriod(5), longPeriod(12), Period(5),Length1(14),Length2(3),Length3(3),rsiperiod(12),trixperiod(7); Inputs: Length(7), Pval(0.01); Variables: Mom(0),Tl(0),tx(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); var : DD(0),TT(0),TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0),TL18(0); var : Tx11(0),Tx12(0),Tx13(0),Tx14(0),Tx15(0),Tx16(0),Tx17(0),Tx18(0); Pivot = (DayHigh(1)+DayLow(1)+DayClose(1))/3; R1 = 2*Pivot-DayLow(1); R2 = Pivot+DayHigh(1)-DayLow(1); S1 = 2*Pivot-DayHigh(1); S2 = Pivot-DayHigh(1)+DayLow(1); If DayClose(1) > DayOpen(1) Then { var1 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/2-DayLow(1); var2 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/2-DayHigh(1); var3 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/4; } Else If DayClose(1) < DayOpen(1) Then { var1 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayLow(1))/2-DayLow(1); var2 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayLow(1))/2-DayHigh(1); var3 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/4; } Else { var1 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayClose(1))/2-DayLow(1); var2 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayClose(1))/2-DayHigh(1); var3 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/4; } Mom = C- C[Length]; value1 = ema( c,period1); value2 = ma(macd(shortperiod,longperiod),period); value3 = StochasticsD(Length1,Length2,Length3); value4 = rsi(rsiperiod); value5 = trix(trixperiod); value6 = highest(H, Period2); value7 = lowest(l,period2); if value1- value1[1] > 0 and value2 > value2[1] and value3 - value3[1] > 0 and value4 - value4[1] > 0 and value5 - value5[1] > 0 and (value6 + value7)/2 - (value6 + value7[1])/2 >0 and Mom > 0 AND Mom >= Mom[1] AND MarketPosition() <> 1 then # 매수/매도청산 { Buy("매수",onclose); } # 매도/매수청산 If value1- value1[1] < 0 and value2 < value2[1] and value3 - value3[1] < 0 and value4 - value4[1] < 0 and value5 - value5[1] < 0 and (value6 + value7)/2 - (value6 + value7[1])/2 < 0 and Mom < 0 AND Mom <= Mom[1] AND MarketPosition() <> -1 Then { Sell("매도",onclose); } var : TL1(0),TL2(0),TL3(0),TL4(0); var : TX1(0),TX2(0),TX3(0),TX4(0); if MarketPosition == 1 Then{ TL_Delete(tl1); TL1 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*10,sdate,stime,EntryPrice+PriceScale*10); Text_Delete(tx1); tx1 = Text_New(sdate,stime,EntryPrice+PriceScale*10,"매수진입후 "+NumToStr(PriceScale*10,2)+" 수익"); Text_SetStyle(Tx1,2,2); TL_Delete(tl2); TL2 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*20,sdate,stime,EntryPrice+PriceScale*20); Text_Delete(tx2); tx2 = Text_New(sdate,stime,EntryPrice+PriceScale*20,"매수진입후 "+NumToStr(PriceScale*20,2)+" 수익"); Text_SetStyle(Tx2,2,2); TL_Delete(tl3); TL3 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*30,sdate,stime,EntryPrice+PriceScale*30); Text_Delete(tx3); tx3 = Text_New(sdate,stime,EntryPrice+PriceScale*30,"매수진입후 "+NumToStr(PriceScale*30,2)+" 수익"); Text_SetStyle(Tx3,2,2); TL_Delete(tl4); TL4 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*40,sdate,stime,EntryPrice+PriceScale*40); Text_Delete(tx4); tx4 = Text_New(sdate,stime,EntryPrice+PriceScale*40,"매수진입후 "+NumToStr(PriceScale*40,2)+" 수익"); Text_SetStyle(Tx4,2,2); } if MarketPosition == -1 Then{ TL_Delete(tl1); TL1 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*10,sdate,stime,EntryPrice-PriceScale*10); Text_Delete(tx1); tx1 = Text_New(sdate,stime,EntryPrice-PriceScale*10,"매도진입후 "+NumToStr(PriceScale*10,2)+" 수익"); Text_SetStyle(Tx1,2,2); TL_Delete(tl2); TL2 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*20,sdate,stime,EntryPrice-PriceScale*20); Text_Delete(tx2); tx2 = Text_New(sdate,stime,EntryPrice-PriceScale*20,"매도진입후 "+NumToStr(PriceScale*20,2)+" 수익"); Text_SetStyle(Tx2,2,2); TL_Delete(tl3); TL3 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*30,sdate,stime,EntryPrice-PriceScale*30); Text_Delete(tx3); tx3 = Text_New(sdate,stime,EntryPrice-PriceScale*30,"매도진입후 "+NumToStr(PriceScale*30,2)+" 수익"); Text_SetStyle(Tx3,2,2); TL_Delete(tl4); TL4 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*40,sdate,stime,EntryPrice-PriceScale*40); Text_Delete(tx4); tx4 = Text_New(sdate,stime,EntryPrice-PriceScale*40,"매도진입후 "+NumToStr(PriceScale*40,2)+" 수익"); Text_SetStyle(Tx4,2,2); } if date != date[1] Then{ DD = sdate[1]; TT = stime[1]; } TL_Delete(TL11); TL_Delete(TL12); TL_Delete(TL13); TL_Delete(TL14); TL_Delete(TL15); TL_Delete(TL16); TL_Delete(TL17); TL_Delete(TL18); TL11 = TL_New(dd,tt,dayopen,sdate,stime,dayopen); TL12 = TL_New(dd,tt,dayopen(1),sdate,stime,dayopen(1)); TL13 = TL_New(dd,tt,DayHigh(1),sdate,stime,DayHigh(1)); TL14 = TL_New(dd,tt,daylow(1),sdate,stime,daylow(1)); TL15 = TL_New(dd,tt,DayClose(1),sdate,stime,DayClose(1)); TL16 = TL_New(dd,tt,pivot,sdate,stime,pivot); TL17 = TL_New(dd,tt,var3,sdate,stime,var3); TL18 = TL_New(dd,tt,(dayhigh+daylow)/2,sdate,stime,(dayhigh+daylow)/2); Text_Delete(tx11); Text_Delete(tx12); Text_Delete(tx13); Text_Delete(tx14); Text_Delete(tx15); Text_Delete(tx16); Text_Delete(tx17); Text_Delete(tx18); tx11 = Text_New(sdate,stime,dayopen,"당일시가:"+NumToStr(dayopen,2)); tx12 = Text_New(sdate,stime,dayopen(1),"전일시가:"+NumToStr(dayopen(1),2)); tx13 = Text_New(sdate,stime,DayHigh(1),"전일고가:"+NumToStr(DayHigh(1),2)); tx14 = Text_New(sdate,stime,daylow(1),"전일저가:"+NumToStr(daylow(1),2)); tx15 = Text_New(sdate,stime,DayClose(1),"전일종가:"+NumToStr(DayClose(1),2)); tx16 = Text_New(sdate,stime,pivot,"피봇:"+NumToStr(pivot,2)); tx17 = Text_New(sdate,stime,var3,"디마크중심:"+NumToStr(var3,2)); tx18 = Text_New(sdate,stime,(dayhigh+daylow)/2,"당일중심:"+NumToStr((dayhigh+daylow)/2,2)); Text_SetStyle(Tx11,2,2); Text_SetStyle(Tx12,2,2); Text_SetStyle(Tx13,2,2); Text_SetStyle(Tx14,2,2); Text_SetStyle(Tx15,2,2); Text_SetStyle(Tx16,2,2); Text_SetStyle(Tx17,2,2); Text_SetStyle(Tx18,2,2); 즐거운 하루되세요 > 강남쏠라 님이 쓴 글입니다. > 제목 : 수식신호 > 당일시가 전일시가 전일고가 전일저가 전일종가 pivot기준선 demark기준선 당일시고저평균선 ==> 수식을 시스템에 적용할때--->한글안내글자는 없고 라인----숫자만나옵니다===>라인과+한글안내글이 나오게 하여 주시면 감사하겠습니다 ---------------------------------0.5포=10틱단위라인은 필요하지않고요 매도방향과 매수진입신호로 부터~~"0.5포수익"이란 "onclose"한글글자가 챠트상에 나오게하여주세요 Input : Period1(3),Period2(3), shortPeriod(5), longPeriod(12), Period(5),Length1(14),Length2(3),Length3(3),rsiperiod(12),trixperiod(7); Inputs: Length(7), Pval(0.01); Variables: Mom(0),Tl(0),tx(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); var : DD(0),TT(0),TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0),TL18(0); var : Tx11(0),Tx12(0),Tx13(0),Tx14(0),Tx15(0),Tx16(0),Tx17(0),Tx18(0); Pivot = (DayHigh(1)+DayLow(1)+DayClose(1))/3; R1 = 2*Pivot-DayLow(1); R2 = Pivot+DayHigh(1)-DayLow(1); S1 = 2*Pivot-DayHigh(1); S2 = Pivot-DayHigh(1)+DayLow(1); If DayClose(1) > DayOpen(1) Then { var1 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/2-DayLow(1); var2 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/2-DayHigh(1); var3 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/4; } Else If DayClose(1) < DayOpen(1) Then { var1 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayLow(1))/2-DayLow(1); var2 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayLow(1))/2-DayHigh(1); var3 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/4; } Else { var1 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayClose(1))/2-DayLow(1); var2 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayClose(1))/2-DayHigh(1); var3 = (DayHigh(1)+DayLow(1)+DayClose(1)+DayHigh(1))/4; } Mom = C- C[Length]; value1 = ema( c,period1); value2 = ma(macd(shortperiod,longperiod),period); value3 = StochasticsD(Length1,Length2,Length3); value4 = rsi(rsiperiod); value5 = trix(trixperiod); value6 = highest(H, Period2); value7 = lowest(l,period2); if value1- value1[1] > 0 and value2 > value2[1] and value3 - value3[1] > 0 and value4 - value4[1] > 0 and value5 - value5[1] > 0 and (value6 + value7)/2 - (value6 + value7[1])/2 >0 and Mom > 0 AND Mom >= Mom[1] AND MarketPosition() <> 1 then # 매수/매도청산 { Buy("매수",onclose); } # 매도/매수청산 If value1- value1[1] < 0 and value2 < value2[1] and value3 - value3[1] < 0 and value4 - value4[1] < 0 and value5 - value5[1] < 0 and (value6 + value7)/2 - (value6 + value7[1])/2 < 0 and Mom < 0 AND Mom <= Mom[1] AND MarketPosition() <> -1 Then { Sell("매도",onclose); } var : TL1(0),TL2(0),TL3(0),TL4(0); var : TX1(0),TX2(0),TX3(0),TX4(0); if MarketPosition == 1 Then{ TL_Delete(tl1); TL1 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*10,sdate,stime,EntryPrice+PriceScale*10); Text_Delete(tx1); tx1 = Text_New(sdate,stime,EntryPrice+PriceScale*10,NumToStr(EntryPrice+PriceScale*10,2)); Text_SetStyle(Tx1,2,2); TL_Delete(tl2); TL2 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*20,sdate,stime,EntryPrice+PriceScale*20); Text_Delete(tx2); tx2 = Text_New(sdate,stime,EntryPrice+PriceScale*20,NumToStr(EntryPrice+PriceScale*20,2)); Text_SetStyle(Tx2,2,2); TL_Delete(tl3); TL3 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*30,sdate,stime,EntryPrice+PriceScale*30); Text_Delete(tx3); tx3 = Text_New(sdate,stime,EntryPrice+PriceScale*30,NumToStr(EntryPrice+PriceScale*30,2)); Text_SetStyle(Tx3,2,2); TL_Delete(tl4); TL4 = TL_New(EntryDate,entrytime,EntryPrice+PriceScale*40,sdate,stime,EntryPrice+PriceScale*40); Text_Delete(tx4); tx4 = Text_New(sdate,stime,EntryPrice+PriceScale*40,NumToStr(EntryPrice+PriceScale*40,2)); Text_SetStyle(Tx4,2,2); } if MarketPosition == -1 Then{ TL_Delete(tl1); TL1 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*10,sdate,stime,EntryPrice-PriceScale*10); Text_Delete(tx1); tx1 = Text_New(sdate,stime,EntryPrice-PriceScale*10,NumToStr(EntryPrice-PriceScale*10,2)); Text_SetStyle(Tx1,2,2); TL_Delete(tl2); TL2 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*20,sdate,stime,EntryPrice-PriceScale*20); Text_Delete(tx2); tx2 = Text_New(sdate,stime,EntryPrice-PriceScale*20,NumToStr(EntryPrice-PriceScale*20,2)); Text_SetStyle(Tx2,2,2); TL_Delete(tl3); TL3 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*30,sdate,stime,EntryPrice-PriceScale*30); Text_Delete(tx3); tx3 = Text_New(sdate,stime,EntryPrice-PriceScale*30,NumToStr(EntryPrice-PriceScale*30,2)); Text_SetStyle(Tx3,2,2); TL_Delete(tl4); TL4 = TL_New(EntryDate,entrytime,EntryPrice-PriceScale*40,sdate,stime,EntryPrice-PriceScale*40); Text_Delete(tx4); tx4 = Text_New(sdate,stime,EntryPrice-PriceScale*40,NumToStr(EntryPrice-PriceScale*40,2)); Text_SetStyle(Tx4,2,2); } if date != date[1] Then{ DD = sdate[1]; TT = stime[1]; } TL_Delete(TL11); TL_Delete(TL12); TL_Delete(TL13); TL_Delete(TL14); TL_Delete(TL15); TL_Delete(TL16); TL_Delete(TL17); TL_Delete(TL18); TL11 = TL_New(dd,tt,dayopen,sdate,stime,dayopen); TL12 = TL_New(dd,tt,dayopen(1),sdate,stime,dayopen(1)); TL13 = TL_New(dd,tt,DayHigh(1),sdate,stime,DayHigh(1)); TL14 = TL_New(dd,tt,daylow(1),sdate,stime,daylow(1)); TL15 = TL_New(dd,tt,DayClose(1),sdate,stime,DayClose(1)); TL16 = TL_New(dd,tt,pivot,sdate,stime,pivot); TL17 = TL_New(dd,tt,var3,sdate,stime,var3); TL18 = TL_New(dd,tt,(dayhigh+daylow)/2,sdate,stime,(dayhigh+daylow)/2); Text_Delete(tx11); Text_Delete(tx12); Text_Delete(tx13); Text_Delete(tx14); Text_Delete(tx15); Text_Delete(tx16); Text_Delete(tx17); Text_Delete(tx18); tx11 = Text_New(sdate,stime,dayopen,NumToStr(dayopen,2)); tx12 = Text_New(sdate,stime,dayopen(1),NumToStr(dayopen(1),2)); tx13 = Text_New(sdate,stime,DayHigh(1),NumToStr(DayHigh(1),2)); tx14 = Text_New(sdate,stime,daylow(1),NumToStr(daylow(1),2)); tx15 = Text_New(sdate,stime,DayClose(1),NumToStr(DayClose(1),2)); tx16 = Text_New(sdate,stime,pivot,NumToStr(pivot,2)); tx17 = Text_New(sdate,stime,var3,NumToStr(var3,2)); tx18 = Text_New(sdate,stime,(dayhigh+daylow)/2,NumToStr((dayhigh+daylow)/2,2)); Text_SetStyle(Tx11,2,2); Text_SetStyle(Tx12,2,2); Text_SetStyle(Tx13,2,2); Text_SetStyle(Tx14,2,2); Text_SetStyle(Tx15,2,2); Text_SetStyle(Tx16,2,2); Text_SetStyle(Tx17,2,2); Text_SetStyle(Tx18,2,2);