COSTRUZIONE INDICATORE PER ANALISI CICLICA CON VISUAL TRADER (1 Viewer)

[solospread]

TENARIS test a 10 gg

 

[solospread]

Prossimo target spmb 21335

 

[astonv8]

Un saluto veloce al padrone di casa che vedo è sempre al lavoro.

 

[solospread]

Ricambio i saluti. ciao astonv.

 

[astonv8]

Niente S&P stasera?

 

[solospread]

Eccolo, stasera alla grande

 

[solospread]

Se provate ad applicare il vecchio IDDRW a TENARIS frame 1 minuto vi esce una performance a tre cifre. Nel test a 10 giorni fà il 73%

 

[solospread]

Ecco il listato di WILDERandRSI. Potete giocare sulla funzione drawline cambiando i parametri. Ora è tarato per lo S&P. Buon divertimento.

Var: miavar(0),MioWILDER1,MioRSI1,MioEXPSMOOTH2,MIOMOV1,MioMOV2,Miowilder0,mioosc5,zona1;
Var: previousH,previousL,previousC,
Pivot,R1,S1, R1mid,S1mid, prova, cambiatogiorno,
lin1,lin2,lin3,lin4,lin5,
indperiodo, numper, ggini, primavolta(-1);
Var: Miacondizione1, Miacondizione2; // zona del grafico principale
Var: miomax10g, miomin10g,kkj,jjk,yyk,MiaOP1,MiaOP2,miaOP3,MiaOP4,constval4,MiaOP5;
miomax10g = HHV (H, 5);
mioMIN10g =LLV (L,5);
kkj = MOV(C,5,0,3,0);
jjk = MOV(C,13,0,8,0);
yyk = MOV(C,8,0,5,0);
previousH=EOD.H[1];
previousL=EOD.L[1];
previousC=EOD.C[1];
cambiatogiorno = GetValues(days, 1, prova, prova, prova, prova);
// Calcola Pivot
R1=(2*Pivot)-previousL;
Pivot=(previousH+previousC+previousL)/3;
S1=(2*Pivot)-previousH;
R1mid=(R1+pivot)/2;
S1mid=(S1+pivot)/2;
if cambiatogiorno then
// Termina le linee precedenti qui, Crea nuove Linee per il prossimo Giorno
lin1 = CREATEOGG;
lin2 = CREATEOGG;
lin3 = CREATEOGG;
lin4 = CREATEOGG;
lin5 = CREATEOGG;
indperiodo = 0;
ggini = GetDate;
// da dove parto a tracciare la linea orizzontale
primavolta = false;
endif;
indperiodo = indperiodo + 1;
numper = indperiodo;
// Disegna Linee orizzontali lunghe solo in quel giorno
lin1 = drawhlineper(lin1,0,ggini, r1, numper, fuchsia,2,0);
lin2 = drawhlineper(lin2,0,ggini, Pivot, numper, blue,2,0);
lin3 = drawhlineper(lin3,0,ggini, s1, numper, black,2,0);
lin4 = drawhlineper (lin4,0,ggini, R1mid, numper, fuchsia,2,2);
lin5 = drawhlineper (lin5,0,ggini, S1mid, numper, black,2,2);

constval4 =constval(4);
MioWILDER1 = WILDER(C,5);
mioWILDER0 = MOV(MioWILDER1,5,0,3,0);
MioRSI1 = RSI(C, 14, 1);
MioEXPSMOOTH2 = EXPSMOOTH(C, 14);
MIOMOV1 = MOV(C,8,0,5,0);
MIOMOV2 = MOV(C,5,0,3);
MiaOP1 = OP(MioWILDER1,MioWILDER0,add);
MiaOP2 = OP(jjk,kkj,add);
MiaOP3 = OP(MiaOP1,MiaOP2,add);
MiaOP4 = OP(MiaOP3,constval4,divis);
MiaOP5 = OP(C,MiaOP4,sub);
mioosc5 = ForceIndex (C, 13);
MiaCondizione1 = (MiaOP5 > -5); // mettere la condizione
MiaCondizione2 = (MiaOP5 < 5);
//plotto la linea Verticale se la condizione risulta verificata (true)
//DrawVLineIf (MiaCondizione1, green, 1, 0);
//DrawVLineIf (MiaCondizione2, red , 1, 0);
zona1=CreateViewport(300,true,true);
PlotChart(MioWILDER0,0,green,solid,1);
PlotChart(mioosc5,zona1,blue,solid,1);

installstoploss(INPERC,2);
SECTION_ENTERLONG:
if (MIOWILDER0 < MioWILDER1 and C > kkj ) then
EnterLong(NextBar, AtOpen);
endif;

END_SECTION

SECTION_EXITLONG:
if (mioWILDER0 > MioWILDER1 and C < kkj ) then

ExitLong(NextBar, AtOpen);
endif;






END_SECTION

SECTION_ENTERSHORT:
if ( MioWILDER0 > MioWILDER1 and C < kkj) then

entershort (Nextbar,AtOpen);
endif;




END_SECTION

SECTION_EXITSHORT:
if (MIOWILDER0 < MioWILDER1 and C > kkj ) then

ExitShort(NextBar, AtOpen);
endif;


END_SECTION

 

[solospread]

Ho provato a fare copia ed incolla e funziona perfettamente. Un ringraziamento particolare ad Argema per aver realizzato quanto c'è di meglio sul mercato nel campo dei forum.
Ho lasciato attiva la funzione di Plot delle linee dei supporti e resistenze, mentre ho disattivato la funzione di Plot della drawline per non sporcare il grafico. Chi volesse attivarla deve solo togliere le due // davanti alla stringa //DrawVLineIf (MiaCondizione1, green, 1, 0);

 

[solospread]

Vai con lo shortone. Sul rimbalzo ultimo si nota la contrapposizione della linea tratteggiata nera.