• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

삼각가중 그물망

프로필 이미지
조민철
2019-07-26 08:10:12
191
글번호 130632
답변완료
항상 감사합니다.. 아래 지표식을 삼각가중 지수로 변환코져 합니다.. 1.삼각가중 고가 2.삼각가중 종가 3.삼각가중 저가 위 3가지 지수로 따로 작성부탁드립니다.. 감사합니다 input:period(200),횡보율(0.5); var : t(0); var1=ema(c,period+5); var2=ema(c,period+10); var3=ema(c,period+15); var4=ema(c,period+20); var5=ema(c,period+25); var6=ema(c,period+30); var7=ema(c,period+35); var8=ema(c,period+40); var9=ema(c,period+45); var10=ema(c,period+50); value1 = 0; value2 = 0; value3 = 0; if var1>var1[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var2>var2[1]*(1+횡보율/100) then value1 = value1+1; else if var2<var2[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var3>var3[1]*(1+횡보율/100) then value1 = value1+1; else if var3<var3[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var4>var4[1]*(1+횡보율/100) then value1 = value1+1; else if var4<var4[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var5>var5[1]*(1+횡보율/100) then value1 = value1+1; else if var5<var5[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var6>var6[1]*(1+횡보율/100) then value1 = value1+1; else if var6<var6[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var7>var7[1]*(1+횡보율/100) then value1 = value1+1; else if var7<var7[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var8>var8[1]*(1+횡보율/100) then value1 = value1+1; else if var8<var8[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var9>var9[1]*(1+횡보율/100) then value1 = value1+1; else if var9<var9[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var10>var10[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if value1 == 10 Then t = 1; else if value2 == 10 Then t = 2; Else t = 3; plot1(t);
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2019-07-26 09:44:19

안녕하세요 예스스탁입니다. 1 input:period(200),횡보율(0.5); var : t(0); var : TLen1(0),TLen2(0),TLen3(0),TLen4(0),TLen5(0); var : TLen6(0),TLen7(0),TLen8(0),TLen9(0),TLen10(0); TLen1 = Ceiling((period+5 + 1) * .5); TLen2 = Ceiling((period+10 + 1) * .5); TLen3 = Ceiling((period+15 + 1) * .5); TLen4 = Ceiling((period+20 + 1) * .5); TLen5 = Ceiling((period+25 + 1) * .5); TLen6 = Ceiling((period+30 + 1) * .5); TLen7 = Ceiling((period+35 + 1) * .5); TLen8 = Ceiling((period+40 + 1) * .5); TLen9 = Ceiling((period+45 + 1) * .5); TLen10 = Ceiling((period+50 + 1) * .5); var1=ma(ma(H, TLen1), TLen1); var2=ma(ma(H, TLen2), TLen2); var3=ma(ma(H, TLen3), TLen3); var4=ma(ma(H, TLen4), TLen4); var5=ma(ma(H, TLen5), TLen5); var6=ma(ma(H, TLen6), TLen6); var7=ma(ma(H, TLen7), TLen7); var8=ma(ma(H, TLen8), TLen8); var9=ma(ma(H, TLen9), TLen9); var10=ma(ma(H, TLen10), TLen10); value1 = 0; value2 = 0; value3 = 0; if var1>var1[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var2>var2[1]*(1+횡보율/100) then value1 = value1+1; else if var2<var2[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var3>var3[1]*(1+횡보율/100) then value1 = value1+1; else if var3<var3[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var4>var4[1]*(1+횡보율/100) then value1 = value1+1; else if var4<var4[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var5>var5[1]*(1+횡보율/100) then value1 = value1+1; else if var5<var5[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var6>var6[1]*(1+횡보율/100) then value1 = value1+1; else if var6<var6[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var7>var7[1]*(1+횡보율/100) then value1 = value1+1; else if var7<var7[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var8>var8[1]*(1+횡보율/100) then value1 = value1+1; else if var8<var8[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var9>var9[1]*(1+횡보율/100) then value1 = value1+1; else if var9<var9[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var10>var10[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if value1 == 10 Then t = 1; else if value2 == 10 Then t = 2; Else t = 3; plot1(t); 2 input:period(200),횡보율(0.5); var : t(0); var : TLen1(0),TLen2(0),TLen3(0),TLen4(0),TLen5(0); var : TLen6(0),TLen7(0),TLen8(0),TLen9(0),TLen10(0); TLen1 = Ceiling((period+5 + 1) * .5); TLen2 = Ceiling((period+10 + 1) * .5); TLen3 = Ceiling((period+15 + 1) * .5); TLen4 = Ceiling((period+20 + 1) * .5); TLen5 = Ceiling((period+25 + 1) * .5); TLen6 = Ceiling((period+30 + 1) * .5); TLen7 = Ceiling((period+35 + 1) * .5); TLen8 = Ceiling((period+40 + 1) * .5); TLen9 = Ceiling((period+45 + 1) * .5); TLen10 = Ceiling((period+50 + 1) * .5); var1=ma(ma(C, TLen1), TLen1); var2=ma(ma(C, TLen2), TLen2); var3=ma(ma(C, TLen3), TLen3); var4=ma(ma(C, TLen4), TLen4); var5=ma(ma(C, TLen5), TLen5); var6=ma(ma(C, TLen6), TLen6); var7=ma(ma(C, TLen7), TLen7); var8=ma(ma(C, TLen8), TLen8); var9=ma(ma(C, TLen9), TLen9); var10=ma(ma(C, TLen10), TLen10); value1 = 0; value2 = 0; value3 = 0; if var1>var1[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var2>var2[1]*(1+횡보율/100) then value1 = value1+1; else if var2<var2[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var3>var3[1]*(1+횡보율/100) then value1 = value1+1; else if var3<var3[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var4>var4[1]*(1+횡보율/100) then value1 = value1+1; else if var4<var4[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var5>var5[1]*(1+횡보율/100) then value1 = value1+1; else if var5<var5[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var6>var6[1]*(1+횡보율/100) then value1 = value1+1; else if var6<var6[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var7>var7[1]*(1+횡보율/100) then value1 = value1+1; else if var7<var7[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var8>var8[1]*(1+횡보율/100) then value1 = value1+1; else if var8<var8[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var9>var9[1]*(1+횡보율/100) then value1 = value1+1; else if var9<var9[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var10>var10[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if value1 == 10 Then t = 1; else if value2 == 10 Then t = 2; Else t = 3; plot1(t); 3 input:period(200),횡보율(0.5); var : t(0); var : TLen1(0),TLen2(0),TLen3(0),TLen4(0),TLen5(0); var : TLen6(0),TLen7(0),TLen8(0),TLen9(0),TLen10(0); TLen1 = Ceiling((period+5 + 1) * .5); TLen2 = Ceiling((period+10 + 1) * .5); TLen3 = Ceiling((period+15 + 1) * .5); TLen4 = Ceiling((period+20 + 1) * .5); TLen5 = Ceiling((period+25 + 1) * .5); TLen6 = Ceiling((period+30 + 1) * .5); TLen7 = Ceiling((period+35 + 1) * .5); TLen8 = Ceiling((period+40 + 1) * .5); TLen9 = Ceiling((period+45 + 1) * .5); TLen10 = Ceiling((period+50 + 1) * .5); var1=ma(ma(L, TLen1), TLen1); var2=ma(ma(L, TLen2), TLen2); var3=ma(ma(L, TLen3), TLen3); var4=ma(ma(L, TLen4), TLen4); var5=ma(ma(L, TLen5), TLen5); var6=ma(ma(L, TLen6), TLen6); var7=ma(ma(L, TLen7), TLen7); var8=ma(ma(L, TLen8), TLen8); var9=ma(ma(L, TLen9), TLen9); var10=ma(ma(L, TLen10), TLen10); value1 = 0; value2 = 0; value3 = 0; if var1>var1[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var2>var2[1]*(1+횡보율/100) then value1 = value1+1; else if var2<var2[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var3>var3[1]*(1+횡보율/100) then value1 = value1+1; else if var3<var3[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var4>var4[1]*(1+횡보율/100) then value1 = value1+1; else if var4<var4[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var5>var5[1]*(1+횡보율/100) then value1 = value1+1; else if var5<var5[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var6>var6[1]*(1+횡보율/100) then value1 = value1+1; else if var6<var6[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var7>var7[1]*(1+횡보율/100) then value1 = value1+1; else if var7<var7[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var8>var8[1]*(1+횡보율/100) then value1 = value1+1; else if var8<var8[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var9>var9[1]*(1+횡보율/100) then value1 = value1+1; else if var9<var9[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var10>var10[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if value1 == 10 Then t = 1; else if value2 == 10 Then t = 2; Else t = 3; plot1(t); 즐거운 하루되세요 > 조민철 님이 쓴 글입니다. > 제목 : 삼각가중 그물망 > 항상 감사합니다.. 아래 지표식을 삼각가중 지수로 변환코져 합니다.. 1.삼각가중 고가 2.삼각가중 종가 3.삼각가중 저가 위 3가지 지수로 따로 작성부탁드립니다.. 감사합니다 input:period(200),횡보율(0.5); var : t(0); var1=ema(c,period+5); var2=ema(c,period+10); var3=ema(c,period+15); var4=ema(c,period+20); var5=ema(c,period+25); var6=ema(c,period+30); var7=ema(c,period+35); var8=ema(c,period+40); var9=ema(c,period+45); var10=ema(c,period+50); value1 = 0; value2 = 0; value3 = 0; if var1>var1[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var2>var2[1]*(1+횡보율/100) then value1 = value1+1; else if var2<var2[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var3>var3[1]*(1+횡보율/100) then value1 = value1+1; else if var3<var3[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var4>var4[1]*(1+횡보율/100) then value1 = value1+1; else if var4<var4[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var5>var5[1]*(1+횡보율/100) then value1 = value1+1; else if var5<var5[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var6>var6[1]*(1+횡보율/100) then value1 = value1+1; else if var6<var6[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var7>var7[1]*(1+횡보율/100) then value1 = value1+1; else if var7<var7[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var8>var8[1]*(1+횡보율/100) then value1 = value1+1; else if var8<var8[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var9>var9[1]*(1+횡보율/100) then value1 = value1+1; else if var9<var9[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if var10>var10[1]*(1+횡보율/100) then value1 = value1+1; else if var1<var1[1]*(1-횡보율/100) then value2 = value2+1; else value3 = value3+1; if value1 == 10 Then t = 1; else if value2 == 10 Then t = 2; Else t = 3; plot1(t);
등록