Plot[Sin[x],{x,0,4}]

Integrate[x*Exp[-x],{x,a,Infinity}]

g1=Plot[Sin[x],{x,0,Pi/2+.2}]

T1 =Table[{{10/360*2*Pi,1/3},{20/360*2*Pi,1/3},{30/360*2*Pi,1/3},{45/360*2*Pi,1/3},{50/360*2*Pi,2/3},{60/360*2*Pi,2/3}, {70/360*2*Pi,1},{80/360*2*Pi,1},{90/360*2*Pi,1}}]

g2=ListPlot[T1]

Show[g1,g2]

Export["/Users/smajor/Dropbox/Courses/Phys195/Guides/guide_1_crosswind_sine.pdf",%8,"PDF"]

Export[%,"sin.pdf"]

g[x_,y_]:=y^2-x

a=3

ClearAll

sf1=VectorPlot[{1,g[x,y]},{x,-2,6},{y,-4,4},VectorStyle->Arrowheads[0.017],VectorPoints->Fine]

sol1=NDSolve[{y'[x]==y[x]^2-x,y[0]==-1},y,{x,-2,15}]

g4=Plot[Evaluate[y[x]/.sol1],{x,-2,5}]

Show[sf1,g3,g4]

DSolve[x*y'[x]==4-y[x]^2,y[x],x]

LinguisticAssistant