!   TITLE:  draw_lam-coil.mac (PART_LIB)
!
!
FINISH
/CLEAR,START
/prep7
/title,Lamination-Coil Assembly
/PNUM,KP,1
!
r1=1.160/2
r2=2.375/2
r3=1.210/2
r4=2.155/2
l1=0.504
l2=0.300
!
!
csys,0
!
k,,0,r1,0       ! points 1 thru 4
k,,l1,r1,0
k,,l1,r2,0
k,,0,r2,0
!
create_area
!
lplot
!
!
csys,0
!
k,,0,r3,0       ! points 5 thru 8
k,,0,r4,0
k,,-l2,r4,0
k,,-l2,r3,0
!
create_lines
!
lfillt,lm-2,lm-1,0.2*((r2-r3)-(r2-r4))
lfillt,lm-1,lm,0.2*((r2-r3)-(r2-r4))
!
isolate_lines
al,all
init_entity_num
!
k,,l1,r4,0      ! points 9 thru 12
k,,l1,r3,0
k,,l1+l2,r3,0
k,,l1+l2,r4,0
!
create_lines
!
lfillt,lm-2,lm-1,0.2*((r2-r3)-(r2-r4))
lfillt,lm-1,lm,0.2*((r2-r3)-(r2-r4))
!
isolate_lines
al,all
init_entity_num
!
aglue,am-2,am-1,am
!
init_entity_num
!
lplot
!
!
/ANUM ,0,    12, 0.40000    ,-0.48000
/LSPEC,    10,     0, 2.000
/LSYM,-0.720,-0.480, 180,   4, 1.000
/LINE,-0.720,-0.480, 1.520,-0.480
/LSYM, 1.520,-0.480,   0,   4, 1.000
/ANUM ,0,     1, 0.38000    ,-0.58000
/TSPEC, 15, 1.200,   1,   0,   0
/TLAB, 0.044,-0.580,Axis of Rotation
/ANUM ,0,     1,  1.4300    ,-0.56000
/TLAB, 1.388,-0.560,Z
!
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/FOC,  1,  0.269026393778    ,  0.783939607802    ,   0.00000000000
/REPLO
!
/ANUM ,0,    12,-0.80000E-01,-0.40000
/LSPEC,    10,     0, 1.000
/LSYM,-0.080,-0.320,  90,   4, 1.000
/LINE,-0.080,-0.320,-0.080,-0.480
!
/ANUM ,0,     1,-0.15000    ,-0.36000
/TLAB,-0.192,-0.360,Y
!
!
/FOC,  1,  0.362499374154    ,  0.574066312242    ,   0.00000000000
/REPLO
/FOC,  1,  0.535336205792    ,  0.450611432501    ,   0.00000000000
/REPLO
/FOC,  1,  0.512408870983    ,  0.450611432501    ,   0.00000000000
/REPLO
/FOC,  1,  0.501827024148    ,  0.450611432501    ,   0.00000000000
/REPLO
/ANUM ,0,     3,  1.1650    , 0.45000E-01
/LSPEC,    15,     0, 1.000
/LINE , 0.350, 0.620, 1.250, 0.620
/LINE , 0.370,-0.480, 1.250,-0.480
/LINE , 1.200, 0.120, 1.200, 0.610
/LINE , 1.200, 0.020, 1.200,-0.470
/LSYM , 1.200, 0.610,  90,4, 1.000
/LSYM , 1.200,-0.470, 270,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 1.165, 0.045,r2
/ANUM ,0,     3, 0.94500    , 0.50000E-02
/LINE , 0.590, 0.540, 1.030, 0.540
/LINE , 0.570,-0.480, 1.030,-0.480
/LINE , 0.980, 0.080, 0.980, 0.530
/LINE , 0.980,-0.020, 0.980,-0.470
/LSYM , 0.980, 0.530,  90,4, 1.000
/LSYM , 0.980,-0.470, 270,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.945, 0.005,r4
/ANUM ,0,     3, 0.74500    ,-0.19500
/LINE , 0.590, 0.140, 0.830, 0.140
/LINE , 0.550,-0.480, 0.830,-0.480
/LINE , 0.780,-0.120, 0.780, 0.130
/LINE , 0.780,-0.220, 0.780,-0.470
/LSYM , 0.780, 0.130,  90,4, 1.000
/LSYM , 0.780,-0.470, 270,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.745,-0.195,r3
/ANUM ,0,     3, 0.22500    ,-0.21500
/LINE , 0.270, 0.100, 0.310, 0.100
/LINE , 0.250,-0.480, 0.310,-0.480
/LINE , 0.260,-0.140, 0.260, 0.090
/LINE , 0.260,-0.240, 0.260,-0.470
/LSYM , 0.260, 0.090,  90,4, 1.000
/LSYM , 0.260,-0.470, 270,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.225,-0.215,r1
/ANUM ,0,     3,-0.26500    ,-0.12500
/LINE ,-0.100, 0.090,-0.100,-0.150
/LINE ,-0.360, 0.130,-0.360,-0.150
/LINE ,-0.160,-0.100,-0.110,-0.100
/LINE ,-0.300,-0.100,-0.350,-0.100
/LSYM ,-0.110,-0.100,   0,4, 1.000
/LSYM ,-0.350,-0.100, 180,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB ,-0.265,-0.125,l2
/ANUM ,0,     3, 0.42500    ,-0.12500
/LINE , 0.340, 0.110, 0.340,-0.150
/LINE , 0.580, 0.110, 0.580,-0.150
/LINE , 0.390,-0.100, 0.350,-0.100
/LINE , 0.530,-0.100, 0.570,-0.100
/LSYM , 0.350,-0.100, 180,4, 1.000
/LSYM , 0.570,-0.100,   0,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.425,-0.125,l2
/ANUM ,0,     3, 0.85000E-01, 0.41500
/LINE ,-0.080, 0.410,-0.080, 0.490
/LINE , 0.320, 0.390, 0.320, 0.490
/LINE , 0.050, 0.440,-0.070, 0.440
/LINE , 0.190, 0.440, 0.310, 0.440
/LSYM ,-0.070, 0.440, 180,4, 1.000
/LSYM , 0.310, 0.440,   0,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.085, 0.415,l1
/replot
!
/ANUM ,0,     1,-0.66000    , 0.84000
/TSPEC, 15, 0.900,   1,   0,   0
/TLAB,-0.849, 0.840,r1 = 1.160/2
/ANUM ,0,     1,-0.70000    , 0.78000
/TLAB,-0.889, 0.780,r2 = 1.210/2
/ANUM ,0,     1,-0.73000    , 0.72000
/TLAB,-0.919, 0.720,r3 = 2.155/2
/ANUM ,0,     1,-0.76000    , 0.66000
/TLAB,-0.949, 0.660,r4 = 2.375/2
/ANUM ,0,     1,-0.71000    , 0.56000
/TLAB,-0.867, 0.560,l1 = 0.504
/ANUM ,0,     1,-0.76000    , 0.46000
/TLAB,-0.917, 0.460,l2 = 0.300
/ANUM,     0,     1,-0.65991    , 0.71985
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.849, 0.720,r1 = 1.160/2
/ANUM,     0,     1,-0.69995    , 0.65979
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.889, 0.660,r2 = 1.210/2
/ANUM,     0,     1,-0.72998    , 0.59985
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.919, 0.600,r3 = 2.155/2
/ANUM,     0,     1,-0.75989    , 0.53979
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.949, 0.540,r4 = 2.375/2
/ANUM,     0,     1,-0.70996    , 0.43982
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.867, 0.440,l1 = 0.504
/ANUM,     0,     1,-0.75989    , 0.33984
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.917, 0.340,l2 = 0.300
/ANUM,    13,DELE
/ANUM,    14,DELE
/ANUM,    15,DELE
/ANUM,    16,DELE
/ANUM,    17,DELE
/ANUM,    18,DELE
/REPLOT
!
/ANUM,     0,     1,-0.17969    , 0.87976
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.369, 0.880,r1 = 1.160/2
/ANUM,     0,     1,-0.21973    , 0.81958
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.409, 0.820,r2 = 1.210/2
/ANUM,    19,DELE
/ANUM,    20,DELE
/ANUM,     0,     1,-0.41968    , 0.79956
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.609, 0.800,r1 = 1.160/2
/ANUM,     0,     1,-0.45972    , 0.73938
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.649, 0.740,r2 = 1.210/2
/ANUM,    13,DELE
/ANUM,    14,DELE
/ANUM,    15,DELE
/ANUM,    21,DELE
/ANUM ,0,     1,-0.55000    , 0.88000
/TLAB,-0.739, 0.880,r1 = 1.160/2
/ANUM ,0,     1, 0.12000    , 0.86000
/TLAB,-0.069, 0.860,r3 = 2.155/2
/ANUM,     0,     1,-0.55969    , 0.81934
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.749, 0.820,r2 = 1.210/2
/ANUM,    16,DELE
/ANUM,     0,     1,-0.55994    , 0.75989
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.749, 0.760,r3 = 2.155/2
/ANUM,    14,DELE
/ANUM,     0,     1,-0.55981    , 0.69958
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.749, 0.700,r4 = 2.375/2
/ANUM,    22,DELE
/ANUM,     0,     1,-0.71985    , 0.37964
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.877, 0.380,l2 = 0.300
/ANUM,    24,DELE
/ANUM,     0,     1,-0.59973    , 0.55957
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.757, 0.560,l2 = 0.300
/ANUM,     0,     1,-0.58972    , 0.61975
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.747, 0.620,l1 = 0.504
/ANUM,    17,DELE
/ANUM,    23,DELE
/ANUM,     0,     1,-0.70984    , 0.63977
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.899, 0.640,r1 = 1.160/2
/ANUM,     0,     1,-0.71960    , 0.45935
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.909, 0.460,r4 = 2.155/2
/ANUM,     0,     1,-0.71948    , 0.57922
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.909, 0.580,r2 = 2.375/2
/ANUM,     0,     1,-0.71985    , 0.51978
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.909, 0.520,r3 = 1.210/2
/ANUM,     0,     1,-0.75952    , 0.31934
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.917, 0.320,l2 = 0.300
/ANUM,     0,     1,-0.74951    , 0.37952
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.907, 0.380,l1 = 0.504
/ANUM,    13,DELE
/ANUM,    14,DELE
/ANUM,    15,DELE
/ANUM,    16,DELE
/ANUM,    18,DELE
/ANUM,    19,DELE
!
/ANUM ,0,     1, 0.58000    , 0.82000
/TLAB, 0.517, 0.820,Coil
/ANUM ,0,     1,  0.0000    , 0.84000
/TLAB,-0.158, 0.840,Lamination
/ANUM ,0,     1, 0.91000    , 0.82000
/TLAB, 0.847, 0.820,Coil
/ANUM,     0,     1, 0.13989    , 0.23987
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.018, 0.240,Lamination
/ANUM,    14,DELE
/ANUM,     0,     1,-0.21997    , 0.31995
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.283, 0.320,Coil
/ANUM,    13,DELE
/ANUM,     0,     1, 0.46985    , 0.31995
/TSPE, 15, 0.900,   1,   0,   0
/TLAB, 0.407, 0.320,Coil
/ANUM,    15,DELE
/replot
!
/ANUM ,0,     1,-0.31170    , 0.82027
/TLAB,-0.837, 0.820,These parameters are found in
/ANUM,     0,     1,-0.16479    , 0.73511
/TLAB,-0.830, 0.735,parameter file:   LAM-COIL.PARM
/ANUM,    16,DELE
/ANUM,     0,     1,-0.93994E-02, 0.88391
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.535, 0.884,These parameters are found in
/ANUM,     0,     1, 0.13745    , 0.79883
/TSPE, 15, 0.900,   1,   0,   0
/TLAB,-0.528, 0.799,parameter file:   LAM-COIL.PARM
/ANUM,    15,DELE
/ANUM,    18,DELE
/replot
!
toolbar