커뮤니티

문의드립니다

프로필 이미지
새벽에
2020-04-29 13:20:53
1075
글번호 138506
답변완료
안녕하세요? 1번수식의 기울기에따라 알림음을 봉완성시까지 출력되게 하고싶습니다 2번수식의 기준선을 제외한 두선 모두 기울기에따라 빨강 파랑으로 선의색을 표현되게 하여주세요 그리고 기울기에따라 두선 각각 소리출력도 부탁드립니다 도움주셔서 감사합니다 1. input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); 2. Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD"); Plot2(BWMACDsig,"BW MACD_Sig"); PlotBaseLine1(0, "기준선0");
지표
답변 3
프로필 이미지

예스스탁 예스스탁 답변

2020-04-29 14:22:49

안녕하세요 예스스탁입니다. 소리출력함수(playsound)는 함수내에 지정한 경로의 wav파일이 구동됩니다. 아래는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다. 원하시는 wav파일의 경로와 이름으로 수정하시기 바랍니다. 게시판에서 식을 복사할 경우 경로명 중 ₩의 폰트가 깨질수 있으므로 ₩는 다시 타이핑하시기 바랍니다. 1 input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); #상승시 if out > out[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #하락시 if out < out[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } } 2 Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD",iff(BWMACD>BWMACD[1],red,blue)); Plot2(BWMACDsig,"BW MACD_Sig",iff(BWMACD>BWMACD[1],red,blue)); PlotBaseLine1(0, "기준선0"); #BWMACD상승시 if BWMACD > BWMACD[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACD하락시 if BWMACD < BWMACD[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } #BWMACDsig상승시 if BWMACDsig > BWMACDsig[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACDsig하락시 if BWMACDsig < BWMACDsig[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } 즐거운 하루되세요 > 새벽에 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요? 1번수식의 기울기에따라 알림음을 봉완성시까지 출력되게 하고싶습니다 2번수식의 기준선을 제외한 두선 모두 기울기에따라 빨강 파랑으로 선의색을 표현되게 하여주세요 그리고 기울기에따라 두선 각각 소리출력도 부탁드립니다 도움주셔서 감사합니다 1. input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); 2. Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD"); Plot2(BWMACDsig,"BW MACD_Sig"); PlotBaseLine1(0, "기준선0");
프로필 이미지

새벽에

2020-05-05 07:23:01

수식잘받았습니다 그런데 민들어주신 1번과 2번모두 기울기가 변하게된 그첫봉이 완성될때 까지 소리출력을 원했는데 선의기울기가 변해서 종료될때가지 모든봉에서 소리출력이되고있습니다 , 제가 정확히 설명하지못했던것 같습니다 , 다시 한번 검토해주시면 감사드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 문의드립니다 > 안녕하세요 예스스탁입니다. 소리출력함수(playsound)는 함수내에 지정한 경로의 wav파일이 구동됩니다. 아래는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다. 원하시는 wav파일의 경로와 이름으로 수정하시기 바랍니다. 게시판에서 식을 복사할 경우 경로명 중 ₩의 폰트가 깨질수 있으므로 ₩는 다시 타이핑하시기 바랍니다. 1 input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); #상승시 if out > out[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #하락시 if out < out[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } } 2 Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD",iff(BWMACD>BWMACD[1],red,blue)); Plot2(BWMACDsig,"BW MACD_Sig",iff(BWMACD>BWMACD[1],red,blue)); PlotBaseLine1(0, "기준선0"); #BWMACD상승시 if BWMACD > BWMACD[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACD하락시 if BWMACD < BWMACD[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } #BWMACDsig상승시 if BWMACDsig > BWMACDsig[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACDsig하락시 if BWMACDsig < BWMACDsig[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } 즐거운 하루되세요 > 새벽에 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요? 1번수식의 기울기에따라 알림음을 봉완성시까지 출력되게 하고싶습니다 2번수식의 기준선을 제외한 두선 모두 기울기에따라 빨강 파랑으로 선의색을 표현되게 하여주세요 그리고 기울기에따라 두선 각각 소리출력도 부탁드립니다 도움주셔서 감사합니다 1. input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); 2. Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD"); Plot2(BWMACDsig,"BW MACD_Sig"); PlotBaseLine1(0, "기준선0");
프로필 이미지

예스스탁 예스스탁 답변

2020-05-11 11:50:35

