24小时热门版块排行榜    

查看: 2421  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 284求调剂 +8 天下熯 2026-02-28 8/400 2026-03-02 00:15 by 暮雨星晴
[考研] 材料复试调剂 +3 学材料的点 2026-03-01 4/200 2026-03-02 00:07 by ccp273206157
[考研] 265分求调剂不调专业和学校有行学上就 +6 礼堂丁真258 2026-02-28 8/400 2026-03-01 22:50 by jian_
[考研] 26考研报考西工大材料308分求调剂 +3 weizhong123 2026-03-01 3/150 2026-03-01 21:42 by 公瑾逍遥
[考研] 高分子化学与物理调剂 +6 好好好1233 2026-02-28 12/600 2026-03-01 19:48 by 好好好1233
[考研] 306分材料调剂 +4 chuanzhu川烛 2026-03-01 5/250 2026-03-01 19:48 by 无际的草原
[考研] 一志愿中南大学理学化学 +4 15779376950 2026-03-01 5/250 2026-03-01 19:00 by Fff-1
[考研] 291分工科求调剂 +9 science饿饿 2026-03-01 10/500 2026-03-01 18:55 by 18137688336
[考研] 295求调剂 +7 19171856320 2026-02-28 7/350 2026-03-01 18:54 by 18137688336
[考研] 0857调剂 +3 一ll半 2026-02-28 3/150 2026-03-01 18:32 by 热情沙漠
[考研] 化工专硕348,一志愿985求调剂 +5 弗格个 2026-02-28 8/400 2026-03-01 17:25 by sunny81
[考研] 290求调剂 +9 材料专硕调剂; 2026-02-28 11/550 2026-03-01 17:21 by sunny81
[考研] 281求调剂 +4 2026计算机_诚心 2026-03-01 7/350 2026-03-01 17:20 by 2026计算机_诚心
[考研] 321求调剂一志愿东北林业大学材料与化工英二数二 +4 虫虫虫虫虫7 2026-03-01 7/350 2026-03-01 16:52 by caszguilin
[考研] 0856材料求调剂 +4 麻辣鱿鱼 2026-02-28 4/200 2026-03-01 16:51 by caszguilin
[考研] 304求调剂 +6 曼殊2266 2026-02-28 7/350 2026-03-01 15:14 by wjLi2017
[考研] 317一志愿华南理工电气工程求调剂 +6 Soliloquy_Q 2026-02-28 11/550 2026-03-01 11:14 by 歌liekkas
[硕博家园] 2025届双非化工硕士毕业,申博 +3 更多的是 2026-02-27 4/200 2026-03-01 10:04 by ztg729
[论文投稿] 求助coordination chemistry reviews 的写作模板 10+3 ljplijiapeng 2026-02-27 4/200 2026-03-01 09:07 by babero
[基金申请] 面上模板改不了页边距吧? +5 ieewxg 2026-02-25 6/300 2026-03-01 00:10 by addressing
信息提示
请填处理意见