| 查看: 2686 | 回复: 14 | ||
[交流]
【求助】这个带有分段函数偏微分方程怎么用for程序去解决
|
||
» 本主题相关价值贴推荐,对您同样有帮助:
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招生硕士研究生
+5/835
本子终于提交了。不用再看了,一切闲下来慢慢等。希望一切顺利!
+1/648
南京医科大学生殖医学与子代健康国重实验室-董飞宏课题组-学术硕士招生
+1/95
春天就该逛吃逛吃
+1/88
重庆医科大学神经科学中心/病生与生理系诚邀海内外优秀博士加盟博士后队伍(长期)
+1/81
青岛高校 研究生招生
+1/50
湘潭大学“过程强化与绿色化工”创新团队补招2026年秋入学博士生
+1/35
催化方向推荐一个极好的博导
+1/35
澳大利亚西澳大学(UWA)张金强课题组招收全奖博士生(化工新能源方向)
+1/32
北京农学院生物工程学硕名额2个,生物、农学、食品、环境等专业均可申请调剂!
+2/28
【2026博士招生/博后招聘】北京航空航天大学潘彪课题组——AI芯片设计方向
+1/11
【第三轮招生】澳科大诚招2026秋全奖博士研究生(纳米医学/生物材料,3月31号截止)
+1/9
新加坡国立大学药学系化学生物学课题组招PhD
+1/8
教育部长江学者和创新团队发展计划”入选团队招收 材料,化学与化工博士研究生
+1/7
求调剂|一志愿广东工业大学控制工程|总分355|本科电气|有项目/竞赛/论文经历
+1/4
南京理工大学2026级硕士生招生-张光普博导 &硕导
+2/4
军科某研究院接收调剂研究生
+1/3
课题组招收环境及相关专业调剂硕士研究生(欢迎优秀学生加入)
+1/2
北京高校副校长团队招收机械类,环境类学硕和专硕
+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): 谢谢参与















回复此楼