应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 使用FindRoot解得x i之後，如何調用x i做別的運算？
31/1返回列表
查看: 428  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

SAYRG

金虫 (小有名气)

[求助] 使用FindRoot解得x i之後，如何調用x i做別的運算？

????????Mathematica????FindRoot??? x i (x1(i))???????{?? x i (x1(i))?M?????????m???\??
?????????????N??x i (x1(i))?c??????????г??????īI?????????????????????
???σ?????}????????????
Input?cOutput??????????·??????o????醡?
Mathematica?????|??????????????????P???

???m??????\???????
CODE:
P1(i)=P(i)*y1/x1(i)
P2(i)=P(i)*y2/x2(i)
N1(i)=a1*b1*P1(i)^c1/(1+b1*P1(i)^c1)+q1*k1*P1(i)^t1/(1+k1*P1(i)^t1)
N2(i)=a2*b2*P2(i)^c2/(1+b2*P2(i)^c2)+q2*k2*P2(i)^t2/(1+k2*P2(i)^t2)
N1(i)=N1(i)*N2(i)/(N2(i)+N1(i)*(1.0/x1(i)-1.0))
N2(i)=N1(i)*(1.0/x1(i)-1.0)
S(i)=P2(i)/P1(i)

?????o???????????????????????????????????N???F??
CODE:
    P(kPa)    S           N1        N2         x1        y1        x2        y2
     5.000    27.825     0.225     0.008     0.965     0.500     0.035     0.500
    10.000    31.437     0.498     0.016     0.969     0.500     0.031     0.500
    15.000    33.984     0.790     0.023     0.971     0.500     0.029     0.500
    20.000    36.056     1.093     0.030     0.973     0.500     0.027     0.500
    25.000    37.855     1.403     0.037     0.974     0.500     0.026     0.500
    50.000    45.016     2.981     0.066     0.978     0.500     0.022     0.500
    75.000    50.876     4.527     0.089     0.981     0.500     0.019     0.500
   100.000    56.171     5.994     0.107     0.983     0.500     0.017     0.500
   125.000    61.116     7.367     0.121     0.984     0.500     0.016     0.500
   250.000    82.906    12.878     0.155     0.988     0.500     0.012     0.500
   375.000   101.913    16.658     0.163     0.990     0.500     0.010     0.500
   500.000   119.429    19.339     0.162     0.992     0.500     0.008     0.500
   625.000   136.015    21.316     0.157     0.993     0.500     0.007     0.500
   750.000   152.054    22.823     0.150     0.993     0.500     0.007     0.500
   875.000   167.663    24.006     0.143     0.994     0.500     0.006     0.500
  1000.000   182.993    24.957     0.136     0.995     0.500     0.005     0.500
  1125.000   198.084    25.736     0.130     0.995     0.500     0.005     0.500
  1500.000   242.459    27.408     0.113     0.996     0.500     0.004     0.500
  1625.000   257.079    27.816     0.108     0.996     0.500     0.004     0.500
  1750.000   271.428    28.173     0.104     0.996     0.500     0.004     0.500
  1999.000   300.055    28.766     0.096     0.997     0.500     0.003     0.500

Input?????
CODE:
lhs=Integrate[((a1*b1*(y1*p/x)^c1)/(1+b1*(y1*p/x)^c1)+(q1*k1*(y1*p/x)^t1)/(1+k1*(y1*p/x)^t1))/p, p]
rhs=Integrate[((a2*b2*(y2*p/(1-x))^c2)/(1+b2*(y2*p/(1-x))^c2)+(q2*k2*(y2*p/(1-x))^t2)/(1+k2*(y2*p/(1 - x))^t2))/p, p]
parameters={a1->32.129608, b1->2.320748*10^-3, c1->1/0.852663, q1->4.372886, k1->1.054925*10^-3, t1->1/1.433036, a2->12.763072, b2->9.155722*10^-5, c2->1/1.034267, q2->4.341261, k2->4.302906*10^-4, t2->1/1.004052, y1->0.5, y2->0.5}
newlhs = lhs /. parameters
newrhs = rhs /. parameters
Grid[Table[FindRoot[newlhs == newrhs, {x, 0.999999999}], {p, 1, 2000, 100}]]

