Travelling in space

FreddyMusic

Have you even image one day you drive the future vehicle and are travelling in space ?

http://demonstrations.wolfram.com/FlightThroughAStarCluster/

1. 
   
2. 
   
3. Manipulate[
   
4. SeedRandom[seed];
   
5. stars = 20 Table[{Cos[#1] Sqrt[1 - #2^2],
   
6.        Sin[#1] Sqrt[1 - #2^2], #2} &[Random[Real, {0, 2 Pi}],
   
7.      Random[Real, {-1, 1}]], {5000}];
   
8. plants =
   
9.   Table[{Yellow,
   
10.     Sphere[Append[RandomReal[{-1, 1}, {2}], RandomReal[{-10, 10}]],
    
11.      RandomReal[0.03]]}, {100}];
    
12. 
    
13. Graphics3D[{White, PointSize[0.001], Point[stars], plants},
    
14.   Background -> Black, Boxed -> False, SphericalRegion -> True,
    
15.   ImageSize -> {550, 320}, ViewVector -> {0, 0, time},
    
16.   ViewAngle -> 45 °],
    
17. {{seed, 1234, "seed"}, 12, 12345, 1, Appearance -> "Labeled"},
    
18. {{time, -10, "time"}, -10, -1, 0.001, ControlType -> Animator,
    
19.   AnimationRate -> 0.5},
    
20. ControlPlacement -> Top, TrackedSymbols -> Manipulate,
    
21. SynchronousInitialization -> False, SaveDefinitions -> True,
    
22. AutorunSequencing -> {1, 2, {3, 25}}]
    

复制代码

[ 本帖最后由 FreddyMusic 于 2008-11-13 09:26 编辑 ]

hjli6

再加几个飞船,就成星球大战了.:victory:

marveloustau

1. DynamicModule[{PointData = {}},
   
2. Graphics[{Dynamic[
   
3.     Map[{White, PointSize[0.02 Sqrt[#[[1, 1]]^2 + #[[1, 2]]^2]],
   
4.        Point[#[[1]]]} &,
   
5.      PointData =
   
6.       Select[Map[{#[[1]] + #[[2]], #[[2]]} &,
   
7.         Join[PointData, {{{0, 0},
   
8.            RandomReal[{-0.04, 0.04}, 2]}}]], (-1 < #[[1, 1]] <
   
9.            1) && (-1 < #[[1, 2]] < 1) &]]]}, PlotRange -> 1,
   
10.   Background -> Black]]
    

复制代码

改成了2D的，通过调节PointSize使得看起来具有远近效果。当然它和严格的三维模拟在透视学上是有重大区别的。

本来以为2D的会更快，结果发现我家的机子仍然跑不起来……星星太多了

snowhunter

对我这个新手而言，真是打开眼界。 令人神往的想象

FreddyMusic

改成了2D的，通过调节PointSize使得看起来具有远近效果。当然它和严格的三维模拟在透视学上是有重大区别的。

本来以为2D的会更快，结果发现我家的机子仍然跑不起来……星星太多了
marveloustau 发表于 2008-11-1 10:47

Tau,  I think you are looking for this project ?

http://demonstrations.wolfram.com/OlberssParadox/

sp600

也跑不动 星星太多了

liujihang029

漂亮

smarten

简单问题：没几个星球和星星是圆的，应该都是破破烂烂的吧。

dw120887

牛叉啊  呵呵