| 查看: 600 | 回复: 2 | |||
[交流]
1stopt，代码有问题，帮忙看看，非常简单的，主要是因为初学
|
|
总是说没有发现关键词endprogram。。 Parameters P(1,11)[0,60],Q(1,11)[0,40],M(1,11)[0,1],N(1,11)[0,1]; CONSTANT K1=75,K2=13.89,K3=2.2,G1=56.25,G2=10.42,G3=0,R=0.36; startprogram; var i: integer; begin for i:=1 to 11 a=(i-1)/10; f1=(1-a)/(1+3.2*R); f2=(1+1.13*a)/(1+3.2*R)-f1; f3=1-f1-f2; Function P=(f1*K1/(1+M*(K1/P-1))+f2*K2/(1+M*(K2/P-1))+f3*K3/(1+M*(K3/P-1)))/(f1/(1+M*(K1/P-1))+f2/(1+M*(K2/P-1))+f3/(1+M*(K3/P-1))); Q=(f1*G1/(1+N*(G1/Q-1))+f2*G2/(1+N*(G2/Q-1))+f3*G3/(1+N*(G3/Q-1)))/(f1/(1+N*(G1/Q-1))+f2/(1+N*(G2/Q-1))+f3/(1+N*(G3/Q-1))); M=3*P/(3*P+4*Q); N=6*(P+2*Q)/5/(3*P+4*Q); end; endprogram; |
回复此楼» 猜你喜欢
【急招】合肥工大核聚变材料计算方向2026级工程博士生
已经有4人回复
-
大豆异黄酮分离
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有154人回复
-
湖南大学材料学院急招2026年博士生，临时增加一名博士联培指标
已经有10人回复
-
天津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生1-2名
已经有1人回复
-
中国科学院物理研究所谌志国研究员团队招收2027年博士研究生
已经有4人回复
-
2026年中德博士后交流项目 - 新型量子和磁性材料：材料制备表征和中子散射研究
已经有12人回复
-
26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有1人回复
dingd
铁杆木虫 (职业作家)
- 计算强帖: 4
- 应助: 1641 (讲师)
- 金币: 15037.3
- 散金: 101
- 红花: 234
- 帖子: 3410
- 在线: 1223.7小时
- 虫号: 291104
- 注册: 2006-10-28
2楼2015-10-22 20:54:23
方世超
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 21.1
- 帖子: 25
- 在线: 28小时
- 虫号: 2983133
- 注册: 2014-02-21
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
3楼2015-10-23 15:17:33