作者dana79810 (kicala)
看板Fortran
标题Re: [问题] 关於微分的写法
时间Wed Jun 3 21:21:52 2009
※ 引述《agody (讲不听)》之铭言：
: ※ 引述《latinboy (昵称)》之铭言：
: : 你这样写当然不行......
: : 有些语言能够直接作微分 可惜 fortran没有....
: : 自己写也很简单 就是自己微阿
: : 随便举个例子 假设 y = x^3 + x^2 - x + 3
: : fortran写法 y = x**3 + x**2 - x + 3
: : dy = 3*(x**2) + 2*x - 1
: : d2y = 6*x + 2
: 随手写的,不知道有没有错
: program main
: external y
: call diff_1st(y,1,f)<---後面(y,l,f) 为什麽和下面附程式名子的不一样?
是有其他的意释吗?
: print *,f
: end
: subroutine diff_1st(fun,x,f)
: external fun
: dx = 1
: k=1
: f_old = (fun(x+dx)-fun(x-dx))/(2*dx)
: dx = dx/2
: do while(k) <--K是? 是 do while( K>0 )作回圈的意释吗?
: f_new = (fun(x+dx)-fun(x-dx))/(2*dx)
: dx = dx/2
: if(f_new.eq.f_old) k = 0
: f_old = f_new
: end do
: f = f_new
: return
: end
: function y(x) <---哪一个步骤是将值带入?
: y = x**3 + x**2 - x + 3
: return
: end
因为我不太懂阵列的运用 ，所以有很多问题..请各位板大指点!!
orz
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.169.142.243