quanty 1.1.0

data/lib/quanty.rb

@@ -0,0 +1,7 @@
+require 'util/quanty/parse'
+require 'util/quanty/fact'
+require 'util/quanty/main'
+
+class Quanty
+  VERSION = '1.1.0'
+end

data/mkdump.rb

@@ -0,0 +1,4 @@
+require 'lib/quanty/parse.rb'
+require 'lib/quanty/fact.rb'
+
+Quanty::Fact::mkdump ARGV[0]

data/parse.y

@@ -0,0 +1,106 @@
+#
+# parse.y, quanty/parse.rb
+#
+#   Copyright (c) 2001 Masahiro Tanaka <masa@ir.isas.ac.jp>
+#
+#   This program is free software.
+#   You can distribute/modify this program under the terms of
+#   the GNU General Public License version 2 or later.
+
+class Parse
+
+  prechigh
+    nonassoc UMINUS
+    right POW UPOW
+    left '*' '/' '|'
+    left '+' '-'
+  preclow
+
+rule
+
+  target: val
+	| /* none */	{ result = Quanty::Fact.new }
+	| num 		{ result = Quanty::Fact.new(val[0]) }
+	;
+
+  num	: NUMBER
+        | '-' NUMBER = UMINUS { result = -val[1] }
+        | num '+' num   { result += val[2] }
+        | num '-' num   { result -= val[2] }
+	| num '|' num	{ result /= val[2] }
+	| num '/' num	{ result /= val[2] }
+	| num '*' num	{ result *= val[2] }
+	| num POW num	{ result **= val[2] }
+	| '(' num ')'	{ result = val[1] }
+	;
+
+  val	: seq
+ 	| num seq	{ result = val[1].fac!(val[0]) }
+	| '/' exp	{ result = val[1].pow!(-1) }
+	| num '/' exp	{ result = val[2].pow!(-1).fac!(val[0]) }
+	;
+
+  seq	: exp
+	| seq exp       { result.mul!(val[1]) }
+	| seq '*' exp	{ result.mul!(val[2]) }
+	| seq '/' exp	{ result.div!(val[2]) }
+	| seq '*' num	{ result.fac!(val[2]) }
+	| seq '/' num	{ result.fac!(val[2]**-1) }
+	;
+
+  exp	: unit
+	| unit num = UPOW { result.pow!(val[1]) }
+	| unit POW num	{ result.pow!(val[2]) }
+	;
+
+  unit	: WORD		{ result = Quanty::Fact.new(val[0]) }
+	| '(' val ')'	{ result = val[1] }
+	| '[' val ']'	{ result = val[1] }
+	;
+
+end
+
+---- header ----
+
+# parse.y, quanty/parse.rb
+#
+#   by Masahiro Tanaka <masa@ir.isas.ac.jp>
+#
+class Quanty
+
+---- inner ----
+  
+  def parse( str )
+    @q = []
+
+    while str.size > 0 do
+      #p str
+      case str
+      when /\A[\s\n]+/ou
+      when /\A\d+\.?\d*([eE][+-]?\d+)?/ou
+        @q.push [:NUMBER, $&.to_f]
+			when /\A([A-Z]\.){2}/u
+			when /\A[A-Za-z_]+ -/u
+      when /\A[A-Za-z_µ]+([A-Za-z_µ0-9-]+[A-Za-z_µ])?/ou
+        @q.push [:WORD, $&]
+      when /\A[$%'"]'?/ou
+        @q.push [:WORD, $&]
+      when /\A\^|\A\*\*/ou
+        @q.push [:POW, $&]
+      when /\A./ou
+        @q.push [$&,$&]
+      end
+        str = $'
+    end
+    @q.push [false, '$end']
+
+    do_parse
+  end
+
+  def next_token
+    @q.shift
+  end
+
+---- footer ----
+
+end # class Quanty

data/quanty-en.rd

@@ -0,0 +1,107 @@
+=begin
+= class Quanty
+
+== SYNOPSIS
+
+A class whose instances consist of "value (physical quantity)" and "unit".
+Featuring:
+* Unit conversion like ((%units%)) command.
+* Operation between quantities having different units,
+  like ((*km*)) and ((*mile*)), with automatic unit conversion.
+
+== EXAMPLE
+
+  require 'quanty'
+  Quanty(1.23,'km') + Quanty(4.56,'m')    #=> Quanty(1.23456,'km')
+  Quanty(123,'mile') / Quanty(2,'hr')     #=> Quanty(61,'mile / hr')
+  Quanty(61,'miles/hr').want('m/s')       #=> Quanty(27.26944,'m/s')
+  Quanty(1.0,'are') == Quanty(10,'m')**2  #=> true
+  Math.cos(Quanty(60,'degree'))           #=> 0.5
+
+== Quanty class
+
+=== Super Class:
+    Object (Numeric is better??)
+
+=== Class method:
+--- Quanty.new([value],[unit])
+--- Quanty([value],[unit])
+    Create Quanty class instance having ((|value|)) and ((|unit|)) (is String).
+    If ((|value|)) is omitted,  ((|value|)) = 1 is assumed.
+    If ((|unit|)) is omitted,  ((|unit|)) = "" is assumed,
+    which is regarded as a quantity with "dimensionless" unit
+    (i.e. all dimensions of unit are zero).
+    Refer to ((<Notation of unit>)) below.
+
+=== Methods:
+--- self + other
+--- self - other
+    Addition and subtraction of quantities.
+    Operation is made after
+    the unit of ((|other|)) is converted to the unit of ((|self|)).
+    Exception is raised if unit conversion is failed.
+    Return the Quanty class instance with the unit of ((|self|)).
+
+--- self * other
+    Multiplication of quantities.
+    Resulting unit is made by concatenating ((|self|)) and ((|other|)).
+--- self / other
+    Division of quantities.
+    Resulting unit is made by placing (({"/"})) 
+    between ((|self|)) and ((|other|)), and concatenating them.
+
+--- self ** number
+    Power of quantities.
+    Resulting unit is made by "(unit of self)^((|number|))"
+
+--- self == other
+--- self < other
+--- self <= other
+--- self > other
+--- self >= other
+    Comparison of quantities.
+
+--- coerce(number)
+    Convert ((|number|)) to Quanty class instance with dimensionless unit,
+    then return [((|number|)), ((|self|))].
+
+--- to_f
+    If ((|self|)) is a quantity with a dimensionless unit, return its value.
+    If ((|self|)) is a quantity with an angular unit,
+    return the value converted into radian.
+    Otherwise, raise exception.
+
+--- unit
+    Return the string of unit.
+
+--- val
+--- value
+    Return the value.
+
+--- want(unit)
+    Convert ((|self|)) to a quantity with ((|unit|)) (is String),
+    and return Quanty class instance.
+
+== Notation of unit
+
+* Multiplication
+    'N m' , 'N*m' are same.
+
+* Division
+    '/s' , 'm/s'
+
+* Power
+    'm-2' , 'm^-2' , 'm**-2' are all same.
+
+* Numerical factor
+    '12 inch' --- same as 'feet'.
+
+* Combination
+    'm/s*m' --- same as 'm^2/s'.
+    'm/(s*m)' --- same as '/s'.
+
+* See ((%parse.y%)) for more.
+
+by ((<Masahiro Tanaka|URL:http://www.ir.isas.ac.jp/~masa/index-e.html>))
+(2001-04-25)
+=end

data/quanty-ja.rd

@@ -0,0 +1,102 @@
+=begin
+= class Quanty
+
+== ����
+
+���� (ʪ����)�פȡ�ñ�̡פ�ʻ�����ĥ��饹��
+((%units%)) ���ޥ�ɤΤ褦��ñ���Ѵ���ǽ��¾��
+((*km*)) �� ((*mile*)) �ʤɡ��ۤʤ�ñ�̤�����̤α黻���ǽ��
+
+== ��
+
+  require 'quanty'
+  Quanty(1.23,'km') + Quanty(4.56,'m')    #=> Quanty(1.23456,'km')
+  Quanty(123,'mile') / Quanty(2,'hr')     #=> Quanty(61,'mile / hr')
+  Quanty(61,'miles/hr').want('m/s')       #=> Quanty(27.26944,'m/s')
+  Quanty(1.0,'are') == Quanty(10,'m')**2  #=> true
+  Math.cos(Quanty(60,'degree'))           #=> 0.5
+
+== Quanty ���饹
+
+=== �����ѡ����饹:
+    �Ȥꤢ���� Object��(Numeric�Τۤ����褤����)
+
+=== ���饹�᥽�å�:
+--- Quanty.new([value],[unit])
+--- Quanty([value],[unit])
+    �̤��ͤ�((|value|))��ñ�̤�((|unit|)) (ʸ����)�Ȥ���
+    Unit ���饹�Υ��󥹥��󥹤��������롣
+    ((|value|))����ά���줿���ϡ�1�����ꤵ�줿����Ʊ����
+    ((|unit|))����ά���줿���ϡ�""�����ꤵ�줿����Ʊ���ǡ�ñ�̤ʤ��̤ˤʤ롣
+    ñ�̤ν����ϡ�����((<ñ��ɽ��ˡ>))�򻲾ȡ�
+
+=== �᥽�å�:
+--- self + other
+--- self - other
+    �̤βû���������
+    ((|other|))��ñ�̤�((|self|))��ñ�̤��Ѵ����Ʊ黻���롣
+    ñ���Ѵ����Ǥ��ʤ�����㳰��ȯ�����롣
+    ��̤�((|self|))��ñ�̤ˤ��� Quanty ���饹�Υ��󥹥��󥹤��֤���
+
+--- self * other
+    �̤ξ軻��
+    ��̤�ñ�̤ϡ�((|self|))��((|other|))��ñ�̤�Ϣ�뤷�ƺ�롣
+--- self / other
+    �̤ν�����
+    ��̤�ñ�̤ϡ�
+    ((|self|))��((|other|))��ñ�̤�(({"/"}))��Ϥ����Ϣ�뤷�ƺ�롣
+
+--- self ** number
+    �̤��Ѿ衣
+    ��̤�ñ�̤ϡ�"(((|self|))��ñ��)^((|number|))" �Ȥ��ƺ�롣
+
+--- self == other
+--- self < other
+--- self <= other
+--- self > other
+--- self >= other
+     �̤���ӡ�
+
+--- coerce(number)
+    ((|number|))��ñ�̤ʤ�Quanty���饹�Υ��󥹥��󥹤ˤ���
+    [((|number|)),((|self|))]�Ȥ����֤���
+
+--- to_f
+    ((|self|))��ñ�̤ʤ��̤ξ��ϡ����Ȥ��ͤ��֤���
+    ((|self|))�����٤ξ��ϡ�radian���Ѵ������ͤ��֤���
+    ����ʳ���ñ�̤ξ��ϡ��㳰��ȯ�����롣
+
+--- unit
+    ñ�̤�ʸ������֤���
+
+--- val
+--- value
+    �̤��ͤ��֤���
+
+--- want(unit)
+    ((|self|))�� ((|unit|)) (ʸ����) ��ñ�̤Ȥ����̤��Ѵ����롣
+
+
+== ñ��ɽ��ˡ
+
+* ��ˡ
+    'N m' �� 'N*m' ��Ʊ����
+
+* ��ˡ
+    '/s' , 'm/s'
+
+* �٤�
+    'm-2' , 'm^-2' , 'm**-2' �Ϥ��٤�Ʊ����
+
+* ������
+    '12 inch' --- 'feet' ��Ʊ����
+
+* ����
+    'm/s*m' --- 'm^2/s' ��Ʊ����
+    'm/(s*m)' --- '/s' ��Ʊ����
+
+* �ܺ٤� ((%parse.y%)) �򻲾ȤΤ��ȡ�
+
+by ((<Masahiro Tanaka|URL:http://www.ir.isas.ac.jp/~masa/>))
+(2001-04-25)
+=end

data/test.rb

@@ -0,0 +1,14 @@
+require 'quanty'
+require 'irb/xmp'
+
+xmp 'Quanty(1,"N").fact'
+xmp 'Quanty(1,"erg").fact'
+xmp 'Quanty(1.0,"are") > Quanty(3.0,"m") ** 2'
+xmp 'Quanty(1.0,"are") + Quanty(3.0,"km") ** 2'
+xmp 'Quanty(3.0,"N") * Quanty(2.0,"10 km^2.5m")'
+xmp 'Quanty(3.0,"N") / Quanty(2.0,"km2")'
+xmp 'Quanty(3.0,"m") / Quanty(2.0,"km")'
+xmp 'Quanty(3.0,"cm") + Quanty(2.0,"inch")'
+xmp 'Quanty(1.23,"km") + Quanty(4.56,"m")'
+xmp '4.56 + Quanty(1.23,"1000") '
+xmp '3 * Quanty(4,"cm") '