AtenA

SeismoGraphoBTC

This script will give you a "shock" quite all the times there is some hype in the market. The color suggests the probable direction.
Orange = down;
Green = Up;
Gray = undecided = retracement = congestion = consolidation

Only for Bitcoin

Remove from Favorite Scripts Add to Favorite Scripts
study("SeismoGraphoBTC", precision=1)
wmaperiods = input(title="Periods", type=integer, defval=5, minval=2)
sresponsiveness = input(title="SentimentResponsiveness", type=integer, defval=2, minval=1, maxval=5)

stamp = security("BITSTAMP:BTCUSD", period, close)
btcchina = security("BTCCHINA:BTCCNY", period, close)
stampvol = security("BITSTAMP:BTCUSD", period, volume)
btcchinavol = security("BTCCHINA:BTCCNY", period, volume)

allvol = stampvol+btcchinavol+volume
volmom = mom(allvol, 1)

btcusdwma = wma(stamp, wmaperiods)
btccnywma = wma(btcchina, wmaperiods)
localwma1 = wma(hlc3, 8)
localwma2 = wma(hlc3, 12)

colorbg = rising(btccnywma, sresponsiveness) and 
            rising(btcusdwma, sresponsiveness) and 
                localwma1 >= localwma2 ? 
                    green : 
                        falling(btccnywma, sresponsiveness) and 
                            falling(btcusdwma, sresponsiveness) and 
                                localwma2 >= localwma1 ? 
                                    orange : silver

plot(volmom, title="rocMOM", style=line, color = colorbg, linewidth=2)
LazyBear PRO
2 years ago
Nice, thanks for sharing.
Reply
Ideas Scripts Chart
United States
United Kingdom
India
España
Italia
Brasil
Россия
Türkiye
日本
한국
Home Stock Screener Economic Calendar How It Works Chart Features House Rules Moderators For the WEB Widgets Stock Charting Library Priority Support Feature Request Blog & News FAQ Help & Wiki Twitter
Private Messages Chat Ideas Published Followers Following Priority Support Public Profile Profile Settings Billing Sign Out