2008-03-28 14:56:47 -06:00
|
|
|
// Copyright 2009 The Go Authors. All rights reserved.
|
|
|
|
// Use of this source code is governed by a BSD-style
|
|
|
|
// license that can be found in the LICENSE file.
|
|
|
|
|
2008-06-27 18:06:23 -06:00
|
|
|
package math
|
2008-03-28 14:56:47 -06:00
|
|
|
|
2008-07-12 16:56:06 -06:00
|
|
|
import math "math"
|
2008-03-28 14:56:47 -06:00
|
|
|
|
|
|
|
/*
|
|
|
|
arg1 ^ arg2 (exponentiation)
|
|
|
|
*/
|
|
|
|
|
2008-08-04 18:17:59 -06:00
|
|
|
export func
|
2008-07-08 21:48:41 -06:00
|
|
|
pow(arg1,arg2 float64) float64
|
2008-03-28 14:56:47 -06:00
|
|
|
{
|
2008-07-08 21:48:41 -06:00
|
|
|
var temp float64;
|
2008-03-28 14:56:47 -06:00
|
|
|
var l long;
|
|
|
|
|
|
|
|
if arg2 < 0 {
|
|
|
|
return 1/pow(arg1, -arg2);
|
|
|
|
}
|
|
|
|
if arg1 <= 0 {
|
|
|
|
if(arg1 == 0) {
|
|
|
|
if arg2 <= 0 {
|
2008-07-07 15:07:46 -06:00
|
|
|
return sys.NaN();
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2008-06-27 18:06:23 -06:00
|
|
|
temp = floor(arg2);
|
2008-03-28 14:56:47 -06:00
|
|
|
if temp != arg2 {
|
2008-09-01 15:37:32 -06:00
|
|
|
panic(sys.NaN());
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
l = long(temp);
|
|
|
|
if l&1 != 0 {
|
|
|
|
return -pow(-arg1, arg2);
|
|
|
|
}
|
|
|
|
return pow(-arg1, arg2);
|
|
|
|
}
|
|
|
|
|
2008-06-27 18:06:23 -06:00
|
|
|
temp = floor(arg2);
|
2008-03-28 14:56:47 -06:00
|
|
|
if temp != arg2 {
|
|
|
|
if arg2-temp == .5 {
|
|
|
|
if temp == 0 {
|
2008-06-27 18:06:23 -06:00
|
|
|
return sqrt(arg1);
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
2008-06-27 18:06:23 -06:00
|
|
|
return pow(arg1, temp) * sqrt(arg1);
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
2008-06-27 18:06:23 -06:00
|
|
|
return exp(arg2 * log(arg1));
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
l = long(temp);
|
|
|
|
temp = 1;
|
|
|
|
for {
|
|
|
|
if l&1 != 0 {
|
|
|
|
temp = temp*arg1;
|
|
|
|
}
|
2008-07-08 21:48:41 -06:00
|
|
|
l >>= 1;
|
2008-03-28 14:56:47 -06:00
|
|
|
if l == 0 {
|
|
|
|
return temp;
|
|
|
|
}
|
2008-07-08 21:48:41 -06:00
|
|
|
arg1 *= arg1;
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
}
|