找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 4388|回复: 12

请问这个定积分是怎么得到的

[复制链接]
发表于 2016-1-11 18:44:44 | 显示全部楼层 |阅读模式
没弄明白
+ ]  R- Q  b8 G5 j, y9 R

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
回复

使用道具 举报

发表于 2016-1-11 18:48:36 | 显示全部楼层
我平时都用这个软件,不过是在电脑上用。定积分,如果想看步骤的话。有step by step 功能,建议搜一下。
 楼主| 发表于 2016-1-11 19:57:55 | 显示全部楼层
本帖最后由 阳光小院暖茶 于 2016-1-11 19:59 编辑 4 f( I2 m6 F7 h4 {7 E  k4 }& ]
. M9 Y; y# M. {
这个是我手机截图的,我没这个东西。我在纸上试着算这个定积分,什么凑微分啦,换元啦,分部积分啦,都整不出来啊
发表于 2016-1-11 20:09:22 | 显示全部楼层
阳光小院暖茶 发表于 2016-1-11 19:57 ! G% m& E3 n1 L* b4 H3 c
这个是我手机截图的,我没这个东西。我在纸上试着算这个定积分,什么凑微分啦,换元啦,分部积分啦,都整不 ...

& t6 w9 U) S( b' N3 l( v  z* A这里的log是 我们平时写的ln吧???

点评

我猜是的,不然没法弄  发表于 2016-1-12 07:44
发表于 2016-1-11 20:27:51 | 显示全部楼层
应该是要用级数展开。。。。。。。。这部分知识我忘了、。。。3 T+ G* K1 E" K* x0 {
; a# q0 K3 F) p
补充内容 (2016-1-12 21:35):; l3 C% Q+ f8 e) a0 v
今天问了问刚考完研的学长,的确得用级数展开才能解出来

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×
发表于 2016-1-11 21:43:46 | 显示全部楼层
翻一翻数学手册吧* \0 E9 @) S3 g% W1 Z& K

点评

翻不到啊  发表于 2016-1-12 08:12
发表于 2016-1-11 21:49:31 | 显示全部楼层
手动算了一下,也没得出结果,还是软件快啊
) S+ b- h4 N1 q' F2 O8 F
. l8 A4 `3 M/ H7 X" h0 h  `

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册会员

×

点评

恩,不过过程不清楚  发表于 2016-1-12 08:10
发表于 2016-1-11 21:53:13 | 显示全部楼层
刚刚试了分部积分法,发现没用
发表于 2016-1-11 21:53:21 | 显示全部楼层
刚刚试了分部积分法,发现没用

点评

恩,似乎要另外的办法  发表于 2016-1-12 08:13
发表于 2016-1-11 22:15:02 | 显示全部楼层
用数值积分吧  ! Y* Q1 G, C& ?

; `. C9 `1 X% ~. U( ~+ n6 vclear all
4 W3 q6 `* e9 N) R( _, nformat long
- r! K% ?* @& c& Ha=0;
. q) `" U# E! \b=1;: i, ^. C- T( J% p
epsilon=10^(-6);
% n" w' V( q6 c" i7 J& hsyms x;$ u5 y. E$ U( ~
fun=log(x^2 + 1)/(x + 1);
! M0 L) U4 h* }5 W" q2 F9 ?Hfun=@ Remberg;
, v& \2 W( B! H4 V; q" _( rIvalue= feval(Hfun,fun,a,b,epsilon);
4 [5 M" l$ w/ Y( ]* Z4 q+ |5 v9 N+ x9 h
%Remberg.m
) k( m0 \  t6 x5 _! ^7 |' a; G: I2 Y%a,b为积分限,epsilon为精度,s为返回积分值,fun为被积函数
) W7 e: F* ~5 H( O%R(n,m)表示计算值,(n-1)为变步长指标,(m-1)为加速次数' ~: S: m8 c5 g+ r, h
function s=Remberg(fun,a,b,epsilon)$ o6 w% h  l& e% _+ Z4 d
syms x ;
- i. ]1 N! N, w! A: u6 r2 [  pfvalue=zeros(1,1000);9 N, U9 b5 g7 x; c! }( x3 |
R=zeros(100,100);2 p! ?, P8 F4 r2 g- B0 K0 b  M) ~
fvaluea=double(subs(fun,x,a));* v8 E0 j- B5 a: ?6 |
fvalueb=double(subs(fun,x,b));
8 t' ?2 T! m: X% kR(1,1)=(b-a)/2*(fvaluea+fvalueb);   %梯形公式
( W. n) Z2 M' ?/ Y7 r: H6 ikm=1;
! ^3 K4 I4 b, b! S. G5 O! Dfor k1=1:100;   %设置一个比较大的循环量" D4 a4 U8 `8 v5 J7 U/ [1 t
    h=(b-a)/(2^(k1));
9 {7 t: h3 w; m6 F    R(k1+1,1)=1/2*R(k1,1);3 h3 x; j7 f+ t  D: J' Q, m5 v
    for k2=1:2^(k1-1);
% w' V  d) T2 B: Z: Q    fvalue(2*k2)=double(subs(fun,x,a+(2*k2-1)*h));! X) a( p- S# H3 C* |. p+ {
    R(k1+1,1)=h*fvalue(2*k2)+R(k1+1,1);  %变步长值
, z0 W" L+ G6 o- u+ z# u    end+ p# H! A& g& O7 n1 k9 n
  for k3=1:km;  %加速计算
5 ]: I% i" W0 Q- N5 x3 G  g- p      R(k1+1,k3+1)=1/(4^(k3)-1)*(4^(k3)*R(k1+1,k3)-R(k1,k3));2 v: h  A0 F: t$ m
  end
" n# x2 o4 f" h  if abs(R(k1+1,km+1)-R(k1+1,km))<epsilon   %控制精度2 z# t7 e# _7 b% q* j. |$ A! s
      s=R(k1+1,km+1);
% B. J- S  w4 c# Z5 a4 N8 B  j      break;
8 G* @3 P% ^7 T  else
7 F: |8 y9 P. o* x; M      km=km+1;8 a: z9 G; M1 p7 Z
  end' f1 p1 @  |/ r6 \; Q& X$ P

- Y! I! O6 `$ T( [end0 E, d3 g0 d" p: }$ y. z+ `$ D$ b! c

- O3 y' X! S+ x- X4 t, P* Q3 H9 \- h
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Archiver|手机版|小黑屋|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-7-1 11:38 , Processed in 0.062685 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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