| 查看: 2984 | 回复: 14 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】这个带有分段函数偏微分方程怎么用for程序去解决
|
|||
方程如下： 其中：  如何去解出这个偏微分方程 望各位大侠 帮帮忙啊 给点力 嘻嘻 |
回复此楼» 猜你喜欢
今天系统多次维护，明天很可能放榜！
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Max-Planck-Institute for Coal Research的电面通知，求指点~~
已经有19人回复
- fortran能求带字母矩阵的本征值吗？（矩阵元素带有字母，能得到形式解吗）
已经有5人回复
- 求大虾指导 一个关于atoi函数的问题
已经有3人回复
- 利用概率密度函数生成随机变量过程中出现超几何分布函数问题
已经有4人回复
- fortran中到底该如何比较两个实数是否相等
已经有8人回复
- origin进行非线性拟合如何选择函数或者自定义合适的函数
已经有19人回复
- 6-31G基组添加极化和弥散函数
已经有14人回复
- 怎能让fortran调用c的fopen和fileio函数
已经有3人回复
- 【交流】合流超比函数的 fortran程序（自己搞定了，不过也希望你来交流）
已经有7人回复
» 抢金币啦！回帖就可以得到:
-
祝福！基金中中中！！！！
+1/396
-
Data征稿（EI检索收录），选题方向：环境风险管理的数据分析
+5/345
-
北京信息科技大学机电工程学院硕士研究生招生线上宣讲会-8月16日
+5/255
-
[求助]请问水下焊接技术有啥进步？
+1/191
-
山东征女友，坐标济南
+1/164
-
上海同城
+1/115
-
中国科学院空天院精密干涉测量团队 精密机械结构工程师招聘启事
+1/83
-
中国科学院空天院精密干涉测量团队 精密机械结构工程师招聘启事
+1/81
-
北京信息科技大学机电工程学院硕士研究生招生线上宣讲会——8月16日
+1/81
-
中国科学院空天院精密干涉测量团队招聘光学/算法/机械方向博士后/特别研究助理
+1/80
-
中国科大-合肥国家实验室冷原子量子网络团队招聘启事
+2/40
-
27级博士生 + 福州大学 + 经管学院 + 管理科学与工程（见贴则有指标）
+1/8
-
关于Ghaffar-Parkins催化剂催化氰基水解为酰胺的问题
+1/6
-
西安交通大学杜宝吉课题组招收申请考核制博士生
+2/6
-
27推免-广州医科大学封红亮教授招收精神医学应用心理学推免生
+1/5
-
中国科学院生态环境研究中心环境工程相关方向招收保送硕士和联合培养博士和硕士研究生
+1/4
-
华南理工，博士后
+1/3
-
中国科学技术大学环境学院招聘招生
+1/2
-
海南大学化学院-科研助理招聘 （可读博，可与华中科技大学，天津大学联培）+博后招聘
+1/2
-
分析化学的科研文章有没有人需要交流的啊
+1/1
|
看我这个 我写的外部函数 可有问题： external f dimension y(3),d(3),z(3,5000000),b(4,3),e(3),s(3),g(3) open(26,file='variable.dat') h=0.001d0 m=5000000 n=3 eps=0.00001d0 y(1)=1.0d0 y(2)=2.0d0 y(3)=3.0d0 call adams(a,h,m,y,n,z,f,d,eps,b,e,s,g) do 20 i=1,m t=(i-1)*h if(t.ge.1d2) write(26,'(4f15.6)')t,z(1,i),z(3,i) 20 continue close(26) end subroutine f(t,y,n,d) c ---------------------------------------------------------------------- dimension y(n),d(n) real*8 mm c if (abs(y(1)).gt.2.9d0)then mm=0.366d0 else mm=0.061d0 endif d(1)=(1.15d0-mm*y(1)-sin(y(2))-y(3))/2.6d0 d(2)=y(1) d(3)=(y(1)-y(3))/0.707d0 return end 这才是 最后一部分 重要的 上面 以及 以前 都是模块化的 程序 |
8楼2010-12-11 15:36:48
2楼2010-12-10 16:57:59
4楼2010-12-11 12:43:36
5楼2010-12-11 13:46:24
简单回复
91088397410楼
2010-12-11 19:16
回复
brqhl_ing(金币+1):谢谢参与
余泽成(金币-1):应助帖禁止灌水赚金币，扣除所得！ 2011-01-13 19:29:45
余泽成(金币-1):应助帖禁止灌水赚金币，扣除所得！ 2011-01-13 19:29:45
