(* ::Package:: *)

(************************************************************************)
(* This file was generated automatically by the Mathematica front end.  *)
(* It contains Initialization cells from a Notebook file, which         *)
(* typically will have the same name as this file except ending in      *)
(* ".nb" instead of ".m".                                               *)
(*                                                                      *)
(* This file is intended to be loaded into the Mathematica kernel using *)
(* the package loading commands Get or Needs.  Doing so is equivalent   *)
(* to using the Evaluate Initialization Cells menu command in the front *)
(* end.                                                                 *)
(*                                                                      *)
(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
(* automatically each time the parent Notebook file is saved in the     *)
(* Mathematica front end.  Any changes you make to this file will be    *)
(* overwritten.                                                         *)
(************************************************************************)



(* ::Input::Initialization:: *)
<<materialDataARK`


(* ::Input::Initialization:: *)
thermcraftHeater[id_,name_,watts_, len_,od_,grooveid_,numGrooves_,volts_]:=<|"Model"->name,"ID"->1.0id,"OD"->1.0od,"Length"->1.0len,"Watts"->watts,"Volts"->volts,"Groove ID"->1.0grooveid,"Number of Grooves"->numGrooves|>


(* ::Input::Initialization:: *)
thermcraftHeaterVolume[h_]:=Block[{len,id,od,grooveVolume,halfCylVolume,vol},
len=h["Length"];
id=h["ID"];
od=h["OD"];
grooveVolume=h["Number of Grooves"](h["Groove ID"]/2)^2 \[Pi] len;
halfCylVolume=len (1/2 \[Pi] ((od/2)^2-(id/2)^2));
vol=halfCylVolume-grooveVolume
];


(* ::Input::Initialization:: *)
in=Quantity["Inches"];
\[ScriptS]Mullite=materialLib["CeramicHeater"]["\[ScriptS]"];
thermcraftHeatersList={thermcraftHeater[1.25in,"RH211",100,2in,(2+1/16) in,3/16 in,8,28.5],
thermcraftHeater[3in,"RH251",360,3in,4.25 in,1/4in,14,57.5],
thermcraftHeater[(3+3/4)in,"RH261",825,6in,5 in,5/16in,16,115],
thermcraftHeater[(4+1/8)in,"RH267",850,6in,(5+3/4) in,5/16in,16,115],
thermcraftHeater[(4+1/8)in,"scaled 4 in RH267",850 *2/3,4in,(5+3/4) in,5/16in,16,115*2/3],
thermcraftHeater[7in,"RH292",1170,6in,(8+3/4) in,5/16in,24,230],
thermcraftHeater[7in,"RH292-9Inch",(1170+2300)/2,9in,(8+3/4) in,5/16in,24,230],
thermcraftHeater[7in,"RH293",2300,12in,(8+3/4) in,5/16in,24,230]
};
thermcraftHeatersList=(Append[#,"Volume"->thermcraftHeaterVolume[#]])&/@thermcraftHeatersList;
thermcraftHeatersList=(Append[#,"Mass"->#["Volume"]\[Rho]Mullite])&/@thermcraftHeatersList;
thermcraftHeatersList=(Append[#,"HeatCapacity"->#["Volume"]\[ScriptS]Mullite])&/@thermcraftHeatersList;thermcraftHeatersList=(Append[#,"Heating Rate"->UnitConvert[Quantity[#["Watts"],"Watts"]/#["HeatCapacity"]]])&/@thermcraftHeatersList;
thermcraftHeaters = Association[(#["Model"]->#)&/@thermcraftHeatersList]//Dataset;
