Math-BigInt/t/biglog.t

27 is($class->new(2)->blog(),    '0', "$class->new(2)->blog()");
28 is($class->new(288)->blog(),  '5', "$class->new(288)->blog()");
29 is($class->new(2000)->blog(), '7', "$class->new(2000)->blog()");
34 is($class->new(1)->bexp(), '2',  "$class->new(1)->bexp()");
35 is($class->new(2)->bexp(), '7',  "$class->new(2)->bexp()");
36 is($class->new(3)->bexp(), '20', "$class->new(3)->bexp()");
50 is($class->new(5)->blog(undef, 71),
52    "$class->new(5)->blog(undef, 71)");
55 is($class->new(2)->blog(undef, 71),
57    "$class->new(2)->blog(undef, 71)");
59 is($class->new(11)->blog(undef, 71),
61    "$class->new(11)->blog(undef, 71)");
63 is($class->new(21)->blog(undef, 71),
65    "$class->new(21)->blog(undef, 71)");
73 is($class->new(-2)->blog(),    'NaN', "$class->new(-2)->blog()");
74 is($class->new(-1)->blog(),    'NaN', "$class->new(-1)->blog()");
75 is($class->new(-10)->blog(),   'NaN', "$class->new(-10)->blog()");
76 is($class->new(-2, 2)->blog(), 'NaN', "$class->new(-2, 2)->blog()");
78 my $ten = $class->new(10)->blog();
81 is($class->new(10)->blog(),
83    qq|$class->new(10)->blog()|);
87 is($class->new("0.1")->blog(), -$ten,
88    qq|$class->new("0.1")->blog()|);
89 is($class->new("0.01")->blog(), -$ten * 2,
90    qq|$class->new("0.01")->blog()|);
91 is($class->new("0.001")->blog(), -$ten * 3,
92    qq|$class->new("0.001")->blog()|);
93 is($class->new("0.0001")->blog(), -$ten * 4,
94    qq|$class->new("0.0001")->blog()|);
97 is($class->new(2)->blog(),
99    qq|$class->new(2)->blog()|);
100 is($class->new(4)->blog(), $class->new(2)->blog * 2,
101    qq|$class->new(4)->blog()|);
105 is($class->new("0.2")->blog(undef, 10), "-1.609437912",
106    qq|$class->new("0.2")->blog(undef, 10)|);
107 is($class->new("0.3")->blog(undef, 10), "-1.203972804",
108    qq|$class->new("0.3")->blog(undef, 10)|);
109 is($class->new("0.4")->blog(undef, 10), "-0.9162907319",
110    qq|$class->new("0.4")->blog(undef, 10)|);
111 is($class->new("0.5")->blog(undef, 10), "-0.6931471806",
112    qq|$class->new("0.5")->blog(undef, 10)|);
113 is($class->new("0.6")->blog(undef, 10), "-0.5108256238",
114    qq|$class->new("0.6")->blog(undef, 10)|);
115 is($class->new("0.7")->blog(undef, 10), "-0.3566749439",
116    qq|$class->new("0.7")->blog(undef, 10)|);
117 is($class->new("0.8")->blog(undef, 10), "-0.2231435513",
118    qq|$class->new("0.8")->blog(undef, 10)|);
119 is($class->new("0.9")->blog(undef, 10), "-0.1053605157",
120    qq|$class->new("0.9")->blog(undef, 10)|);
122 is($class->new("9")->blog(undef, 10), "2.197224577",
123    qq|$class->new("9")->blog(undef, 10)|);
125 is($class->new("10")->blog(10, 10), "1.000000000",
126    qq|$class->new("10")->blog(10, 10)|);
127 is($class->new("20")->blog(20, 10), "1.000000000",
128    qq|$class->new("20")->blog(20, 10)|);
129 is($class->new("100")->blog(100, 10), "1.000000000",
130    qq|$class->new("100")->blog(100, 10)|);
132 is($class->new("100")->blog(10, 10), "2.000000000",     # 10 ** 2 == 100
133    qq|$class->new("100")->blog(10, 10)|);
134 is($class->new("400")->blog(20, 10), "2.000000000",     # 20 ** 2 == 400
135    qq|$class->new("400")->blog(20, 10)|);
137 is($class->new("4")->blog(2, 10), "2.000000000",        # 2 ** 2 == 4
138    qq|$class->new("4")->blog(2, 10)|);
139 is($class->new("16")->blog(2, 10), "4.000000000",       # 2 ** 4 == 16
140    qq|$class->new("16")->blog(2, 10)|);
142 is($class->new("1.2")->bpow("0.3", 10), "1.056219968",
143    qq|$class->new("1.2")->bpow("0.3", 10)|);
144 is($class->new("10")->bpow("0.6", 10), "3.981071706",
145    qq|$class->new("10")->bpow("0.6", 10)|);
148 is(Math::BigFloat->blog(Math::BigInt->new(100), 10), 2, "blog(100)");
152 is($class->new(2)->bpow(32)->blog(2), "32", "2 ** 32");
153 is($class->new(3)->bpow(32)->blog(3), "32", "3 ** 32");
154 is($class->new(2)->bpow(65)->blog(2), "65", "2 ** 65");
156 my $x = Math::BigInt->new('777') ** 256;
157 my $base = Math::BigInt->new('12345678901234');
160 $x = Math::BigInt->new('777') ** 777;
161 $base = Math::BigInt->new('777');
192 is($class->new("0.1")->bpow("28.4", 40)->bsstr(),
194    qq|$class->new("0.1")->bpow("28.4", 40)->bsstr()|);
197 #is($class->new("2")->bpow("-1034.5", 40)->bsstr(),
199 #   qq|$class->new("2")->bpow("-1034.5", 40)|);
204 is($class->new(1)->bexp(), '2.718281828459045235360287471352662497757',
206 is($class->new(2)->bexp(40), $class->new(1)->bexp(45)->bpow(2, 40),
209 is($class->new("12.5")->bexp(61), $class->new(1)->bexp(65)->bpow(12.5, 61),
215 is($class->new(1)->bexp(100),
218    qq|$class->new(1)->bexp(100)|);
220 is($class->new("12.5")->bexp(91), $class->new(1)->bexp(95)->bpow(12.5, 91),
221    qq|$class->new("12.5")->bexp(91)|);
223 is($class->new("-118.5")->bexp(20)->bsstr(),
225    qq|$class->new("-118.5")->bexp(20)->bsstr()|);
227 is($class->new("-394.84010945715266885")->bexp(20)->bsstr(),
229    qq|$class->new("-118.5")->bexp(20)->bsstr()|);
237     is($class->new($x)->bpow($y, $scale), $result,
238          qq|$class->new($x)->bpow($y, |