乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 57|回复: 3

开三次方的函数,有没有更好的方法

[复制链接]

4

主题

19

帖子

2

银币

初来乍到

Rank: 1

铜币
35
发表于 2004-10-12 15:36:00 | 显示全部楼层 |阅读模式
因求开三次方,哪里也找不到现成函数,乱编了一个,有更好的请跟帖
' 求三次方函数
Function ddd(a As Double) As Double
                         ddd = Sqr(Sqr(a))
                         While Abs(a - ddd ^ 3) > 0.000001
                         ddd = ddd + (Sqr(12 * ddd * a - 3 * ddd ^ 4) - 3 * ddd ^ 2) / 6 / ddd ^ 2 - ((Sqr(12 * ddd * a - 3 * ddd ^ 4) - 3 * ddd ^ 2) / 6 / ddd ^ 2) ^ 4
                         Wend
End Function
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-10-12 18:52:00 | 显示全部楼层
EXP(LOG(a)/3)
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-10-12 22:36:00 | 显示全部楼层
a ^ (1 / 3)
回复

使用道具 举报

4

主题

19

帖子

2

银币

初来乍到

Rank: 1

铜币
35
发表于 2004-10-17 13:10:00 | 显示全部楼层
这么简单,就是想不到。谢谢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 06:45 , Processed in 0.386879 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表