Mathematica繪製電偶極子的等位線和電場線

目錄**非本人編寫

思路是對(推導出的近似的)解析解直接繪圖

clear["global`*"]

v = q/(4 pi*subscript[\[epsilon], 0])*(1/r1 - 1/r2)
cond = 
v = v /. cond // simplify
series[v, ] // normal
v1 = (l q cos[\[theta]])/(4 pi r^2 subscript[\[epsilon], 0]) /. 
q -> p/l
solve[v1 == c, r]
ee = grad[-v1, , "spherical"]
d[r[\[theta]], \[theta]]/r[\[theta]] == ee[[1]]/ee[[2]]
dsolve[%, r[\[theta]], \[theta]]

(*繪製電偶極子的等位面*)

(*繪製電偶極子的電場線*)

《mathematica在電磁場理論中的應用》
 
Mathematica繪製動態蔓葉線
那肯定是好玩啊 a table show plotstyle axesorigin 0.2 graphics 0.25 text style m black,italic,fontfamily times 22 graphics 0.2 text style o black,italic,fontf...
太極圓圈的Mathematica生成
太極圖的mathematica 來自於 plot版 plot axes false,plotstyle black,filling black 2 3 4 5 white 7 black aspectratio automatic graphics版 graphics 1,disk 1 2 1 2 ...
Mathematica的學習打卡day 3
今天的學習內容主要為列表，製圖的應用 學習內容來自嗶哩嗶哩 手工輸入元素 當列表的內容不多，手工輸入元素形式簡明，便於觀察和記憶 如果內容為單純的文字或本質的含義即為不使其參與運算，則在其後加上分號 若不能參與運算的元素令其輸出，則會輸出和原式相同的字元 range函式 range a,b,d 以a...