24小时热门版块排行榜

>论坛更新日志 (3258)
>导师招生 (291)
>招聘信息布告栏 (129)
>论文道贺祈福 (109)
>休闲灌水 (106)
>硕博家园 (66)
>考研 (40)
>找工作 (38)
>生物科学 (29)
>博后之家 (23)
>文献求助 (23)
>虫友互识 (19)
>医学 (18)
>考博 (17)
>基金申请 (16)
>公派出国 (14)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

晓龙追梦

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 518.1
帖子: 156
在线: 5.9小时
虫号: 981316
注册: 2010-03-24
专业: 机械动力学

[求助] 方程组求解

S=solve('1/(w2*w1)^2-A=0','2/w2^2*k1/w1+2*k2/w2/w1^2-B=0','1/w2^2+4*k2/w2*k1/w1+1/w1^2-C=0','2*k2/w2+2*k1/w1-D=0','k1','k2','w1','w2')
disp('S.k1'),disp(S.k1),disp('S.k2'),disp(S.k2),disp('S.w1'),disp(S.w1),disp('S.w2'),disp(S.w2)
计算结果说没有解析解怎么办呢？我的本意是通过ABCD表示四个未知数k1k2w1w2

回复此楼

» 猜你喜欢

1楼 2012-02-29 10:54:36

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

dk1013

木虫 (正式写手)

应助: 61 (初中生)
金币: 4285.5
散金: 246
红花: 13
帖子: 988
在线: 3204.6小时
虫号: 980198
注册: 2010-03-23
性别: GG
专业: 凝聚态物性 II ：电子结构

【答案】应助回帖

★ ★
xiegangmai(金币+2): 谢谢应助！ 2012-03-02 22:07:43

Mathematica 应该有解的
Solve[{1/(w2*w1)^2 - A == 0, 2/w2^2*k1/w1 + 2*k2/w2/w1^2 - B == 0,
1/w2^2 + 4*k2/w2*k1/w1 + 1/w1^2 - C == 0,
2*k2/w2 + 2*k1/w1 - D == 0}, {k1, k2, w1, w2}]
只不过这个解太长了，就不在这里贴了
希望帮到你