【飞鸟集】用LISP求积分

longcashman · 发表于 2013-4-4 16:41

太强大了，只能仰视了

springwillow · 发表于 2013-5-23 10:14

水平确实高啊！

革天明 · 发表于 2015-4-9 11:41

(setq f (trans_format f))
(eval (list 'defun 'func (list 'x) f))

这两句能解释一下吗？
假设f=(+ 3 x)
(setq f (trans_format f))返回的是（+ nil 3）
(list 'defun 'func (list 'x) f)应该是定义了一个函数名为func参数为x的函数
(eval (list 'defun 'func (list 'x) f))是对函数求值，但是没有参数输入呀
如果（func 5）就会提示出错

highflybird · 发表于 2019-7-8 23:58

关于我的积分程序，已经做了重大更新，截图如上。但现在暂不提供源码。
此截图中，你会说为何有的值不一样，那你得首先了解一下积分和这类型的积分是什么含义。在此恕不解答。
龙贝格积分普遍有效，高斯勒让德也是，而且高斯勒让德法更高效。但对于某些特殊积分，就需要用到下面的方法，譬如广义积分，椭圆积分等。

JHX948954875 · 发表于 2019-7-9 09:43

谢谢楼主分享，

guankuiwu · 发表于 2021-2-14 15:33

厉害厉害

tigcat · 发表于 2022-4-4 22:23

支持高飞大神,说实在的,那些积分干什么用的真不知道,也不知道何时会用到.

账号		自动登录	找回密码
密码			注册

[【高飞鸟】] 【飞鸟集】用LISP求积分

本帖子中包含更多资源