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 link
//SuperTrend.
Var:super,flag,flagh,mioatr,miocci,mrange,st(0),molt(3),trendup,trenddown,indzona1,trend(1),changetrend;
Var:previousH,previousL,ggini,indperiodo,numper,lin8,lin9;
////////////////////////////////////////////////////////////////////////////////////////////////////////
mioatr=atr(c,10);
trendup=avgprice+(molt*mioatr);
trenddown=avgprice-(molt*mioatr);
/////////////////////////////////////////////////////////////////////////////
previousH=EoD.H;
previousL=EoD.L;
ggini=getdate;
indperiodo=0;
indperiodo=indperiodo+1;
numper=indperiodo;
lin8=drawhlineper(0,0,ggini,previousH ,numper,green,1,0,showval,"High");
lin9=drawhlineper(1,0,ggini,previousL ,numper,red,1,0,showval,"Low");
/////////////////////////////////////////////
if c>trendup[1] then trend=1;
else
if c<trenddown[1] then trend=-1;
endif;endif;
if trend<0 and trend[1]>0 then flag=1;
else flag=0;
endif;
if trend>0 and trend[1]<0 then flagh=1;
else flagh=0;
endif;
if trend>0 and trenddown<trenddown[1] then trenddown=trenddown[1];
endif;
if trend<0 and trendup>trendup[1] then trendup=trendup[1];
endif;
if flag=1 then trendup=avgprice+(molt*mioatr);
endif;
if flagh=1 then trenddown=avgprice-(molt*mioatr);
endif;
if trend=1 then super=trenddown;
else super=trendup;
endif;
////////////////////////////////////////////////////////////////////////////////////////////////////
PlotChart(super, 0, green, solid, 3); {******************************************************************************
Entra nel gap se è compreso nei parametri,
TP=ST = al valore di chiusura del gap. studiato per barre TF<=5 min
******************************************************************************}
Var: prova(0), chiusura, apertura, differenza, value,Par,ParM; // Agggiungere qui le variabili che vi servono
Par=40;
ParM=200;
SECTION_ENTERLONG:
if IsFirstBarDay then
If IsDownGap then
chiusura=H[1];
differenza=C[1]-O[0];
if (differenza>=Par)and (differenza<=ParM)then
buy(this,nextbar,atOpen,1);
endif;
endif;
endif;
END_SECTION
SECTION_EXITLONG:
value=varperc(differenza,chiusura);
InstalltakeProfit(INPERC, value, "take");
InstalltakeProfit(INPERC, value, "st");
if T > 1715 then
sell(this,nextbar,atOpen,1);
endif;
END_SECTION
SECTION_ENTERSHORT:
if IsFirstBarDay then
If IsUpGap then
chiusura=H[1];
differenza=O[0]-C[1];
if (differenza>=Par)and(differenza<=ParM)then
sell(this,nextbar,atOpen,1);
endif;
endif;
endif;
END_SECTION
SECTION_EXITSHORT:
value=varperc(differenza,chiusura);
InstalltakeProfit(INPERC,value, "take");
InstalltakeProfit(INPERC,value, "st");
if T > 1715 then
buy(this,nextbar,atOpen,1);
endif;
END_SECTION
{******************************************************************************
Entra nel gap se è maggiore del parametro la sua differenza
chiusura alla chiusura del gap.
******************************************************************************}
Var: prova(0), chiusura, apertura, differenza, value,Par,ParM,apertura,val1,val2; // Agggiungere qui le variabili che vi servono
input: Par;
input: ParM;
if IsFirstBarDay then
If IsDownGap then
chiusura=L[1];
differenza=C[1]-O[0];
apertura=O[0];
if (differenza>=Par)and (differenza<=ParM)then
val1=apertura+differenza;
val2=apertura-differenza;
InstalltakeProfit(inval, val1, "take");
Installstoploss(inval, val2, "st");
buy(this,nextbar,atOpen,1);
endif;
endif;
If IsUpGap then
chiusura=H[1];
differenza=O[0]-C[1];
apertura=O[0];
if (differenza>=Par)and(differenza<=ParM)then
//sell(this, bar, atClose, 1);
val1=apertura+differenza;
val2=apertura-differenza;
InstalltakeProfit(inval, chiusura, "take");
Installstoploss(inval, val1, "st");
sell(this,nextbar,atOpen,1);
endif;
endif;
endif;
if positiondir<>0 then
if T > 1710 then
if positiondir>0 then
sell(this,nextbar,atOpen,1);
endif;
if positiondir<0 then
buy(this,nextbar,atOpen,1);
endif;
endif;
endif;
Var: TeLine,KiLine,ChSpan,SeA,SeB,KumoL(false),KumoS(false);
var: P1(9),P2(26),P3(52),P4(3),indzona1;
TeLine=wilder(op(op(hhv(h,P1),llv(l,P1),add),constval(2),divis),3);
KiLine=wilder(op(op(hhv(h,P2),llv(l,P2),add),constval(2),divis),3);
ChSpan=wilder(ref(c,P2),P4);
SeA=wilder(op(op(ref(TeLine,P2),ref(KiLine,P2),add),constval(2),divis),3);
SeB=wilder(op(op(ref(hhv(h,P3),P2),ref(llv(l,P3),P2),add),constval(2),divis),3);
if TeLine>KiLine and TeLine>SeA and TeLine>SeB then KumoL=True;else KumoL=false;endif;
if TeLine<KiLine and TeLine<SeA and TeLine<SeB then KumoS=True;else KumoS=false;endif;
plotchart(teline, 0, black, solid, 2);
plotchart(kiline, 0, red, solid, 2);
plotchart(chspan, 0, green, dot, 1);
plotchart(sea, 0, blue, dot, 1);
plotchart(seb, 0, gray, dot, 1);
indzona1 = Createviewport(250);
plotchart(kumoL, indzona1, yellow, solid, 1);
plotchart(kumoS, indzona1, gray, solid, 1);
Ho scritto sta roba, tipo 10 anni fa
Il tempo vola.
Come stai, Bruno?
ciao Stefano...sto meglio..giusto oggi check control dal cardiologo..vediamo che dice
spero tu tutto ok ?
Ho scritto sta roba, tipo 10 anni fa
Il tempo vola.
Come stai, Bruno?
