package Ġsc ient ifik . k math . linear Ċ Ċ import Ġkotlin . test . Test Ċ import Ġkotlin . test . assertEquals Ċ Ċ class ĠArray Matrix Test Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Sum () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġvector 1 Ġ= ĠVector . of Real ( 5 ) Ġ{ Ġit . toDouble () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġvector 2 Ġ= ĠVector . of Real ( 5 ) Ġ{ Ġ 5 Ġ- Ġit . toDouble () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġsum Ġ= Ġvector 1 Ġ+ Ġvector 2 ĊĠĠĠĠĠĠĠ ĠassertEquals ( 5 . 0 , Ġsum [ 2 ]) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Vector To Matrix () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġvector Ġ= ĠVector . of Real ( 5 ) Ġ{ Ġit . toDouble () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġmatrix Ġ= Ġvector . to Matrix () ĊĠĠĠĠĠĠĠ ĠassertEquals ( 4 . 0 , Ġmatrix [ 4 , Ġ 0 ]) ĊĠĠĠ Ġ} ĊĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest Dot () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġvector 1 Ġ= ĠVector . of Real ( 5 ) Ġ{ Ġit . toDouble () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġvector 2 Ġ= ĠVector . of Real ( 5 ) Ġ{ Ġ 5 Ġ- Ġit . toDouble () Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġproduct Ġ= Ġvector 1 . to Matrix () Ġdot Ġ( vector 2 . to Matrix (). transpose ()) ĊĊĊĠĠĠĠĠĠĠ ĠassertEquals ( 5 . 0 , Ġproduct [ 1 , Ġ 0 ]) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 6 . 0 , Ġproduct [ 2 , Ġ 2 ]) ĊĠĠĠ Ġ} Ċ }