|
在vba中如何实现叉乘？？
能不能调用现有的函数？
我自己编写了一个实现叉乘的函数，发现经过计算后，数值有些许的计算误差，导致在运行到 下列程序 时，出现错误说 新设置的x轴与y轴不垂直
Set ucsObj = ThisDrawing.UserCoordinateSystems. Add(origin, xAxisPnt, yAxisPnt, "New_UCS")
为了验证是否是计算误差的原因， 我进行了下列计算
由已知的 N 经过一系列计算（包含叉乘等），得到Ax 与Ay，其中N Ax Ay三者相互垂直，满足右手定则
然后 再由 Ax 叉乘 Ay 得到 NF
如果不存在计算误差， 那么 N 与NF 的各个分量应该都完全相等
但是经过计算，他们存在其为微弱的差别
我认为正是这极其微弱的差别导致上面的函数认为Ax Ay 不垂直
这要怎样解决啊 ~~~~~ 我要愁死了！
呜呜呜~~ | 
发表于 2006-5-25 21:30:00
置顶卡
变色卡
显身卡
发表于 2006-5-26 15:04:00