SetDirectory[$HomeDirectory<>"/Documents/handouts/math467/SolvingHyperbolicPDEs"]

Graphics[{EdgeForm[],FaceForm[LightGray],Rectangle[{0,0},{5,2}],Black,Line[{{0,0},{5,0}}],Line[{{0,2},{5,2}}],Line[{{0,0},{0,2}}],PointSize[Large],Point[{3,3/2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{"(", 
RowBox[{
StyleBox["x", "TI"], ",", 
StyleBox["t", "TI"]}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "(x, t)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{3,3/2},{0,2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{"∂", 
StyleBox["R", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "\\partial R", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{1,2},{0,-2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{"∂", 
StyleBox["R", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "\\partial R", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{0,1},{2,0}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{"∂", 
StyleBox["R", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "\\partial R", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{1,0},{0,2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
StyleBox["R", "TI"], TraditionalForm], "errors" -> {}, "input" -> "R", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{1,1}],Arrow[{{2,2},{2,3}}],Arrow[{{2,0},{2,-1}}],Arrow[{{0,3/2},{-1,3/2}}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
StyleBox["N", FontSlant -> "Bold"], "==", 
StyleBox["j", FontSlant -> "Bold"]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathbf{N}=\\mathbf{j}", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{3,2},{0,-2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
StyleBox["N", FontSlant -> "Bold"], "==", "-", 
StyleBox["j", FontSlant -> "Bold"]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathbf{N}=-\\mathbf{j}", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{3,0},{0,2}],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
StyleBox["N", FontSlant -> "Bold"], "==", "-", 
StyleBox["i", FontSlant -> "Bold"]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathbf{N}=-\\mathbf{i}", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-7/4,3/2}]},Axes->Automatic,AxesLabel->{"\!\(\*TemplateBox[<|"boxes" -> FormBox["ξ", TraditionalForm], "errors" -> {}, "input" -> "\\xi", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)","\!\(\*TemplateBox[<|"boxes" -> FormBox["τ", TraditionalForm], "errors" -> {}, "input" -> "\\tau", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)"},Ticks->None,BaseStyle->FontSize->12,PlotRange->{{-5,5},{-1,3}}]

Export["semiinfinitewave.pdf",%,"PDF"]

Export["semiinfinitewave.eps",%%,"EPS"]