En el año 2049 , los replicantes eran seres humanos creados sintéticamente para hacer los trabajos más duros.
Los replicantes operaban en bolsa.
K era un modelo más reciente y pertenecía a una unidad policial , era un Blade Runner ( cazador de indicadores).
Las investigaciones de K sobre Enrique Díaz Valdecantos , uno de los primeros replicantes , creador del libro "El método Wyckoff" , le llevó a seguir las pistas de un curioso indicador que utilizaba los volúmenes para descubrir los movimientos de acumulación y distribución.
En el proceso , averiguó que un veterano Blade Runner llamado Rick Deckard , desaparecido hacía treinta años, tenía en su poder ese indicador.
La teniente Joshi, superior de k, le ordenó destruir todas las pruebas relacionadas con el caso y retirar el indicador.
Perturbado por las órdenes,K visitó la sede del fabricante de replicantes Niander Wallace...
señor K... |
El indicador fué retirado por las manos fuertes, por los institucionales del mercado.
no podían permitir que esa información estuviera en manos de los pequeños inversores.. |
intenté que mis replicantes crearan el indicador... |
pero no pudieron... |
esos antiguos replicantes obraron un milagro... |
¿ quieres el indicador , chico?... |
me ordenaron destruir las pruebas de ese indicador... |
su conocimiento sería peligroso... |
sin embargo, prosiguió Deckard, yo lo guardé celosamente todos estos años...
está bien, hecha un vistazo al código... |
REM WEIS WAVE VOLUME
// @author LazyBear
// List of all indicators Lazy Bear: https://www.tradingview.com/v/4IneGo8h/
//adaptación para Prorealtime por bolsatrilera
//En cuadro de variables, showDistributionBelowZero=falso, tipo=boleano
//En cuadro de variables, nz =falso,tipo=boleano
trendDetectionLength=2
if close>close[1] then
mov=1
elsif close<close[1] then
mov=-1
else
mov=0
endif
if mov <>0 and mov <> mov[1] then
trend=mov
else
trend=trend[nz]
endif
rising=abs(close-close[1])>abs(close-close[trendDetectionLength])
falling=abs(close-close[1]<abs(close-close[trendDetectionLength]))
if rising or falling then
isTrending= rising or falling
endif
if trend <> wave[nz] and isTrending then
wave=trend
else
wave=wave[nz]
endif
if wave=wave[1] then
vol=vol[nz]+volume
else
vol=volume
endif
if wave=1 then
up=vol
else
up=0
endif
if showDistributionBellowZero then
if wave=1 then
dn=0
endif
endif
if wave=-1 then
dn=-vol
else
dn=vol
endif
if wave=1 then
dn=0
else
dn=vol
endif
return up coloured (0,128,0)style(histogram)as "up",dn coloured(255,0,0)style(histogram)as "dn"
-----------------------------------------------------------------------------------------
fijaté en este gráfico,chico... |
Ese es el aspecto del indicador, unas barras verdes y rojas, prosiguió Deckard, si lo analizamos más en profundidad, nos muestra claramente los procesos de acumulación y distribución en Mapfre...
es realmente inquietante, podemos saber que hacen las manos fuertes... |
Tienes razón Rick, afirmó K, este indicador es peligroso..
el conocimiento de este indicador llevaría a una guerra entre humanos y replicantes... |
no debe saberlo nadie |
de manera que añadidos las variables en él, solo tengaís que copiar/pegar y validar programa...
---------------------------------------------------------------------------------------------
REM WEIS WAVE VOLUME
// @author LazyBear
// List of all indicators Lazy Bear: https://www.tradingview.com/v/4IneGo8h/
//adaptación para Prorealtime por bolsatrilera
trendDetectionLength=2
if close>close[1] then
mov=1
elsif close<close[1] then
mov=-1
else
mov=0
endif
if mov <>0 and mov <> mov[1] then
trend=mov
else
trend=trend[0]
endif
rising=abs(close-close[1])>abs(close-close[trendDetectionLength])
falling=abs(close-close[1]<abs(close-close[trendDetectionLength]))
if rising or falling then
isTrending= rising or falling
endif
if trend <> wave[1] and isTrending then
wave=trend
else
wave=wave[0]
endif
if wave=wave[1] then
vol=vol[0]+volume
else
vol=volume
endif
if wave=1 then
up=vol
else
up=0
endif
if 0 then
if wave=1 then
dn=0
endif
endif
if wave=-1 then
dn=-vol
else
dn=vol
endif
if wave=1 then
dn=0
else
dn=vol
endif
return up coloured (0,128,0)style(histogram)as "up",dn coloured(255,0,0)style(histogram)as "dn"
--------------------------------------------------------------------------------------------------