| 查看: 2648 | 回复: 14 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】这个带有分段函数偏微分方程怎么用for程序去解决
|
|||
方程如下： 其中：  如何去解出这个偏微分方程 望各位大侠 帮帮忙啊 给点力 嘻嘻 |
回复此楼» 猜你喜欢
交叉科学部支持青年基金，对三无青椒是个机会吗？
已经有7人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有15人回复
-
多组分精馏求助
已经有4人回复
-
免疫学博士有名额，速联系
已经有4人回复
-
国家基金申请书模板内插入图片不可调整大小?
已经有6人回复
-
国家级人才课题组招收2026年入学博士
已经有5人回复
-
Fe3O4@SiO2合成
已经有6人回复
-
青年基金C终止
已经有4人回复
-
26申博求博导推荐-遥感图像处理方向
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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/473
-
南方科技大学周友运课题组诚聘博士后、科研助理
+1/175
-
电力全国重点实验室双一流A类长江学者团队招2026年全日制博士1-2名/博士后
+2/106
-
美国R1大学--德克萨斯大学埃尔帕索分校（UTEP） 土木、环境与建筑工程系 博士招生
+1/78
-
诚聘 有机光电材料计算方向 博士后、科研助理、访问学生
+1/78
-
非粮生物质能技术全国重点实验室合成生物学创新团队全球招聘博士/博士后
+1/75
-
中国石油大学（北京）2026年博士招生2名：化学、材料、石油工程：油田化学
+1/73
-
教育部重点实验室和清华大学某国家重点实验室，联合培养硕生、博生，并长期招博士后
+1/30
-
招聘农用化学产品销售一名，须具备良好的英语口语，以便拓展海外市场。
+1/9
-
2026年天津大学杰青团队招收化学合成、计算机和器件的方面博士
+1/8
-
法国斯特拉斯堡大学有机光伏全奖博士招聘
+1/7
-
电子科技大学崔春华课题组招收物理化学背景博士生1名-申请考核制
+2/6
-
山东大学集成电路学院王凌云研究员招收2026年硕士生及联合培养硕士生
+1/5
-
复旦大学化学系凡勇教授/张凡教授团队招聘博士后
+1/4
-
上海交通大学化学化工学院张智涛课题组诚聘博士后
+1/3
-
华南理工大学宋波教授招聘材料和化学方向博士后（长期有效）
+1/2
-
生信（包括AI）博后招聘（3名）：美国德州理工大学健康科学中心
+1/2
-
福建师范大学柔性电子学院 院士团队招2026级博士 光电器件、发光传感忆阻器
+1/1
-
广东以色列理工学院博士/硕士招生-通过稀疏观测用数据驱动方法预测湍流
+1/1
-
中山大学柔性电子学院黄维院士团队诚招柔性可穿戴电子方向博士生（2026年9月入学）
+1/1
4楼2010-12-11 12:43:36
2楼2010-12-10 16:57:59
5楼2010-12-11 13:46:24
|
看我这个 我写的外部函数 可有问题： 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
简单回复
91088397410楼
2010-12-11 19:16
回复
brqhl_ing(金币+1):谢谢参与
余泽成(金币-1):应助帖禁止灌水赚金币，扣除所得！ 2011-01-13 19:29:45
余泽成(金币-1):应助帖禁止灌水赚金币，扣除所得！ 2011-01-13 19:29:45
