(* This notebook attempts to find optimal wire wrapping geometry for a tesla coil *)

AWG = {.2893(*1*),.2576,.2294,.2043,.1819,.162,.1443,.1285,.1144,.1019 (*10*),.0907,.0808,.072,.0641,.0571,.0508,.0453,.0403,.0359,.032(*20*),.0285,.0254,.0226,.0201,.0179(*25*),.0159,.0142,.0126,.0113,.01 (*30*),.0089, .008,.00787,.0071,.00709 (*35*),.0063} in;
InsulationThickness = (.0335-.0320)in;

FormDiameter = 4.5 in;
Turns=1000;
Gauge=23;

FormLength=AWG[[Gauge]]Turns
Aspect=FormLength/FormDiameter
WireLength=Pi FormDiameter Turns("ft"/(12 in))//N