/com,   wire_gag.mac    4/15/99
!   Defines the areas for the  AWG standard from 0000 to  45
!    table:   awg(I,0) = wire gauge number
!             awg(I,1) = wire area
!   The dimensions below are in inches, inches^2
!   This macro sets the W_GEOM to convert inches to meters
!
!   To use AWG 0000, use awg(-3), for 000 use awg(-2), for 00, use awg(-1)
!   for AWG 0 use  awg(0).
!   for AWG (N>0) use awg(N) (for AWG 24, use awg(24))
!
w_geom=.0254       !  converts inches to meters
!
n_wg=49
*set,awa
*dim,awa,,n_wg
*set,awg
*dim,awg,table,n_wg

/com,AWG  0000    000       00
awa(1)=  460.0,   409.6,   364.8

/com,AWG    0        1        2        3       4
awa(4)=  324.9,   289.3,   257.5,   229.4,  204.3
/com,       5        6        7        8       9
awa(9)=  181.9,   162.0,   144.3,   128.5,  114.4
awa(14)= 101.9,   90.74,   80.81,   71.96,  64.08
awa(19)= 57.07,   50.82,   45.26,   40.30,  35.89
awa(24)= 31.96,   28.45,   25.35,   22.57,  20.10
awa(29)= 17.90,   15.94,   14.20,   12.64,  11.26
awa(34)= 10.03,   8.928,   7.950,   7.080,  6.035
awa(39)= 5.615,   5.000,   4.453,   3.965,  3.531
/com,      40       41        42      43     44
awa(44)= 3.145,   2.8  ,   2.5  ,   2.2  ,  2.
/com,      45
awa(49)= 1.76

*afun,rad
pi=acos(-1)
*afun,deg
*do,_i,1,n_wg
  awg(_i,0)=_i-4
  awg(_i,1)=pi*((awa(_i)/1000)**2)/4
*enddo