Le canal de régression linéaire ou canal de Raff.

Dans la continuité du code Prorealtime permettant le traçage de la droite de régression linéaire, voici les programmes pour les différents canaux.  En premier le canal de Raff, avec une vue du CAC, pour une droite de longueur=50.  Normalement, le canal de Raff trace 2 droites parallèles passant par l'extrême le plus éloigné de la droite (droites bleues).   Dans le programme, j'ai rajouté les parallèles passant par l'extrême le plus proche (droites jaunes).  Sur le graphe du CAC, c'est assez parlant.

Il faut toujours définir K en variable pour la longeur du canal, le code :

det=DPO[k*2](close)
if det=det[1] and det[1]=det[2] and det[2]<>det[3] then
    flag=1
endif
n=(k*2)-4
p=(n/2)-1
d100=DPO[n](close)
moy100=close-d100
co=(moy100-moy100[1]+(close[p])/n)*n
h100=dpo[n](high)
moyh=high-h100
hi=(moyh-moyh[1]+(high[p])/n)*n
l100=dpo[n](low)
moyl=low-l100
lo=(moyl-moyl[1]+(low[p])/n)*n
if flag=1 and flag[1]=0 then
    somx=0
    somy=0
    somxx=0
    somxy=0
    for i=1 to k
        somx=somx+i
    next
    for i=0 to k-1
        somy=somy+co[i]
    next
    for i=1 to k
        somxx=somxx+(i*i)
    next
    for i=0 to k-1
        somxy=somxy+(co[i]*(k-i))
    next
    a=(k*somxy-somx*somy)/(k*somxx-somx*somx)
    b=(somy-a*somx)/k
    for i=0 to k-1
        ecah=hi[i]-a*(k-i)-b
        maxh=max(maxh,ecah)
        ecal=a*(k-i)+b-lo[i]
        maxl=max(maxl,ecal)
    next
endif
if flag=0 then
    reg=undefined
else
    j=j+1
    reg=a*j+b
endif
raff=max(maxh,maxl)
raffl=reg-raff
raffh=reg+raff
riff=min(maxh,maxl)
riffh=reg+riff
riffl=reg-riff
return reg,riffl,riffh,raffl,raffh

Le canal d'écart type.

Le graphe du CAC avec le canal d'écart type, la longueur de la droite est toujours de 50 et le coéfficient pour l'écart type est de 1.50.  Il faut définir 2 variables, K pour la longueur du canal et Z pour le coéfficient de l'écart type.  Le code :

once j=0
det=DPO[k*2](close)
if det=det[1] and det[1]=det[2] and det[2]<>det[3] then
    flag=1
endif
n=(k*2)-4
p=(n/2)-1
d100=DPO[n](close)
moy100=close-d100
co=(moy100-moy100[1]+(close[p])/n)*n
if flag=1 and flag[1]=0 then
    somx=0
    somy=0
    somxx=0
    somxy=0
    for i=1 to k
        somx=somx+i
    next
    for i=0 to k-1
        somy=somy+co[i]
    next
    for i=1 to k
        somxx=somxx+(i*i)
    next
    for i=0 to k-1
        somxy=somxy+(co[i]*(k-i))
    next
    a=(k*somxy-somx*somy)/(k*somxx-somx*somx)
    b=(somy-a*somx)/k
    eca=STD[k](co)
endif
if flag=0 then
    reg=undefined
else
    j=j+1
    reg=a*j+b
endif
return reg,reg+z*eca,reg-z*eca

Le canal d'erreur type.

Toujours une vue du CAC avec le canal d'erreur type de longueur 50 et de coéfficient 1.50.  Comme pour le programme précédent, il faut définir 2 variables, K pour la longueur du canal et Z pour le coéfficient multiplicateur de l'erreur type.  Le code :

once j=0
det=DPO[k*2](close)
if det=det[1] and det[1]=det[2] and det[2]<>det[3] then
    flag=1
endif
n=(k*2)-4
p=(n/2)-1
d100=DPO[n](close)
moy100=close-d100
co=(moy100-moy100[1]+(close[p])/n)*n
if flag=1 and flag[1]=0 then
    somx=0
    somy=0
    somxx=0
    somxy=0
    for i=1 to k
        somx=somx+i
    next
    for i=0 to k-1
        somy=somy+co[i]
    next
    for i=1 to k
        somxx=somxx+(i*i)
    next
    for i=0 to k-1
        somxy=somxy+(co[i]*(k-i))
    next
    a=(k*somxy-somx*somy)/(k*somxx-somx*somx)
    b=(somy-a*somx)/k
    eca=STe[k](co)
endif
if flag=0 then
    reg=undefined
else
    j=j+1
    reg=a*j+b
