jueves, 19 de septiembre de 2019

ciao Mick.
ti metto formula ts
per la situazione medica..settimana prossima esami ematici e poi prova di sforzo con liquido di contrasto radioattivo..sperem..grazie

//_______________ADX filtrato_________//

Var: pdx14,ndx14,op1,op2,op3,op4,adxa,indzona1,indzona2,indzona3;
Var: max_op4(-100), min_op4(100),med_op4;
Var: max_adxa(-100), min_adxa(100),med_adxa,colore,meseprec3;

/////////////////////////////////////////////////////////////////////////////
pdx14=DMPDX(C,40);
ndx14=DMNDX(C,40);
op1= op(pdx14,ndx14,add);
op2=op(pdx14,ndx14,sub);
op3=op(op2,op1,divis);
op4=wilder(op3,14);
adxa  =DMADX(c,40);
////////////////////////////////////////////////////////////////////////////

if (op4>max_op4) then max_op4=op4;
endif;

if (op4<min_op4) then min_op4=op4;
endif;
med_op4=max_op4-(max_op4-min_op4)*0.5;

if getmonth<>meseprec3 then
   max_op4=0;
   min_op4=0;endif;
///////////////////////////////////////////////////////////////////////////

if getmonth<>meseprec3 then
   max_adxa=adxa;
   min_adxa=adxa;
endif;

if (adxa>max_adxa) then max_adxa=adxa;
endif;

if (adxa<min_adxa) then min_adxa=adxa;
endif;
med_adxa=max_adxa-(max_adxa-min_adxa)*0.5;
meseprec3=getmonth;
///////////////////////////////////////////////////////////////////////////////

if op4 > 0 then
colore= green;
else
colore= red;
endif;
/////////////////////////////////////////////////////////////////////////////
Indzona1=CreateViewport(400,0,true);
Plotchart(op4,Indzona1,colore, istogramma, 2);
Plotchart(max_op4,Indzona1,green, solid, 2);
Plotchart(min_op4,Indzona1,red, solid, 2);
Plotchart(med_op4,Indzona1,gray, dot, 1);

Indzona2=CreateViewport(400,0,true);
Plotchart(adxa,Indzona2,blue, solid, 2);
Plotchart(max_adxa,Indzona2,green, solid, 2);
Plotchart(min_adxa,Indzona2,red, solid, 2);
Plotchart(med_adxa,Indzona2,black, dot, 1);

Indzona3=CreateViewport(400,0,true);
Plotchart(pdx14,Indzona3,green, solid, 2);
Plotchart(ndx14,Indzona3,red, solid, 2);



1 comentario:

  1. Grazie e in bocca al lupo!
    Vado in vacanza due settimane, spero di leggere notizie positive!

    ResponderEliminar

 oggi scadenze tecniche..le ultime di settembre risolte a 13.60€ vediamo alle 1200