package Ġcom . github . j om of . k ane Ċ Ċ import Ġcom . github . j om of . k ane . impl .* Ċ import Ġcom . github . j om of . k ane . impl . functions . Algebra ic Unary Function Ċ import Ġcom . github . j om of . k ane . impl . functions . d Ċ import Ġcom . github . j om of . k ane . impl . types . Algebra ic Type Ċ import Ġcom . github . j om of . k ane . impl . types . k ane Double Ċ import Ġcom . github . j om of . k ane . impl . visitor . Rew rit ing Visitor Ċ import Ġjet brains . lets Plot . export . gg save Ċ import Ġjet brains . lets Plot . geom . geom _ density Ċ import Ġjet brains . lets Plot . geom . geom _ point Ċ import Ġjet brains . lets Plot . gg size Ċ import Ġjet brains . lets Plot . intern . Plot Ċ import Ġjet brains . lets Plot . label . labs Ċ import Ġjet brains . lets Plot . lets _ plot Ċ import Ġorg . junit . Test Ċ import Ġjava . io . File Ċ import Ġjava . lang . Math . PI Ċ import Ġjava . util .* Ċ Ċ class ĠFig ures Test Ġ{ ĊĠĠĠ Ġprivate Ġval Ġimages Ġ= ĠFile ("./ figures "). absolute Path ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` README Ġkernel Ġdensity Ġplot `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġrand Ġ= ĠRandom ( 7 ) ĊĠĠĠĠĠĠĠ Ġval Ġsheet Ġ= Ġsheet Of Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġrating Ġby ĠList ( 2 0 0 ) Ġ{ Ġrand . next Gaussian () Ġ} Ġ+ ĠList ( 2 0 0 ) Ġ{ Ġrand . next Gaussian () Ġ* Ġ 1 . 5 Ġ+ Ġ 1 . 5 Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġcond Ġby ĠList ( 2 0 0 ) Ġ{ Ġ" A " Ġ} Ġ+ ĠList ( 2 0 0 ) Ġ{ Ġ" B " Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ ĠlistOf ( rating , Ġcond ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġvar Ġp : ĠPlot Ġ= Ġlets _ plot ( sheet . toMap ()) ĊĊĠĠĠĠĠĠĠ Ġp Ġ+= Ġgeom _ density ( color Ġ= Ġ" dark _ green ", Ġalpha Ġ= Ġ. 3 ) Ġ{ Ġx Ġ= Ġ" rating "; Ġfill Ġ= Ġ" cond " Ġ} ĊĠĠĠĠĠĠĠ Ġp Ġ+= Ġgg size ( 5 0 0 , Ġ 2 5 0 ) ĊĊĠĠĠĠĠĠĠ Ġgg save ( p , Ġ" readme - density . svg ", Ġpath Ġ= Ġimages ) ĊĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` unary Ġfunction Ġplots `() Ġ{ ĊĠĠĠĠĠĠĠ Ġfor Ġ( func Ġin ĠK ane . unary Functions ) Ġ{ ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġx Ġby Ġ(- 2 0 0 .. 2 0 0 ). map Ġ{ Ġ( PI Ġ* Ġit ) Ġ/ Ġ 1 0 0 . 0 Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġy Ġby Ġfunc ( x ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġop Ġ= Ġfunc . meta . simple Name ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġmap Ġ= Ġy . toMap () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġp Ġ= Ġlets _ plot ( map ) Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġgeom _ point Ġ{ Ġthis . x Ġ= Ġ" x "; Ġthis . y Ġ= Ġ" y "; Ġcolor Ġ= Ġ" y " Ġ} Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġl abs ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġtitle Ġ= Ġ"$ y Ġprofile ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġx Ġ= Ġ"$ op Ġargument ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġy Ġ= Ġ"$ op Ġvalue ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġcolor Ġ= Ġ"$ op Ġvalue " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġgg save ( p , Ġ"$ op - profile . svg ", Ġpath Ġ= Ġimages ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` deriv ative Ġunary Ġfunction Ġplots `() Ġ{ ĊĠĠĠĠĠĠĠ Ġfor Ġ( func Ġin ĠK ane . unary Functions ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġx Ġby Ġvariable () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġderivative Ġby Ġdifferent iate ( func ( x ), Ġx ) ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġn Ġby Ġ(- 2 0 0 .. 2 0 0 ). map Ġ{ Ġ( PI Ġ* Ġit ) Ġ/ Ġ 1 0 0 . 0 Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġy Ġby Ġderivative ( n ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġop Ġ= Ġfunc . meta . simple Name Ġ+ Ġ"'" ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġmap Ġ= Ġy . toMap () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġp Ġ= Ġlets _ plot ( map ) Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġgeom _ point Ġ{ Ġthis . x Ġ= Ġ" n "; Ġthis . y Ġ= Ġ" y "; Ġcolor Ġ= Ġ" y " Ġ} Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġl abs ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġtitle Ġ= Ġ"${ deriv ative . function } Ġprofile ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġx Ġ= Ġ"$ op Ġargument ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġy Ġ= Ġ"$ op Ġvalue ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġcolor Ġ= Ġ"$ op Ġvalue " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġgg save ( p , Ġ"$ op - profile . svg ", Ġpath Ġ= Ġimages ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` README Ġstandalone Ġequation `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġx Ġby Ġ(- 2 0 0 .. 2 0 0 ). map Ġ{ Ġ( 3 . 1 4 Ġ* Ġit ) Ġ/ Ġ 1 0 0 . 0 Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġy Ġby Ġsin ( exp ( x ) Ġ/ Ġ 2 0 . 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġp Ġ= Ġlets _ plot ( y . toMap ()) Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġgeom _ point Ġ{ Ġthis . x Ġ= Ġ" x "; Ġthis . y Ġ= Ġ" y "; Ġcolor Ġ= Ġ" y " Ġ} Ġ+ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġl abs ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġtitle Ġ= Ġ"$ y ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġgg save ( p , Ġ" readme - standalone - equation . svg ", Ġpath Ġ= Ġimages ) ĊĠĠĠ Ġ} Ċ }