Mathematica Plot

  • Mathematica
  • Thread starter Nusc
  • Start date
  • #1
753
2
\[Gamma][v_] := 1/Sqrt[1 - (v)^2]
plot1 = Plot[\[Gamma][v], {v, -.99, .99},
PlotStyle -> {Thick, RGBColor[0.6, 0, 0]}, PlotRange -> All] \.08
plot2 = Plot[0, {v, -.99, .99}, PlotRange -> All] \.08
Show[plot1, plot2, PlotRange -> All,
AxesLabel -> {"\!\(\*FractionBox[\"v\", \"c\"]\)[]",
"\[Gamma](\!\(\*FractionBox[\"v\", \"c\"]\))\!\(\*
StyleBox[\"[\",\nFontColor->GrayLevel[0]]\)\!\(\*
StyleBox[\"]\",\nFontColor->GrayLevel[0]]\)"}, LabelStyle -> Larger]

The idea for plot2 was to show the origin. the function has a minimum value of 1 but I want to show the origin. Is there a better way?
 

Answers and Replies

  • #2
Hepth
Gold Member
449
39
"plotrange" instead of "all" PlotRange -> {{-1, 1}, {0, 7}}
 

Related Threads on Mathematica Plot

  • Last Post
Replies
1
Views
3K
Replies
1
Views
3K
  • Last Post
Replies
1
Views
1K
  • Last Post
Replies
2
Views
2K
Replies
1
Views
793
Replies
1
Views
3K
  • Last Post
Replies
2
Views
23K
Replies
1
Views
2K
  • Last Post
Replies
1
Views
877
  • Last Post
Replies
2
Views
8K
Top