Var: idx(0),numiniz(1),numfine(50),lin1,lin2,minimo,pminimo,dminimo,massimo,dmassimo,pmassimo,
idx1(0),numiniz1(1),numfine1(10),minoggi,pminoggi,dminoggi,incrmin,incrmax,valmin,valmax,maxoggi,pmaxoggi,dmaxoggi,numerobarre(50),
contabarregiorno(5),conta(0);
if isfirstbarday then
//CERCO IL MINIMO E IL MASSIMO DI IERI SULLE ULTIME X BARRE (NUMFINE)
minimo=l[1];
beginfor(idx,numiniz,numfine);
if l[idx]<minimo then
pminimo=idx;
minimo=l[idx];
dminimo=d[idx];
endif;
endfor;
massimo=h[1];
beginfor(idx,numiniz,numfine);
if h[idx]>massimo then
pmassimo=idx;
massimo=h[idx];
dmassimo=d[idx];
endif;
endfor;
conta=0;
endif;
//CONTEGGIO LE BARRE GIORNALIERE
conta=conta+1;
//CALCOLO LA TRENDLINE DI OGGI DOPO X BARRE (CONTABARREGIORNO)
if conta=contabarregiorno then
incrmin=0;
incrmax=0;
valmin=0;
valmax=0;
minoggi=0;
maxoggi=0;
dminoggi=0;
dmaxoggi=0;
pminoggi=0;
pmaxoggi=0;
//MINIMO OGGI
minoggi=l;
beginfor(idx1,numiniz1,contabarregiorno-1);
if l[idx1]<minoggi then
pminoggi=idx1;
minoggi=l[idx1];
dminoggi=d[idx1];
endif;
endfor;
//MASSIMO OGGI
maxoggi=h;
beginfor(idx1,numiniz1,contabarregiorno-1);
if h[idx1]>maxoggi then
pmaxoggi=idx1;
maxoggi=h[idx1];
dmaxoggi=d[idx1];
endif;
endfor;
//CALCOLO FATTORE INCREMENTO MIN
if minoggi>0 and minimo>0 then
if minoggi<minimo then
incrmin=(minimo-minoggi)/(pminimo+(conta-pminoggi)-1);
valmin=minoggi-(incrmin*(contabarregiorno-pminoggi));
endif;
if minoggi=minimo then
incrmin=0;
valmin=minoggi;
endif;
if minoggi>minimo then
incrmin=(minoggi-minimo)/(pminimo+(conta-pminoggi)-1);
valmin=minoggi+(incrmin*(contabarregiorno-pminoggi));
endif;
endif;
//CALCOLO FATTORE INCREMENTO MAX
if maxoggi>0 and massimo>0 then
if maxoggi<massimo then
incrmax=(massimo-maxoggi)/(pmassimo+(conta-pmaxoggi)-1);
valmax=maxoggi-(incrmax*(contabarregiorno-pmaxoggi));
endif;
if maxoggi=minimo then
incrmax=0;
valmax=maxoggi;
endif;
if maxoggi>massimo then
incrmax=(maxoggi-massimo)/(pmassimo+(conta-pmaxoggi)-1);
valmax=maxoggi+(incrmax*(contabarregiorno-pmaxoggi));
endif;
endif;
//GENERO LE 2 TREND
lin1 = CREATEOGG;
lin2 = CREATEOGG;
endif;
//TRACCIO LE TRENDLINE INCREMENTALI
if conta>contabarregiorno then
if maxoggi>0 and massimo>0 then
if maxoggi>massimo then
valmax=valmax+incrmax;
lin1 = DrawLine(lin1, 0, D[0], valmax, dmassimo, massimo, red, 3, 0);
endif;
if maxoggi=massimo then
valmax=valmax;
lin1 = DrawLine(lin1, 0, D[0], valmax, dmassimo, massimo, red, 3,0);
endif;
if maxoggi<massimo then
valmax=valmax-incrmax;
lin1 = DrawLine(lin1, 0, D[0], valmax, dmassimo, massimo, red, 3, 0);
endif;
endif;
//MINIMO
if minoggi>0 and minimo>0 then
if minoggi>minimo then
lin2 = DrawLine(lin2, 0, D[0], valmin, dminimo, minimo, green, 3, 0);
valmin=valmin+incrmin;
endif;
if minoggi=minimo then
lin2 = DrawLine(lin2, 0, D[0], valmin, dminimo, minimo, green, 3, 0);
valmin=valmin;
endif;
if minoggi<minimo then
lin2 = DrawLine(lin2, 0, D[0], valmin, dminimo, minimo, green, 3, 0);
valmin=valmin-incrmin;
endif;
endif;
endif;
Nell’ultima settimana borsistica, i principali indici globali hanno messo a segno performance positive. In assenza di dati macro di rilievo, gli operatori si sono focalizzati sugli utili societari e sulle banche centrali. La stagione delle trimestrali è infatti entrata nel vivo in Europa e a Piazza Affari con oltre la metà dei 40 titoli che compongono il Ftse Mib ad alzare il velo sui conti. Per quanto riguarda le banche centrali, la Reserve Bank of Australia ha lasciato i tassi di interesse invariati, come previsto. Anche la Bank of England ha lasciato fermi i tassi, con due voti a favore di un taglio immediato sui nove totali. La Riksbank svedese ha invece tagliato i tassi per la prima volta in otto anni, riducendo il costo del denaro di 25 punti base al 3,75%, evidenziando la divergenza dell’Europa dalla linea dura della Fed. Per continuare a leggere visita il 
e dmassimo e dminimo restituscono dei valori spropositati.