-
Notifications
You must be signed in to change notification settings - Fork 1
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
22 changed files
with
868 additions
and
389 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,6 +1,10 @@ | ||
| dist-newstyle | ||
| *.nec | ||
| *.gao | ||
| *.csv | ||
| ./*.nec | ||
| ./*.gao | ||
| ./*.csv | ||
| .debpkg | ||
| .debpkg/* | ||
| tools/* | ||
| report.html | ||
| examples/*/*gao_*.nec | ||
| examples/*/*.nec.csv |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,127 @@ | ||
| {-# LANGUAGE OverloadedStrings #-} | ||
|
|
||
| module Display where | ||
|
|
||
| import Control.Concurrent | ||
| import Control.Monad.State | ||
| import qualified Data.Map as M | ||
| import Data.Maybe | ||
| import Data.Text (Text) | ||
| import qualified Data.Text as T | ||
| import qualified Data.Text.IO as T | ||
| import Data.These | ||
| import GHC.Float | ||
| import Text.Builder | ||
| import Types | ||
| import Utils | ||
|
|
||
| tab :: Builder | ||
| tab = char '\t' | ||
|
|
||
| nl :: Builder | ||
| nl = char '\n' | ||
|
|
||
| padr :: Builder -> Builder | ||
| padr = padFromRight 3 ' ' | ||
|
|
||
| padl :: Builder -> Builder | ||
| padl = padFromLeft 9 ' ' | ||
|
|
||
| toText :: Show a => a -> Builder | ||
| toText a = padl $ text $ T.replace "." "," $ T.pack $ show a | ||
|
|
||
| renderFitness :: Text -> Fitness -> Text | ||
| renderFitness _ None = "" | ||
| renderFitness lab (Fitness swr gain fbr) = | ||
| run $ | ||
| (if T.null lab then mempty else tab <> padl (text lab)) | ||
| <> tab | ||
| <> string "VSWR " | ||
| <> padl (fixedDouble 4 $ float2Double swr) | ||
| <> tab | ||
| <> string "Raw Gain" | ||
| <> padl (fixedDouble 2 $ float2Double gain) | ||
| <> string " dBi " | ||
| <> tab | ||
| <> string "F/B Ratio " | ||
| <> padl (fixedDouble 2 $ float2Double fbr) | ||
| <> string " dB" | ||
|
|
||
| renderScore :: OptFun -> Phenotype -> Text | ||
| renderScore o pt = | ||
| run $ | ||
| tab <> string "Score used for optimization (higher is better) : " | ||
| <> tab | ||
| <> padl (fixedDouble 2 $ float2Double $ score o pt) | ||
|
|
||
| renderOptModes :: GAO Text | ||
| renderOptModes = do | ||
| s <- get | ||
| pure $ | ||
| run $ | ||
| tab <> string "Optimizing for " <> string (omodeShow (omode $ opts s)) <> nl | ||
| <> tab | ||
| <> string "Optimizing a " | ||
| <> string (dmodeShow (dmode $ opts s)) | ||
| <> " antenna." | ||
|
|
||
| printGenotype :: Individual -> IO () | ||
| printGenotype i = do | ||
| T.putStr $ | ||
| run $ | ||
| tab <> string "Genotype is " <> text (renderGenotype i) <> nl | ||
|
|
||
| renderGenotype :: Individual -> Text | ||
| renderGenotype i = do | ||
| run $ | ||
| tab <> string "<|" | ||
| <> foldl (<>) mempty (fmap (\(k, v) -> text k <> ": " <> fixedDouble 4 (float2Double v) <> "|") $ M.assocs $ let Genotype g = genotype i in g) | ||
| <> string ">" | ||
|
|
||
| printGeneration :: GAO () | ||
| printGeneration = do | ||
| s <- get | ||
| liftIO $ T.putStrLn $ run $ string "Generation " <> decimal (genNum s) <> " of " <> decimal (genCount s) | ||
|
|
||
| printGenerationSummary :: [Individual] -> GAO () | ||
| printGenerationSummary is = do | ||
| s <- get | ||
| let summary = | ||
| run $ | ||
| tab <> text "Generation " <> decimal (genNum s - 1) <> " selected survivors" <> nl | ||
| <> tab | ||
| <> text "========================================" | ||
| <> nl | ||
| <> nl | ||
| <> mconcat | ||
| ( flip map (zip [(1 :: Int) ..] is) $ \(n, i) -> | ||
| let p = fromJust . phenotype $ i | ||
| scr = score (optfun s) p | ||
| linetail None = mempty | ||
| linetail f@(Fitness _ gain fbr) = | ||
| tab | ||
| <> "Raw Gain: " | ||
| <> padl (fixedDouble 2 (float2Double gain)) | ||
| <> " dBi " | ||
| <> tab | ||
| <> "F/B Ratio: " | ||
| <> padl (fixedDouble 2 (float2Double fbr)) | ||
| <> " dB" | ||
| <> tab | ||
| <> "Score: " | ||
| <> padl (fixedDouble 2 (float2Double (let (OF h) = optfun s in h f))) | ||
| <> nl | ||
| entryhead = tab <> decimal n <> tab <> text "Genotype is " <> padl (text (renderGenotype i)) <> nl <> nl | ||
| entryfoot = nl <> tab <> tab <> "with Score " <> padl (fixedDouble 2 (float2Double scr)) <> nl <> nl | ||
| entrybody = case getPhenotype p of | ||
| This (PhenotypeData _ f@(Fitness swr _ _)) -> | ||
| tab <> tab <> "AVSWR: " <> padl (fixedDouble 2 (float2Double swr)) <> linetail f | ||
| These _ bs -> | ||
| let ls = (\(Band lab _ _, PhenotypeData _ f@(Fitness swr _ _)) -> tab <> tab <> padl (text lab) <> tab <> "AVSWR: " <> padl (fixedDouble 2 (float2Double swr)) <> linetail f) <$> M.assocs bs | ||
| in foldl (<>) mempty ls | ||
| _ -> mempty | ||
| in entryhead <> entrybody <> entryfoot | ||
| ) | ||
| liftIO $ do | ||
| T.putStrLn summary | ||
| threadDelay 6000000 |
Oops, something went wrong.