답변완료
문의드립니다.
안녕하세요
아래의 수식을 예스랭귀지로 변환 문의드리려고 합니다.
항상 감사드립니다!!
//MAPeriod = 80
//SamplePeriod = 5
//AngleThreshold = 45
MA = average[MAPeriod](close)
MAAngle = (sin(atan((MA-MA[1])/MA[1]*100)))*1000//R2[MAPeriod](close)*100
AverageAngle = Average[SamplePeriod](MAAngle)
AverageAngle2 = Average[round(SamplePeriod/2)](MAAngle)
If AverageAngle > AngleThreshold Then
R = 0
G = 255
B = 0
ElsIf AverageAngle < (AngleThreshold*-1) Then
R = 255
G = 0
B = 0
Else
R = 0
G = 0
B = 255
EndIf
AverageAngleD = abs(AverageAngle)
AverageAngle2D = abs(AverageAngle2)
Return AverageAngleD coloured(R,G,B) style(Line,2) as "AverageAngle", AverageAngle2D as "AverageAngle2", AngleThreshold
2021-01-05
919
글번호 145120
지표
답변완료
문의드립니다.
안녕하세요
다음 수식을 예스랭귀지로 변환 부탁드릴 수 있을까요
항상 도움주셔서 너무 감사드립니다.
length = input(20)
mult = input(2)
atr_ = atr(length)
max1=0.0
min1=0.0
is_uptrend_prev = false
stop=0.0
vstop_prev=0.0
vstop1=0.0
is_uptrend=false
is_trend_changed=false
max_ = 0.0
min_ = 0.0
vstop=0.0
max1 := max(nz(max_[1]), close)
min1 := min(nz(min_[1]), close)
is_uptrend_prev := nz(is_uptrend[1], true)
stop := is_uptrend_prev ? max1 - mult * atr_ : min1 + mult * atr_
vstop_prev := nz(vstop[1])
vstop1 := is_uptrend_prev ? max(vstop_prev, stop) : min(vstop_prev, stop)
is_uptrend := close - vstop1 >= 0
is_trend_changed := is_uptrend != is_uptrend_prev
max_ := is_trend_changed ? close : max1
min_ := is_trend_changed ? close : min1
vstop := is_trend_changed ? is_uptrend ? max_ - mult * atr_ : min_ + mult * atr_ : vstop1
plot(vstop, color = is_uptrend ? green : red, style=cross, linewidth=2)
2021-01-05
699
글번호 145117
지표