[资料共享]利用mathematica快速推导复杂的FDTD公式

分不够，多高淀粉

努力学习下！！！

是真的还是假的？能推吗？

这个一个一旦涉及到复杂，出来的公式也复杂的很

我觉得没有必要，公式是自己一步步推出来的，这样对理论理解才深入，不过对推导出来的进行验证倒是挺好的。

clear @|DQZt  
nt=735; ucx02^uA  
ny=73; +)"Rv%.  
nx=144; 3>@VPMi  
f=netcdf('air.mon.mean.nc','nowrite'); }\?9Prsd  
tt=f{'air'}(:); x'I!f? / &  
close(f) O.(2  
size(tt) */n8T]s  
t1=ones(nt,ny,nx);  |50sGJE(  
for it=1:nt
wqF?o  
    for i=1:nx @ gWd  
    for j=1:ny U*$xR<8v  
     t1(it,j,i)=tt(it,(74-j),i); u6ULk<<\  
    end 8$ u"92  
    end y]fI7nu&  
end 6~x'~T  
=#S.t:HQ*  
fid=fopen('ashiyang3.grd','a','l'); +wmG5!%$|  
  for it=1:nt P8,Ps+  
         count= fwrite(fid,squeeze(t1(it,:,:))','single'); C'#)mo_@t  
  end YiDOV)  
   fclose(fid)

哪里有这个软件的下载呀？

用mathematica来推导实际上是一个非常好的方法

顶了 j G8;p41  
DiJLWXs  
明天赚了笔笔再来买

看看，研究学习一下。