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



(* ::Input::Initialization:: *)
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\OneCo-1606"];
<< NOE-1t.m


(* ::Input::Initialization:: *)
Rp[i_,j_] := \[DoubleStruckCapitalE][1,Subscript[b, i] Subscript[c, j],Subscript[u, i] Subscript[w, j],-(1/2) Subscript[c, i] (-1+Subscript[t, i])^2-1/2 
\!\(\*SubsuperscriptBox[\(c\), \(i\), \(2\)]\) (-1+Subscript[t, i])^2+1/2 Subscript[c, i] Subscript[c, j] (-2-Subscript[t, i]+
\!\(\*SubsuperscriptBox[\(t\), \(j\), \(2\)]\))-1/2 Subscript[c, j] Subscript[u, i] Subscript[w, i]+Subscript[c, i] (1-Subscript[t, i]) Subscript[u, i] Subscript[w, i]-1/2 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) 
\!\(\*SubsuperscriptBox[\(w\), \(i\), \(2\)]\)+Subscript[u, i] Subscript[w, j]+1/2 Subscript[c, j] Subscript[t, i] Subscript[u, i] Subscript[w, j]+Subscript[c, i] (-2+Subscript[t, i]) Subscript[t, i] Subscript[u, i] Subscript[w, j]+1/2 Subscript[c, i] (1+Subscript[t, j]) Subscript[u, j] Subscript[w, j]+(-1+Subscript[t, i]) 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) Subscript[w, i] Subscript[w, j]-1/2 (-2+Subscript[t, i]) Subscript[t, i] 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) 
\!\(\*SubsuperscriptBox[\(w\), \(j\), \(2\)]\)];
Rm[i_,j_] := \[DoubleStruckCapitalE][1,-Subscript[b, i] Subscript[c, j],-((Subscript[u, i] Subscript[w, j])/Subscript[t, i]),1/2 Subscript[c, i] (-1+Subscript[t, i])^2+1/2 
\!\(\*SubsuperscriptBox[\(c\), \(i\), \(2\)]\) (-1+Subscript[t, i])^2+1/2 Subscript[c, i] Subscript[c, j] (2+Subscript[t, i]-
\!\(\*SubsuperscriptBox[\(t\), \(j\), \(2\)]\))+1/2 Subscript[c, j] Subscript[u, i] Subscript[w, i]+Subscript[c, i] (-1+Subscript[t, i]) Subscript[u, i] Subscript[w, i]+1/2 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) 
\!\(\*SubsuperscriptBox[\(w\), \(i\), \(2\)]\)+(1/2-1/(2 Subscript[t, i])) Subscript[u, i] Subscript[w, j]+Subscript[c, i] (-(5/2)+3/(2 Subscript[t, i])+Subscript[t, i]) Subscript[u, i] Subscript[w, j]+(Subscript[c, j] (1+Subscript[t, i]-
\!\(\*SubsuperscriptBox[\(t\), \(j\), \(2\)]\)) Subscript[u, i] Subscript[w, j])/(2 Subscript[t, i])+1/2 Subscript[c, i] (-1-Subscript[t, j]) Subscript[u, j] Subscript[w, j]+(1-3/(2 Subscript[t, i])) 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) Subscript[w, i] Subscript[w, j]+(1/2+1/
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\)-3/(2 Subscript[t, i])) 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) 
\!\(\*SubsuperscriptBox[\(w\), \(j\), \(2\)]\)-((1+Subscript[t, j]) Subscript[u, i] Subscript[u, j] 
\!\(\*SubsuperscriptBox[\(w\), \(j\), \(2\)]\))/(2 Subscript[t, i])];
ur[i_] := \[DoubleStruckCapitalE][1/
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(1/4\)]\),0,0,(Subscript[c, i] Subscript[t, i])/4+(Subscript[u, i] Subscript[w, i])/8]; nr[i_] := \[DoubleStruckCapitalE][\!\(
\*SubsuperscriptBox[\(t\), \(i\), \(1/4\)], 0, 0, \(\(-
\*FractionBox[\(1\), \(4\)]\)\ 
\*SubscriptBox[\(c\), \(i\)]\ 
\*SubsuperscriptBox[\(t\), \(i\), \(3\)] - 
\*FractionBox[\(1\), \(8\)]\ 
\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\ 
\*SubscriptBox[\(u\), \(i\)]\ 
\*SubscriptBox[\(w\), \(i\)]\)\)];
ul[i_] := \[DoubleStruckCapitalE][\!\(
\*SubsuperscriptBox[\(t\), \(i\), \(1/4\)], 0, 0, \(
\*FractionBox[\(1\), \(4\)]\ 
\*SubscriptBox[\(c\), \(i\)]\ 
\*SubscriptBox[\(t\), \(i\)]\ \((4 + 
\*SubscriptBox[\(t\), \(i\)])\) - 
\*FractionBox[\(1\), \(8\)]\ 
\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\ 
\*SubscriptBox[\(u\), \(i\)]\ 
\*SubscriptBox[\(w\), \(i\)]\)\)]; nl[i_] := \[DoubleStruckCapitalE][1/
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(1/4\)]\),0,0,Subscript[c, i] (-(1/4)-1/Subscript[t, i])+(Subscript[u, i] Subscript[w, i])/8];
kp[i_] := \[DoubleStruckCapitalE][Sqrt[Subscript[t, i]],Subscript[b, i] Subscript[c, i],(Subscript[u, i] Subscript[w, i])/Sqrt[Subscript[t, i]],1/2 
\!\(\*SubsuperscriptBox[\(c\), \(i\), \(2\)]\) (-3+Subscript[t, i]) 
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\)+1/4 Subscript[c, i] 
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\) (2+5 Subscript[t, i]-3 
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\))+Subscript[c, i] Subscript[t, i] Subscript[u, i] Subscript[w, i]-3/4 
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\) Subscript[u, i] Subscript[w, i]];
km[i_] := \[DoubleStruckCapitalE][1/Sqrt[Subscript[t, i]],-Subscript[b, i] Subscript[c, i],-((Subscript[u, i] Subscript[w, i])/Sqrt[Subscript[t, i]]),1/4 Subscript[c, i] (3-2/
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\)-5/Subscript[t, i])-(\!\(
\*SubsuperscriptBox[\(c\), \(i\), \(2\)]\ \((\(-3\) + 
\*SubscriptBox[\(t\), \(i\)])\)\))/(2 
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\))+(3/4-2/
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\)) Subscript[u, i] Subscript[w, i]+(Subscript[c, i] (2-Subscript[t, i]) Subscript[u, i] Subscript[w, i])/
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\)-((-1+Subscript[t, i]) 
\!\(\*SubsuperscriptBox[\(u\), \(i\), \(2\)]\) 
\!\(\*SubsuperscriptBox[\(w\), \(i\), \(2\)]\))/(2 
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(2\)]\))];



