share/physics/rtest_dimension.mac

   1 kill(all);
   2 'done$
   3
   4 (load("dimension"),'done);
   5 'done$
   6
   7 (qput(x, "length", dimension),
   8   qput(c, "length" / "time", dimension),
   9   qput(t, "time", dimension),
  10   qput(sigma,1,dimension),
  11   'done);
  12 'done$
  13
  14 dimension(4 * sqrt(3) /t);
  15 1/"time"$
  16
  17 dimension(x + c * t);
  18 "length"$
  19
  20 dimension(sin(c * t / x));
  21 1$
  22
  23 dimension(abs(x - c * t));
  24 "length"$
  25
  26 dimension(log(x) - log(c*t));
  27 1$
  28
  29 dimension([42, min(x,c*t), max(x,c*t), x^^4, x . c]);
  30 [1,"length","length","length"^4,"length"^2/"time"]$
  31
  32 errcatch(dimension(x + c));
  33 []$
  34
  35 errcatch(dimension(sin(x)));
  36 []$
  37
  38 dimension(x = c * t);
  39 "length"$
  40
  41 dimension(x * t = 0);
  42 "length"*"time"$
  43
  44 dimension('diff(x,t));
  45 "length"/"time"$
  46
  47 dimension('diff(x,t,2));
  48 "length"/"time"^2$
  49
  50 dimension('diff(x,c,2,t,1));
  51 "time"/"length"$
  52
  53 dimension('integrate (x,t));
  54 "length"*"time"$
  55
  56 (kill(x, c, t, sigma), 'done);
  57 'done$