package Ġio . imp rob able . sw ay ze . finite Difference Ċ Ċ import Ġio . imp rob able . ke anu . kotlin . Arithmetic Double Ċ Ċ fun ĠL 1 Norm ( new F : ĠI Field < Arithmetic Double >, Ġold F : ĠField < Arithmetic Double >): ĠDouble Ġ{ ĊĠĠĠ Ġvar Ġabs _ error Ġ= ĠField ( new F . i Size (), Ġnew F . j Size (), Ġnew F . domain . clone (), Ġ{ Ġi , Ġj Ġ-> ĊĠĠĠĠĠĠĠ Ġvar Ġerror Ġ= Ġnew F [ i , Ġj ]. value Ġ- Ġold F [ i , Ġj ]. value ĊĠĠĠĠĠĠĠ ĠArithmetic Double ( Math . sqrt ( error Ġ* Ġerror )) ĊĠĠĠ Ġ}) ĊĠĠĠ Ġreturn Ġ( abs _ error . sum () Ġ/ Ġold F . sum ()). value Ċ } Ċ Ċ fun Ġdot ( u : ĠI Field < Arithmetic Double >, Ġv : ĠI Field < Arithmetic Double >): ĠField < Arithmetic Double > Ġ{ ĊĠĠĠ Ġreturn ĠField ( u . i Size (), Ġu . j Size (), Ġu . domain . clone (), Ġ{ Ġi , Ġj Ġ-> ĊĠĠĠĠĠĠĠ ĠArithmetic Double ( Math . sqrt ( u [ i , Ġj ]. value Ġ* Ġu [ i , Ġj ]. value Ġ+ Ġv [ i , Ġj ]. value Ġ* Ġv [ i , Ġj ]. value )) ĊĠĠĠ Ġ}) Ċ } ĊĊ