# Tag Info

2

It is not an answer. I tried to correct the errors in your code. After that the initial expression is expr1 = Cos[\[Theta]14]^3 Sin[\[Theta]13]^2 Sin[\[Theta]14] Sin[\ \[Theta]24] Exp[-i (\[Delta]14 + \[Delta]24 + 2 \[Delta]13)] - Sin[\[Theta]14]^2 Cos[\[Theta]14] Sin[\[Theta]13] Exp[-i \ (\[Delta]13 + 2 \[Delta]14)] (Cos[\[Theta]24] Sin[\[Theta]...

0

Try this: expr = (58500000 (281 E^(-750000000000 t/281) \[Pi] - 281 \[Pi] Cos[10 \[Pi] t] + 75000000000 Sin[10 \[Pi] t]))/(5625000000000000000000 + 78961 \[Pi]^2); Then expr1 = expr /. Exp[Rational[a_, b_]*t] -> 0 /. a_*Cos[10 \[Pi] t] + b_*Sin[10*\[Pi]*t] -> Sqrt[a^2 + b^2] Sin[10*\[Pi]*t + ArcTan[a, b]] (* -((58500000 Sin[...

2

May be Clear["Global`*"] expr = (58500000 (281 E^(-750000000000 t/281) π - 281 π Cos[10 π t] + 75000000000 Sin[10 π t]))/(5625000000000000000000 + 78961 π^2); expr = Expand[expr]; expr2 = Simplify[If[MatchQ[#,_.*Exp[__*t]],Limit[#,t->Infinity],#]&/@expr]; (Expand@Numerator[expr2]/.a_.*Cos[w_ t]+b_.*Sin[w_ t] :>Sqrt[a^...

Top 50 recent answers are included