(* ::Package:: *)

(* ::Input:: *)
font=Directive[FontSize->12,FontFamily->"Helvetica",Black];
thickness=0.75;
size=450;


(* ::Input:: *)
SetOptions[ParametricPlot,BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
SetOptions[ParametricPlot,BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
SetOptions[Plot,          BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
SetOptions[ListPlot,      BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
SetOptions[LogLogPlot,    BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
SetOptions[LogPlot,       BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
SetOptions[ListLogLogPlot,BaseStyle->font,LabelStyle->font,ImageSize->size,PlotStyle->AbsoluteThickness[thickness],AxesStyle -> {{AbsoluteThickness[1.0], Black}, {AbsoluteThickness[1.0],Black}}];
