- 在线时间
- 0 小时
- 最后登录
- 2010-3-3
- 注册时间
- 2010-2-19
- 听众数
- 2
- 收听数
- 0
- 能力
- 0 分
- 体力
- 52 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 20
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 8
- 主题
- 3
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   15.79% 该用户从未签到
- 自我介绍
- 追求完美,强迫症。
 |
clear all;
9 R& `7 C4 U( Dnx=50;' q. H( ^% z8 O
ny=30;, _9 k! W- k1 O6 C& O: p
hx=pi/nx;' q3 \$ w! i) W+ f/ F5 p6 n* M; @
x=linspace(0,pi,nx+1);+ V% B; _- g$ u, m4 j
y=linspace(0,pi,ny+1);! |" C' ~8 i1 Y2 Q0 o% u) \
x_plus_h=x+hx.*ones(1,nx+1);
1 `5 T/ @% j( T/ r/ rx_minus_h=x-hx.*ones(1,nx+1);- V c3 @3 _$ ~- W( F r( g
for i=1:nx+1
% A/ D3 W- ]8 K8 _ for j=1:ny+1% y8 c3 Q! f& p( M* x: l3 _
f_xx(j,i)=(f9(x_plus_h(i),y(j))-2*f9+f9(x_minus_h(i),y(j)))./(hx.^2); %原式f(x+hx,y)-2f(x,y)+f(x-hx,y)./(hx^2)6 [) m6 ~$ G1 a9 H1 z, r3 U
end;& h" u8 K/ O; A) |
end;
0 I7 Q8 N5 E L* x, W% Q4 U[xx,yy]=meshgrid(x,y);0 z0 u; q+ r% W" w4 r! n- A7 e
surf(xx,yy,f_xx);; g3 R* U6 A' i
title('partial derivative w.r.t.xx')9 _( C; @/ m3 j- k2 j! E N$ O4 U
,
. P$ h1 B6 k& y7 t+ \: j5 ^1 i6 z! `) L# e# ~, }
另开一个f9文件,
* R$ |5 @) c$ Q. T( i; Mfunction l=f9(x,y)
5 v5 F" r& x8 @7 S: C- L) Ul=exp(sin(x-y));
3 d& B* y) l1 H) a; ?! |7 I E) m# I4 G
7 V; U- p. w3 s3 `然后出来说错误了,
( F8 A; G( F) A, b+ w??? Input argument "x" is undefined.5 k$ u# Y% ~2 i2 e* E- }! Q; a: d
3 `2 R b/ g8 V1 AError in ==> f9 at 2
! Q& A8 A6 d% F( L+ ^! ]" S4 \l=exp(sin(x-y));
& T) c: n# m0 nError in ==> partial_derivxx at 11
- d# K# ^% V. p3 t' ~7 G f_xx(j,i)=(f9(x_plus_h(i),y(j))-2*f9+f9(x_minus_h(i),y(j)))./(hx.^2);
+ }# [4 h+ l/ Z8 G" N3 z
. F3 g" Z' e% W1 A* B各位要怎么改才对呢 |
zan
|