File: plotting21.mac

package info (click to toggle)
maxima 5.47.0-9
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 193,104 kB
  • sloc: lisp: 434,678; fortran: 14,665; tcl: 10,990; sh: 4,577; makefile: 2,763; ansic: 447; java: 328; python: 262; perl: 201; xml: 60; awk: 28; sed: 15; javascript: 2
file content (7 lines) | stat: -rw-r--r-- 380 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
expr_1: 5*cos(x)*(cos(x/2)*cos(y)+sin(x/2)*sin(2*y)+3)-10$
expr_2: -5*sin(x)*(cos(x/2)*cos(y)+sin(x/2)*sin(2*y)+3)$
expr_3: 5*(-sin(x/2)*cos(y)+cos(x/2)*sin(2*y))$
plot3d ([expr_1,expr_2,expr_3], [x,-%pi,%pi], [y,-%pi,%pi], [grid,50,50],
  [pdf_file,"./plotting21.pdf"]);
plot3d ([expr_1,expr_2,expr_3], [x,-%pi,%pi], [y,-%pi,%pi], [grid,50,50],
  [png_file,"./plotting21.png"]);