mdlmotiontype.bas

来自「共轭凸轮绘制及运动仿真程序。输入共轭凸轮参数后可以绘制凸轮并进行仿真。」· BAS 代码 · 共 39 行

Attribute VB_Name = "mdlMotionType"
Option Explicit
Option Base 1

'-------------------线性运动，用于测试，angle表示运动角度范围---------------------------------------------
Sub motionTest(ByVal angle As Long)

    Dim i As Long
    ReDim tmpS(1 To angle)
    
    
    Dim k As Double
    k = h / angle
    
    For i = 1 To angle
        tmpS(i) = k * i
    Next

End Sub

'-------------------双谐运动，angle表示运动角度范围-----------------------------------------------------
Sub motionSX(ByVal angle As Long)

    Dim i As Long
    ReDim tmpS(1 To angle)
    
    Dim RadI As Double
    Dim RadA As Double
    
    RadA = angle * Pi / 180
    
    For i = 1 To angle
        RadI = i * Pi / 180
        tmpS(i) = h / 2 * (3 / 4 - Cos(Pi * RadI / RadA) + 1 / 4 * Cos(2 * Pi * RadI / RadA))
    Next
    
End Sub