전계 다이폴을 그릴 수 없습니다

Question

Maxima를 사용하여 전계 다이폴을 시뮬레이션하려고합니다. 코드는 다음과 같습니다.

P : 1$ 
eps0 : 8.854$ 
Ex : 3*P*y*x/(4*π*eps0*(x^2 + y^2)^2.5)$ 
Ey : P*(3*y^2/(x^2 + y^2) + 1)/(x^2 + y^2)^1.5/(4*π*eps0)$ 
ew : sqrt(Ex^2 + Ey^2)$ 

contour_plot (ew,[x, -4, 4], [y, -4,4]); 

그러나 직선 만 표시됩니다.
Wolfram Mathematica의 비슷한 코드가 정상적으로 작동하기 때문에 잘못된 것일 수 있습니다.

Answer 1

contour_plot은 Mathematica에서 해당 기능만큼 똑똑하지 않습니다. 당신은 조금 도와 줄 수 있습니다.

P : 1$ 
eps0 : 8.854$ 
Ex : 3*P*y*x/(4*%pi*eps0*(x^2 + y^2)^2.5)$ 
Ey : P*(3*y^2/(x^2 + y^2) + 1)/(x^2 + y^2)^1.5/(4*%pi*eps0)$ 
ew : sqrt(Ex^2 + Ey^2)$ 

BIG: subst([x=1/4, y=1/4], ew)$ 
cap_log(e, c):= if e > c then log(c) else log(e)$ 

set_plot_option ([gnuplot_preamble, "set cntrparam levels 8"])$ 
contour_plot ('cap_log(ew, BIG), [x, -4, 4], [y, -4, 4])$ 

Answer 2

또한 plotdf를 사용할 수도 있습니다. 플롯에서 몇 가지 포인트에

(%i1) [P,eps0] : [1,8.854]$ 
(%i2) Ex : 3*P*y*x/(4*%pi*eps0*(x^2 + y^2)^2.5)$ 
(%i3) Ey : P*(3*y^2/(x^2 + y^2) + 1)/(x^2 + y^2)^1.5/(4*%pi*eps0)$ 
(%i4) plotdf([Ex,Ey],[vectors,"blank"]); 

을 클릭 한 다음 플롯 설정 메뉴 (렌치 및 스크류 드라이버 아이콘), fieldlines의 색상 "빨간색"삭제를 입력하고 예를 들어, 색상을 선택 "블루 "곡선에. 확인을 클릭하여 플롯으로 돌아간 다음 플롯에서 다시 클릭하여 몇 가지 등전위 곡선을 추적합니다.