Полярный контурный график в Maxima

Question

Как создать полярный контур в Maxima? Учитывая такое выражение, как

exp(-r) * cos(phi) 

Я хотел бы построить контуры в плоскости х-у, которые имеют такое же значение выражения во всех точках вдоль контура.

Я попытался

draw3d(cylindrical(exp(-r) * cos(phi), r, 0, 5, phi, 0, 2*%pi), contour=map)) 

но cylindrical участки г в зависимости от г и Фи, а не г как функции г и Фи. Было бы неплохо не преобразовать вручную в декартовы координаты.

Answer 1

contour_plot(exp(-r)*cos(phi), [r,0,2], [phi, 0, 2*%pi], [transform_xy, polar_to_xy], 
[gnuplot_preamble, "set cntrparam levels 10;"]); 

Опция polar_to_xy интерпретирует первые две переменные, как расстояние от оси г и азимутального угла.

Answer 2

В чем проблема, используя что-то вроде

draw3d(explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3), 
    contour_levels = 15, 
    contour  = map, 
    surface_hide = true) ; 

Я думаю, что в этом случае straigthforward сделать это.