| 查看: 469 | 回复: 0 | |||
[交流]
FORTRAN
|
|
DO I=1,20 A=COS(PI*(I-1)/(L1-1)) B=SIN(PI*(I-1)/(L1-1)) YL= (6911667029776107.*(10975*B) + 31974*((1172861051219541491712.*A**2)/306935613347307285025.+(250000*B**2)/47961)**(1/2)))/(16*(26999642716039544832.*A**2 + 35998265780083890625.*B**2)) write(8,*) A,B,YL END DO 想请问一下为什么最后输出的YL结果是错误的 |
回复此楼» 猜你喜欢
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有112人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
-
什么时候开奖？
已经有13人回复
-
散金币祈福
已经有94人回复
-
青基已中
已经有1人回复
-
散金币祈福
已经有87人回复
-
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布
已经有1人回复
