Fix broken SigPower

This commit is contained in:
Peter 2024-08-14 15:54:38 +08:00
parent 9537655318
commit 52e20bcc63

View File

@ -14,9 +14,10 @@ Using it for the unit ELEC4402 Communication Systems
```mathematica ```mathematica
(* Signal power *) (* Signal power *)
SigPower[expr_, t_] := SigPower[expr_, t_] :=
Limit[1/(2 T) Integrate[expr, {t, -T, T}], T -> Infinity] Limit[1/(2 T) Integrate[expr^2, {t, -T, T}], T -> Infinity]
(* Normalized sinc function, default Sinc in Mathematica is not normalized *) (* Normalized sinc function,default Sinc in Mathematica is not \
normalized *)
SincNorm[Infinity] := Sinc[Pi Infinity] SincNorm[Infinity] := Sinc[Pi Infinity]
SincNorm[t_?NumericQ] := Sinc[Pi t] SincNorm[t_?NumericQ] := Sinc[Pi t]