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"