H Mathematica στην υπηρεσία της Φυσικής

  • View
    39

  • Download
    0

Embed Size (px)

DESCRIPTION

H Mathematica . Mathematica. 1 1 : 1 1 : . 11 : . - PowerPoint PPT Presentation

Transcript

  • Mathematica 11: 11:

  • Do (n) Plot[Sin[1.00 x], {x,0,2}]Plot[Sin[1.25 x], {x,0,2}]Plot[Sin[1.50 x], {x,0,2}]Plot[Sin[1.75 x], {x,0,2}]Plot[Sin[2.00 x], {x,0,2}]Plot[Sin[2.25 x], {x,0,2}]Plot[Sin[2.50 x], {x,0,2}]Plot[Sin[2.75 x], {x,0,2}]Plot[Sin[3.00 x], {x,0,2}] : 11: , . Do: Do x[t], y[t] .

  • Show[Graphics[{PointSize[0.05],Point[{x[t],y[t]}]}] Graphics {x[t], y[t]} Show . PointSize[0.05] 5% . Do . SetOptions[Graphics, AspectRatio->1, Axes->Automatic, PlotRange->{{0,20},{-25,0}}] x, y PlotRange->{{xmin,xmax},{ymin,ymax}} AspectRatio->1 (x, y). Axes->Automatic (x, y). . Graphics, Point: Set. 11:

  • H : . . x-y x y . x: y: 11:

  • -x ( ) Vx=10 m/sec Vy=0. (x=0, y = 0) . x: Vx , x=0. y: g=9.8 m/s2 11:

  • Clear[x,Vx, y, Vy];ti=0;tf=2;t=1/10;x[ti]=0; Vx[ti]=10; y[ti]=0; Vy[ti]=0; g= -9.8; Do[Vx[t+t]=Vx[t]; x[t+t] = x[t] + Vx[t+t]*t; Vy[t+t] = Vy[t] + g*t; y[t+t] = y[t] + Vy[t+t]*t, {t,ti,tf,t}] 2 sec: Do . 11:

  • data=Table[{x[t],y[t]},{t,ti,tf,t}];ListPlot[data, AxesLabel{"x","y"}, PlotStyle->PointSize[0.015]] x[t] y[t] Table (function) ListPlot . 11:

  • ,

    SetOptions [Graphics, AspectRatio 1, Axes->Automatic, PlotRange {{0,20},{-25,0}}]; Do[Show[Graphics[{PointSize[0.05], Point[{x[t],y[t]}]}]], {t, ti,tf,t}];To x[t], y[t] . 11:

  • 1. x-y :2. x-y : 11:

  • Mathematica ArcSin (180/) . Vx = 10 m/sec Vy = 15 m/sec VTo 11:

  • V data = Table[{x[t],y[t]}, {t,ti,tf,t}];ListPlot[data, AxesLabel->{"x","y"}, PlotStyle->PointSize[0.02]] 3. . tf ; 11:

  • 4. . 10 90 tf . ; 11:

    10o20o30o40o50o60o70o80o90o

  • Mathematica 11: 11:

  • 11: G=6.67 10-11 m2/kg2 O . . mA>>mB mB mA. , mA . mB (x, y) .

  • . r = 1.5 x 1011 m : : x[0]=1.0 m y[0]=0.0 m, Vy[0]=0.7 m/sec Vx[0]=0. 11: : : G = 6.67 x 10-11 N m2/kg2, mA = 2.0 x 1030 kg, mB = 6.0 x 1024 kg. tf: 1 = 365 = 3.1 x 107 sec , t=tf/500. x .

  • Plot[Sin[1.00 x], {x,0,2}]Plot[Sin[1.25 x], {x,0,2}]Plot[Sin[1.50 x], {x,0,2}]Plot[Sin[1.75 x], {x,0,2}]Plot[Sin[2.00 x], {x,0,2}]Plot[Sin[2.25 x], {x,0,2}]Plot[Sin[2.50 x], {x,0,2}]Plot[Sin[2.75 x], {x,0,2}]Plot[Sin[3.00 x], {x,0,2}] : 11: Do (n) , . Do:

  • 11: Do :

  • 11: Do n 0 600 ( 600 ) 1/600 .

  • data = Table[{x[n],y[n]}, {n,0,Steps}];ListPlot[data, AxesLabel->{"x","y"},AspectRatio->1.0] : Do : V a ( r). V-r, a-r. . 11:

    *******************