endif
return reg,reg+z*eca,reg-z*eca

edit le 04/03/08 : suite à l'amélioration apportée par un lecteur, le code est modifié (en rose).

Black Monday : Le 19 Octobre 1987.

A l'heure où Wall Street se prépare à fêter le vingtième anniversaire du crash de 1987, je vous livre ici quelques commentaires sur la journée.

En fin de semaine précédente (le jeudi ou le vendredi) était sorti une nouvelle (sur les taux ou l'emploi, je ne me souviens plus), ce qui avait provoqué un début de glissade du marché : baisse de 3.81% pour le mercredi, baisse de 2.39% pour le jeudi et baisse de 4.6% pour le vendredi.  Mais ce qui est important, c'est que les médias (du moins en Europe), ont parlé de cette baisse tout le week-end, ressassant la news aux oreilles des investisseurs.

Ce lundi là, en arrivant à la Bourse, on me prévient que le bureau a demandé de leur sonner quand nous serions prêt car ils avaient déjà des ordres à transmettre.  Il faut savoir qu'à l'époque tout se faisait encore par retranscription via communication téléphonique et qu'il fallait avoir une bonne oreille, une belle écriture et une exellente articulation !  Bref, la journée de travail démarra 1 heure plus tôt, vers 10h30.  Alors que nous pensions juste nous mettre en avance, le flot des ordres continua à jamais........

Vers 11h30, devant la quantité d'ordres à assurer (le bureau nous informant que de leur côté le téléphone n'arrêtait pas de sonner), les arbitragistes et les délégués sont réquisitionnés pour donner un coup de main.  Au début, il y eut quelques râles puis la bonne humeur refit surface avec l'excitation et le sentiment de vivre quelque chose d'extraordinaire.  Cela se termina même en compétition : voir celui qui retranscrirait le plus de contrats !  De toute façon pour l'arbitrage,  ce fut aussi une journée particulière :  les criées étant sans cesse retardées, les cours des  places étrangères fluctuant continuellement, ils recevaient chaque fois de nouveaux spreads et avaient pour consigne d'y aller  mollo.

Donc, tout le monde était sur le pont.  Les lignes téléphoniques n'ont pas cessé de chauffer, le bureau, les correspondants, institutionnels et clients se relayaient au bout du fil : certains nous sonnant directement n'arrivant pas à joindre le bureau.

Avec le temps, j'avais appris à reconnaître via les codes clients, le donneur d'ordre : pas besoin de livres sur la psychologie, l'irrationalité ou les mécanismes  du marché, toute l'information passait sous nos yeux. 

Ce qui se passait pour nous, se passait également dans les autres firmes.  La quantité d'ordres était telle que les criées furent plusieurs fois retardées (ce qui nous arrangeait bien :-) ), pour permettre au système informatique de la Bourse de digérer tous ces contrats.  Une fois les casiers de réceptions des ordres fermés, ce fut une longue attente avant la sortie des balances et le  début des criées, et un nouveau branle-bas de combat : pour les arbitragistes, essayer d'intervenir et pour les autres courrir d'une criée  à l'autre  pour exécuter les ordres tardifs non-encodés.  Heureusement, vu la longueur des  balances,  les criées qui d'ordinaire se passent relativement rapidement,  prenaient jusqu'à 10 minutes voir plus avec les suspensions !  j'avais tellement d'ordres à la vente que j'avais décidé de les inscrire dans mon carnet en rouge du côté achat afin de ne pas perdre toutes ces pages blanches......Il ne restait plus maintenant qu'à relever toutes ces exécutions et les transmettre......Une fois le carnet refermé, je regardais l'horloge : nous avions 3 heures de retard....

Alors que d'habitude, lorsque nous rentrions au bureau (parfois aprés un pot près de la Bourse avec les gars des autres firmes), la journée des employés était presque finie, ce jour là l'encodage des exécutions n'était pas terminé......  Une fois cela fait, il fallait encore attendre le traitement des fichiers (j'en profitais pour sonner à la maison pour dire que l'on ne m'attende pas pour le repas), puis enfin les imprimantes se mirent à cracher les avis d'opéré .    Toute cette masse  d'ordres provoquait un retard  en effet boule de neige.

Le travail continua une bonne partie de la soirée, les yeux rivés sur la séance de Wall Street, chacun se demandant ce qui allait nous arriver demain.......Nous fermames le bureau tard dans la soirée, connaissant la cloture du Dow Jones,  on se donna rendez-vous  dés 7  heures  le lendemain matin, un de nous  se chargeant de passer par le tri postal avec le courrier, seul moyen pour les clients de recevoir leurs  confirmations  dans les temps.

