share/vector/vect_transform.mac

   1 ttyoff:true $
   2 coords: [
   3 cartesian2d: '[[x,y], x, y],
   4 cartesian3d: '[[x,y,z], x, y, z],
   5 polar: '[[r*cos(theta), r*sin(theta)], r, theta] ,
   6 polarcylindrical: '[[r*cos(theta), r*sin(theta), z], r, theta, z],
   7 spherical: '[[r*sin(theta)*cos(phi), r*sin(theta)*sin(phi),
   8    r*cos(theta)], r, theta, phi],
   9 elliptic: '[[e*cosh(u)*cos(v), e*sinh(u)*sin(v)], u, v],
  10 ellipticcylindrical: '[[e*cosh(u)*cos(v), e*sinh(u)*sin(v), z], u, v, z] ,
  11 confocalelliptic: '[[e*u*v, e*sqrt((u**2-1)*(1-v**2))], u, v],
  12 prolatespheroidalsqrt: '[[e*u*v, e*sqrt((u**2-1)*(1-v**2))*cos(phi), e*sqrt((u**2-1)*(1-v**2))*sin(phi)], phi, u, v] ,
  13 oblatespheroidalsqrt: '[[e*u*v*sin(phi), e*sqrt((u**2-1)*(1-v**2)),
  14 e*u*v*cos(phi)], phi, u, v] ,
  15 parabolic: '[[(u**2-v**2)/2, u*v], u, v],
  16 paraboliccylindrical: '[[(u**2-v**2)/2, u*v, z], u, v, z] ,
  17 paraboloidal: '[[u*v*cos(phi), u*v*sin(phi), (u**2-v**2)/2], phi, u, v] ,
  18 prolatespheroidal: '[[e*sinh(u)*sin(v)*cos(phi),
  19 e*sinh(u)*sin(v)*sin(phi), e*cosh(u)*cos(v)], phi, u, v],
  20 oblatespheroidal: '[[e*cosh(u)*cos(v)*cos(phi),
  21 e*cosh(u)*cos(v)*sin(phi), e*sinh(u)*sin(v)], phi, u, v],
  22 bipolar: '[[e*sinh(v)/(cosh(v)-cos(u)), e*sin(u)/(cosh(v)-cos(u))],
  23 u, v] ,
  24 bipolarcylindrical: '[[e*sinh(v)/(cosh(v)-cos(u)),
  25 e*sin(u)/(cosh(v)-cos(u)), z], u, v, z] ,
  26 toroidal: '[[e*sinh(v)*cos(phi)/(cosh(v)-cos(u)),
  27 e*sinh(v)*sin(phi)/(cosh(v)-cos(u)), e*sin(u)/(cosh(v)-cos(u))],
  28 phi, u, v] ,
  29 conical: '[[w*u*v/(e*f), w*sqrt((u**2-e**2)*(v**2-e**2)/(e**2-f**2))/e,
  30 w*sqrt((u**2-f**2)*(v**2-f**2)/(f**2-e**2))/f], u, v, w] ,
  31 confocalellipsoidal: '[[sqrt((e**2-w)*(e**2-u)*(e**2-v)/
  32 (e**2-f**2)/(e**2-g**2)), sqrt((f**2-w)*(f**2-u)*(f**2-v)/
  33 (f**2-e**2)/(f**2-g**2)),
  34 sqrt((g**2-w)*(g**2-u)*(g**2-v)/(g**2-e**2)/(g**2-f**2))]
  35 , u, v, w]]$
  36
  37 ttyoff: false $
  38 /* predefined coordinate transformations:
  39 cartesian2d, cartesian3d,
  40 polar, polarcylindrical,
  41 spherical, oblatespheroidal, prolatespheroidal,
  42    oblatespheroidalsqrt, prolatespheroidalsqrt,
  43 elliptic, ellipticcylindrical, confocalelliptic,
  44    confocalellipsoidal,
  45 parabolic, paraboliccylindrical, paraboloidal,
  46 bipolar, bipolarcylindrical,
  47 toroidal,
  48 conical */
  49 /*  reserved coordinate variables and parameters: */
  50 listofvars(coords);