| 查看: 2122 | 回复: 14 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 brqhl_ing 的 10 个金币 ，回帖就立即获得 1 个金币，每人有 1 次机会 | |||
[交流]
【求助】这个带有分段函数偏微分方程怎么用for程序去解决
|
|||
方程如下： 其中：  如何去解出这个偏微分方程 望各位大侠 帮帮忙啊 给点力 嘻嘻 |
回复此楼» 猜你喜欢
对象没有，还非常想读博，难以抉择
已经有52人回复
-
博后网上办公系统维护
已经有21人回复
-
自然基金变化？？
已经有25人回复
-
做什么表征可以检测塑料中碳氢氧的含量
已经有7人回复
-
基金评审时，评审专家还回去看申请人代表作之外的文章吗？
已经有11人回复
-
今年什么时候会评啊
已经有8人回复
-
回家两天，不想呆了
已经有13人回复
-
国基在研影响申请结果吗
已经有10人回复
-
有机物的酸酐如何准确表征
已经有7人回复
-
大佬们，打的核磁氢谱与chemdraw预测的有偏差
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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中的内部函数可以递归吗？
已经有3人回复
- 用Matlab怎么求解多元函数的最小值
已经有6人回复
- 【交流】合流超比函数的 fortran程序（自己搞定了，不过也希望你来交流）
已经有7人回复
» 抢金币啦！回帖就可以得到:
-
博后基金散金求中
+5/187
-
内蒙古大学-武利民教授-赵岩研究员-张江威研究员联合团队招聘高层次青年人才及优秀博�
+1/89
-
内蒙古大学-武利民教授-赵岩教授-张江威教授联合团队招聘高层次青年人才及博士后/博士
+1/86
-
墨尔本大学Ting Dang招收博士生2名 提供全额奖学金
+1/85
-
西安“石油地质研究实验室”18791013812田老师
+1/83
-
哈尔滨工业大学王大伟教授课题组电子陶瓷方向招收2025级博士研究生
+2/78
-
YY/T 1841-2022心脏电生理标测系统
+1/48
-
科研助理/工程师招聘，纳米、生物电子方向
+1/36
-
西交利物浦大学Dr Lurui Fang团队博士招生（奖学金+申请制+英国利物浦大学博士学位）
+1/32
-
上海找对象
+1/26
-
坐标上海新上海人征女友
+1/19
-
复旦大学化学系凡勇教授团队招聘博士后
+1/18
-
郑州大学物理学院安全储能团队招聘教师和博士后
+1/14
-
今年的任务就是找对象成家
+1/11
-
请问有高精密3D打印加工厂商推荐嘛，科研加工需要，跪求
+1/9
-
中国科学院重庆绿色智能技术研究院招聘科研助理（无机非金属复合材料）
+1/9
-
深圳大学高等研究院暑期夏令营
+1/2
-
广西科技大学材料工程专业研究生招生宣传
+1/1
-
希望你我都带着诚意而来
+1/1
-
想学点财务
+1/1
+5/187
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): 谢谢参与
