| 查看: 2559 | 回复: 14 | |||
[交流]
【求助】这个带有分段函数偏微分方程怎么用for程序去解决
|
|||
方程如下： 其中：  如何去解出这个偏微分方程 望各位大侠 帮帮忙啊 给点力 嘻嘻 |
回复此楼» 猜你喜欢
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有7人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
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/143
-
加拿大/英属哥伦比亚大学曹彦凯课题组招收全奖博士/博后 [机器学习/优化/控制方向]
+1/82
-
华东师范大学 程义云 课题组招2026年博士研究生 - 有机化学、材料化学、高分子合成等
+1/79
-
以色列理工-生物质塑料等催化转化及流体力学方向---全奖博士研究生和科研助理
+2/74
-
因为雪而勾起的一些往事
+1/65
-
浙江农林大学森林食物资源挖掘与利用全国重点实验室2026年博士生招生
+1/44
-
南昌大学药学博士招生
+1/40
-
陕西师范大学应用表面与胶体化学教育部重点实验室刘静教授课题组招收硕/博士生
+2/38
-
都柏林大学微纳制造博士后招聘启事——二
+1/35
-
QS TOP100英国南安普顿大学数字健康与生医工招博后，博士，Fellowship，访问学者
+1/33
-
工作一年半了，突然分配到浮选药剂的合成，我想问问浮选药剂是不是夕阳产业了
+1/32
-
双一流大学湘潭大学“化工过程模拟与强化”国家地方联合工程研究中心招收各类博士生
+1/31
-
澳门科技大学2026年数学博士招生—计算物理与数学课题组:计算流体与相场方法
+1/22
-
2026年博士申请-全固态锂金属电池方向-聚合物电解质+硫化物电解质
+1/12
-
招聘2026年入学博士生
+1/7
-
博士后招聘-液态金属与低温生物医学研究中心
+1/7
-
南京航空航天大学航天学院黄护林教授课题组博士研究生招生（工程热物理专业）
+1/6
-
香港城市大学 Microsystems and Semiconductor Technology Lab 博士生招生启事
+1/5
-
东莞理工学院-大连化物所联合招聘光催化方向博士后2名（年薪48W）
+1/2
-
大连海事大学国家级人才团队2026年博士研究生招生启事
+1/1
2楼2010-12-10 16:57:59
3楼2010-12-11 00:43:55
4楼2010-12-11 12:43:36
5楼2010-12-11 13:46:24
★
brqhl_ing(金币+1):谢谢参与
brqhl_ing(金币+1):谢谢参与
|
本帖内容被屏蔽 |
6楼2010-12-11 14:22:57
7楼2010-12-11 14:45:57
|
看我这个 我写的外部函数 可有问题： 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
9楼2010-12-11 18:17:20
11楼2010-12-14 13:38:52
12楼2010-12-14 21:16:03
13楼2010-12-28 19:50:17
14楼2011-01-10 14:22:48
简单回复
91088397410楼
2010-12-11 19:16
回复
brqhl_ing(金币+1):谢谢参与
余泽成(金币-1):应助帖禁止灌水赚金币，扣除所得！ 2011-01-13 19:29:45
余泽成(金币-1):应助帖禁止灌水赚金币，扣除所得！ 2011-01-13 19:29:45
lipugongying15楼
2012-11-07 13:31
回复
brqhl_ing(金币+1): 谢谢参与
