archive/books/schelter/plot.bk

   1 \x06\x01\x19\x16\x05
   2 ((face (xplot-eval 412 749) (maxima-eval 24 47 49 83 124 185 188 344)) (book-command-arg))\f
   3
   4
   5
   6 maxima based plot
   7
   8 plot2d(sin(x),[x,-4,3])
   9
  10 plot2d(tan(x),[x,-2,3],[y,-20,20])
  11
  12 maxima based 3d plots using geomview:
  13
  14  plot3d(2^(x^2-y^2),[x,-1,1],[y,-2,2],[plot_format,geomview])
  15
  16  plot3d(r^.33*cos(th/3),[r,0,1],[th,0,6*%pi],['grid,12,80],['plot_format,geomview],
  17   ['transform_xy,polar_to_xy],['view_direction,1,1,1.4],['colour_z,true])
  18
  19
  20 Using xplot on color terminal  [see xplot.bk for many examples]
  21
  22 set title " A Torus Knot"
  23
  24 rusX(x) = cos(3*x) * (10.0 + 6.0 * cos(2*x))
  25 rusY(x) = sin(3*x) * (10.0 + 6.0 * cos(2*x))
  26 rusZ(x) = -6.0*sin(2*x)
  27
  28 a = tube{[rusX(x),rusY(x),rusZ(x)]
  29       [x= -pi:pi][samp=200:20][radius=1.4 + 0.1*sin(16*x)]};
  30
  31 a = tube{[rusX(x),rusY(x),rusZ(x)]
  32       [x= -pi:pi][samp=200:20][radius=1.4][sample=100:16]};
  33
  34
  35
  36
  37
  38