| 40 流水算法Grav--部分I |
 
|
- 函数Grav(X,M)
- C 接受粒子X的位置和粒子M的大量数据
- C 在Grav中返回加速度
- integer, parameter :: N = 粒子数
- real, parameter :: G = 重力常数（gravitational constant）
- real, dimension (1:3, 1:N) :: X,M,Grav
- real, dimension (1:3,1:N) :: A, Xc, Mc, Ac, D, R
- integer k
- ! A是确定的加速度 - X 和 M 用于确定的位置和大量数据
- A=0.0
- Ac=0.0 ! 计算加速度
- Xc=X ! 计算位置
- M=G*M ! 预算mass*重力常数( mass * gravitational constant)
- Mc=M !计算大量数据
| Copyright: NPACT |
|