(* ::Package:: *)

(************************************************************************)
(* This file was generated automatically by the Mathematica front end.  *)
(* It contains Initialization cells from a Notebook file, which         *)
(* typically will have the same name as this file except ending in      *)
(* ".nb" instead of ".m".                                               *)
(*                                                                      *)
(* This file is intended to be loaded into the Mathematica kernel using *)
(* the package loading commands Get or Needs.  Doing so is equivalent   *)
(* to using the Evaluate Initialization Cells menu command in the front *)
(* end.                                                                 *)
(*                                                                      *)
(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
(* automatically each time the parent Notebook file is saved in the     *)
(* Mathematica front end.  Any changes you make to this file will be    *)
(* overwritten.                                                         *)
(************************************************************************)



<<"PlotLegends`"
Block[{fontsize=14},

SetOptions[Plot,ImageSize->600,BaseStyle->{FontSize->fontsize},PlotRange->All];
SetOptions[LogPlot,ImageSize->600,BaseStyle->{FontSize->fontsize},PlotRange->All];
SetOptions[LogLogPlot,ImageSize->600,BaseStyle->{FontSize->fontsize},PlotRange->All];
SetOptions[LogLinearPlot,ImageSize->600,BaseStyle->{FontSize->fontsize},PlotRange->All];

SetOptions[ParametricPlot,ImageSize->600,PlotRange->All,Axes->False,Frame->True,PlotStyle->Thick,BaseStyle->{FontSize->fontsize},PlotStyle->Black,PlotPoints->1000,AspectRatio->1/GoldenRatio];

];


createLegend[curveNames_List,directives_List,xDev_:0.,yDev_:0]:=Inset[Grid[Table[{Style[curveNames[[i]],FontSize->13],Graphics[{Sequence@@directives[[i]],Line[{{0,0},{.3,0}}]}]},{i,1,Length[curveNames]}],Alignment->{Right,Right},Spacings->{1,-13},Background->Opacity[.7,White],Frame->True],Offset[{120+xDev,70+yDev},Scaled[{.75,.75}]],{Right,Top}]


createLegend[curveNames_List,xDev_Real:0.,yDev_:0]:=Inset[Grid[Table[{Style[curveNames[[i]],FontSize->13],Graphics[{Thick,ColorData[1][i],Line[{{0,0},{.3,0}}]}]},{i,1,Length[curveNames]}],Alignment->{Right,Right},Spacings->{1,-13},Background->Opacity[.7,White],Frame->True],Offset[{120+xDev,70+yDev},Scaled[{.75,.75}]],{Right,Top}]


Options[ppAnnotate]={startColor->Red,endColor->Blue,size->.02};
ppAnnotate[variables_List,solution_List,tfinal_,start:_Real:0.,OptionsPattern[]]:={OptionValue[startColor],PointSize[OptionValue[size]],Point[(#[start]&/@variables)/.solution],OptionValue[endColor],Point[(#[tfinal]&/@variables)/.solution]}
