[交流] 【求助】为什么两种写法得到的值不一样？ 已有3人参与

Originally posted by astringent at 2011-01-23 20:18:21:
有两个点A（x1,y1,z1）,B（x2,y2,z2）,现在以由点A和B确定的直线为基准轴，我想求的是当以物体由点C（x3,y3,z3）运动到点 D（x4,y4,z4）时，沿AB基准轴方向的位移以及沿垂直于AB基准轴方向的位移。我用两种方法写 ...

print *, dot_product(ab,cd)
print *, dot_product(ab,ab)
print *, dot_product(cd,cd)
print *, dot_product(ab,cd)/(sqrt(dot_product(ab,ab))*sqrt(dot_product(cd,cd)))

Originally posted by snoopyzhao at 2011-01-23 22:14:25:


你得弄清楚 dot_product 是干啥的，它的结果是啥，呵呵……

[code]
print *, dot_product(ab,cd)
print *, dot_product(ab,ab)
print *, dot_product(cd,cd)
print *, dot_product(ab,cd)/(sqrt(dot_p ...

Originally posted by astringent at 2011-01-23 22:33:57:

我的两个程序都错了，我改了一下用数组的写法，这个程序应该是正确的吧？？
program test
implicit none
real :: a(3)=(/1.0,1.0,2.0/) ！A点坐标
real :: b(3)=(/1.0,1.0,3.0/) ！B点坐标
real :: c(3)=( ...