mm = Average[100](close)
period = 500
s1 = mm - (period*0.118)
s2 = mm - (period*0.236)
s3 = mm - (period*0.382)
s4 = mm - (period*0.50)
s5 = mm - (period*0.618)
s6 = mm - (period*0.882)
s7 = mm - (period*1)
r1 = mm + (period*0.118)
rr2 = mm + (period*0.236)
r3 = mm + (period*0.382)
r4 = mm + (period*0.50)
r5 = mm + (period*0.618)
r6 = mm + (period*0.882)
r7 = mm + (period*1)
return mm, s1 as "s1" , s2 as "s2" ,s3 as "s3" , s4 as "s4",s5 as"s5", s6 as "s6", s7 as "s7", r1 as "r1", rr2 as "r2", r3 as "r3",r4 as "r4", r5 as "r5", r6 as "r6", r7 as "r7"
Thanks for sharing this code with us.