Modefit for psi4 for stable boson star with perturbation 0.01 Y_20+0.01 Y_22
The functions f1 -> f12 are the list of Quasinormal modes for l=2, stable boson stars..
This program uses uses the "Fit" function in mathematica that performs a linear least square fit.
![f1[x_] := Re[Exp[(1.9823 + i 0.0099616) i x]] f2[x_] := Re[Exp[(2.0197 + i 0.10009) i x]] f3[x_] := Re[Exp[(2.0703 + i 0.10838) i x]] f4[x_] := Re[Exp[(2.1159 + i 0.11529 ) i x]] f5[x_] := Re[Exp[(2.1663 + i 0.11872) i x]] f6[x_] := Re[Exp[(2.2173 + i 0.1238) i x]] f7[x_] := Re[Exp[(2.269 + i 0.12699) i x]] f8[x_] := Re[Exp[(2.3223 + i 0.13047) i x]] f9[x_] := Re[Exp[(2.3756 + i 0.13333) i x]] f10[x_] := Re[Exp[(2.4301 + i 0.13562) i x]] f11[x_] := Re[Exp[(2.4848 + i 0.1377) i x]] f12[x_] := Re[Exp[(2.5406 + i 0.13923) i x]]](HTMLFiles/modefit_psi4_ylm_2022_1.gif)
![]()

![]()
![1.2870806228861554`*^-6/x - 0.0033806202417118168` e^Re[(-0.13923` + 2.5406` i) x] Cos[Im[(-0.13923` + 2.5406` i) x]] - 0.02859817234983507` e^Re[(-0.1377` + 2.4848` i) x] Cos[Im[(-0.1377` + 2.4848` i) x]] - 0.08157952202572559` e^Re[(-0.13562` + 2.4301` i) x] Cos[Im[(-0.13562` + 2.4301` i) x]] - 0.15590857029003632` e^Re[(-0.13333` + 2.3756` i) x] Cos[Im[(-0.13333` + 2.3756` i) x]] - 0.1928845382921741` e^Re[(-0.13047` + 2.3223` i) x] Cos[Im[(-0.13047` + 2.3223` i) x]] - 0.17465628042484854` e^Re[(-0.12699` + 2.269` i) x] Cos[Im[(-0.12699` + 2.269` i) x]] - 0.12060908563555617` e^Re[(-0.1238` + 2.2173` i) x] Cos[Im[(-0.1238` + 2.2173` i) x]] - 0.04702775126386045` e^Re[(-0.11872` + 2.1663` i) x] Cos[Im[(-0.11872` + 2.1663` i) x]] - 0.012720420310289752` e^Re[(-0.11529` + 2.1159` i) x] Cos[Im[(-0.11529` + 2.1159` i) x]] - 0.0007272615082030438` e^Re[(-0.10838` + 2.0703` i) x] Cos[Im[(-0.10838` + 2.0703` i) x]] + 0.00023694658829355973` e^Re[(-0.10009` + 2.0197` i) x] Cos[Im[(-0.10009` + 2.0197` i) x]] + 3.801551151908542`*^-9 e^Re[(-0.0099616` + 1.9823` i) x] Cos[Im[(-0.0099616` + 1.9823` i) x]]](HTMLFiles/modefit_psi4_ylm_2022_5.gif)
![[Graphics:HTMLFiles/modefit_psi4_ylm_2022_6.gif]](HTMLFiles/modefit_psi4_ylm_2022_6.gif)
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
![3.772146879328537`*^-6/x + 1.1141500430737207`*^-8 e^Re[(-0.0099616` + 1.9823` i) x] Cos[Im[(0.0099616` - 1.9823` i) x]] + 0.0006944377202997897` e^Re[(-0.10009` + 2.0197` i) x] Cos[Im[(0.10009` - 2.0197` i) x]] - 0.0021314416360897464` e^Re[(-0.10838` + 2.0703` i) x] Cos[Im[(0.10838` - 2.0703` i) x]] - 0.037280721132767015` e^Re[(-0.11529` + 2.1159` i) x] Cos[Im[(0.11529` - 2.1159` i) x]] - 0.13782787341947328` e^Re[(-0.11872` + 2.1663` i) x] Cos[Im[(0.11872` - 2.1663` i) x]] - 0.3534783897054078` e^Re[(-0.1238` + 2.2173` i) x] Cos[Im[(0.1238` - 2.2173` i) x]] - 0.5118786899940742` e^Re[(-0.12699` + 2.269` i) x] Cos[Im[(0.12699` - 2.269` i) x]] - 0.5653016572947869` e^Re[(-0.13047` + 2.3223` i) x] Cos[Im[(0.13047` - 2.3223` i) x]] - 0.4569333236960353` e^Re[(-0.13333` + 2.3756` i) x] Cos[Im[(0.13333` - 2.3756` i) x]] - 0.23909142438676406` e^Re[(-0.13562` + 2.4301` i) x] Cos[Im[(0.13562` - 2.4301` i) x]] - 0.08381487893277986` e^Re[(-0.1377` + 2.4848` i) x] Cos[Im[(0.1377` - 2.4848` i) x]] - 0.009907845606728607` e^Re[(-0.13923` + 2.5406` i) x] Cos[Im[(0.13923` - 2.5406` i) x]]](HTMLFiles/modefit_psi4_ylm_2022_17.gif)
![]()
![-0.0021314416360897464` e^Re[(-0.10838` + 2.0703` i) x] Cos[Im[(0.10838` - 2.0703` i) x]] - 0.037280721132767015` e^Re[(-0.11529` + 2.1159` i) x] Cos[Im[(0.11529` - 2.1159` i) x]] - 0.13782787341947328` e^Re[(-0.11872` + 2.1663` i) x] Cos[Im[(0.11872` - 2.1663` i) x]] - 0.3534783897054078` e^Re[(-0.1238` + 2.2173` i) x] Cos[Im[(0.1238` - 2.2173` i) x]] - 0.5118786899940742` e^Re[(-0.12699` + 2.269` i) x] Cos[Im[(0.12699` - 2.269` i) x]] - 0.5653016572947869` e^Re[(-0.13047` + 2.3223` i) x] Cos[Im[(0.13047` - 2.3223` i) x]] - 0.4569333236960353` e^Re[(-0.13333` + 2.3756` i) x] Cos[Im[(0.13333` - 2.3756` i) x]] - 0.23909142438676406` e^Re[(-0.13562` + 2.4301` i) x] Cos[Im[(0.13562` - 2.4301` i) x]] - 0.08381487893277986` e^Re[(-0.1377` + 2.4848` i) x] Cos[Im[(0.1377` - 2.4848` i) x]] - 0.009907845606728607` e^Re[(-0.13923` + 2.5406` i) x] Cos[Im[(0.13923` - 2.5406` i) x]]](HTMLFiles/modefit_psi4_ylm_2022_19.gif)
![]()
![]()
![]()
![[Graphics:HTMLFiles/modefit_psi4_ylm_2022_23.gif]](HTMLFiles/modefit_psi4_ylm_2022_23.gif)
![]()
![[Graphics:HTMLFiles/modefit_psi4_ylm_2022_25.gif]](HTMLFiles/modefit_psi4_ylm_2022_25.gif)
![]()
Converted by Mathematica (December 1, 2003)