Update of /cvsroot/maxima/maxima/share/physics
In directory sc8prcvs1.sourceforge.net:/tmp/cvsserv28090/physics
Modified Files:
dimen.dem
Log Message:
Changing uppercase to lowercase in some demo files. Uppercase in comments
is unchanged. All demo files were reviewed at this time but most of them
are already in lowercase.
Index: dimen.dem
===================================================================
RCS file: /cvsroot/maxima/maxima/share/physics/dimen.dem,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff u d r1.1.1.1 r1.2
 dimen.dem 8 May 2000 06:09:43 0000 1.1.1.1
+++ dimen.dem 26 Jan 2005 02:09:44 0000 1.2
@@ 5,13 +5,13 @@
roomtemperature resistance, convective heat transfer coefficient, and
a constant, BETA, having the dimension of temperature. First, to see
if the dimension of BETA is already known: */
GET(BETA, 'DIMENSION);
+get(beta, 'dimension);
/* It is not. To establish it: */
DIMENSION(BETA=TEMPERATURE);
+dimension(beta=temperature);
/* To automatically determine a set of dimensionless variables
sufficient to characterize the physical relation: */
NONDIMENSIONALIZE([VOLTAGE, CURRENT, TEMPERATURE, RESISTANCE,
 HEATTRANSFERCOEFFICIENT, BETA]);
+nondimensionalize([voltage, current, temperature, resistance,
+ heattransfercoefficient, beta]);
/* We learn that the relation may be expressed as a function of
only the above 3 variables rather than a function of the six physical
quantities. Evidently dimensions were preestablished for all but the
@@ 25,12 +25,12 @@
coefficient of a gas. The repulsive force between two molecules is
believed to be of the form K/DISTANCE^N, with unknown N, so K must
have the following dimensions: */
DIMENSION(K=MASS*LENGTH^(N+1)/TIME^2) $
+dimension(k=mass*length^(n+1)/time^2) $
/* To get the computation time in milliseconds to be printed
automatically: */
CPUTIME: TRUE $
+cputime: true $
/* To do a dimensional analysis of the gas viscosity problem: */
NONDIMENSIONALIZE([VISCOSITY, K, MASS, VELOCITY]);
+nondimensionalize([viscosity, k, mass, velocity]);
/* The physical relation must be expressible as a function of
this one dimensionless variable, or equivalently, this variable must
equal a constant. Consequently, physical measurements may be used
@@ 41,18 +41,18 @@
deflection angle of a light ray, the mass of a point mass, the speed
of light, and the distance from the mass to the point of closest
approach: */
NONDIMENSIONALIZE([ANGLE, MASS, LENGTH, SPEEDOFLIGHT]);
+nondimensionalize([angle, mass, length, speedoflight]);
/* We learn that there cannot be a dimensionless relation
connecting all of these quantities and no others. Let us also try
including the constant that enters the inversesquare law of
gravitation: */
NONDIMENSIONALIZE([ANGLE, MASS, LENGTH, SPEEDOFLIGHT,
 GRAVITYCONSTANT]);
+nondimensionalize([angle, mass, length, speedoflight,
+ gravityconstant]);
/* Altermatively, for astrophysics problems such as this,we may
prefer to use a dimensional basis in which the gravity constant is
taken as a pure number, eliminating one member from our dimensional
basis: */
%PURE: CONS(GRAVITYCONSTANT, %PURE);
+%pure: cons(gravityconstant, %pure);
/* Note that the latter two of the above constants are pure
numbers by default, respectively eliminating TEMPERATURE and CHARGE
from the basis, but the user may include all five of TEMPERATURE,
@@ 65,4 +65,4 @@
eliminates MASS.
To proceed with our analysis: */
NONDIMENSIONALIZE([ANGLE, MASS, LENGTH, SPEEDOFLIGHT]);
+nondimensionalize([angle, mass, length, speedoflight]);
