[問題] mathematica求根已回收
wp = 132*10^14;
c = 3*10^8;
d = 10*10^-9;
ea = 1;
kp = wp/c;
em = 1 - 1/omega^2;
=========以上是我的相關參數設定======
omega = 1.5 (我方程式有omega 和 K 兩個變數 固定一組omega去找K)
am = kp*(K^2 - em*omega^2)^0.5;
aa = kp*(K^2 - ea*omega^2)^0.5;
x = (Exp[aa*d]*(1 + ea*am/aa/em)^2 - Exp[-aa*d]*(1 - (ea*am/aa/em))^2);
FindRoot[x == 0, {K, 1}]
============================================================
這是一組隱函數只有近似解
是否可以利用迴圈之類 取代掉我需要一組一組改變omega來尋找K這步驟
因為圖需要精確一點，總不能我把omega每組都人工代入吧...
我有研究過help的do這指令，可是寫出來以後他不會動
我的omega區間落在0～1.5，K則是0～5
ImplicitPlot這指令我也試過，可是就是沒出現圖...
matlab版問這問題真抱歉，找不到mathematica專版
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.172.40
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：