Ecco il TS in funzione oggi sullo SPMB dicembre, con il listato adattato al nostro future.
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 > -40); // mettere la condizione
MiaCondizione2 = (MiaOP5 < 50);
//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 and miacondizione1 = true and miacondizione2 = true) 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 and miacondizione1 = true and miacondizione2 = true)then
entershort (Nextbar,AtOpen);
endif;
END_SECTION
SECTION_EXITSHORT:
if (MIOWILDER0 < MioWILDER1 and C > kkj ) then
ExitShort(NextBar, AtOpen);
endif;
END_SECTION