Output?t??D???


[ Last edited by SAYRG on 2012-11-28 at 19:02 ]
回复此楼

» 猜你喜欢
1楼 2012-11-28 18:55:42
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
回帖置顶 ( 共有1个 )

SAYRG

金虫 (小有名气)

【答案】应助回帖

送鲜花一朵
xzhdty: 金币+5, 谢谢参与 2013-01-04 17:05:35
xzhdty: 金币+5, 程序强帖-1, 给错了 2013-01-04 17:07:37
xzhdty: 金币-10, 程序强帖+1, 又发错了 2013-01-04 17:09:47
引用回帖:
2楼: Originally posted by walk1997 at 2012-11-30 09:17:12
你这里的P，x2,y1,y2得自己输入吧，怎么产生的，下面例子 随便产生一个P,x2, 输出可以自己美化下

Clear;
lhs = Integrate;
rhs = Integrate;
parameters = {a1 -> 32.129608, b1 -> 2.320748*10^-3, c1 ...

一目了然，簡??清晰！感謝指導！

帖中一樓中所說的小寫和大寫pp指的是壓力，單位是kPa。
以下面的程序碼為例，壓力範圍就是紅色那塊(1 kPa ~ 2001 kPa, 每一100 kPa取點計算一次。)。

寫這個程序的目的主要是要求得不同壓力時的x，也就是x1。
而x1+x2=1, y1+y2=1。所以只要求得x，那x2 = 1-x 了。

只有壓力P, y1, y2 以及其他參數(如a1, b1, c1......等)需要事先輸入。

x = x /. Table[
   FindRoot[newlhs == newrhs, {x, 0.999999999}], {p, 1, 2000, 100}]
赞一下 回复此楼
3楼2012-11-30 15:01:35
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

walk1997

金虫 (著名写手)
★ ★ ★ ★ ★ ★
jjdg: 金币+1, 感谢参与 2012-11-30 13:17:31
jjdg: 编辑内容 2012-11-30 13:17
xzhdty: 金币+5, 楼主给你的 2013-01-04 17:07:55
你这里的P，x2,y1,y2得自己输入吧，怎么产生的，下面例子 随便产生一个P,x2, 输出可以自己美化下
CODE:
Clear["Global`*"];
lhs = Integrate[((a1*b1*(y1*p/x)^c1)/(1 + b1*(y1*p/x)^c1) + (q1*
         k1*(y1*p/x)^t1)/(1 + k1*(y1*p/x)^t1))/p, p];
rhs = Integrate[((a2*b2*(y2*p/(1 - x))^c2)/(1 +
         b2*(y2*p/(1 - x))^c2) + (q2*k2*(y2*p/(1 - x))^t2)/(1 +
         k2*(y2*p/(1 - x))^t2))/p, p];
parameters = {a1 -> 32.129608, b1 -> 2.320748*10^-3, c1 -> 1/0.852663,
    q1 -> 4.372886, k1 -> 1.054925*10^-3, t1 -> 1/1.433036,
   a2 -> 12.763072, b2 -> 9.155722*10^-5, c2 -> 1/1.034267,
   q2 -> 4.341261, k2 -> 4.302906*10^-4, t2 -> 1/1.004052, y1 -> 0.5,
   y2 -> 0.5};
newlhs = lhs /. parameters;
newrhs = rhs /. parameters;
x = x /. Table[
   FindRoot[newlhs == newrhs, {x, 0.999999999}], {p, 1, 2000, 100}]
P = Table[5 i, {i, 1, Length[x]}] // N;
x2 = Table[1, {i, 1, Length[x]}] // N;
y1 = Table[1/2, {i, 1, Length[x]}] // N;
y2 = y1;
x1 = x;
P1 = P*y1/x1;
P2 = P*y2/x2;
N1 = a1*b1*P1^c1/(1 + b1*P1^c1) + q1*k1*P1^t1/(1 + k1*P1^t1) /.
   parameters;
N2 = a2*b2*P2^c2/(1 + b2*P2^c2) + q2*k2*P2^t2/(1 + k2*P2^t2) /.
   parameters;
N1 = N1*N2/(N2 + N1*(1.0/x1 - 1.0));
N2 = N1*(1.0/x1 - 1.0);
S = P2/P1 // N;
Grid[Transpose[{P, S, N1, N2, x1, y1, x2, y2}]]

[ Last edited by jjdg on 2012-11-30 at 13:17 ]
赞一下(1人) 回复此楼

» 本帖已获得的红花（最新10朵）

SAYRG
2楼2012-11-30 09:17:12
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 SAYRG 的主题更新
31/1返回列表
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 函评 +3 布布和一二 2026-06-13 3/150 2026-06-13 23:35 by 芋圆香飘飘
[硕博家园] O(∩_∩)O +5 jk31rb6vyz 2026-06-12 7/350 2026-06-13 18:45 by lkmi35jdzt
[公派出国] π_π +4 m584r2z4j3 2026-06-11 4/200 2026-06-13 18:33 by lkmi35jdzt
[考研] T^T +6 m584r2z4j3 2026-06-11 6/300 2026-06-13 18:29 by lkmi35jdzt
[文学芳草园] 咸菜 +3 myrtle 2026-06-10 3/150 2026-06-13 18:29 by ahsoarli
[考博] π_π +4 m584r2z4j3 2026-06-11 4/200 2026-06-13 18:25 by lkmi35jdzt
[考博] T^T +3 q1zg6x4lf3 2026-06-12 3/150 2026-06-13 14:45 by 80j16ujcu8
[考研] ╭(╯ε╰)╮ +4 m584r2z4j3 2026-06-11 4/200 2026-06-13 14:22 by 80j16ujcu8
[考博] T^T +4 jk31rb6vyz 2026-06-12 4/200 2026-06-13 12:09 by 80j16ujcu8
[考博] T^T +3 m584r2z4j3 2026-06-11 3/150 2026-06-13 12:04 by 80j16ujcu8
[找工作] 售SCI文章，我:8.O.5.51O.5.4,科目齐全,可十急 +4 q1zg6x4lf3 2026-06-12 4/200 2026-06-13 08:53 by t4hz8376wy
[考博] →_→ +3 q1zg6x4lf3 2026-06-12 3/150 2026-06-13 08:49 by t4hz8376wy
[找工作] *囍 +3 m584r2z4j3 2026-06-12 3/150 2026-06-13 08:29 by t4hz8376wy
[论文投稿] →_→ +5 m584r2z4j3 2026-06-11 5/250 2026-06-13 08:13 by t4hz8376wy
[基金申请] 面上项目没有好文章就没希望了吗？ +19 1234567wang 2026-06-07 21/1050 2026-06-12 21:24 by littlezl
[考博] [急招]吉林大学招收26年9月入学考核制博士生1名，截止今晚24点前 +3 hehejin 2026-06-10 4/200 2026-06-12 18:24 by 冻雨天
[教师之家] 重庆理工大学副校长遇刺身亡 传涉案副教授疑因积怨行凶 +6 yexuqing 2026-06-07 7/350 2026-06-12 16:46 by wwwkkk83
[基金申请] 前几天时间戳更新了 +8 vito刘 2026-06-11 13/650 2026-06-12 14:17 by BlakeReary
[教师之家] AASSDDFF +3 m584r2z4j3 2026-06-11 3/150 2026-06-12 11:28 by zs48m4lz8g
[考博] 还有课题组有博士名额吗 +5 冻雨天 2026-06-07 6/300 2026-06-08 20:59 by RCS_tyro
信息提示
关闭
请填处理意见
关闭