<commit_before>module Drasil.HGHC.HeatTransfer where

import Language.Drasil

import Data.Drasil.Units.Thermodynamics (heat_transfer_coef)

htVars :: [VarChunk]
htVars = [cladThick, coolFilmCond, gapFilmCond, cladCond]

cladThick, coolFilmCond, gapFilmCond, cladCond :: VarChunk
cladThick    = makeVC "cladThick"    (cn'' "clad thickness")
  ((Greek Tau_L) `sub` lC)
coolFilmCond = makeVC "coolFilmCond" (cn' "initial coolant film conductance")
  (lH `sub` lB)
gapFilmCond  = makeVC "gapFilmCond"  (cn' "initial gap film conductance")
  (lH `sub` lP)
cladCond     = makeVC "cladCond"     (cnIES "clad conductivity") (lK `sub` lC)

htTransCladCool_eq, htTransCladFuel_eq :: Expr
htTransCladCool_eq =
  (2 * (C cladCond) * (C coolFilmCond) / (2 * (C cladCond) + (C cladThick) * (C coolFilmCond)))
htTransCladFuel_eq = (2 * (C cladCond) * (C gapFilmCond)) / (2 * (C cladCond) + ((C cladThick) * (C gapFilmCond)))

htTransCladCool :: QDefinition
htTransCladCool = fromEqn "htTransCladCool" (nounPhraseSP 
  "convective heat transfer coefficient between clad and coolant")
  (lH `sub` lC) heat_transfer_coef htTransCladCool_eq

htTransCladFuel :: QDefinition
htTransCladFuel = fromEqn "htTransCladFuel" (nounPhraseSP
  "effective heat transfer coefficient between clad and fuel surface")
  (lH `sub` lG) heat_transfer_coef htTransCladFuel_eq<commit_msg>Fix typo and style in HGHC/HeatTransfer.hs<commit_after>module Drasil.HGHC.HeatTransfer where

import Language.Drasil

import Data.Drasil.Units.Thermodynamics (heat_transfer_coef)

htVars :: [VarChunk]
htVars = [cladThick, coolFilmCond, gapFilmCond, cladCond]

cladThick, coolFilmCond, gapFilmCond, cladCond :: VarChunk
cladThick    = makeVC "cladThick"    (cn''' "clad thickness")
  ((Greek Tau_L) `sub` lC)
coolFilmCond = makeVC "coolFilmCond" (cn' "initial coolant film conductance")
  (lH `sub` lB)
gapFilmCond  = makeVC "gapFilmCond"  (cn' "initial gap film conductance")
  (lH `sub` lP)
cladCond     = makeVC "cladCond"     (cnIES "clad conductivity") (lK `sub` lC)

htTransCladCool_eq :: Expr
htTransCladCool_eq =
  (2 * (C cladCond) * (C coolFilmCond) / (2 * (C cladCond) + (C cladThick) * (C coolFilmCond)))

htTransCladFuel_eq :: Expr
htTransCladFuel_eq = (2 * (C cladCond) * (C gapFilmCond)) / (2 * (C cladCond) + ((C cladThick) * (C gapFilmCond)))

htTransCladCool :: QDefinition
htTransCladCool = fromEqn "htTransCladCool" (nounPhraseSP 
  "convective heat transfer coefficient between clad and coolant")
  (lH `sub` lC) heat_transfer_coef htTransCladCool_eq

htTransCladFuel :: QDefinition
htTransCladFuel = fromEqn "htTransCladFuel" (nounPhraseSP
  "effective heat transfer coefficient between clad and fuel surface")
  (lH `sub` lG) heat_transfer_coef htTransCladFuel_eq
{'fraction_non_alphanumeric': 0.11046086320409657, 'fraction_numerical': 0.002926115581565472, 'mean_word_length': 5.590361445783133, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5437359', 'n_tokens_mistral': 1112, 'n_tokens_neox': 1025, 'n_words': 263}