PDA

View Full Version : Mathematica Plot


Nusc
Sep19-09, 06:32 PM
\[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?

Hepth
Sep19-09, 11:00 PM
"plotrange" instead of "all" PlotRange -> {{-1, 1}, {0, 7}}