daily pastebin goal
4%
SHARE
TWEET

Untitled

a guest Sep 26th, 2017 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ClearAll["Global`*"]
  2. Plot[Sin[[Pi]*x]/([Pi]*x), {x, -2, 2}, PlotRange -> Full, Exclusions -> None, GridLines -> Automatic, ImageSize -> Full]
  3. Normal[Series[Sin[[Pi]*x]/([Pi]*x), {x, 0, 12}]]
  4. Plot[Evaluate[Normal[Series[Sin[[Pi]*x]/([Pi]*x), {x, 0, 12}]]], {x,-2, 2}, PlotRange -> Full, Exclusions -> None, GridLines -> Automatic, ImageSize -> Full]
  5. N[Solve[Normal[Series[Sin[[Pi]*x]/([Pi]*x), {x, 0, 12}]] == 1/2, x]]
  6.    
  7. ClearAll["Global`*"]
  8. Subscript[f, c] = 2*10^9;
  9. k = 30*10^15;
  10. Subscript[f, 0] = 0.5*10^9;
  11. Subscript[s, out] = !(*SubsuperscriptBox[([Integral]), (0), (t)](Cos[2*[Pi]**SubscriptBox[(f), (c)]*[Tau]]*Cos[2*[Pi]*((k*t + *SubscriptBox[(f), (0)]))*[Tau]] [DifferentialD][Tau]))
  12. Plot[Subscript[s, out], {t, 49*10^-9, 51*10^-9}, PlotRange -> Full,  Exclusions -> None, GridLines -> Automatic, ImageSize -> Full]
  13. soutexpansion = Expand[Normal[Series[Subscript[s, out], {t, 50*10^-9, 2}]]]
  14. Plot[Evaluate[soutexpansion], {t, 49.6*10^-9, 50.4*10^-9}, PlotRange -> Full, Exclusions -> None, GridLines -> Automatic, ImageSize -> Full]
  15. Solve[soutexpansion == (2.5*10^-8)/2, t]
  16.    
  17. Subscript[s, out2] = !(*SubsuperscriptBox[([Integral]), (0), (t)](*FractionBox[(1), (2)]*((Cos[2*[Pi]*((k*t + *SubscriptBox[(f), (0)] - *SubscriptBox[(f), (c)]))*[Tau]] + Cos[2*[Pi]*((k*t + *SubscriptBox[(f), (0)] + *SubscriptBox[(f), (c)]))*[Tau]])) [DifferentialD][Tau]))
  18. Plot[Subscript[s, out2], {t, 49.6*10^-9, 50.4*10^-9}, PlotRange -> Full, Exclusions -> None, GridLines -> Automatic, ImageSize -> Full]
  19. Subscript[s, out2series] = Normal[Series[Subscript[s, out2], {t, 50*10^-9, 30}]]
  20. Plot[Evaluate[Subscript[s, out2series]], {t, 49.6*10^-9, 50.4*10^-9}, PlotRange -> Full, Exclusions -> None, GridLines -> Automatic, ImageSize -> Full]
  21. Solve[Subscript[s, out2series] == (2.5*10^-8)/2, t]
RAW Paste Data
Top