![]() |
Bimetric 3+1 toolkit for spherical symmetry
|
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 }