找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 4686|回复: 12

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

[复制链接]
发表于 2016-1-11 18:44:44 | 显示全部楼层 |阅读模式
没弄明白# M, h% |! @  }: t$ O' _

本帖子中包含更多资源

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

×
回复

使用道具 举报

发表于 2016-1-11 18:48:36 | 显示全部楼层
我平时都用这个软件,不过是在电脑上用。定积分,如果想看步骤的话。有step by step 功能,建议搜一下。
 楼主| 发表于 2016-1-11 19:57:55 | 显示全部楼层
本帖最后由 阳光小院暖茶 于 2016-1-11 19:59 编辑
9 j* l2 w( L3 H$ d1 J, a1 N; l8 ~, ?$ \( p) t) {$ d5 ], X+ M
这个是我手机截图的,我没这个东西。我在纸上试着算这个定积分,什么凑微分啦,换元啦,分部积分啦,都整不出来啊
发表于 2016-1-11 20:09:22 | 显示全部楼层
阳光小院暖茶 发表于 2016-1-11 19:57   H5 i: s  s1 s; x% S0 M! i7 G
这个是我手机截图的,我没这个东西。我在纸上试着算这个定积分,什么凑微分啦,换元啦,分部积分啦,都整不 ...
5 D! m' O+ C+ V) J6 S2 `1 `3 E, Q
这里的log是 我们平时写的ln吧???

点评

我猜是的,不然没法弄  发表于 2016-1-12 07:44
发表于 2016-1-11 20:27:51 | 显示全部楼层
应该是要用级数展开。。。。。。。。这部分知识我忘了、。。。( K5 @0 b5 {- ?" z4 U$ V9 L

- M. a; n' H: j' X& i. e" `9 }补充内容 (2016-1-12 21:35):
  f, t3 A+ i+ W今天问了问刚考完研的学长,的确得用级数展开才能解出来

本帖子中包含更多资源

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

×
发表于 2016-1-11 21:43:46 | 显示全部楼层
翻一翻数学手册吧
# d' t& y, f: [, n' Q+ x, D! O' {1 b

点评

翻不到啊  发表于 2016-1-12 08:12
发表于 2016-1-11 21:49:31 | 显示全部楼层
手动算了一下,也没得出结果,还是软件快啊
  i7 S4 V  p. m/ j+ x' W: J) u1 N$ ~2 i7 A% c

本帖子中包含更多资源

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

×

点评

恩,不过过程不清楚  发表于 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 | 显示全部楼层
用数值积分吧  
1 J! b- Q1 u  \, [4 f5 e. z3 X! y9 G! T) G3 Q0 |9 |
clear all' X2 E  V" P2 c' t
format long
$ H3 \3 H. L2 c% ?% i+ Ra=0;
) ]  Z9 K) \" |/ S# ?b=1;
; \& q& y# b9 N/ Fepsilon=10^(-6);
' E5 t1 E  K& s3 W+ h4 asyms x;
5 R4 y0 E" T9 O6 W; ], Xfun=log(x^2 + 1)/(x + 1);5 i/ V9 x" H: R' X& h% O
Hfun=@ Remberg;, C/ p* ]; M+ K* J, U0 M$ f1 n4 S
Ivalue= feval(Hfun,fun,a,b,epsilon);* g) ]( K) T2 E
& f- I& @4 ]; B, g/ [0 u% W* |2 ?7 }
%Remberg.m4 M# v1 w# e+ _- m. }
%a,b为积分限,epsilon为精度,s为返回积分值,fun为被积函数; d/ v# G; O3 A/ {  l9 u& O. M: k1 i
%R(n,m)表示计算值,(n-1)为变步长指标,(m-1)为加速次数
2 o) m' ?& f- ~5 Nfunction s=Remberg(fun,a,b,epsilon)8 k. K4 T: E0 h4 O1 i) ^
syms x ;; z) `  c; y! O. V; x# _/ m
fvalue=zeros(1,1000);
/ D0 P# `& [9 y9 t* jR=zeros(100,100);3 o0 T% Q, ]# e, D. v. I! [& L
fvaluea=double(subs(fun,x,a));
3 w4 K, U  V' b* O- Ffvalueb=double(subs(fun,x,b));
7 H# [4 f3 y9 H$ V. s: UR(1,1)=(b-a)/2*(fvaluea+fvalueb);   %梯形公式
; s( f7 X* z8 t& h% Y7 s; Tkm=1;2 _. L1 l" O* G6 U
for k1=1:100;   %设置一个比较大的循环量
% }  Y, y: l5 g8 Q) a    h=(b-a)/(2^(k1));! {% s8 [0 r2 ~' B
    R(k1+1,1)=1/2*R(k1,1);
' j/ j5 ]. R) W) g) b3 C' u    for k2=1:2^(k1-1);% T7 A7 {$ Z' f' @2 I( g/ k/ O$ O
    fvalue(2*k2)=double(subs(fun,x,a+(2*k2-1)*h));. r! @7 F3 A0 W. u# l- ]/ o
    R(k1+1,1)=h*fvalue(2*k2)+R(k1+1,1);  %变步长值! @& |( z4 m  o* o
    end8 p- H. ^. k' d$ D+ u& \. v
  for k3=1:km;  %加速计算
' t# Y. Y8 z/ [/ e7 l+ `" A0 B4 C/ s: {      R(k1+1,k3+1)=1/(4^(k3)-1)*(4^(k3)*R(k1+1,k3)-R(k1,k3));5 d  v) |  K* c8 r
  end
* I$ [- M( I/ C. p  if abs(R(k1+1,km+1)-R(k1+1,km))<epsilon   %控制精度
, @, v" a' }  o0 Z0 n1 T% Z2 U      s=R(k1+1,km+1);
$ u4 M: w9 _$ u3 g      break;
( G3 C% g1 L/ T# A  else
8 s: j' R! {2 O+ y, m      km=km+1;
- B( W- q5 N9 d* I: j- Q6 S  end3 }  Z% b0 E+ q6 d0 W' a

; @0 c. ^% l3 t9 \( yend4 {5 B& ]. C7 c4 R7 g4 E1 f! B9 F

' t5 F7 {6 {+ J
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-9-16 06:59 , Processed in 0.059329 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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