Cette journée a été fabuleuse par l'ambiance qui régnait, tout le monde n'avait à la bouche que "crash 1929", mais c'était également l'inconnu car personne, ni même le plus ancien, n'avait connu cette période.  Extraordinaire, également, car malgré le nombre d'ordres, il n'y eu aucune panne.......juste un peu de retard !  Bien que le niveau de courtage de la journée soit exceptionnel, ce n'était pas un record, par contre le nombre d'exécutions enregistrées sur un jour ne fut plus jamais dépassé.  Pour l'arbitrage, ce fut également une excellente journée, malgré les consignes.  Le fait de devoir intervenir modérément faisait tomber les cours, il n'y avait plus de soutien.........Ils ont gagné plus en décalages de cours qu'en commissions.  

Le lendemain, on vit apparaître à l'achat quelques gros ordres........et le soir WS se stabilisait.......

Cette expérience me servit 2 ans plus tard, le lundi 16 octobre 1989 (tiens, encore un lundi en octobre ?) avec la chute du mur, le marché fut chahuté en Europe suite à la cloture de WS le vendredi........J'ai fait une petite fortune ce jour là avec un reverse d'anthologie à 4 jours de l'expiration des options........mais c'est une autre histoire.

Photo de l'écran du Reuter à la cloture de la séance du 19 octobre 1987.

Trailing Stop : la cassure en trois blocs ou three line break.

Voici un indicateur qui donne le seuil de retournement pour le mode de représentation en cassure trois blocs.  Cet indicateur peut servir de trailing stop, il fonctionne avec le cours de cloture.  Un exemple sur le CAC, avec ensuite la représentation en "three line break" avec l'indicateur pour confirmation.

Et maintenant le code pour Prorealtime :

once t=1
once a0=(close)
once a1=(close)
once a2=(close)
once a3=(close)
if t=1 and close>a3 then
    a0=a1
    a1=a2
    a2=a3
    a3=close
elsif t=1 and close<a0 then
    t=-1
    a1=a3
    a0=a3
    a3=close
elsif t=-1 and close<a3 then
    a0=a1
    a1=a2
    a2=a3
    a3=close
elsif t=-1 and close>a0 then
    t=1
    a1=a3
    a0=a3
    a3=close
endif

return a0 coloured by t[1] as "cassure"

Trailing Stop : le High/Low Stop.

Une autre technique de trailing stop consiste à afficher une moyenne mobile des high/low.  C'est surtout utile en intraday ou encore pour gérer un trade sur l'unité de temps inférieure.  Une vue sur ALU avec une SMA5 :

En version SAR :

Et maintenant le code, p représente la longueur de la moyenne (à déterminer par backtest).   On peut  changer le critère de reverse par close, on peut également  ajouter ou soustraire à la courbe  un écart variant en fonction de la volatilité.

p=5 // longueur de la moyenne des extrêmes
hi=(average[p](high))
lo=(average[p](low))
if f=1 then
    if low<lo then // on peut utiliser close
        c=hi
        f=-1
    else
        c=lo
    endif
else
    if high>hi then // on peut utiliser close
        c=lo
        f=1
    else
        c=hi
    endif
endif
return c coloured by f

Van K. Tharp préconise un stop basé sur l'ATR.

Dans son livre "Trade Your Way To Financial Freedom" ("Réussir En Trading" pour la version française), Van K. Tharp préconise un trailing stop placé 3 ATR's sous la cloture.  Il prétend même qu'un système à entrées aléatoires utilisant ce type de stop est gagnant, il l'aurait testé sur un ensemble de 10 marchés sur une durée de 10 ans. 

Les intervenants sur cette file n'ont pas l'air tous d'accord : http://www.tradingblox.com/forum/viewtopic.php?t=3637

Voici le code pour Prorealtime de ce "volatility stop".  Les variables sont : d pour la période de l'ATR et c pour le coéfficient multiplicateur, on peut encore éventuellement faire varier la longueur de la moyenne exponentielle (ici 10).  En version SAR, cela permet de bien visualiser la tendance.

c=3
d=9
ONCE a=close
once b=1
if b=1 then
    if close >a then
        a= close
    else
    endif
    if close < a - (c*(ExponentialAverage[10](AverageTrueRange[d](close)))) then
        b=-1
        e=a
        a=close
        f=-1
    else
        e= a - (c*(ExponentialAverage[10](AverageTrueRange[d](close))))
        f=1
    endif
else
    if close < a then
        a=close
    else
    endif
    if close > a + (c*(ExponentialAverage[10](AverageTrueRange[d](close)))) then
        b=1
        e=a
        a=close
        f=1
    else
        e=a + (c*(ExponentialAverage[10](AverageTrueRange[d](close))))
        f=-1
    endif
endif

return e coloured by (f)

Et une vue de l'indicateur appliqué sur ALU :