Thermcraft Ceramic Refractory Heaters

This file provides data to model a type of ceramic refractory material radiant heater, produced by Thermcraft, Inc.

https://thermcraftinc.com/wp-content/uploads/2017/09/CeramicRefractoryHeaters.pdf

also available at https://web.archive.org/web/20190224231022/https://thermcraftinc.com/wp-content/uploads/2017/09/CeramicRefractoryHeaters.pdf

<<materialDataARK`

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|>

Calculation for volume, taking into account a number of grooves cut out from the heater structure. Later used to estimate the thermal mass.

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)π len;
halfCylVolume=len ((1/2)π (((((od/2)))^2)-((((id/2)))^2)));
vol=halfCylVolume-grooveVolume
];

in=Quantity["Inches"];
𝓈Mullite=materialLib["CeramicHeater"]["𝓈"];
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"]ρMullite])&/@thermcraftHeatersList;
thermcraftHeatersList=(Append[#,"HeatCapacity"->#["Volume"]𝓈Mullite])&/@thermcraftHeatersList;thermcraftHeatersList=(Append[#,"Heating Rate"->UnitConvert[Quantity[#["Watts"],"Watts"]/#["HeatCapacity"]]])&/@thermcraftHeatersList;
thermcraftHeaters = Association[(#["Model"]->#)&/@thermcraftHeatersList]//Dataset;