(* ::Package:: *)

Needs["ErrorBarPlots`"]




SetOptions[Plot, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], Frame -> True, Axes -> False, PlotStyle -> Thick,  ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[LogPlot, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], Frame -> True, Axes -> False, PlotStyle -> Thick,  ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[LogLinearPlot, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], Frame -> True, Axes -> False, PlotStyle -> Thick,  ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[LogLogPlot, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], Frame -> True, Axes -> False, PlotStyle -> Thick,  ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[ContourPlot, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], Frame -> True, Axes -> False,   ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[ParametricPlot, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], Frame -> True, PlotStyle -> Thick, ImageSize -> Medium ,FrameStyle -> Larger];
SetOptions[ListPlot, PlotMarkers -> {Automatic, 6}, Frame -> True, Axes -> False, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[ListLogPlot, PlotMarkers -> {Automatic, 6}, Frame -> True, Axes -> False, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[ListLogLinearPlot, PlotMarkers -> {Automatic, 6}, Frame -> True, Axes -> False, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[ListLogLogPlot, PlotMarkers -> {Automatic, 6}, Frame -> True, Axes -> False, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[LogLinearPlot, (* PlotMarkers -> {Automatic, 6},*) Frame -> True, Axes -> False, GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], ImageSize -> Medium,FrameStyle -> Larger];
SetOptions[RegionPlot,  GridLines -> Automatic, GridLinesStyle -> Directive[LightGray, Dashed], ImageSize -> Medium,FrameStyle -> Larger, PlotRangePadding->None];


circle[color_,size_] := Graphics[{color, Thick,Circle[]}, ImageSize -> size];
circlecross[color_,size_] := Graphics[{color, Thick,Circle[], Line[{{0,-0.95},{0,0.95}}],Line[{{-0.95,0},{0.95,0}}]}, ImageSize -> size];
utriangle[color_,size_] := Graphics[{EdgeForm[{Thick,color}],FaceForm[],Polygon[{{1,0},{0,Sqrt[3]},{-1,0}}]}, ImageSize -> size];
dtriangle[color_,size_] := Graphics[{EdgeForm[{Thick,color}],FaceForm[],Polygon[{{1,0},{0,-Sqrt[3]},{-1,0}}]}, ImageSize -> size];
squarepi2[color_,size_] := Graphics[{EdgeForm[{Thick,color}],FaceForm[],Polygon[{{-1,0},{0,1},{1,0}, {0,-1}}]}, ImageSize -> size];
square[color_,size_] := Graphics[{EdgeForm[{Thick,color}],FaceForm[],Polygon[{{-1,-1},{-1,1},{1,1}, {1,-1}}]}, ImageSize -> size];
hexagon[color_, size_] :=Graphics[{EdgeForm[{Thick,color}],FaceForm[],Polygon[Table[{Cos[2\[Pi] k/6],Sin[2\[Pi] k/6]},{k,0,5}]]}, ImageSize -> size] ;

TF = TableForm;
MF = MatrixForm;
					  
					  
Print["TF = TableForm. MF = MatrixForm. Geometric bullets loaded."]

Print["=> Standard options loaded. Last update 10/2013."]
