(* ::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.                                                         *)
(************************************************************************)



SetDirectory["C:\\drorbn\\AcademicPensieve\\2014-02\\BF2C"]


Kink0[s_,t_] := If[s<=0, {t,0,0}, (* s is size, t is time *)
\!\(\*
TagBox[GridBox[{
{"\[Piecewise]", GridBox[{
{
RowBox[{"{", 
RowBox[{"t", ",", "0", ",", "0"}], "}"}], 
RowBox[{"t", "<", 
RowBox[{
RowBox[{"-", "1.25"}], "s"}]}]},
{
RowBox[{"{", 
RowBox[{
RowBox[{
RowBox[{"5", "t"}], "+", 
RowBox[{"5", "s"}]}], ",", "0", ",", 
RowBox[{
RowBox[{
RowBox[{"-", "4"}], "t"}], "-", 
RowBox[{"5", "s"}]}]}], "}"}], 
RowBox[{
RowBox[{
RowBox[{"-", "1.25"}], "s"}], "<=", "t", "<", 
RowBox[{"-", "s"}]}]},
{
RowBox[{
FractionBox["s", "\[Pi]"], 
RowBox[{"{", 
RowBox[{
RowBox[{"-", 
RowBox[{"Sin", "[", 
FractionBox[
RowBox[{"\[Pi]", " ", "t"}], "s"], "]"}]}], ",", 
RowBox[{"1", "+", 
RowBox[{"Cos", "[", 
FractionBox[
RowBox[{"\[Pi]", " ", "t"}], "s"], "]"}]}], ",", 
FractionBox[
RowBox[{"\[Pi]", " ", "t"}], "s"]}], "}"}]}], 
RowBox[{
RowBox[{"-", "s"}], "<=", "t", "<=", "s"}]},
{
RowBox[{"{", 
RowBox[{
RowBox[{
RowBox[{"5", "t"}], "-", 
RowBox[{"5", "s"}]}], ",", "0", ",", 
RowBox[{
RowBox[{
RowBox[{"-", "4"}], "t"}], "+", 
RowBox[{"5", "s"}]}]}], "}"}], 
RowBox[{"s", "<", "t", "<=", 
RowBox[{"1.25", "s"}]}]},
{
RowBox[{"{", 
RowBox[{"t", ",", "0", ",", "0"}], "}"}], 
RowBox[{"t", ">", 
RowBox[{"1.25", "s"}]}]}
},
AllowedDimensions->{2, Automatic},
Editable->True,
GridBoxAlignment->{"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {Offset[0.27999999999999997`], {Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {Offset[0.2], {Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
Selectable->True]}
},
GridBoxAlignment->{"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {Offset[0.27999999999999997`], {Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {Offset[0.2], {Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}],
"Piecewise",
DeleteWithContents->True,
Editable->False,
SelectWithContents->True,
Selectable->False]\)];
Kink[s_,t_] := If[s<=0, {t,-t^2,0}, (* s is size, t is time *)
\!\(\*
TagBox[GridBox[{
{"\[Piecewise]", GridBox[{
{
RowBox[{"{", 
RowBox[{"t", ",", 
RowBox[{"-", 
SuperscriptBox["t", "2"]}], ",", "0"}], "}"}], 
RowBox[{"t", "<", 
RowBox[{
RowBox[{"-", "1.25"}], "s"}]}]},
{
RowBox[{"{", 
RowBox[{
RowBox[{
RowBox[{"5", "t"}], "+", 
RowBox[{"5", "s"}]}], ",", 
RowBox[{"-", 
SuperscriptBox[
RowBox[{"(", 
RowBox[{
RowBox[{"5", "t"}], "+", 
RowBox[{"5", "s"}]}], ")"}], "2"]}], ",", 
RowBox[{
RowBox[{
RowBox[{"-", "4"}], "t"}], "-", 
RowBox[{"5", "s"}]}]}], "}"}], 
RowBox[{
RowBox[{
RowBox[{"-", "1.25"}], "s"}], "<=", "t", "<", 
RowBox[{"-", "s"}]}]},
{
RowBox[{
FractionBox["s", "\[Pi]"], 
RowBox[{"{", 
RowBox[{
RowBox[{"-", 
RowBox[{"Sin", "[", 
FractionBox[
RowBox[{"\[Pi]", " ", "t"}], "s"], "]"}]}], ",", 
RowBox[{"1", "+", 
RowBox[{"Cos", "[", 
FractionBox[
RowBox[{"\[Pi]", " ", "t"}], "s"], "]"}]}], ",", 
FractionBox[
RowBox[{"\[Pi]", " ", "t"}], "s"]}], "}"}]}], 
RowBox[{
RowBox[{"-", "s"}], "<=", "t", "<=", "s"}]},
{
RowBox[{"{", 
RowBox[{
RowBox[{
RowBox[{"5", "t"}], "-", 
RowBox[{"5", "s"}]}], ",", 
RowBox[{"-", 
SuperscriptBox[
RowBox[{"(", 
RowBox[{
RowBox[{"5", "t"}], "-", 
RowBox[{"5", "s"}]}], ")"}], "2"]}], ",", 
RowBox[{
RowBox[{
RowBox[{"-", "4"}], "t"}], "+", 
RowBox[{"5", "s"}]}]}], "}"}], 
RowBox[{"s", "<", "t", "<=", 
RowBox[{"1.25", "s"}]}]},
{
RowBox[{"{", 
RowBox[{"t", ",", 
RowBox[{"-", 
SuperscriptBox["t", "2"]}], ",", "0"}], "}"}], 
RowBox[{"t", ">", 
RowBox[{"1.25", "s"}]}]}
},
AllowedDimensions->{2, Automatic},
Editable->True,
GridBoxAlignment->{"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {Offset[0.27999999999999997`], {Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {Offset[0.2], {Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
Selectable->True]}
},
GridBoxAlignment->{"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {Offset[0.27999999999999997`], {Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {Offset[0.2], {Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}],
"Piecewise",
DeleteWithContents->True,
Editable->False,
SelectWithContents->True,
Selectable->False]\)]



