Mathematica --> Plotting Two Curves on the same Plot

[jedishrfu]

Here's a Mathematica program that plots sine and cosine curves for the interval [0,2π].

Mathematica Code:​

(* Define the functions *)
f1[x_] := Sin[x]
f2[x_] := Cos[x]

(* Plot both functions on the same graph *)
Plot[{f1[x], f2[x]}, {x, 0, 2 Pi},
  PlotStyle -> {Red, Blue},
  PlotLegends -> {"Sin[x]", "Cos[x]"},
  AxesLabel -> {"x", "y"},
  GridLines -> Automatic,
  PlotLabel -> "Plot of Sin[x] and Cos[x]"]

Output:​

• A red sine wave and a blue cosine wave are displayed in a window.
• Axes labeled at 0,𝜋, and 2𝜋.
• The graph scales dynamically to fit in the window.

Solution Credits​

Proposed by: @hagopbul
Coded by: @ChatGPT
Reviewed by: @renormalize