找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 16515|回复: 4
打印 上一主题 下一主题

[求助] vb.net中矩阵计算问题请教高手.

[复制链接]
跳转到指定楼层
1
发表于 2009-11-4 13:30:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
有一个空间几何学的初级问题请教.(惭愧)
已知空间一个坐标系的x轴矢量,y轴矢量,如何求出z轴矢量?

Sub TestCsys(ByVal Csys1 As CoordinateSystem)
        Dim xVec As Vector3d
        Dim yVec As Vector3d

        Csys1.GetDirections(xVec, yVec)'获得x轴矢量和y轴矢量
        '已知x轴矢量xVec和y轴矢量yVec,求z轴矢量
        ?
End Sub

由于CoordinateSystem对象只提供GetDirections来获得
x轴矢量和y轴矢量.却不知z轴矢量如何获得.
理论上讲按右手定则,一定可以计算出来,可惜本人才疏学浅.
还望高手赐教,不慎感激!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2009-11-4 15:38:24 | 只看该作者
X(   cos(*),        sin(*),     -sin(*)   )
Y( -sin(*),       cos(*),       sin(*)   )
Z(  sin(*),          -sin(*),      cos(*)  )
3
发表于 2009-11-4 17:08:58 | 只看该作者
给你一个函数
Public Sub Vect1XtoVect2(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double, _
                             ByVal x2 As Double, ByVal y2 As Double, ByVal z2 As Double, _
                             ByRef xNew As Double, ByRef yNew As Double, ByRef zNew As Double) '矢量叉积
        xNew = y1 * z2 - z1 * y2
        yNew = z1 * x2 - x1 * z2
        zNew = x1 * y2 - y1 * x2
    End Sub

其中x1,y1,z1为第一个矢量,x2,y2,z2为第二个矢量
xnew,ynew,znew为得到的新矢量
4
发表于 2009-11-4 19:16:53 | 只看该作者
哇,里面皆是人才
5
发表于 2009-11-5 08:19:54 | 只看该作者
太感谢了,这下可帮了我大忙了.

谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-12-26 03:36 , Processed in 0.024504 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表