| 查看: 596 | 回复: 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; |
回复此楼» 猜你喜欢
【原创讨论】从电子约束到物质编辑：一套可迭代的环形磁场科技树
已经有0人回复
-
【方案分享】单环磁场+轴心控制+偏转导出电子束约束系统（可行性实验）
已经有6人回复
-
物理学I论文润色/翻译怎么收费?
已经有261人回复
-
【修正版】单环用磁约束低速电子实验方案（简化版）
已经有0人回复
-
桂林理工大学物理学专业招收调剂，还有三个名额！！！
已经有22人回复
-
考博自荐
已经有4人回复
-
山东大学第二批博士研究生招生
已经有0人回复
-
中国科学院东莞材料科学与技术研究所-2026年博士招生-吴昊研究员-磁学与自旋电子学
已经有0人回复
-
《电磁学》教材推荐
已经有1人回复
-
【急招】合肥工大核聚变材料计算方向2026级工程博士生
已经有4人回复
-
大豆异黄酮分离
已经有0人回复
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