声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 2514|回复: 3

[混合编程] 请问在VB中用MMatrixVB,能像matlab一样画3维图吗

[复制链接]
发表于 2005-11-10 13:28 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
有没有类似 z=interp2(X,Y,Z,x,x,'bicubic')的命令啊
回复
分享到:

使用道具 举报

发表于 2005-11-10 14:37 | 显示全部楼层
MatrixVB是MathWorks针对VB提供的一个Matlab库,它提供了600多个函数,包括基本的数学运算和功能强大的信号处理、线性代数、串运算及图形图像处理功能等,为VB提供了强大的功能扩展。在VB中使用该数学工具包可避免重复性劳动,从而减少开发人员实现算法和界面设计的困难。
MatrixVB是一个独立的产品(可以从www.mathworks.com得到),其使用十分方便。MatrixVB安装完成后,只需在VB工程中引用Mmatrix即可。
示例代码如下:
说明: 工业生产中经常需要对采集到的原始信号进行分析,并对分析结果进行实时的图形化显示,下面通过在VB中引用Mmatrix来实现这一功能。代码如下:
  1. Dim ax as Variant ’声明坐标轴
  2. Private Sub Form_Resize()
  3. vbrefresh ax ’刷新坐标轴
  4. End Sub
  5. Private Sub Form_Load()
  6. ax = vbaxes(Form1.hWnd)
  7. ’将坐标轴置于窗体
  8. Call Form_Resize
  9. End Sub
  10. Private Sub Command1-Click()
  11. Dim I,C As Matrix ’声明向量
  12. Dim m As Integer
  13. ’从数据库中取原始信号存入一维向量I,取其对应的碳含量存入一维向量C
  14. ’m为向量I、C的元素个数
  15. Call Icheck ( I , C , m )
  16. ’调用校正函数
  17. End Sub
  18. Private Sub Icheck (I As Variant, C As Variant, ByVal m As Integer)
  19. Dim II,CC,Z As Matrix
  20. Dim a0,a1,a2 As Double
  21. II = zeros(m,1)
  22. CC = zeros(m,1)
  23. II(colon(1,m)) = I(colon(1,m))
  24. CC(colon(1,m)) =C(colon(1,m))
  25. ’多项式拟和求解
  26. Z = polyfit ( II, CC, 2 )
  27. ’2 说明用二项式拟和
  28. a0= Z.r1(1) ’a0为二次项系数
  29. a1= Z.r1(2) ’a1为一次项系数
  30. a2= Z.r1(3) ’a2为0次项系数
  31. Clear axes ’清除坐标轴
  32. T = Sort ( II )
  33. ’对原始信号排序,以确定作图区间
  34. J = Linspace (T(1).r1(1),T(1).r(m),20)
  35. ’横坐标向量
  36. Cuv = plus (plus (times (a0,times (X,X) ),
  37. times (a1,X) ),a2) ’纵坐标向量
  38. Tmp = plot (J,Cuv) ’绘制曲线
  39. Hold (“on”)
  40. Tmp = plot (II, CC,“r.”) ’绘制点
  41. Hold (“off”)
  42. End Sub
复制代码

至于是否有你说的命令,我没用过也不太清楚

估计应该是有的,你可以试一下
发表于 2005-11-18 22:19 | 显示全部楼层
你们有注册码吗?
发表于 2005-12-30 11:50 | 显示全部楼层
在VB6中调用MATRAXVB过程运行程序时,经常出现死机,程序意外退出,请问怎么回事?
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-14 23:37 , Processed in 0.073307 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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