Allianz se

**befust** · 18/09/2008, 10:58

STPMT et Repulse

Bonjour,

Est ce qu'une ame charitable pourrai poster les codes du STPMT et du REPULSE pour Chart studio.

tout ceci afin d'ajouter une moyenne mobile au STPMT comme le conseille Eric , seulement sur prostation elle n'y est pas d'origine.

merci à vous

**boursicoton** · 18/09/2008, 13:03

indicator Repulse;
input period=5;
draw rep_1("Repulse(1)"), rep_5("Repulse(5)"), rep_15("Repulse(15)"), MA("MA");
vars lo5(number),hi5(number),lo15(number),hi15(number),
Myfirst1(series), Mylast1(series),Myfirst5(series), Mylast5(series),Myfirst10(series), Mylast10(series),Myfirst15(series), Mylast15(series),
i1(number), i5(number), i(number), i15(number) ;
begin
{repulse_1
for i1:=front(open)+1 to back(open) do begin
Myfirst1[i1]:=((3* close[i1])-(2* Low[i1])-(open[i1-1]))/ close [i1]*100;
MyLast1[i1]:=((open[i1-1])+(2* High[i1])-(3* close[i1]))/ close [i1]*100;
rep_1:= ema (MyFirst1, 5) - ema (MyLast1,5);
End;
{repulse_5
for i5 := front(open) + 5 to back(open) do begin
lo5 := movmin(low, i5, 5);
hi5 := movmax(high, i5, 5);
Myfirst5[i5]:=((3* close[i5])-(2* lo5)-(open[i5-4]))/ close [i5]*100;
MyLast5[i5]:=((open[i5-4])+(2* hi5)-(3* close[i5]))/ close [i5]*100;
rep_5:= ema (MyFirst5, 25) - ema (MyLast5,25);
End;

{repulse_15
for i15 := front(open) + 15 to back(open) do begin
lo15 := movmin(low, i15, 15);
hi15 := movmax(high, i15, 15);
Myfirst15[i15]:=((3* close[i15])-(2* lo15)-(open[i15-14]))/ close [i15]*100;
MyLast15[i15]:=((open[i15-14])+(2* hi15)-(3* close[i15]))/ close [i15]*100;
rep_15:= ema (MyFirst15, 75) - ema (MyLast15,75);
End;
{MA
for i:=front(open) + period to back (open) do begin
MA:= sma (rep_1, period);
End;
end.

**boursicoton** · 18/09/2008, 13:07

///////////
indicator stpmt;
draw stpmtline("STPMT"), cycleline("cycle");
vars i(number), sto1(series), sto2(series), sto3(series), sto4(series), mm9(series);
begin
StochasticOscilator(close, 5, 3);
sto1 := StochasticOscilator.line_k;

StochasticOscilator(close,14,3);
sto2 := StochasticOscilator.line_k;

StochasticOscilator(close,45,14);
sto3 := StochasticOscilator.line_k;

StochasticOscilator(close,75,20);
sto4 := StochasticOscilator.line_k;

for i := front(sto3) to back(close) do begin
stpmtline := ((4.1 * sto1) + (2.5 * sto2) + (sto3) + (4 * sto4)) /11.6;
end;

cycleline := stpmtline - SMA(stpmtline,9);

end.
//////////// / /

**befust** · 18/09/2008, 17:45

Merci beaucoup!!!

pour la STPMT je vois que ce n'est pas le même que le WHSTPMT?

que représente le cycle que tu as intégré?

merci encore

ps: Tu ne représente pas la mm9 sur ton indic?

**befust** · 18/09/2008, 17:54

Sinon pour la STPMT est ce que tu aurais le code de base. avec toutes les sto qui apparaissent?

(je sais je fais mon chieur mais après j'arrête!!!

**boursicoton** · 18/09/2008, 18:02

c'est du fait maison avec l'aide du concepteur de deal book ! la VRAIE version de prostation...
si tu veux ta mm9 tu lui dis de l'afficher dans la ligne "draw... !
le cycle c'est celui d'eric !
j'ai pris exactement le code d'eric pour la stpmt.
pour le repulse j'ai une version raccourci pour n'avoir que la 5.
pour les sto...draw sto...

**befust** · 18/09/2008, 18:31

ok merci beaucoup

pour le repulse ça me va comme ça.

**befust** · 23/09/2008, 12:36

Bonjour , désolé pour l'écriture en italique , j'ai beau essayé j'arrive pas à l'enlever!! Si un modérateur passe par là....

Bref pour tous ceux qui utilisent Prostation voici le code de la STPMT (Merci Boursicoton

). J'ai pris la liberté de rajouter la mm9 de la STPMT comme le montre Eric dans son webinaire.

En dessous de la STPMT est donc présent l'indicateur de cycle en histogramme.

En trait épais vert on voit sur la ligne de zéro l'indicateur de squeeze. (prise de position dès que le trait disparait)

Les Sto d'origine restes visibles en pointillé pour les courtes et en tiret pour les longues.

Voici le code:

indicator Stpmt_Cycle_Squeeze;
input period_mm = 9, med_line = 50, period = 20, kN = 1.5, bbN = 2;
draw stpmtline("STPMT",solid_line,red,2),SMA("SMA",solid_line,blue,2), cycleline("cycle", histogram,dark_magenta,1),
baseline ("Milieu",solid_line,black,1), sto5 ("Sto5",dash_dot_line,dark_green,1), sto14("Sto14",dash_dot_line,dark_yellow,1),
sto45("Sto45",dash_line,dark_cyan,1), sto75("Sto75",dash_line,black,1),
Squeeze("Squeeze",solid_line,dark_green,4);
vars i(number), sto1(series), sto2(series), sto3(series), sto4(series),
mm9(series), kUpper (series), kLower (series), bbUpper (series), bbLower (series), hlp(series), hlp2(series);
begin
baseline := makeseries(front(close), back(close), med_line);
StochasticOscilator(close, 5, 3);
sto1 := StochasticOscilator.line_k;

StochasticOscilator(close,14,3);
sto2 := StochasticOscilator.line_k;

StochasticOscilator(close,45,14);
sto3 := StochasticOscilator.line_k;

StochasticOscilator(close,75,20);
sto4 := StochasticOscilator.line_k;

{Keltner
keltner_channel(period, kN);
kUpper := keltner_channel.line_upper;
kLower := keltner_channel.line_lower;

{Bollinger
Bollinger_Bands(close, period, bbN);
bbUpper := Bollinger_Bands.line_upper;
bblower := Bollinger_Bands.line_lower;

{momentum
Momentum(close, 12);

for i := front(bbUpper) to back(bbUpper) do
begin
hlp := (bbUpper - kUpper) + (kLower - bbLower);
if hlp < 0 then Squeeze := 0;
hlp2 := Momentum.line - 100;
/*
if bbUpper <= kUpper AND bbLower >= kLower then
signal := -1 // High probability breakout signal
else
if bblower >= sma50 then signal := -0.5 // Medium probability breakout signal
else
if bbupper <= sma50 then signal := -0.5 // Medium probability breakout signal
else
signal := 0; // No breakout signal */
end;

for i := front(sto3) to back(close) do begin
stpmtline := ((4.1 * sto1) + (2.5 * sto2) + (sto3) + (4 * sto4)) /11.6;
end;

SMA:= sma (stpmtline, period_mm);

cycleline := stpmtline - SMA(stpmtline,9);

sto5:= sto1;
sto14:= sto2;
sto45:= sto3;
sto75:= sto4;

end.

Merci encore à tous ceux qui font partager leur codes et leur connaissances, qui grace à eux me permet d'avancer.

**funky calvin** · 23/09/2008, 18:46

J'ai fais un simple copy/paste du code mais il est invalide lors de la vérification, j'ai les erreurs suivantes:

(Ln:41 Col:8)Error:incompatible types
(Ln:41 Col:25)Error:incompatible types
(Ln:42 Col:23)Error:incompatible types
(Ln:42 Col:6)Error:incompatible types

j'ai l'impression que le soucis est par là:
for i := front(bbUpper) to back(bbUpper) do
begin
hlp := (bbUpper - kUpper) + (kLower - bbLower);
if hlp < 0 then Squeeze := 0;
hlp2 := Momentum.line - 100;

j'ai oublié de faire un truc ??

Merci

**befust** · 23/09/2008, 22:16

Essaie d'abord ça puis si ça marche pas va sur ce lien et télécharge le "zip" en bas de page.
C'est le meme indicateur que j'ai demandé de mettre en ligne à WHS mais sans le squeeze intégré.

ICI

**befust** · 23/09/2008, 22:24

ça y est je viens de comprendre pourquoi ça ne marche pas!!!

quand on poste sur le forum les crochet ne sont pas inscrit "[" donc ça fait des merdouilles.

ligne 40 et 41 il faut mettre hlp puis desuite après sans espace un i entre crochet et idem ligne 42 après hlp2

et voilà ça marche

comme ceci

regarde bien ya aussi les i dans la formule , faut que tu fasse tout pareil

**funky calvin** · 24/09/2008, 09:10

Merci befust pour ton analyse !!
je vais tester ça ce soir !
Quand je pense que j'ai eu des cours d'info quand j'étais étudiant...

...c'est vraiment la loose !!

pfff toute façon j'étais un peu une chèvre en développement...

**funky calvin** · 24/09/2008, 18:04

C'est corrigé et testé !
ça fonctionne maintenant!!

Allianz se

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire

Commentaire