mirror/v
1
0
Fork 0
mirror of https://github.com/vlang/v.git synced 2023-08-10 21:13:21 +03:00
Code Issues Projects Releases Wiki Activity

complex, fraction: simplify and format source code

Browse Source
This commit is contained in:
hazohelet 2019-07-10 20:51:48 +09:00 committed by Alexander Medvednikov
parent 9907f07602
commit 00ea112b66
2 changed files with 48 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
vlib/math/complex.v
View File

@ -26,10 +26,15 @@ pub fn (c Complex) str() string {
return out return out
} }
// Complex Absolute value // Complex Modulus value
// mod() and abs() return the same
pub fn (c Complex) abs() f64 { pub fn (c Complex) abs() f64 {
return C.hypot(c.re, c.im) return C.hypot(c.re, c.im)
} }
pub fn (c Complex) mod() f64 {
return c.abs()
}
// Complex Angle // Complex Angle
pub fn (c Complex) angle() f64 { pub fn (c Complex) angle() f64 {
@ -93,40 +98,33 @@ pub fn (c1 Complex) divide(c2 Complex) Complex {
} }
// Complex Conjugate // Complex Conjugate
pub fn (c1 Complex) conjugate() Complex{ pub fn (c Complex) conjugate() Complex{
return Complex{c1.re,-c1.im} return Complex{c.re, -c.im}
} }
// Complex Additive Inverse // Complex Additive Inverse
// Based on // Based on
// http://tutorial.math.lamar.edu/Extras/ComplexPrimer/Arithmetic.aspx // http://tutorial.math.lamar.edu/Extras/ComplexPrimer/Arithmetic.aspx
pub fn (c1 Complex) addinv() Complex { pub fn (c Complex) addinv() Complex {
return Complex{-c1.re,-c1.im} return Complex{-c.re, -c.im}
} }
// Complex Multiplicative Inverse // Complex Multiplicative Inverse
// Based on // Based on
// http://tutorial.math.lamar.edu/Extras/ComplexPrimer/Arithmetic.aspx // http://tutorial.math.lamar.edu/Extras/ComplexPrimer/Arithmetic.aspx
pub fn (c1 Complex) mulinv() Complex { pub fn (c Complex) mulinv() Complex {
return Complex { return Complex {
c1.re / (pow(c1.re,2) + pow(c1.im,2)), c.re / (c.re * c.re + c.im * c.im),
-c1.im / (pow(c1.re,2) + pow(c1.im,2)) -c.im / (c.re * c.re + c.im * c.im)
} }
} }
// Complex Mod or Absolute
// Based on
// http://tutorial.math.lamar.edu/Extras/ComplexPrimer/ConjugateModulus.aspx
pub fn (c1 Complex) mod() f64 {
return sqrt(pow(c1.re,2)+pow(c1.im,2))
}
// Complex Power // Complex Power
// Based on // Based on
// https://www.khanacademy.org/math/precalculus/imaginary-and-complex-numbers/multiplying-and-dividing-complex-numbers-in-polar-form/a/complex-number-polar-form-review // https://www.khanacademy.org/math/precalculus/imaginary-and-complex-numbers/multiplying-and-dividing-complex-numbers-in-polar-form/a/complex-number-polar-form-review
pub fn (c1 Complex) pow(n f64) Complex { pub fn (c Complex) pow(n f64) Complex {
r := pow(c1.mod(),n) r := pow(c.abs(), n)
angle := atan2(c1.im,c1.re) angle := c.angle()
return Complex { return Complex {
r * cos(n * angle), r * cos(n * angle),
r * sin(n * angle) r * sin(n * angle)
@ -134,29 +132,29 @@ pub fn (c1 Complex) pow(n f64) Complex {
} }
// Complex nth root // Complex nth root
pub fn (c1 Complex) root(n f64) Complex { pub fn (c Complex) root(n f64) Complex {
return c1.pow(1.0/n) return c.pow(1.0 / n)
} }
// Complex Exponential // Complex Exponential
// Using Euler's Identity // Using Euler's Identity
// Based on // Based on
// https://www.math.wisc.edu/~angenent/Free-Lecture-Notes/freecomplexnumbers.pdf // https://www.math.wisc.edu/~angenent/Free-Lecture-Notes/freecomplexnumbers.pdf
pub fn (c1 Complex) exp() Complex { pub fn (c Complex) exp() Complex {
a := exp(c1.re) a := exp(c.re)
return Complex { return Complex {
a * cos(c1.im), a * cos(c.im),
a * sin(c1.im) a * sin(c.im)
} }
} }
// Complex Natural Logarithm // Complex Natural Logarithm
// Based on // Based on
// http://www.chemistrylearning.com/logarithm-of-complex-number/ // http://www.chemistrylearning.com/logarithm-of-complex-number/
pub fn (c1 Complex) ln() Complex { pub fn (c Complex) ln() Complex {
return Complex { return Complex {
log(c1.mod()), log(c.abs()),
atan2(c1.im,c1.re) c.angle()
} }
} }