24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2477  |  回复: 29

ws89

金虫 (著名写手)

悠然书生

[求助] 三元一次方程求根公式。正余弦函数自变量为复数

各位高手们求指点呀,
  本人用FORTRAN语言编写一元三次方程的求根公式, 用到q=ASIN(R)/3,但是因为之前运用了拉普拉斯变换,所以R在拉普拉斯域内是一个关于S的复数自变量函数,在FORTRAN程序里总会出错,不能继续运行,好像三角函数,正弦,余弦,尤其是反正弦函数ASIN(x)中,x必须是实数才行呀,是这样的麽?程序不能运行,论文就做不出来呀,很纠结,咱只是一个苦逼的小研究生,希望大神们指点一二,fortan不行的话,能告知其他程序运算方法,或者能给出程序来也行的呀,感激不尽。
回复此楼

» 猜你喜欢

天佑一帆&soul.St.realand
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

感谢参与,应助指数 +1
fortran底下 asin可以对复数进行运算。
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
2楼2013-11-16 22:42:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
3楼2013-11-17 00:31:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ws89

金虫 (著名写手)

悠然书生

引用回帖:
2楼: Originally posted by baobiao007 at 2013-11-16 22:42:30
fortran底下 asin可以对复数进行运算。

不知您说的fortran底下是何意,能不能详细些呀
天佑一帆&soul.St.realand
4楼2013-11-17 10:16:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ws89

金虫 (著名写手)

悠然书生

引用回帖:
3楼: Originally posted by jerkwin at 2013-11-17 00:31:46
看这里
http://mathworld.wolfram.com/InverseSine.html

给了一定程度的启发,虽然没有解决,谢谢呀
天佑一帆&soul.St.realand
5楼2013-11-17 10:23:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

可以化为实部和虚部的两个三次方程求解, 也可以直接求解
http://www.xieguofang.cn/Maths/C ... omplex_Formula1.htm
小木虫和科学net有仇啊, 不能贴那里的链接
你直接搜吧
6楼2013-11-17 12:24:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
1楼说的意思是,asin(x)的x可以是复数,直接定义x为复数就行了。你所说的问题不存在。
7楼2013-11-17 12:28:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ws89

金虫 (著名写手)

悠然书生

引用回帖:
7楼: Originally posted by virtualzx at 2013-11-17 12:28:15
1楼说的意思是,asin(x)的x可以是复数,直接定义x为复数就行了。你所说的问题不存在。

COMPLEX P,RTY,RTX,RTZ
RTY=ASIN(P)
RTX=SIN(P)
RTZ=COS(P)运行后,错误提示:
error FOR2319: non-REAL argument to intrinsic procedure ASIN
照你们所说,应该不会出错的,但现在有问题,求解释。
天佑一帆&soul.St.realand
8楼2013-11-17 15:00:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ws89

金虫 (著名写手)

悠然书生

引用回帖:
2楼: Originally posted by baobiao007 at 2013-11-16 22:42:30
fortran底下 asin可以对复数进行运算。

COMPLEX P,RTY,RTX,RTZ
RTY=ASIN(P)
RTX=SIN(P)
RTZ=COS(P)运行后,错误提示:
error FOR2319: non-REAL argument to intrinsic procedure ASIN
求解释
天佑一帆&soul.St.realand
9楼2013-11-17 15:01:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

引用回帖:
9楼: Originally posted by ws89 at 2013-11-17 15:01:21
COMPLEX P,RTY,RTX,RTZ
RTY=ASIN(P)
RTX=SIN(P)
RTZ=COS(P)运行后,错误提示:
error FOR2319: non-REAL argument to intrinsic procedure ASIN
求解释...

我用gfortran随便给个复数,然后求其asin,没问题啊
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
10楼2013-11-17 15:02:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ws89 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂,一志愿大连理工大学354分 +5 雨声余生 2026-04-11 6/300 2026-04-11 16:12 by 雨声余生
[考研] 266求调剂,一志愿哈工程电子信息,本科获多项国奖和省奖 +7 lumine1 2026-04-06 7/350 2026-04-11 15:31 by 学zh
[考研] 262求调剂 +12 天下第一文 2026-04-04 15/750 2026-04-11 14:09 by 释放天性
[考研] 0831生医工第一轮调剂失败求助 +10 小熊睿睿_s 2026-04-11 13/650 2026-04-11 10:04 by maddjdld
[考研] 311求调剂 +13 xyp想读书 2026-04-10 14/700 2026-04-11 09:41 by 猪会飞
[考研] 346,工科0854求调剂,专硕 +7 moser233 2026-04-10 8/400 2026-04-11 08:52 by 猪会飞
[考研] 302分求调剂 +9 凡语祈愿 2026-04-08 10/500 2026-04-10 23:26 by 314126402
[考研] 085601初试330分找调剂 +10 流心奶黄包l 2026-04-09 10/500 2026-04-10 08:14 by Sammy2
[考研] 材料工程调剂 +12 小刘同学吖吖 2026-04-06 13/650 2026-04-09 17:07 by luoyongfeng
[考研] 调剂 +12 月@163.com 2026-04-08 12/600 2026-04-09 14:27 by rl1980
[考研] 材料专硕322 +14 哈哈哈吼吼吼哈 2026-04-05 14/700 2026-04-09 13:25 by 5268321
[考研] 考研求调剂 +4 雯??? 2026-04-08 4/200 2026-04-08 21:44 by 土木硕士招生
[考研] 318求调剂 +13 ykyhsa 2026-04-05 15/750 2026-04-08 21:37 by wj165256
[考研] 270求调剂 +3 031127 2026-04-06 4/200 2026-04-08 21:00 by 逆水乘风
[考研] 264求调剂 +11 麦小叮当 2026-04-07 11/550 2026-04-08 16:05 by 一只好果子?
[考研] 325 调剂 +6 QQ小虾 2026-04-07 6/300 2026-04-07 15:17 by Ccclqqq
[考研] 307求调剂 +3 Youth@@ 2026-04-07 3/150 2026-04-07 09:25 by 小黑不怕难
[考研] 生物学学硕求调剂:351分一志愿南京师范大学生物学专业 +6 …~、王…~ 2026-04-06 7/350 2026-04-06 18:54 by macy2011
[考研] 材料调剂 +14 壹贰贰亿 2026-04-04 14/700 2026-04-05 23:31 by 来看流星雨10
[考研] 302分 085601求调剂推荐 +11 zyx上岸! 2026-04-05 11/550 2026-04-05 22:13 by dongzh2009
信息提示
请填处理意见