JSRUN 用代码说话
精选fortran
全部fortran
用1维矩阵存储三维矩阵


一个简单的fortran程序


线段查询算法 假设有三条线段,每条线段的端点分别为 $(0,0,0)$ 和 $(1,1,1)$,$(1,1,1)$ 和 $(2,2,2)$,$(0,1,0)$ 和 $(1,0,1)$,球体的中心点为 $(1,1,1)$,半径为 $r=1$。代码输出结果为第一条线段和第二条线段(注意:线段下标从1开始计数)。