Mathematica Plot Graphs
Note:-Mathematica is case sensitive
-After typing the computation, select Shift-Return
1) Plot[x, {x, -10, 10}, PlotRange→ {-10, 10}, PlotStyle→ {RGBColor[1, 0, 0]}]
2) Plot[2x, {x, -10, 10}, PlotRange→ {-10, 10}, PlotStyle→ {RGBColor[0, 1, 0]}]
3) Plot[x/2, {x, -10, 10}, PlotRange→ {-10, 10}, PlotStyle→ {RGBColor[0, 0, 1]}]
4) Plot[-x, {x, -10, 10}, PlotRange→ {-10, 10}, PlotStyle→ {RGBColor[1, 1, 0], Thickness[.01]}]
5) Plot[-2x, {x, -10, 10}, PlotRange→ {-10, 10}, PlotStyle→ {RGBColor[1, 0, 1]}]
6) Plot[-x/2, {x, -10, 10}, PlotRange→ {-10, 10}, PlotStyle→ {RGBColor[.5, 0, 0]}]
7) Plot[x^2, {x, -3, 2}]
8) Plot[x^3, {x, -2, 2}]
9) Plot[x^3, {x, -2, 2}, PlotRange→ {-3, 3}]
10) Plot[x^3, {x, -2, 2}]
11) Plot[Sin[x], {x, -3, 3}]
12) Plot[Sin[x], {x, -3, 3}, AspectRatio→1/5]
13) Plot[Sin[x], {x, -3, 3}, AspectRatio→Automatic]
14) Plot[Cos[x] + 15, {x, 0, 4 * Pi}, AxesLabel→ {"day", "price"}, PlotLabel->"Daily price of Stock AAA"]
15) Plot[{Sin[x], Cos[x]}, {x, -Pi, Pi}]
16) graph1 = Plot[Cos[x], {x, -3, 1}] ;
17) graph2 = Plot[Sin[x], {x, 0, 3}] ;
18) graph3 = Plot[0.5, {x, -2, 4}] ;
19) Show[graph1, graph2, graph3]
20) Plot[x^3 + 2x, {x, -3, 2}, PlotStyle→Thickness[0.03]]
21) Plot[x^3 + 2x, {x, -3, 2}, PlotStyle→Dashing[{0.02}]]

 

 

 

 

 

 

 

 

In[67]:=

 

In[72]:=

 

 

 

 

 

 

 

 

In[34]:=

 

 

 

 

 

 

 

 

Created by Mathematica  (October 24, 2005) Valid XHTML 1.1!