2024年5月7日发(作者：)

VB

中反三角函数的计算

By colleen

发表于

2007-3-28 14:20:06

今天上课前一个学生问到

VB

中反三角函数的计算问题，但 由于马

上就要上课了，而且自己对

VB

中的反三角函数也不够熟 悉，所以决定

和他一起在课后探讨。现在经过整理，大致如下：

Atn()

是

VB

反正切函数，

VB

不提供其他反三角函数，不过可 以用

下列公式导出：

Inverse Sine

(反正弓玄)

：

Arcsin(X)

二

Atn(X / Sqr(-X * X + 1))

Inverse Cosine

(反余弓玄)：

Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(l)

Inverse Secant

(反正割):

Arcsec(X)

二

Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2

* Atn(l))

Inverse Cosecant

(反余割):

Arccosec(X)

二

Atn(X / Sqr(X * X - D) + (Sgn(X) - 1) * (2

* Atn(l))

以上这些公式，其实就是应用了数学中的各类三角函数和正切 函数

之间的关系导出的。其中需要注意的是其中的

X

不能等于正 负

lo

由于最近工作忙，多日未打理博客了，故今日有闲，发一个

VB

调用

API

涵数画正

弦波的代码供大家参考.

代码如下：

Option Explicit

Dim Points() As POINTAPI

Dim NumPoints As Integer

Dim ZanTinl

Dim apikl

Dim apik2

DimV

Const pi = 3.979

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function Polyline Lib gdi32" (ByVai hdc As Long,

IpPoint As POINTAPI, By Vai nCount As Long) As Long

Private Sub Picture 1 _MouseDown(Button As Integer, Shift As Integer, x

As Single, y As Single)

Select Case Button

Case 1

ReDim Points(0 To 2)

n