안녕하세요 예스스탁입니다. 1 input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0),t(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); #상승시 if out > out[1] and t <= 0 Then { t = 1; PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #하락시 if out < out[1] and t >= 0 Then { t = -1; PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } } 2 Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0),t1(0),t2(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD",iff(BWMACD>BWMACD[1],red,blue)); Plot2(BWMACDsig,"BW MACD_Sig",iff(BWMACD>BWMACD[1],red,blue)); PlotBaseLine1(0, "기준선0"); #BWMACD상승시 if BWMACD > BWMACD[1] and t1 <= 0 Then { t1 = 1; PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACD하락시 if BWMACD < BWMACD[1] and t1 >= 0 Then { t1 = -1; PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } #BWMACDsig상승시 if BWMACDsig > BWMACDsig[1] and t2 <= 0 Then { t2 = 1; PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACDsig하락시 if BWMACDsig < BWMACDsig[1] and t2 >= 0 Then { t2 = -1; PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } 즐거운 하루되세요 > 새벽에 님이 쓴 글입니다. > 제목 : Re : Re : 문의드립니다 > 수식잘받았습니다 그런데 민들어주신 1번과 2번모두 기울기가 변하게된 그첫봉이 완성될때 까지 소리출력을 원했는데 선의기울기가 변해서 종료될때가지 모든봉에서 소리출력이되고있습니다 , 제가 정확히 설명하지못했던것 같습니다 , 다시 한번 검토해주시면 감사드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 문의드립니다 > 안녕하세요 예스스탁입니다. 소리출력함수(playsound)는 함수내에 지정한 경로의 wav파일이 구동됩니다. 아래는 예스트레이더에 기본으로 제공되는 wav파일을 지정했습니다. 원하시는 wav파일의 경로와 이름으로 수정하시기 바랍니다. 게시판에서 식을 복사할 경우 경로명 중 ₩의 폰트가 깨질수 있으므로 ₩는 다시 타이핑하시기 바랍니다. 1 input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); #상승시 if out > out[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #하락시 if out < out[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } } 2 Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD",iff(BWMACD>BWMACD[1],red,blue)); Plot2(BWMACDsig,"BW MACD_Sig",iff(BWMACD>BWMACD[1],red,blue)); PlotBaseLine1(0, "기준선0"); #BWMACD상승시 if BWMACD > BWMACD[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACD하락시 if BWMACD < BWMACD[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } #BWMACDsig상승시 if BWMACDsig > BWMACDsig[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav"); } #BWMACDsig하락시 if BWMACDsig < BWMACDsig[1] Then { PlaySound("C:₩예스트레이더₩data₩Sound₩stop.wav"); } 즐거운 하루되세요 > 새벽에 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요? 1번수식의 기울기에따라 알림음을 봉완성시까지 출력되게 하고싶습니다 2번수식의 기준선을 제외한 두선 모두 기울기에따라 빨강 파랑으로 선의색을 표현되게 하여주세요 그리고 기울기에따라 두선 각각 소리출력도 부탁드립니다 도움주셔서 감사합니다 1. input : len(20),FC(1),SC(200); var : Price(0),Len1(0),e(0),w(0); var : H1(0),L1(0),N1(0),H2(0),L2(0),N2(0),H3(0),L3(0),N3(0),out(0); var : dimen1(0),dimen(0),alpha1(0),oldalpha(0),oldN(0),N(0),alpha_(0),alpha(0),col(0); price = c; if CurrentBar >= 1 then { len1 = len/2; e = 2.7182818284590452353602874713527; w = log(2/(SC+1)) / log(e); H1 = highest(high,len1); L1 = lowest(low,len1); N1 = (H1-L1)/len1; H2 = highest(high,len1)[len1]; L2 = lowest(low,len1)[len1]; N2 = (H2-L2)/len1; H3 = highest(high,len); L3 = lowest(low,len); N3 = (H3-L3)/len; dimen1 = (log(N1+N2)-log(N3))/log(2); dimen = iff(N1>0 and N2>0 and N3>0,dimen1,dimen1[1]); alpha1 = exp(w*(dimen-1)); oldalpha = iff(alpha1>1,1,iff(alpha1<0.01,0.01,alpha1)); oldN = (2-oldalpha)/oldalpha; N = (((SC-FC)*(oldN-1))/(SC-1))+FC; alpha_ = 2/(N+1); alpha = iff(alpha_< 2/(SC+1),2/(SC+1),iff(alpha_>1,1,alpha_)); if IsNaN(alpha) == false then out = (1-alpha)*out[1] + alpha*price; if out > out[1] Then col = YELLOW; Else col = blue; plot1(out,"FRAMA",col); 2. Input : maPeriod(20), ROCPeriod(12), stoPeriod1(5), stoPeriod2(3), sPeriod(12), IPeriod(26),sigPeriod(9); var : BinaryWave(0),BWMACD(0),BWMACDsig(0); BinaryWave = BW(maPeriod,ROCPeriod,stoPeriod1,stoPeriod2); BWMACD = ema(BinaryWave,sPeriod)-ema(BinaryWave,IPeriod); BWMACDsig = ema(BWMACD,sigPeriod); Plot1(BWMACD,"BW MACD"); Plot2(BWMACDsig,"BW MACD_Sig"); PlotBaseLine1(0, "기준선0");