1 # menu for DCT, by Shiar
3 # 1.09.1 2004-10-02 22:55 - moved from 1.9 main
4 # 1.09.2 2004-10-11 20:50 - functions don't handle stack themselves,
5 # but behave like real functions
12 '+' => [2, sub { $_[1] + $_[0] }], # addition
13 '-' => [2, sub { $_[1] - $_[0] }], # substraction
14 '*' => [2, sub { $_[1] * $_[0] }], # multiplication
15 '/' => [2, sub { $_[1] / $_[0] }], # division
16 'mod' => [2, sub { $_[1] % $_[0] }], # modulo
18 'inv' => [1, sub { 1 / $_[0] }], # 1/x
19 'sqrt' => [1, sub { sqrt $_[0] }], # square root
20 'sq' => [1, sub { $_[0] * $_[0] }], # squared
21 '^' => [2, sub { $_[1] ** $_[0] }], # exponentiation
22 'xroot'=> [2, sub { $_[1] ** (1/$_[0]) }], # x-root of y
24 'log' => [1, sub { log($_[0]) / log(10) }], # logarithm
25 'alog' => [1, sub { 10 ** $_[0] }], # 10^x
26 'ln' => [1, sub { log $_[0] }], # natural logaritm
27 'lnp1' => [1, sub { log($_[0] + 1) }], # ln(x+1)
28 'exp' => [1, sub { exp $_[0] }], # e^x
29 'expm' => [1, sub { exp($_[0]) - 1 }], # exp(x)-1
31 'sin' => [1, sub { sin $_[0] }], # sine
32 'asin' => [1, sub { atan2($_[0], sqrt(1 - $_[0]*$_[0])) }], # inverse sine
33 'cos' => [1, sub { cos $_[0] }], # cosine
34 'acos' => [1, sub { atan2(sqrt(1 - $_[0]*$_[0]), $_[0]) }], # inverse cosine
35 'tan' => [1, sub { sin($_[0]) / cos($_[0]) }], # tangent
36 # 'atan' => [1, sub { }], # arctangent
38 'sinh' => [1, sub { (exp($_[0]) - exp(-$_[0])) / 2 }], # hyperbolic sine
39 'cosh' => [1, sub { (exp($_[0]) + exp(-$_[0])) / 2 }], # hyperbolic cosine
40 'tanh' => [1, sub { (exp($_[0]) - exp(-$_[0])) / (exp($_[0]) + exp(-$_[0])) }], # hyperbolic tangent (sinh/cosh)
41 'asinh'=> [1, sub { log(sqrt($_[0]**2+1) + $_[0]) }], # inverse hyperbolic sine
42 'acosh'=> [1, sub { log(sqrt($_[0]**2-1) + $_[0]) }], # inverse hyperbolic cosine
43 'atanh'=> [1, sub { log((1+$_[0]) / (1-$_[0])) / 2 }], # inverse hyperbolic tangent
45 '%' => [2, sub { $_[0] / $_[1] }], # percentage
46 # '%ch' => [2, sub { $val{i} = 100*(shift(@_)-$val{i})/$val{i} }], # percentage change
47 # '%t' => [2, sub { $val{i} = 100*$val{i}/shift(@_) }], # percentage total
49 'and' => [2, sub { $_[1] & $_[0] }], # bitwise and
50 'or' => [2, sub { $_[1] | $_[0] }], # bitwise or
51 'xor' => [2, sub { $_[1] ^ $_[0] }], # bitwise xor
52 'not' => [2, sub { ~$_[0] }], # bitwise not
53 'sl' => [1, sub { $_[0] * 2 }], # shift left
54 'sr' => [1, sub { $_[0] / 2 }], # shift right
56 'abs' => [1, sub { abs $_[0] }], # absolute #todo
57 'sign' => [1, sub { $_[0] <=> 0 }], # sign
58 'ip' => [1, sub { int $_[0] }], # integer part
59 'fp' => [1, sub { $_[0] - int $_[0] }], # fractional part
61 # 'rnd' => [1, sub { local $_ = 10**$_[0]; $val{i} = int(($val{i}+.5)*$_)/$_ }], # round
62 # 'trnc' => [1, sub { local $_ = 10**$_[0]; $val{i} = int($val{i}*$_)/$_ }], # truncate
63 'floor'=> [1, sub { int $_[0] }], # floor
64 'ceil' => [1, sub { int $_[0]+.9999 }], # ceil
66 'min' => [2, sub { $_[1]<$_[0] ? $_[1] : $_[0] }], # minimum
67 'max' => [2, sub { $_[1]>$_[0] ? $_[1] : $_[0] }], # maximum
69 'dec' => [-1, sub { $::set{base} = 10; () }], # decimal
70 'bin' => [-1, sub { $::set{base} = 2; () }], # binary
71 'oct' => [-1, sub { $::set{base} = 8; () }], # octal
72 'hex' => [-1, sub { $::set{base} = 16; () }], # hexadecimal
73 'base' => [1, sub { $::set{base} = $_[0]; () }], # alphanumerical
75 '!' => [1, sub { my $res = $_[0]; $res *= $_ for 2..$res-1; $res }], # factor
76 'rand' => [0, sub { rand }], # random value <1
79 #while (my ($cmd, $val) = each %newaction) {
80 # $action{$cmd} = $val;
83 $action{$_} = $newaction{$_} for keys %newaction;