| 查看: 2721 | 回复: 14 | |||
[交流]
【求助】这个带有分段函数偏微分方程怎么用for程序去解决
|
|||
方程如下： 其中：  如何去解出这个偏微分方程 望各位大侠 帮帮忙啊 给点力 嘻嘻 |
回复此楼» 猜你喜欢
材料专硕(0856) 339分求调剂
已经有4人回复
-
一志愿华工085600 331分
已经有3人回复
-
268分085602化学工程调剂
已经有4人回复
-
一志愿中科院105500专业总分315求调剂
已经有3人回复
-
材料299专硕求调剂
已经有6人回复
-
086004 求调剂 309
已经有6人回复
-
280求调剂
已经有3人回复
-
085400 328分 求调剂
已经有7人回复
-
材料专硕322
已经有12人回复
-
一志愿华中农微生物，288分，三年实验经历
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
» 抢金币啦！回帖就可以得到:
-
2026年“海洋生物”硕士研究生调剂需求信息—— 河北科技师范学院，海洋科学研究中心
+1/190
-
台州学院高端合金研究所招收材料工程、纳米科学与工程调剂生。
+1/187
-
郑州人在北京，真诚找对象，非诚勿扰
+1/170
-
【科研项目】破解电池安全密码：揭秘国内首款火灾爆炸与抑制一体化实验舱
+1/92
-
东北石油大学化学化工学院还有少量调剂名额（化学、化学工程与技术、化学工程专硕）
+1/91
-
东南大学—有机多孔功能材料团队（杰青团队）招收 AI+COFs 方向科研助理
+1/41
-
上海应用技术大学招收化学、物理、材料类调剂生
+1/40
-
★上海★上海工程技术大学·环境与资源创新中心（ICER）接收化工材料环境等学科调剂生
+1/13
-
重庆大学微电子与通信工程学院张磊教授课题组招收2026级博士研究生（2026年9月入学）
+1/10
-
济南大学物理科学与技术学院粒子物理方向招收调剂研究生
+1/7
-
广东医科大学（东莞松山湖校区）生物医学工程学术型硕士接收调剂！
+1/6
-
欢迎调剂佛山大学环境工程（专硕）专业研究生
+1/6
-
招收2026级研究生
+1/5
-
Top-88悉尼科技大学数据科学/AI 招收2027年入学 校奖 博士生1到2名(国际和本地学生）
+1/5
-
一志愿211电子信息347求调剂
+1/4
-
哈尔滨工业大学招收博士研究生（欢迎环境、生物、市政、农业、化学等专业）长期有效
+2/4
-
上海应用技术大学化工学部招生调剂
+1/3
-
北京农学院植物保护招收1名学硕
+1/3
-
【#上海调剂急录#】能接受985联合培养的速来！带你发一区文章！
+1/2
-
长春大学计算机科学技术学院硕士研究生调剂（计算机科学技术、网络空间安全）
+1/2
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): 谢谢参与
