Bimetric 3+1 toolkit for spherical symmetry
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines
eom/eomMatter.h
Go to the documentation of this file.
00001 /** @file  eomMatter.h
00002  *  @brief The equations of motion for a perfect fluid.
00003  *  @image html matter.png
00004  */
00005 
00006 Real BimetricEvolve::eq_pf_D_t( Int m, Int n )
00007 {
00008     return gBet_r(m,n) * pfD(m,n) + gBet(m,n) * pfD_r(m,n) + gAlp(m,n) * (-(gDAlp(m,n)
00009     /*2*/  * pfD(m,n) * pfv(m,n)) - pfD_r(m,n) * pfv(m,n) - pfD(m,n) * pfv_r(m,n)) 
00010     /*0*/  + (2 * gBet(m,n) * pfD(m,n) - 2 * gAlp(m,n) * pfD(m,n) * pfv(m,n)) / r(m,n);
00011 }
00012 
00013 Real BimetricEvolve::eq_pf_S_t( Int m, Int n )
00014 {
00015     return 2 * gBet_r(m,n) * pfS(m,n) + gBet(m,n) * pfS_r(m,n) + gAlp(m,n) * (gDA(m,n)
00016     /*1*/  * pfS(m,n) * pfv(m,n) - pfS_r(m,n) * pfv(m,n) - pfS(m,n) * pfv_r(m,n) 
00017     /*1*/  - gDAlp(m,n) * (pfD(m,n) + pfS(m,n) * pfv(m,n) + pftau(m,n))) + (2 
00018     /*1*/  * gBet(m,n) * pfS(m,n) - 2 * gAlp(m,n) * pfS(m,n) * pfv(m,n)) / r(m,n);
00019 }
00020 
00021 Real BimetricEvolve::eq_pf_tau_t( Int m, Int n )
00022 {
00023     return gBet_r(m,n) * pftau(m,n) + gBet(m,n) * pftau_r(m,n) + gAlp(m,n) * (gK1(m,n)
00024     /*1*/  * pfS(m,n) * pfv(m,n) - gDAlp(m,n) * pfv(m,n) * pftau(m,n) - pfv_r(m,n) 
00025     /*1*/  * pftau(m,n) - pfv(m,n) * pftau_r(m,n) - (gDAlp(m,n) * pfS(m,n)) 
00026     /*1*/  / pow2(gA(m,n))) + (2 * gBet(m,n) * pftau(m,n) - 2 * gAlp(m,n) * pfv(m,n) 
00027     /*1*/  * pftau(m,n)) / r(m,n);
00028 }
00029 
00030 Real BimetricEvolve::eq_pf_v( Int m, Int n )
00031 {
00032     return pfS(m,n) / ((TINY_Real + pfD(m,n) + pftau(m,n)) * pow2(gA(m,n)));
00033 }
00034 
00035 Real BimetricEvolve::eq_pf_v_r( Int m, Int n )
00036 {
00037     return (-2 * gDA(m,n) * pfS(m,n) * (pfD(m,n) + pftau(m,n)) + pfS_r(m,n) 
00038     /*1*/  * (pfD(m,n) + pftau(m,n)) - pfS(m,n) * (pfD_r(m,n) + pftau_r(m,n))) 
00039     /*0*/  / (pow2(gA(m,n)) * pow2(TINY_Real + pfD(m,n) + pftau(m,n)));
00040 }
00041 
00042 Real BimetricEvolve::eq_pf_rho( Int m, Int n )
00043 {
00044     return (pfD(m,n) + pftau(m,n)) / (gA(m,n) * pow2(gB(m,n)));
00045 }
00046 
00047 Real BimetricEvolve::eq_pf_j( Int m, Int n )
00048 {
00049     return pfS(m,n) / (gA(m,n) * pow2(gB(m,n)));
00050 }
00051 
00052 Real BimetricEvolve::eq_pf_J1( Int m, Int n )
00053 {
00054     return (pfS(m,n) * pfv(m,n)) / (gA(m,n) * pow2(gB(m,n)));
00055 }
00056 
00057 Real BimetricEvolve::eq_pf_J2( Int m, Int n )
00058 {
00059     return 0;
00060 }