recent links:
hattons | Special:Editing tips
|
From NewWiki
Wiki sandbox page
Don't forget to put ";" at the end of expressions:In[1]:= norm=Integrate[4 Pi r^2 Sin[th/2]^2 Cos[th/2]^2,{th,0,Pi}]; pr=4 Pi r^2 Sin[th/2]^2 Cos[th/2]^2/.{th->2 ArcSin[d/(2 r)]}; prob=Simplify[pr/norm]; Plot[prob/.r->1,{d,0,2}]
Out[1]:=
In[2]:= Plot[X^2,{X,0,25/100}]
Out[2]:=
In[3]:= Options@Plot
Out[3]:=
In[4]:= Needs["Graphics`"]; ??ParametricPlot3D
In[5]:= Plot3D[Sin[x]+Cos[y],{x,0,10},{y,-10,10}]
Out[5]:=
In[6]:= t=Table[{i,j,k},{i,10},{j,5},{k,2}]; t//TableForm
Out[6]:=
In[7]:= ??X
In[8]:= Plot[Sin[x]^2,{x,0,2 Pi}]
Out[8]:=
In[9]:= crankradius = 0.175
Out[9]:=0.175
In[10]:= ContourPlot[(((x^2)+(y^2)-1)^3)-(x^2)(y^3)==0,{x,-2,2},{y,-2,2},Frame->False,Ticks->False,Axes->True]
Out[10]:=
In[11]:= Plot[Integrate[Sin[x y],{x,0,1}],{y,0,1}]
Out[11]:=
In[12]:= Plot[{1/Sqrt[n]-1/Sqrt[4000],1/Sqrt[n]-1/Sqrt[12000],1/Sqrt[n]},{n,0,15000},AxesLabel->{n,1/Sqrt[n]-1/Sqrt[N]}, PlotRange->{0,0.1}, PlotLabel-> {N = 4000, 12000, infinity}]
Out[12]:=
hattons
article
discussion
