Tag Info

Hot answers tagged

14

data = Import["orbit3d.out", "Table"]; (* Your Table is not needed; you can use [[...]] instead *) (*d=Table[{data[[i,2]],data[[i,3]],data[[i,4]]},{i,1,Length[data]}];*) d = data[[All, 2 ;; 4]]; l = Line[d]; (* Projections on bounding box *) lz = l /. {x_, y_, z_} -> {x, y, -5.5}; ly = l /. {x_, y_, z_} -> {x, 5.5, z}; lx = l /. {x_, y_, z_} -> ...


1

For example: sol = First@ NDSolve[{Θ'[t] == 2 Θ[t] + .1, ϕ'[t] == 1, ϕ[0] == 0, Θ[0] == .1 {Θ, ϕ}, {t, 0, 1}] f[t_] := {Cos[ϕ[t]] Sin[Θ[t]], Sin[ϕ[t]] Sin[Θ[t]], -Cos[Θ[t]]} Manipulate[Show[ ParametricPlot3D[f[t] /. sol, {t, 0, 1}, PlotStyle -> Transparent], ParametricPlot3D[f[t] /. sol, {t, 0, T}, PlotStyle -> {Thick, ...



Only top voted, non community-wiki answers of a minimum length are eligible