(* ::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\\2015-09"];
<< "../Projects/MetaCalculi/MetaCalculi.m"


Subscript[T, i_]:=E^Subscript[b, i];
bConjugate[expr_]:= expr /. Subscript[b, i_] :> -Subscript[b, i];
bSimplify[expr_] := Assuming[Subscript[b, 1]>0\[And]Subscript[b, 2]>0\[And]Subscript[b, 3]>0\[And]Subscript[b, i]>0\[And]Subscript[b, j]>0, Simplify[PowerExpand[expr]]];
\[CapitalGamma]Simp=bSimplify;


ui[\[CapitalGamma][\[Omega]_,\[Sigma]_,\[Lambda]_]] := Module[{S=dL[\[CapitalGamma][\[Omega],\[Sigma],\[Lambda]]], A},
A=Outer[(\!\(
\*SubscriptBox[\(\[PartialD]\), \(
\*SubscriptBox[\(t\), \(#1\)]\[InvisibleComma]
\*SubscriptBox[\(h\), \(#2\)]\)]\[Lambda]\))&, S, S];
\[CapitalGamma][
bConjugate[Det[A]*\[Omega]/Product[\!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(h\), \(i\)]]\[Sigma]\), {i,S}]],
\[Sigma],
(Subscript[h, #]/Subscript[b, #]& /@ S).Inverse[bConjugate[A]].(Subscript[t, #] Subscript[b, #]& /@ S)
] // \[CapitalGamma]Simp
]; 



