下沙论坛

 找回密码
 注册论坛(EC通行证)

QQ登录

QQ登录

下沙大学生网QQ群8(千人群)
群号:6490324 ,验证:下沙大学生网。
用手机发布本地信息严禁群发,各种宣传贴请发表在下沙信息版块有问必答,欢迎提问 提升会员等级,助你宣传
新会员必读 大学生的论坛下沙新生必读下沙币获得方法及使用
查看: 6243|回复: 2
打印 上一主题 下一主题

VB中定义Arccos函数

[复制链接]

该用户从未签到

跳转到指定楼层
1
发表于 2003-4-18 01:11:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我是这样的:
$ o0 t. }% \2 b: B2 |3 k  OPrivate Function Arccos(x As Double, n As Long); D' H$ J4 U1 o* R7 Z) |( G
Dim i As Long, y As Double! \" K0 h1 W; t0 x
For i = 1 To n7 Z5 x# k9 {6 w9 I" j# G: w
    y = y + (-1 / Sqr(1 + (x / n * i) ^ 2)) * x / n
2 \6 b$ R' [4 Q- |3 rNext# ^  Q; L& a  k9 Z' I: |8 _/ q
Arccos = y
4 E' b4 x& z  a$ Z8 [! kEnd Function
8 {1 S) j$ z# _1 }/ f
% |! X  A( D3 c2 h/ Q用的是Arccos的微分来算近似值,怎么不对?
& H0 A( k6 {0 A; n' F
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 顶 踩
  • TA的每日心情
    擦汗
    10 小时前
  • 签到天数: 2395 天

    [LV.Master]伴坛终老

    2
    发表于 2003-4-19 22:04:00 | 只看该作者
    公式对就没有问题拉

    该用户从未签到

    3
     楼主| 发表于 2003-4-24 22:58:00 | 只看该作者
    Const pi As Double = 3.14159265359
    " }" u" @2 q' f: e, DPrivate Function Arccos(x As Double, n As Long) ' n 为函数精度,建议为100
    : @+ G% ~) O, o    Select Case x$ e+ {  Y9 `) R2 p! m! \" N7 F/ w
        Case 19 ]/ f( H6 @# M7 j7 X$ \
            Arccos = 06 ~2 }+ Q$ Y) g5 d& f
        Case -17 c/ E( Q# w/ q2 t2 h
            Arccos = pi
    9 H; P- i% I" q) j/ H% ^% ^- ?2 ~    Case -1 To 1& ?  N; S3 }7 k( U) e4 B/ p
            Dim dx As Double, y As Double, i As Long9 A/ D- m% ~/ ]$ Z7 Q' H: S" n
            dx = x / n! t3 q- t, g- r4 i1 ]
            For i = 1 To n/ G( U# |" U: V/ A, V
                y = y + (-1 / Sqr(1 - (dx * i + dx / 2) ^ 2)) * dx; g: ~% S# y; i  R( q% m$ L
            Next
    ; K% c; R8 r9 ~" R4 C        Arccos = y + pi / 2
    ( j" g" u: q1 q$ K1 _% |  w    Case Else
    5 g! V5 U+ v# z0 ~( ^        '异常
    7 ^. }5 m2 l! N" N/ \2 J6 a2 h    End Select
    ; m6 a7 n. L+ ]  \- ]End Function
    ) r% s6 I0 C% J; O9 N
    0 }" c/ Z# M# a1 {搞定了

    本版积分规则

    关闭

    下沙大学生网推荐上一条 /1 下一条

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