Questo è il codice, basta copiare / incollarlo nella tua piattaforma Webank.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
// DIVERGENCES STO adapted from HK-LISSE code
p= 14
overboughtzone= 80
oversoldzone= 20
k= 3
d= 6
x = smoothedstochastic [ p,k]
y = average [ d] (x)
if x> overboughtzone then
hi= max (hi,x)
hico= max (hico,max (high ,high [ 1 ] ))
endif
if x crosses under y then
sto2b= sto1b
sto1b= hi
hi= 0
p3b= p1b
p2b= max (p1b,hico1)
p1b= max (highest [ 3 ] (high ),hico)
if p2b= p1b then
p2b= max (p3b,p4b)
endif
hico= 0
hico1= 0
endif
if x< y then
p4b= hico1
hico1= max (hico1,high )
endif
if p1b> p2b and sto1b< sto2b and x crosses under y and x< x[ 1 ] then
signB= - 2
else
signB= 0
endif
if x< oversoldzone then
lo= min (lo,x)
lowco= min (lowco,min (low ,low [ 1 ] ))
endif
if x CROSSES OVER y then
sto2h= sto1h
sto1h= lo
lo= 100
p3h= p1h
p2h= min (p1h,lowco1)
p1h= min (lowest [ 3 ] (low ),lowco)
if p2h= p1h then
p2h= min (p3h,p4h)
endif
lowco= 100000
lowco1= 100000
endif
if x> y then
p4h= lowco1
lowco1= min (lowco1,low )
endif
if p1h< p2h and sto1h > sto2h and x crosses over y and x> x[ 1 ] then
signH= 2
else
signH= 0
endif
////////////////////////////////////////////////
return signH as " div STO bull " , signB as " div STO bear " , 0 as " zero "
.
