<commit_before>module Drasil.SWHS.Unitals where

import Language.Drasil
import Data.Drasil.SI_Units
import Data.Drasil.Units.Thermodynamics
import Data.Drasil.Concepts.Thermodynamics (thermal_energy)
import qualified Data.Drasil.Quantities.Physics as QP (surface, time)
import Data.Drasil.Quantities.Math
import qualified Data.Drasil.Quantities.PhysicalProperties as QPP (mass)

import Control.Lens ((^.))
import Prelude hiding (id)

swhsSymbols :: [CQSWrapper]
swhsSymbols = (map cqs swhsUnits) ++ (map cqs swhsUnitless)

-- Symbols with Units --

swhsUnits :: [UWrapper]
swhsUnits = map uw [coil_SA,in_SA,out_SA,pcm_SA,htCap,htCap_L,htCap_L_P,htCap_S,
  htCap_S_P,htCap_V,htCap_W,diam,sensHtE,pcm_initMltE,pcm_E,w_E,vol_ht_gen,
  htTransCoeff,coil_HTC] ++ [uw htFusion] ++ map uw [pcm_HTC,tank_length] ++
  [uw mass] ++ map uw [pcm_mass,w_mass,ht_flux,latentE,thFluxVect,ht_flux_C,
  ht_flux_in,ht_flux_out, ht_flux_P,latentE_P] ++ [uw time] ++ map uw [temp,
  temp_boil,temp_C,temp_env,time_final,temp_init,temp_melt,t_init_melt,
  t_final_melt,temp_melt_P,temp_PCM,temp_W,volume,pcm_vol,tank_vol,w_vol,deltaT,
  density,pcm_density,w_density,tau,tau_L_P,tau_S_P,tau_W]

coil_SA,in_SA,out_SA,pcm_SA,htCap,htCap_L,htCap_L_P,htCap_S,htCap_S_P,htCap_V,
  htCap_W,diam,sensHtE,pcm_initMltE,pcm_E,w_E,vol_ht_gen,htTransCoeff,coil_HTC,
  pcm_HTC,tank_length,pcm_mass,w_mass,ht_flux,latentE,
  thFluxVect,ht_flux_C,ht_flux_in,ht_flux_out,ht_flux_P,latentE_P,
  temp,temp_boil,temp_C,temp_env,time_final,temp_init,temp_melt,t_init_melt,
  t_final_melt,temp_melt_P,temp_PCM,temp_W,volume,pcm_vol,tank_vol,w_vol,deltaT,
  density,pcm_density,w_density,tau,tau_L_P,tau_S_P,tau_W :: UnitalChunk
  
mass, htFusion, time :: UnitalChunk  

--symbol names can't begin with a capital
fixme :: String
fixme = "FIXME: Define this or remove the need for definitions"

coil_SA      = uc' "coil_SA" "coil surface area" fixme (sub cA cC) m_2
in_SA        = uc' "in_SA" "surface area over which heat is transferred in" 
  fixme (sub cA (Atomic "in")) m_2<commit_msg>clean up SWHS unitals.<commit_after>module Drasil.SWHS.Unitals where

import Language.Drasil
import Data.Drasil.SI_Units
import Data.Drasil.Units.Thermodynamics
import Data.Drasil.Concepts.Thermodynamics (thermal_energy)
import qualified Data.Drasil.Quantities.Physics as QP (surface, time)
import Data.Drasil.Quantities.Math
import qualified Data.Drasil.Quantities.PhysicalProperties as QPP (mass)

import Control.Lens ((^.))
import Prelude hiding (id)

swhsSymbols :: [CQSWrapper]
swhsSymbols = (map cqs swhsUnits) ++ (map cqs swhsUnitless)

-- Symbols with Units --

swhsUnits :: [UWrapper]
swhsUnits = map uw [coil_SA,in_SA,out_SA,pcm_SA,htCap,htCap_L,htCap_L_P,htCap_S,
  htCap_S_P,htCap_V,htCap_W,diam,sensHtE,pcm_initMltE,pcm_E,w_E,vol_ht_gen,
  htTransCoeff,coil_HTC,pcm_HTC,tank_length,pcm_mass,w_mass,ht_flux,latentE,
  thFluxVect,ht_flux_C,ht_flux_in,ht_flux_out,ht_flux_P,latentE_P,temp,
  temp_boil,temp_C,temp_env,time_final,temp_init,temp_melt,t_init_melt,
  t_final_melt,temp_melt_P,temp_PCM,temp_W,volume,pcm_vol,tank_vol,w_vol,deltaT,
  density,pcm_density,w_density,tau,tau_L_P,tau_S_P,tau_W] ++ 
  map uw [htFusion, mass, time]

coil_SA,in_SA,out_SA,pcm_SA,htCap,htCap_L,htCap_L_P,htCap_S,htCap_S_P,htCap_V,
  htCap_W,diam,sensHtE,pcm_initMltE,pcm_E,w_E,vol_ht_gen,htTransCoeff,coil_HTC,
  pcm_HTC,tank_length,pcm_mass,w_mass,ht_flux,latentE,
  thFluxVect,ht_flux_C,ht_flux_in,ht_flux_out,ht_flux_P,latentE_P,
  temp,temp_boil,temp_C,temp_env,time_final,temp_init,temp_melt,t_init_melt,
  t_final_melt,temp_melt_P,temp_PCM,temp_W,volume,pcm_vol,tank_vol,w_vol,deltaT,
  density,pcm_density,w_density,tau,tau_L_P,tau_S_P,tau_W :: UnitalChunk
  
mass, htFusion, time :: UnitalChunk  

--symbol names can't begin with a capital
fixme :: String
fixme = "FIXME: Define this or remove the need for definitions"

coil_SA      = uc' "coil_SA" "coil surface area" fixme (sub cA cC) m_2
in_SA        = uc' "in_SA" "surface area over which heat is transferred in" 
  fixme (sub cA (Atomic "in")) m_2
{'fraction_non_alphanumeric': 0.1075746360720454, 'fraction_numerical': 0.0009869232667160128, 'mean_word_length': 7.890350877192983, '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': '4133550', 'n_tokens_mistral': 1877, 'n_tokens_neox': 1826, 'n_words': 255}