open Tensority
open Tensor

let rotation theta =
  [%matrix
    [ cos theta, -.sin theta ;
      sin theta,   cos theta ]
  ]

let m = rotation 1.
let c1 = m.!( All; 1j )
let one = [%vec ( 1., 1. ) ]

let d = det @@ rotation 0.95

let v = rotation 2. * one

let c = (rotation 0.45).%( [1i], [0i])
let x = v.( 1i; __ )

let v1 = (transpose v).( __ ; 1i )
