ohsl 0.12.0

A collection of numerical routines and mathematical types for use in scientific computing.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84

use ohsl::complex::{Complex, Cmplx};

#[test]
fn unary_subtract() {
    let z = Cmplx::new( 1.0, 1.0 );
    let zans = - z;
    assert_eq!( zans.real, -1.0 );
    assert_eq!( zans.imag, -1.0 );
}

#[test]
fn binary_add() {
    let z1 = Complex::<f32>::new( 1.0, 2.0 );
    let z2 = Complex::<f32>::new( 2.0, 1.0 );
    let zans = z1 + z2;
    assert_eq!( zans.real, 3.0 );
    assert_eq!( zans.imag, 3.0 );
}

#[test]
fn binary_subtract() {
    let z1 = Cmplx::new( 1.0, 2.0 );
    let z2 = Cmplx::new( 2.0, 1.0 );
    let zans = z1 - z2;
    assert_eq!( zans.real, -1.0 );
    assert_eq!( zans.imag, 1.0 );
}

#[test]
fn multiply() {
    let z1 = Cmplx::new( 1.0, 2.0 );
    let z2 = Cmplx::new( 2.0, 1.0 );
    let zans = z1 * z2;
    assert_eq!( zans.real, 0.0 );
    assert_eq!( zans.imag, 5.0 );
}

#[test]
fn divide() {
    let z1 = Cmplx::new( 1.0, 2.0 );
    let z2 = Cmplx::new( 2.0, 1.0 );
    let zans = z1 / z2;
    assert_eq!( zans.real, 0.8 );
    assert_eq!( zans.imag, 0.6 );
}

#[test]
fn plus_real() {
    let r: f64 = 1.0;
    let z = Cmplx::new( 1.0, 2.0 );
    let zans = z + r;
    assert_eq!( zans.real, 2.0 );
    assert_eq!( zans.imag, 2.0 );
}

#[test]
fn minus_real() {
    let r: f64 = 1.0;
    let z = Cmplx::new( 1.0, 2.0 );
    let zans = z - r;
    assert_eq!( zans.real, 0.0 );
    assert_eq!( zans.imag, 2.0 );
}

#[test]
fn multiply_real() {
    let r: f64 = 4.0;
    let z = Cmplx::new( 1.0, 2.0 );
    let zans = z * r;
    assert_eq!( zans.real, 4.0 );
    assert_eq!( zans.imag, 8.0 );
    let zans = r * z;
    assert_eq!( zans.real, 4.0 );
    assert_eq!( zans.imag, 8.0 );
}

#[test]
fn divide_real() {
    let r: f64 = 4.0;
    let z = Cmplx::new( 1.0, 2.0 );
    let zans = z / r;
    assert_eq!( zans.real, 0.25 );
    assert_eq!( zans.imag, 0.5 );
}