-
Notifications
You must be signed in to change notification settings - Fork 10
/
Schaff Trend Cycle - LazyBear.txt
35 lines (32 loc) · 1.05 KB
/
Schaff Trend Cycle - LazyBear.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
//
// @author LazyBear
// If you use modify / use this code, appreciate if you could drop me a note.
//
study(title="Schaff Trend Cycle [LazyBear]", shorttitle="STC_LB", overlay=false)
length=input(10)
fastLength=input(23)
slowLength=input(50)
macd(source, fastLength, slowLength) =>
fastMA = ema(source, fastLength)
slowMA = ema(source, slowLength)
macd = fastMA - slowMA
macd
stc(length, fastLength, slowLength) =>
factor=input(0.5)
m = macd(close,fastLength,slowLength)
v1 = lowest(m, length)
v2 = highest(m, length) - v1
f1 = (v2 > 0 ? ((m - v1) / v2) * 100 : nz(f1[1]))
pf = (na(pf[1]) ? f1 : pf[1] + (factor * (f1 - pf[1])))
v3 = lowest(pf, length)
v4 = highest(pf, length) - v3
f2 = (v4 > 0 ? ((pf - v3) / v4) * 100 : nz(f2[1]))
pff = (na(pff[1]) ? f2 : pff[1] + (factor * (f2 - pff[1])))
pff
plot(stc(length,fastLength,slowLength),color=red, title="Schaff_TC")
//
// Uncomment the lines below if you want the center region
//
// ul=plot(25)
// ll=plot(75)
// fill(ul,ll,color=red)