print[str_]:= Print[str,"= ",ToExpression[str]];

Tosr[x_]:= ToString[If[Abs[x-Round[x]]<.001,Round[x],x]];

Tost[x_]:= Style[Tosr[x],10];
Tostw[x_]:= Style[Tosr[x],10,White];

nolabel[{x_,l_,spec_}]:= {x,"",spec};

fs= Directive[Thickness[.004],Black];

(*taille des ticks*) tt= .019;

darkgreen=RGBColor[0.2,0.5,0.2];
