找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 4679|回复: 12

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

[复制链接]
发表于 2016-1-11 18:44:44 | 显示全部楼层 |阅读模式
没弄明白
/ j" x- R  H. L7 l- k

本帖子中包含更多资源

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

×
回复

使用道具 举报

发表于 2016-1-11 18:48:36 | 显示全部楼层
我平时都用这个软件,不过是在电脑上用。定积分,如果想看步骤的话。有step by step 功能,建议搜一下。
 楼主| 发表于 2016-1-11 19:57:55 | 显示全部楼层
本帖最后由 阳光小院暖茶 于 2016-1-11 19:59 编辑 9 R( C8 B; c7 G9 \5 L: y

/ d1 ^) ]3 K+ B) b这个是我手机截图的,我没这个东西。我在纸上试着算这个定积分,什么凑微分啦,换元啦,分部积分啦,都整不出来啊
发表于 2016-1-11 20:09:22 | 显示全部楼层
阳光小院暖茶 发表于 2016-1-11 19:57
! T# r. s1 A! y. C4 i这个是我手机截图的,我没这个东西。我在纸上试着算这个定积分,什么凑微分啦,换元啦,分部积分啦,都整不 ...
+ t4 M  U( J7 x6 s
这里的log是 我们平时写的ln吧???

点评

我猜是的,不然没法弄  发表于 2016-1-12 07:44
发表于 2016-1-11 20:27:51 | 显示全部楼层
应该是要用级数展开。。。。。。。。这部分知识我忘了、。。。) o; w: n* E5 z" q# N) s
+ ^8 |8 l4 \( m8 p
补充内容 (2016-1-12 21:35):
% x9 z; Y- p1 Q6 h9 ~! p今天问了问刚考完研的学长,的确得用级数展开才能解出来

本帖子中包含更多资源

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

×
发表于 2016-1-11 21:43:46 | 显示全部楼层
翻一翻数学手册吧, Q3 C5 Q5 @* s4 w9 u) U4 D

点评

翻不到啊  发表于 2016-1-12 08:12
发表于 2016-1-11 21:49:31 | 显示全部楼层
手动算了一下,也没得出结果,还是软件快啊0 z6 l7 u1 _; J$ }! }& B7 _
! \2 a  J# G  X% r

本帖子中包含更多资源

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

×

点评

恩,不过过程不清楚  发表于 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 | 显示全部楼层
用数值积分吧  
! _$ ^5 w' P# ~) o7 Z& Y8 K$ I$ @" p& e3 \8 J. W6 R& o0 D! b6 D
clear all
- M* A9 f" ?1 I# Oformat long
7 z! G& L4 [+ \( ^a=0;( _0 C, J: I  Z( c2 ?+ n$ Y4 \
b=1;
2 _. t6 l: x% S' h" `7 G) zepsilon=10^(-6);, e$ o- ^( F0 r/ }' Y4 g9 _7 `
syms x;) h# l7 a, E, X3 w2 b% ?/ f
fun=log(x^2 + 1)/(x + 1);* w4 b/ ]* t# |
Hfun=@ Remberg;4 s" D; ?5 n. k) _
Ivalue= feval(Hfun,fun,a,b,epsilon);' |4 e; E# ?9 s: B" J
' [; j- T, |: a
%Remberg.m5 m0 }7 U) U- P& k
%a,b为积分限,epsilon为精度,s为返回积分值,fun为被积函数5 D" s' l% b! m5 U  \
%R(n,m)表示计算值,(n-1)为变步长指标,(m-1)为加速次数
  p# }; Y3 R/ }0 g+ e; m$ l. nfunction s=Remberg(fun,a,b,epsilon)
) @/ |8 K& H, }0 O% n4 [syms x ;
1 Y! |" }1 a4 D: N7 H# p+ h  Zfvalue=zeros(1,1000);$ `: D0 G' y/ B2 ^
R=zeros(100,100);
- x$ X' d* n$ Y6 p( gfvaluea=double(subs(fun,x,a));. x. k  k4 j/ n4 i/ w
fvalueb=double(subs(fun,x,b));$ [  W  N9 s2 t0 o9 ^  \! n
R(1,1)=(b-a)/2*(fvaluea+fvalueb);   %梯形公式
! g9 t( M& [- Vkm=1;
( F# K% u3 L' \+ ]7 W2 ~* {1 o+ sfor k1=1:100;   %设置一个比较大的循环量
7 s2 ]! n! k% j1 q! F    h=(b-a)/(2^(k1));
0 [/ {, `% \* l! h% J    R(k1+1,1)=1/2*R(k1,1);
; {4 }& }8 l5 r! i    for k2=1:2^(k1-1);2 V1 `5 s4 W* Z
    fvalue(2*k2)=double(subs(fun,x,a+(2*k2-1)*h));, f5 q% _$ c. [/ d- `
    R(k1+1,1)=h*fvalue(2*k2)+R(k1+1,1);  %变步长值% k' a- e" O* C" a/ k8 z  V* P
    end5 [) X! v6 g; k# _. |% A1 S: E
  for k3=1:km;  %加速计算
( E5 n( p& c# R& D  T$ g      R(k1+1,k3+1)=1/(4^(k3)-1)*(4^(k3)*R(k1+1,k3)-R(k1,k3));
3 \4 b2 `& M- `4 X1 k  end$ j$ s- K$ H& _7 j# k
  if abs(R(k1+1,km+1)-R(k1+1,km))<epsilon   %控制精度3 e" y4 N) a* q
      s=R(k1+1,km+1);7 T2 a: z, X' H3 a! H! t/ K! u
      break;
5 m) i9 o  _1 a5 W) \4 S) Q  else
2 r0 F2 Y1 f. M, P- L3 B      km=km+1;* R3 k5 J) c# w+ T: B2 u3 s
  end3 R0 R. A4 ~3 w9 u2 `

: V/ a& C7 k* O; V* B' U7 B. ^end
4 M0 T( R/ W( K: _, r7 C' j" q
! X9 A5 T* y( T) ?
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-9-15 10:02 , Processed in 0.091242 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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